diff --git a/.gitignore b/.gitignore
index 397f0d0..de9a8f2 100644
--- a/.gitignore
+++ b/.gitignore
@@ -26,9 +26,11 @@
FPC_Units/
lib/
+out/
backup/
*.pyd
*.lps
-demo
*.compiled
-/Components/out
+demo
+project1
+TestPyThread
diff --git a/Components/Delphi_packages/PythonVCL_2010.dpk b/Components/Delphi_packages/PythonVCL_2010.dpk
deleted file mode 100644
index e33314d..0000000
--- a/Components/Delphi_packages/PythonVCL_2010.dpk
+++ /dev/null
@@ -1,44 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-package PythonVCL_2010;
-
-{$R *.res}
-{$R 'Sources\VCL\PythonDatabase.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl,
- dbrtl,
- bdertl,
- Python_2010;
-
-contains
- PythonDatabase in 'Sources\VCL\PythonDatabase.pas',
- pyDB in 'Sources\VCL\pyDB.pas',
- pyDBTables in 'Sources\VCL\pyDBTables.pas';
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_2010.dproj b/Components/Delphi_packages/PythonVCL_2010.dproj
deleted file mode 100644
index 5b7ac01..0000000
--- a/Components/Delphi_packages/PythonVCL_2010.dproj
+++ /dev/null
@@ -1,116 +0,0 @@
-
-
- {3F30352C-4354-4995-BB1C-5965F73896A0}
- PythonVCL_2010.dpk
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- C:\Users\Public\Documents\RAD Studio\7.0\Bpl\PythonVCL_2010.bpl
- 00400000
- true
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)
- x86
- VCL Components for Python
- false
- false
- true
- true
- false
- false
- true
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- Package
-
-
-
- PythonVCL_2010.dpk
-
-
- False
- True
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 4105
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Components/Delphi_packages/PythonVCL_2010.res b/Components/Delphi_packages/PythonVCL_2010.res
deleted file mode 100644
index e2dacf8..0000000
Binary files a/Components/Delphi_packages/PythonVCL_2010.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_XE2.dpk b/Components/Delphi_packages/PythonVCL_XE2.dpk
deleted file mode 100644
index ebf3d13..0000000
--- a/Components/Delphi_packages/PythonVCL_XE2.dpk
+++ /dev/null
@@ -1,41 +0,0 @@
-package PythonVCL_XE2;
-
-{$R *.res}
-{$R 'Sources\VCL\PythonDatabase.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl,
- dbrtl,
- bdertl,
- Python_XE2;
-
-contains
- PythonDatabase in 'Sources\VCL\PythonDatabase.pas',
- pyDB in 'Sources\VCL\pyDB.pas',
- pyDBTables in 'Sources\VCL\pyDBTables.pas';
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_bds3.bdsproj b/Components/Delphi_packages/PythonVCL_bds3.bdsproj
deleted file mode 100644
index 232773c..0000000
--- a/Components/Delphi_packages/PythonVCL_bds3.bdsproj
+++ /dev/null
@@ -1,173 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
- PythonVCL_bds3.dpk
-
-
- 7.0
-
-
- 8
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- True
- True
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-
- False
-
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- False
- False
- False
- True
- True
- True
-
-
- 0
- 0
- 1
- False
- False
- False
- 16384
- 1048576
- 4194304
- VCL Components for Python
-
-
-
-
-
-
-
-
-
-
- False
-
-
-
-
-
- False
-
-
-
-
-
- False
-
-
-
- $00000000
-
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 4105
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
diff --git a/Components/Delphi_packages/PythonVCL_bds3.dpk b/Components/Delphi_packages/PythonVCL_bds3.dpk
deleted file mode 100644
index c9d946c..0000000
--- a/Components/Delphi_packages/PythonVCL_bds3.dpk
+++ /dev/null
@@ -1,41 +0,0 @@
-package PythonVCL_bds3;
-
-{$R *.res}
-{$R 'Sources\VCL\PythonDatabase.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl,
- dbrtl,
- bdertl,
- Python_bds3;
-
-contains
- PythonDatabase in 'Sources\VCL\PythonDatabase.pas',
- pyDB in 'Sources\VCL\pyDB.pas',
- pyDBTables in 'Sources\VCL\pyDBTables.pas';
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_bds3.res b/Components/Delphi_packages/PythonVCL_bds3.res
deleted file mode 100644
index e2dacf8..0000000
Binary files a/Components/Delphi_packages/PythonVCL_bds3.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_cb3.dpk b/Components/Delphi_packages/PythonVCL_cb3.dpk
deleted file mode 100644
index 635f64b..0000000
--- a/Components/Delphi_packages/PythonVCL_cb3.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package PythonVCL_cb3;
-
-{$R *.RES}
-{$R 'PythonDatabase.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $00400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$DESIGNONLY}
-{$IMPLICITBUILD ON}
-
-requires
- VCLDB35,
- Python_cb3;
-
-contains
- pyDB,
- pyDBTables,
- PythonDatabase;
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_cb3.res b/Components/Delphi_packages/PythonVCL_cb3.res
deleted file mode 100644
index cde4597..0000000
Binary files a/Components/Delphi_packages/PythonVCL_cb3.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_cb4.dpk b/Components/Delphi_packages/PythonVCL_cb4.dpk
deleted file mode 100644
index 0eb92b8..0000000
--- a/Components/Delphi_packages/PythonVCL_cb4.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package PythonVCL_cb4;
-
-{$R *.RES}
-{$R 'Sources\VCL\PythonDatabase.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $00400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl40,
- Vcldb40,
- Python_cb4;
-
-contains
- PythonDatabase in 'Sources\VCL\PythonDatabase.pas',
- pyDB in 'Sources\VCL\pyDB.pas',
- pyDBTables in 'sources\VCL\pyDBTables.pas';
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_cb4.res b/Components/Delphi_packages/PythonVCL_cb4.res
deleted file mode 100644
index 37c47b0..0000000
Binary files a/Components/Delphi_packages/PythonVCL_cb4.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_cb5.res b/Components/Delphi_packages/PythonVCL_cb5.res
deleted file mode 100644
index 37c47b0..0000000
Binary files a/Components/Delphi_packages/PythonVCL_cb5.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_cb6.res b/Components/Delphi_packages/PythonVCL_cb6.res
deleted file mode 100644
index 37c47b0..0000000
Binary files a/Components/Delphi_packages/PythonVCL_cb6.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_d3.dpk b/Components/Delphi_packages/PythonVCL_d3.dpk
deleted file mode 100644
index 36e35f9..0000000
--- a/Components/Delphi_packages/PythonVCL_d3.dpk
+++ /dev/null
@@ -1,40 +0,0 @@
-package PythonVCL_d3;
-
-{$R *.RES}
-{$R 'PythonDatabase.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $00400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$DESIGNONLY}
-{$IMPLICITBUILD ON}
-
-requires
- vcl30,
- VCLDB30,
- Python_d3;
-
-contains
- pyDB,
- pyDBTables,
- PythonDatabase;
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_d3.res b/Components/Delphi_packages/PythonVCL_d3.res
deleted file mode 100644
index 36f26e2..0000000
Binary files a/Components/Delphi_packages/PythonVCL_d3.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_d4.dpk b/Components/Delphi_packages/PythonVCL_d4.dpk
deleted file mode 100644
index 25243dd..0000000
--- a/Components/Delphi_packages/PythonVCL_d4.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package PythonVCL_d4;
-
-{$R *.RES}
-{$R 'Sources\VCL\PythonDatabase.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $00400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl40,
- Vcldb40,
- Python_d4;
-
-contains
- PythonDatabase in 'Sources\VCL\PythonDatabase.pas',
- pyDB in 'Sources\VCL\pyDB.pas',
- pyDBTables in 'sources\VCL\pyDBTables.pas';
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_d4.res b/Components/Delphi_packages/PythonVCL_d4.res
deleted file mode 100644
index 592ec65..0000000
Binary files a/Components/Delphi_packages/PythonVCL_d4.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_d5.dpk b/Components/Delphi_packages/PythonVCL_d5.dpk
deleted file mode 100644
index a92e241..0000000
--- a/Components/Delphi_packages/PythonVCL_d5.dpk
+++ /dev/null
@@ -1,40 +0,0 @@
-package PythonVCL_d5;
-
-{$R *.RES}
-{$R 'Sources\VCL\PythonDatabase.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl50,
- Vcldb50,
- Vclbde50,
- Python_d5;
-
-contains
- pyDB in 'Sources\VCL\pyDB.pas',
- pyDBTables in 'Sources\VCL\pyDBTables.pas',
- PythonDatabase in 'Sources\VCL\PythonDatabase.pas';
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_d5.res b/Components/Delphi_packages/PythonVCL_d5.res
deleted file mode 100644
index ffcaf64..0000000
Binary files a/Components/Delphi_packages/PythonVCL_d5.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_d6.dpk b/Components/Delphi_packages/PythonVCL_d6.dpk
deleted file mode 100644
index 67e6893..0000000
--- a/Components/Delphi_packages/PythonVCL_d6.dpk
+++ /dev/null
@@ -1,40 +0,0 @@
-package PythonVCL_d6;
-
-{$R *.res}
-{$R 'Sources\VCL\PythonDatabase.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl,
- vcldb,
- bdertl,
- Python_d6;
-
-contains
- pyDB in 'Sources\VCL\pyDB.pas',
- pyDBTables in 'Sources\VCL\pyDBTables.pas',
- PythonDatabase in 'Sources\VCL\PythonDatabase.pas';
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_d6.res b/Components/Delphi_packages/PythonVCL_d6.res
deleted file mode 100644
index ffcaf64..0000000
Binary files a/Components/Delphi_packages/PythonVCL_d6.res and /dev/null differ
diff --git a/Components/Delphi_packages/PythonVCL_d7.dpk b/Components/Delphi_packages/PythonVCL_d7.dpk
deleted file mode 100644
index 7715f9a..0000000
--- a/Components/Delphi_packages/PythonVCL_d7.dpk
+++ /dev/null
@@ -1,40 +0,0 @@
-package PythonVCL_d7;
-
-{$R *.res}
-{$R 'Sources\VCL\PythonDatabase.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'VCL Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl,
- vcldb,
- bdertl,
- Python_d7;
-
-contains
- pyDB in 'Sources\VCL\pyDB.pas',
- pyDBTables in 'Sources\VCL\pyDBTables.pas',
- PythonDatabase in 'Sources\VCL\PythonDatabase.pas';
-
-end.
diff --git a/Components/Delphi_packages/PythonVCL_d7.res b/Components/Delphi_packages/PythonVCL_d7.res
deleted file mode 100644
index ffcaf64..0000000
Binary files a/Components/Delphi_packages/PythonVCL_d7.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_2010.dpk b/Components/Delphi_packages/Python_2010.dpk
deleted file mode 100644
index f7eaa90..0000000
--- a/Components/Delphi_packages/Python_2010.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package Python_2010;
-
-{$R *.res}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl;
-
-contains
- MethodCallBack in 'Sources\Core\MethodCallBack.pas',
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_2010.dproj b/Components/Delphi_packages/Python_2010.dproj
deleted file mode 100644
index 7cdb527..0000000
--- a/Components/Delphi_packages/Python_2010.dproj
+++ /dev/null
@@ -1,114 +0,0 @@
-
-
- {8637E008-5558-45AA-973A-CA598F0DEDD3}
- Python_2010.dpk
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- C:\Users\Public\Documents\RAD Studio\7.0\Bpl\Python_2010.bpl
- 00400000
- true
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)
- x86
- Components for Python
- false
- false
- true
- true
- false
- false
- true
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- Package
-
-
-
- Python_2010.dpk
-
-
- False
- True
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 4105
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Components/Delphi_packages/Python_2010.res b/Components/Delphi_packages/Python_2010.res
deleted file mode 100644
index 947c798..0000000
Binary files a/Components/Delphi_packages/Python_2010.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_XE2.dpk b/Components/Delphi_packages/Python_XE2.dpk
deleted file mode 100644
index d54a5f7..0000000
--- a/Components/Delphi_packages/Python_XE2.dpk
+++ /dev/null
@@ -1,42 +0,0 @@
-package Python_XE2;
-
-{$R *.res}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$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 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl;
-
-contains
- MethodCallBack in 'Sources\Core\MethodCallBack.pas',
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_bds3.bdsproj b/Components/Delphi_packages/Python_bds3.bdsproj
deleted file mode 100644
index f36bdf7..0000000
--- a/Components/Delphi_packages/Python_bds3.bdsproj
+++ /dev/null
@@ -1,177 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
- Python_bds3.dpk
-
-
- 7.0
-
-
- 8
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- True
- True
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-
- False
-
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- False
- False
- False
- True
- True
- True True
- True
-
-
-
- 0
- 0
- 1
- False
- False
- False
- 16384
- 1048576
- 4194304
- Components for Python False
-
-
-
-
-
-
-
-
-
-
- False
-
-
-
-
-
- False
-
-
-
-
-
- False
- True
- False
-
-
-
- $00000000
-
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 4105
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
diff --git a/Components/Delphi_packages/Python_bds3.dpk b/Components/Delphi_packages/Python_bds3.dpk
deleted file mode 100644
index ae7990d..0000000
--- a/Components/Delphi_packages/Python_bds3.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package Python_bds3;
-
-{$R *.res}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl;
-
-contains
- MethodCallBack in 'Sources\Core\MethodCallBack.pas',
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_bds3.dproj b/Components/Delphi_packages/Python_bds3.dproj
deleted file mode 100644
index 7867579..0000000
--- a/Components/Delphi_packages/Python_bds3.dproj
+++ /dev/null
@@ -1,116 +0,0 @@
-
-
- {8637E008-5558-45AA-973A-CA598F0DEDD3}
- Python_bds3.dpk
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- C:\Users\Public\Documents\RAD Studio\7.0\Bpl\Python_bds3.bpl
- 00400000
- true
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)
- x86
- Components for Python
- false
- false
- true
- true
- false
- false
- true
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- Package
-
-
-
- Python_bds3.dpk
-
-
- False
- True
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 4105
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Components/Delphi_packages/Python_bds3.res b/Components/Delphi_packages/Python_bds3.res
deleted file mode 100644
index 947c798..0000000
Binary files a/Components/Delphi_packages/Python_bds3.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_bds5.dpk b/Components/Delphi_packages/Python_bds5.dpk
deleted file mode 100644
index 16a9c43..0000000
--- a/Components/Delphi_packages/Python_bds5.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package Python_bds5;
-
-{$R *.res}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl;
-
-contains
- MethodCallBack in 'Sources\Core\MethodCallBack.pas',
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_bds6.dpk b/Components/Delphi_packages/Python_bds6.dpk
deleted file mode 100644
index 3faad9d..0000000
--- a/Components/Delphi_packages/Python_bds6.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package Python_bds6;
-
-{$R *.res}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl;
-
-contains
- MethodCallBack in 'Sources\Core\MethodCallBack.pas',
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_bds6.dproj b/Components/Delphi_packages/Python_bds6.dproj
deleted file mode 100644
index 1da543e..0000000
--- a/Components/Delphi_packages/Python_bds6.dproj
+++ /dev/null
@@ -1,117 +0,0 @@
-
-
- {B49D00D5-DD43-436D-9C7F-E10B7127CB44}
- Python_bds6.dpk
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- 00400000
- 1
- true
- x86
- Components for Python
- C:\Documents and Settings\All Users\Documenten\RAD Studio\6.0\Bpl\Python_bds6.bpl
- false
- false
- true
- true
- false
- false
- false
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- Package
-
-
-
- Python_bds6.dpk
-
-
- False
- True
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1043
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Components/Delphi_packages/Python_bds7.dpk b/Components/Delphi_packages/Python_bds7.dpk
deleted file mode 100644
index 560d5f3..0000000
--- a/Components/Delphi_packages/Python_bds7.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package Python_bds7;
-
-{$R *.res}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- rtl,
- vcl;
-
-contains
- MethodCallBack in 'Sources\Core\MethodCallBack.pas',
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_bds7.dproj b/Components/Delphi_packages/Python_bds7.dproj
deleted file mode 100644
index bc059d9..0000000
--- a/Components/Delphi_packages/Python_bds7.dproj
+++ /dev/null
@@ -1,116 +0,0 @@
-
-
- {B49D00D5-DD43-436D-9C7F-E10B7127CB44}
- Python_bds7.dpk
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- 00400000
- 1
- true
- x86
- Components for Python
- C:\Documents and Settings\All Users\Documenten\RAD Studio\7.0\Bpl\Python_bds7.bpl
- false
- false
- true
- true
- false
- false
- false
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- Package
-
-
-
- Python_bds7.dpk
-
-
- False
- True
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1043
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Components/Delphi_packages/Python_cb3.dpk b/Components/Delphi_packages/Python_cb3.dpk
deleted file mode 100644
index 6fa5dd7..0000000
--- a/Components/Delphi_packages/Python_cb3.dpk
+++ /dev/null
@@ -1,38 +0,0 @@
-package Python_cb3;
-
-{$R *.RES}
-{$R 'PythonEngine.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $00400000}
-{$DESCRIPTION 'Components for Python'}
-{$DESIGNONLY}
-{$IMPLICITBUILD ON}
-
-requires
- vcl35;
-
-contains
- PythonEngine,
- MethodCallback,
- PythonGUIInputOutput;
-
-end.
diff --git a/Components/Delphi_packages/Python_cb3.res b/Components/Delphi_packages/Python_cb3.res
deleted file mode 100644
index cde4597..0000000
Binary files a/Components/Delphi_packages/Python_cb3.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_cb4.dpk b/Components/Delphi_packages/Python_cb4.dpk
deleted file mode 100644
index 78cddda..0000000
--- a/Components/Delphi_packages/Python_cb4.dpk
+++ /dev/null
@@ -1,37 +0,0 @@
-package Python_cb4;
-
-{$R *.RES}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $00400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl40;
-
-contains
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- MethodCallback in 'Sources\Core\MethodCallBack.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_cb4.res b/Components/Delphi_packages/Python_cb4.res
deleted file mode 100644
index 37c47b0..0000000
Binary files a/Components/Delphi_packages/Python_cb4.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_cb5.res b/Components/Delphi_packages/Python_cb5.res
deleted file mode 100644
index 37c47b0..0000000
Binary files a/Components/Delphi_packages/Python_cb5.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_cb6.res b/Components/Delphi_packages/Python_cb6.res
deleted file mode 100644
index 37c47b0..0000000
Binary files a/Components/Delphi_packages/Python_cb6.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_d3.dpk b/Components/Delphi_packages/Python_d3.dpk
deleted file mode 100644
index 75b117d..0000000
--- a/Components/Delphi_packages/Python_d3.dpk
+++ /dev/null
@@ -1,40 +0,0 @@
-package Python_d3;
-
-{$R *.RES}
-{$R 'PythonEngine.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $00400000}
-{$DESCRIPTION 'Components for Python'}
-{$DESIGNONLY}
-{$IMPLICITBUILD ON}
-
-requires
- vcl30;
-
-contains
- PythonEngine,
- MethodCallback,
- PythonGUIInputOutput,
- AtomPythonEngine,
- PythonAtom;
-
-end.
diff --git a/Components/Delphi_packages/Python_d3.res b/Components/Delphi_packages/Python_d3.res
deleted file mode 100644
index acd3671..0000000
Binary files a/Components/Delphi_packages/Python_d3.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_d4.dpk b/Components/Delphi_packages/Python_d4.dpk
deleted file mode 100644
index 9a8ae63..0000000
--- a/Components/Delphi_packages/Python_d4.dpk
+++ /dev/null
@@ -1,39 +0,0 @@
-package Python_d4;
-
-{$R *.RES}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $00400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl40;
-
-contains
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- MethodCallback in 'Sources\Core\MethodCallBack.pas',
- AtomPythonEngine in 'Sources\Core\AtomPythonEngine.pas',
- PythonAtom in 'Sources\Core\PythonAtom.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_d4.res b/Components/Delphi_packages/Python_d4.res
deleted file mode 100644
index f001d42..0000000
Binary files a/Components/Delphi_packages/Python_d4.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_d5.dpk b/Components/Delphi_packages/Python_d5.dpk
deleted file mode 100644
index d7ab929..0000000
--- a/Components/Delphi_packages/Python_d5.dpk
+++ /dev/null
@@ -1,41 +0,0 @@
-package Python_d5;
-
-{$R *.RES}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN ON}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl50;
-
-contains
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- MethodCallback in 'Sources\Core\MethodCallBack.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas',
- AtomPythonEngine in 'Sources\Core\AtomPythonEngine.pas',
- PythonAtom in 'Sources\Core\PythonAtom.pas',
- TinyWideStrings in 'Sources\Core\TinyWideStrings.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_d5.res b/Components/Delphi_packages/Python_d5.res
deleted file mode 100644
index f001d42..0000000
Binary files a/Components/Delphi_packages/Python_d5.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_d6.dpk b/Components/Delphi_packages/Python_d6.dpk
deleted file mode 100644
index 51017ca..0000000
--- a/Components/Delphi_packages/Python_d6.dpk
+++ /dev/null
@@ -1,40 +0,0 @@
-package Python_d6;
-
-{$R *.res}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl;
-
-contains
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- MethodCallback in 'Sources\Core\MethodCallBack.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas',
- AtomPythonEngine in 'Sources\Core\AtomPythonEngine.pas',
- PythonAtom in 'Sources\Core\PythonAtom.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_d6.res b/Components/Delphi_packages/Python_d6.res
deleted file mode 100644
index f001d42..0000000
Binary files a/Components/Delphi_packages/Python_d6.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_d7.dpk b/Components/Delphi_packages/Python_d7.dpk
deleted file mode 100644
index bda4286..0000000
--- a/Components/Delphi_packages/Python_d7.dpk
+++ /dev/null
@@ -1,43 +0,0 @@
-package Python_d7;
-
-{$R *.res}
-{$R 'Sources\Core\PythonEngine.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DESCRIPTION 'Components for Python'}
-{$IMPLICITBUILD OFF}
-
-requires
- vcl,
- rtl;
-
-contains
- PythonEngine in 'Sources\Core\PythonEngine.pas',
- WrapDelphi in 'Sources\Core\WrapDelphi.pas',
- PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas',
- MethodCallback in 'Sources\Core\MethodCallBack.pas',
- AtomPythonEngine in 'Sources\Core\AtomPythonEngine.pas',
- PythonAtom in 'Sources\Core\PythonAtom.pas',
- VarPyth in 'Sources\Core\VarPyth.pas',
- TinyWideStrings in 'Sources\Core\TinyWideStrings.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_d7.res b/Components/Delphi_packages/Python_d7.res
deleted file mode 100644
index f001d42..0000000
Binary files a/Components/Delphi_packages/Python_d7.res and /dev/null differ
diff --git a/Components/Delphi_packages/Python_kylix.conf b/Components/Delphi_packages/Python_kylix.conf
deleted file mode 100644
index 1d0ef6b..0000000
--- a/Components/Delphi_packages/Python_kylix.conf
+++ /dev/null
@@ -1,33 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--Z
diff --git a/Components/Delphi_packages/Python_kylix.dpk b/Components/Delphi_packages/Python_kylix.dpk
deleted file mode 100644
index 3995172..0000000
--- a/Components/Delphi_packages/Python_kylix.dpk
+++ /dev/null
@@ -1,37 +0,0 @@
-package Python_kylix;
-
-{$R *.res}
-{$R 'Sources/Core/PythonEngine.dcr'}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
-
-requires
- baseclx,
- visualclx;
-
-contains
- MethodCallBack in 'Sources/Core/MethodCallBack.pas',
- PythonEngine in 'Sources/Core/PythonEngine.pas',
- PythonGUIInputOutput in 'Sources/Core/PythonGUIInputOutput.pas';
-
-end.
diff --git a/Components/Delphi_packages/Python_kylix.res b/Components/Delphi_packages/Python_kylix.res
deleted file mode 100644
index 36f26e2..0000000
Binary files a/Components/Delphi_packages/Python_kylix.res and /dev/null differ
diff --git a/Components/Sources/Core/AtomPythonEngine.pas b/Components/Sources/Core/AtomPythonEngine.pas
deleted file mode 100644
index 5089107..0000000
--- a/Components/Sources/Core/AtomPythonEngine.pas
+++ /dev/null
@@ -1,75 +0,0 @@
-// Copyright 2000 by Sigve Tjora and others as specified in PythonEngine.pas
-
-// For information about me and my projects see:
-// See http://www.tjora.no or mail me at public@tjora.no
-
-// This file makes the PyObjectAsVariant work for all kinds of PyObjects via
-// TPythonAtom
-
-(**************************************************************************)
-(* This source code is distributed with no WARRANTY, for no reason or use.*)
-(* Everyone is allowed to use and change this code free for his own tasks *)
-(* and projects, as long as this header and its copyright text is intact. *)
-(* For changed versions of this code, which are public distributed the *)
-(* following additional conditions have to be fullfilled: *)
-(* 1) The header has to contain a comment on the change and the author of *)
-(* it. *)
-(* 2) A copy of the changed source has to be sent to the above E-Mail *)
-(* address or my then valid address, if this is possible to the *)
-(* author. *)
-(* The second condition has the target to maintain an up to date central *)
-(* version of the component. If this condition is not acceptable for *)
-(* confidential or legal reasons, everyone is free to derive a component *)
-(* or to generate a diff file to my or other original sources. *)
-(**************************************************************************)
-
-
-{$I Definition.Inc}
-
-unit AtomPythonEngine;// deprecated 'consider using VarPyth instead';
-
-interface
-
-uses
- Variants,
- PythonEngine;
-
-type
- TAtomPythonEngine = class(TPythonEngine)
- private
- { Private declarations }
- protected
- { Protected declarations }
- public
- { Public declarations }
- function PyObjectAsVariant( obj : PPyObject ) : Variant; override;
- published
- { Published declarations }
- end deprecated;
-
-procedure Register;
-
-implementation
-
-uses
- Classes, SysUtils, PythonAtom;
-
-{ TAtomPythonEngine }
-
-function TAtomPythonEngine.PyObjectAsVariant( obj : PPyObject ) : Variant;
-begin
- Result := inherited PyObjectAsVariant( obj );
- if VarIsNull(Result) and (obj <> Py_None) then
- Result := getAtom(obj);
-end;
-
-
-
-procedure Register;
-begin
-{$WARNINGS OFF}
- RegisterComponents('Python', [TAtomPythonEngine]);
-{$WARNINGS ON}
-end;
-
-end.
diff --git a/Components/Sources/Core/Definition.Inc b/Components/Sources/Core/Definition.Inc
deleted file mode 100644
index 5ecb48c..0000000
--- a/Components/Sources/Core/Definition.Inc
+++ /dev/null
@@ -1,335 +0,0 @@
-(**************************************************************************)
-(* *)
-(* Module: 'Definition.Inc' Copyright (c) 1998 *)
-(* *)
-(* Version: 1.5 Dr. Dietmar Budelsky *)
-(* budelsky@ibs.bm.eunet.de *)
-(* IBS Schillings GmbH & Co KG *)
-(* Ein Unternehmen der KROHNE-Gruppe *)
-(* Heisenbergstr. 18 *)
-(* 50169 Kerpen-T�rnich *)
-(* Phone: (49)22 37/97 44-0 *)
-(* *)
-(**************************************************************************)
-(* Changes for Delphi 4 or higher are made for Compilers higher *)
-(* than Version 10.0. *)
-(* *)
-(**************************************************************************)
-(* This source code is distributed with no WARRANTY, for no reason or use.*)
-(* Everyone is allowed to use and change this code free, as long as this *)
-(* header and its copyright text is intact. *)
-(* Dr. Dietmar Budelsky, 1998-01-07 *)
-(**************************************************************************)
-
-/////////////////////////////////////////////////////////////////////////////
-// Select a Python version by commenting out the corresponding line, or
-// modify the default Python version below, in the Python versions section.
-/////////////////////////////////////////////////////////////////////////////
-
-//{$DEFINE PYTHON23}
-//{$DEFINE PYTHON24}
-//{$DEFINE PYTHON25}
-//{$DEFINE PYTHON26}
-//{$DEFINE PYTHON30}
-//{$DEFINE PYTHON31}
-//{$DEFINE PYTHON32}
-//{$DEFINE PYTHON33}
-
-/////////////////////////////////////////////////////////////////////////////
-// Python for Delphi settings. Comment out the setting you want to enable.
-/////////////////////////////////////////////////////////////////////////////
-
-{$DEFINE PREFER_UNICODE} // this will convert a variant containing an OleStr to a UniCode Python string.
-
-/////////////////////////////////////////////////////////////////////////////
-// OS symbols. Note that MSWINDOWS is defined from Delphi6/Kylix.
-/////////////////////////////////////////////////////////////////////////////
-
-{$IFNDEF MSWINDOWS}
- {$IFDEF WIN32}
- {$DEFINE MSWINDOWS}
- {$ENDIF}
-{$ENDIF}
-
-/////////////////////////////////////////////////////////////////////////////
-// Delphi, C++ Builder and Kylix versions
-/////////////////////////////////////////////////////////////////////////////
-
-{$IFDEF VER90} // Delphi 2.0
- {$DEFINE DELPHI2}
-{$ENDIF}
-{$IFDEF VER93} // C++ Builder 1.0
- {$DEFINE CBUILDER1}
-{$ENDIF}
-{$IFDEF VER100} // Delphi 3.0
- {$DEFINE DELPHI3}
-{$ENDIF}
-{$IFDEF VER110} // C++ Builder 3.0
- {$DEFINE CBUILDER3}
- {$DEFINE DELPHI3_OR_HIGHER}
- {$ObjExportAll On}
-{$ENDIF}
-{$IFDEF VER120} // Delphi 4.0
- {$DEFINE DELPHI4}
- {$DEFINE DELPHI4_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER125} // C++ Builder 4.0
- {$DEFINE CBUILDER4}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$ObjExportAll On}
-{$ENDIF}
-{$IFDEF VER130} // Delphi 5.0
- {$DEFINE DELPHI5}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$IFDEF BCB} { Borland C++Builder 5.0 }
- {$DEFINE CBUILDER3}
- {$DEFINE CBUILDER4}
- {$DEFINE CBUILDER5}
- {$ObjExportAll On}
- {$ENDIF}
-{$ENDIF}
-{$IFDEF VER140} // Delphi 6.0
- {$DEFINE DELPHI6}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$IFDEF BCB} { Borland C++Builder 6.0 }
- {$DEFINE CBUILDER3}
- {$DEFINE CBUILDER4}
- {$DEFINE CBUILDER5}
- {$DEFINE CBUILDER6}
- {$ObjExportAll On}
- {$ENDIF}
-{$ENDIF}
-{$IFDEF VER150} // Delphi 7.0
- {$DEFINE DELPHI7}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER160} // Delphi 8
- {$DEFINE DELPHI8}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER170} // Delphi 2005
- {$DEFINE DELPHI2005}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
- {$DEFINE DELPHI2005_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER180} // Delphi 2006
- {$DEFINE DELPHI2006}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
- {$DEFINE DELPHI2005_OR_HIGHER}
- {$DEFINE DELPHI2006_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER190} // Delphi 2007
- {$DEFINE DELPHI2007}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
- {$DEFINE DELPHI2005_OR_HIGHER}
- {$DEFINE DELPHI2006_OR_HIGHER}
- {$DEFINE DELPHI2007_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER200} // Delphi 2009
- {$DEFINE DELPHI2009}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
- {$DEFINE DELPHI2005_OR_HIGHER}
- {$DEFINE DELPHI2006_OR_HIGHER}
- {$DEFINE DELPHI2007_OR_HIGHER}
- {$DEFINE DELPHI2009_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER210} // Delphi 2010
- {$DEFINE DELPHI2010}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
- {$DEFINE DELPHI2005_OR_HIGHER}
- {$DEFINE DELPHI2006_OR_HIGHER}
- {$DEFINE DELPHI2007_OR_HIGHER}
- {$DEFINE DELPHI2009_OR_HIGHER}
- {$DEFINE DELPHI2010_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER220} // Delphi XE
- {$DEFINE DELPHIXE}
- {$DEFINE DELPHI2010}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
- {$DEFINE DELPHI2005_OR_HIGHER}
- {$DEFINE DELPHI2006_OR_HIGHER}
- {$DEFINE DELPHI2007_OR_HIGHER}
- {$DEFINE DELPHI2009_OR_HIGHER}
- {$DEFINE DELPHI2010_OR_HIGHER}
- {$DEFINE DELPHIXE_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER230} // Delphi XE2
- {$DEFINE DELPHIXE2}
- {$DEFINE DELPHIXE}
- {$DEFINE DELPHI2010}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
- {$DEFINE DELPHI2005_OR_HIGHER}
- {$DEFINE DELPHI2006_OR_HIGHER}
- {$DEFINE DELPHI2007_OR_HIGHER}
- {$DEFINE DELPHI2009_OR_HIGHER}
- {$DEFINE DELPHI2010_OR_HIGHER}
- {$DEFINE DELPHIXE_OR_HIGHER}
- {$DEFINE DELPHIXE2_OR_HIGHER}
-{$ENDIF}
-{$IFDEF VER240} // Delphi XE3
- {$DEFINE DELPHIXE3}
- {$DEFINE DELPHIXE2}
- {$DEFINE DELPHIXE}
- {$DEFINE DELPHI2010}
- {$DEFINE DELPHI4_OR_HIGHER}
- {$DEFINE DELPHI5_OR_HIGHER}
- {$DEFINE DELPHI6_OR_HIGHER}
- {$DEFINE DELPHI7_OR_HIGHER}
- {$DEFINE DELPHI8_OR_HIGHER}
- {$DEFINE DELPHI2005_OR_HIGHER}
- {$DEFINE DELPHI2006_OR_HIGHER}
- {$DEFINE DELPHI2007_OR_HIGHER}
- {$DEFINE DELPHI2009_OR_HIGHER}
- {$DEFINE DELPHI2010_OR_HIGHER}
- {$DEFINE DELPHIXE_OR_HIGHER}
- {$DEFINE DELPHIXE2_OR_HIGHER}
- {$DEFINE DELPHIXE3_OR_HIGHER}
-{$ENDIF}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Python versions
-/////////////////////////////////////////////////////////////////////////////
-
-// Here we select a default Python version, if no version was explicitely specified.
-// Note that the installer will let the user specify its default Python version, and
-// thus will edit this file.
-
-{$IFNDEF PYTHON33}
- {$IFNDEF PYTHON32}
- {$IFNDEF PYTHON31}
- {$IFNDEF PYTHON30}
- {$IFNDEF PYTHON26}
- {$IFNDEF PYTHON25}
- {$IFNDEF PYTHON24}
- {$IFNDEF PYTHON23}
- {------}
- {$DEFINE PYTHON33}
- {------}
- {$ENDIF}
- {$ENDIF}
- {$ENDIF}
- {$ENDIF}
- {$ENDIF}
- {$ENDIF}
- {$ENDIF}
-{$ENDIF}
-
-
-{$IFDEF PYTHON23}
- {$DEFINE PYTHON23_OR_HIGHER}
-{$ENDIF}
-{$IFDEF PYTHON24}
- {$DEFINE PYTHON23_OR_HIGHER}
- {$DEFINE PYTHON24_OR_HIGHER}
-{$ENDIF}
-{$IFDEF PYTHON25}
- {$DEFINE PYTHON23_OR_HIGHER}
- {$DEFINE PYTHON24_OR_HIGHER}
- {$DEFINE PYTHON25_OR_HIGHER}
-{$ENDIF}
-{$IFDEF PYTHON26}
- {$DEFINE PYTHON23_OR_HIGHER}
- {$DEFINE PYTHON24_OR_HIGHER}
- {$DEFINE PYTHON25_OR_HIGHER}
- {$DEFINE PYTHON26_OR_HIGHER}
-{$ENDIF}
-{$IFDEF PYTHON30}
- {$DEFINE PYTHON23_OR_HIGHER}
- {$DEFINE PYTHON24_OR_HIGHER}
- {$DEFINE PYTHON25_OR_HIGHER}
- {$DEFINE PYTHON26_OR_HIGHER}
- {$DEFINE PYTHON30_OR_HIGHER}
-{$ENDIF}
-{$IFDEF PYTHON31}
- {$DEFINE PYTHON23_OR_HIGHER}
- {$DEFINE PYTHON24_OR_HIGHER}
- {$DEFINE PYTHON25_OR_HIGHER}
- {$DEFINE PYTHON26_OR_HIGHER}
- {$DEFINE PYTHON30_OR_HIGHER}
- {$DEFINE PYTHON31_OR_HIGHER}
-{$ENDIF}
-{$IFDEF PYTHON32}
- {$DEFINE PYTHON23_OR_HIGHER}
- {$DEFINE PYTHON24_OR_HIGHER}
- {$DEFINE PYTHON25_OR_HIGHER}
- {$DEFINE PYTHON26_OR_HIGHER}
- {$DEFINE PYTHON30_OR_HIGHER}
- {$DEFINE PYTHON31_OR_HIGHER}
- {$DEFINE PYTHON32_OR_HIGHER}
-{$ENDIF}
-{$IFDEF PYTHON33}
- {$DEFINE PYTHON23_OR_HIGHER}
- {$DEFINE PYTHON24_OR_HIGHER}
- {$DEFINE PYTHON25_OR_HIGHER}
- {$DEFINE PYTHON26_OR_HIGHER}
- {$DEFINE PYTHON30_OR_HIGHER}
- {$DEFINE PYTHON31_OR_HIGHER}
- {$DEFINE PYTHON32_OR_HIGHER}
- {$DEFINE PYTHON33_OR_HIGHER}
-{$ENDIF}
-
-/////////////////////////////////////////////////////////////////////////////
-// Misc
-/////////////////////////////////////////////////////////////////////////////
-
-{$IFDEF WIN32}
- {$DEFINE CPUX86}
-{$ENDIF}
-
-{$IFDEF FPC}
- {$MODE DELPHI}
- {$IFDEF CPU64}
- {$DEFINE CPUX64}
- {$ENDIF CPU64}
- {$IFDEF CPU32}
- {$DEFINE CPUX86}
- {$ENDIF CPU32}
- {$IFDEF DARWIN}
- {$DEFINE MACOS}
- {$DEFINE ALIGN_STACK}
- {$IFDEF CPU32}
- {$DEFINE MACOS32}
- {$ENDIF CPU32}
- {$ENDIF DARWIN}
-{$ENDIF FPC}
-
-
diff --git a/Components/Sources/Core/MethodCallBack.hpp b/Components/Sources/Core/MethodCallBack.hpp
deleted file mode 100644
index 917847a..0000000
--- a/Components/Sources/Core/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/Components/Sources/Core/PythonAtom.pas b/Components/Sources/Core/PythonAtom.pas
deleted file mode 100644
index 9a2a4f6..0000000
--- a/Components/Sources/Core/PythonAtom.pas
+++ /dev/null
@@ -1,456 +0,0 @@
-{**
- Module: Unit 'PythonAtom' Copyright (c) 1999
- Author : Olivier Deckmyn (olivier.deckmyn@mail.dotcom.fr)
-
- Version: 1.1
-
- Look Python-Delpi page at: Deploying P4D.PDF
-************************************************************************
- Functionality:
- This unit allows the developper to manipulate any
- python object directly in the Delphi source code !
- This way, the developper can easily access python
- objects (of any kind) without using the GetAttrXXXX
- methods.
- See TPythonAtom documentation for more explanations
- on how to use this new feature.
-
-************************************************************************
- Contributors:
- Morgan Martinet
- Gene Chiaramonte (gchiaramonte@yahoo.com)
- Sigve Tjora (public@tjora.no)
- Stefan Franke (franke@meso.net)
-************************************************************************
- This source code is distributed with no WARRANTY, for no reason or use.
- Everyone is allowed to use and change this code free for his own tasks
- and projects, as long as this header and its copyright text is intact.
- For changed versions of this code, which are public distributed the
- following additional conditions have to be fullfilled:
- 1) The header has to contain a comment on the change and the author of
- it.
- 2) A copy of the changed source has to be sent to the above E-Mail
- address or my then valid address, if this is possible to the
- author.
- The second condition has the target to maintain an up to date central
- version of the component. If this condition is not acceptable for
- confidential or legal reasons, everyone is free to derive a component
- or to generate a diff file to my or other original sources.
-************************************************************************
-}
-{---------------------------------------------------------------------------
- $Header: /P4D/PythonForDelphi/Components/Sources/Core/PythonAtom.pas 1 03-04-09 19:24 Morgan $
- --------------------------------------------------------------------------
- $Log: /P4D/PythonForDelphi/Components/Sources/Core/PythonAtom.pas $
- *
- * 1 03-04-09 19:24 Morgan
- * initial check-in
- ---------------------------------------------------------------------------}
-
-(* Note : the comments "{**" of this units are formated for Time2Help *)
-
-{$I definition.inc}
-
-{$IFDEF CPUX64}
- Error!! This unit is not supported in 64bit due dirty casts of pointers to DISPIDS
-{$ENDIF}
-
-unit PythonAtom;// deprecated 'consider using VarPyth instead';
-
-interface
-
-uses
- Classes, ComObj,
- PythonEngine;
-
-type
-
- {** This class allows the developper to manipulate any python object directly
- in the Delphi source code !
- This way, the developper can easily access pythonobjects (of any kind)
- without using the GetAttrXXXX methods.
- There is one TPythonAtom instance per python object instance to play with.
- This TPythonAtom instance is a wrapper around the pythonObject provided
- (during the construction, of after). Its most useful property is AsAtom.
- This property is an OleVariant, pointing to the IDispatch interface of
- the current instance of TPythonAtom(=self). When using an OleVariant, Delphi's
- compiler allows the developper to use any syntax behind. This "should" be
- used to manipulate an Automation server, without having to have its typelib
- at runtime. Methods and properties invocation are converted at runtime into
- IDispatch.Invoke commands. This object intercepts thoose calls to make an
- indirection and use the GetAttr capabilities of Python Objects.
- Example of typical Use :
-
- var
- pObject : PPyObject;
- myAtom : OleVariant;
- myString : String;
- begin
- pObject := ... a python object ...(using a TPythonDelphiVar.ValueObject for example);
- myAtom := getAtom(pObject); // This is the magic object
- myAtom.myMethod();
- myString := myAtom.myProperty.myProperty2;
- myAtom.myProperty.myProperty3:='Olivier';
- ShowMessage(myAtom.myMethod2('Olivier'));
- ShowMessage(myAtom.myListProperty[3]);
- // Or anything ! Note that type conversion are automatic !
- end;
-
- }
- TPythonAtom=class(TInterfacedObject, IDispatch)
- private
- FPythonObject : PPyObject;
- function GetAsAtom: OleVariant;
- protected
- {** This methods is used to attach a new PythonObject to the atom. This method
- handles the reference counting (even is value=nil).}
- procedure SetPythonObject(const Value: PPyObject); virtual;
- {** If a pythonObject is attached, this method will increment its reference counter}
- procedure PythonAddRef;
- {** If a pythonObject is attached, this method will decrement its reference counter}
- procedure PythonRelease;
- public
- { IDispatch }
- {** not used }
- function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
- {** not used }
- function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
- {** Given a member name, returns its DispID. Here, if a pythonObject is attached,
- this method will return the address of the requested member name string (in fact,
- a python object), casted as an integer.
- This way, in the next called method(invoke), the dispID will contain the
- correct python Object.
- If there is no such member on the python object, E_NOINTERFACE COM error
- is raised.
- Programmer should never call this method directly, it is automatically
- invoked with call on the IDispatch interface.
- }
- function GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
- {** See GetIDsOfNames. DispID should contain here the address of the name of
- the requested member (in fact, a python object), casted as an integer.
- Params are converted to python objects, and used as params when calling
- the member method.
- Depending on the value of Flags(DISPATCH_PROPERTYGET, DISPATCH_PROPERTYPUT,
- DISPATCH_METHOD), a call is made to a member method or a member attribute.
- The result of the call is set into varResult, if any. }
- function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
- { TPythonAtom }
- constructor Create(pObject : PPyObject = nil); virtual;
- {** Before being destroyed, PythonObject is set to nil. This way, the python
- reference counter is handled correctly.}
- destructor Destroy; override;
- {** Just calls TInterfacedObject._AddRef}
- procedure AddRef;
- {** Just calls TInterfacedObject._Release}
- procedure Release;
- {** Here one can attach the pythonObject that is to be atomised.}
- property PythonObject : PPyObject read FPythonObject write SetPythonObject;
- {** This property (OleVariant type) returns the IDispatch interface of self.
- This way, a Delphi programmer can use python method and properties INSIDE
- its Delphi Code !}
- property asAtom : OleVariant read GetAsAtom;
- end;
-
- {** This helper function converts a python object into a python atom. Look at
- the trivial implementation of this function for more informations.}
- function GetAtom(pObject : PPyObject) : OleVariant; deprecated;
-
- {$IFDEF DEBUG}
- {** If this variable is set, (and DEBUG directive is defined) the strings is
- used to show debugging informations inside methods and functions of the
- unit.(see DebugMessage in Implementation)}
- var DebugStrings : TStrings = nil;
- {$ENDIF}
-
-implementation
-
-uses
- ActiveX, Windows, SysUtils;
-
-
-function GetAtom(pObject : PPyObject) : OleVariant;
-begin
- Result := TPythonAtom.Create(pObject).asAtom;
-end;
-
-procedure WideCharToShortString(P: PWideChar; var S: ShortString);
-var
- I: Integer;
- W: WideChar;
-begin
- I := 0;
- repeat
- W := P[I];
- if W = #0 then Break;
- if W >= #256 then W := #0;
- Inc(I);
- S[I] := Char(W);
- until I = 255;
- S[0] := Char(I);
-end;
-
-
-{$IFDEF DEBUG}
-procedure DebugMessage(s : String);
-begin
- if Assigned(DebugStrings) then DebugStrings.Add('[DEBUG] '+s);
-end;
-
-procedure DebugMessageFmt(s : String; args : Array of Const);
-begin
- if Assigned(DebugStrings) then DebugStrings.Add(Format('[DEBUG] '+s,args));
-end;
-{$ENDIF}
-
-{ TPythonAtom }
-constructor TPythonAtom.Create(pObject: PPyObject);
-begin
- inherited Create;
- PythonObject := pObject;
- {$IFDEF DEBUG}DebugMessage('TPythonAtom.Create');{$ENDIF}
-end;
-
-destructor TPythonAtom.Destroy;
-begin
- {$IFDEF DEBUG}DebugMessage('TPythonAtom.Destroy');{$ENDIF}
- if PythonOK then PythonObject := nil; //We clean only if PythonEngine is still there !
- inherited;
-end;
-
-function TPythonAtom.GetAsAtom: OleVariant;
-begin
- {$IFDEF DEBUG}DebugMessage('TPythonAtom.getAsAtom');{$ENDIF}
- result := self as IDispatch;
-end;
-
-function TPythonAtom.GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;
-type
- PNamesArray = ^TNamesArray;
- TNamesArray = array[0..0] of PWideChar;
-var
- lName : ShortString;
- lLongName : String;
- lNames : PNamesArray;
- lDispIds : PDispIDList;
- lObject : PPyObject;
-begin
- lNames := Names;
- lDispIds:=DispIDs;
- WideCharToShortString(lNames[0], lName);
- lLongName := lName;
-
- {$IFDEF DEBUG}DebugMessageFmt('TPythonAtom.GetIDsOfNames(IID=%s, NameCount=%d, LocaleID=%d, Names=%s)',[GUIDToString(IID), NameCount, LocaleID, lLongName]);{$ENDIF}
-
- if CompareText(lLongName,'__asAtom__')=0
- then
- begin
- lDispIds[0]:=-1;
- result:=S_OK;
- end
- else if CompareText(lLongName,'__asPPyObject__')=0
- then
- begin
- lDispIds[0]:=-2;
- result:=S_OK;
- end
- else
- begin
- if GetPythonEngine.PyObject_HasAttrString(FPythonObject, pChar(lLongName))=0
- then
- begin
- result := E_NOINTERFACE;
- end
- else
- begin
- lObject := GetPythonEngine.PyString_FromString(PChar(lLongName));
- lDispIds[0]:= Integer(lObject); // Dirty storage !
- result := S_OK;
- end;
- end;
-end;
-
-function TPythonAtom.GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult;
-begin
- {$IFDEF DEBUG}DebugMessage('TPythonAtom.GetTypeInfo(Index=%d, LocaleID=%d)');{$ENDIF}
- result := E_NOTIMPL;
-end;
-
-function TPythonAtom.GetTypeInfoCount(out Count: Integer): HResult;
-begin
- {$IFDEF DEBUG}DebugMessage('TPythonAtom.GetTypeInfoCount');{$ENDIF}
- result := E_NOTIMPL;
-end;
-
-function TPythonAtom.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
- Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
-
- function IsBasicType( obj : PPyObject ) : Boolean;
- begin
- with GetPythonEngine do
- Result := PyInt_Check(obj) or
- PyFloat_Check(obj) or
- PyString_Check(obj) or
- PyList_Check(obj) or
- PyTuple_Check(obj) or
- PyDate_Check(obj);
- end;
-
- function IsCallableType( obj : PPyObject ) : Boolean;
- begin
- with GetPythonEngine do
- Result := PyFunction_Check(obj) or
- PyMethod_Check(obj);
- end;
-
-var
- lObject : PPyObject;
- lParams : TDispParams;
- i, ii : integer;
- lParamValue : PPyObject;
- lPyArg : PPyObject;
- lPyResult : PPyObject;
- lVarResult : PVariant;
- lParam : PVariant;
- myVariant: Variant;
- {$IFDEF DEBUG}lFlags : String;{$ENDIF}
-begin
- with GetPythonEngine do
- begin
- result := S_OK;
- {$IFDEF DEBUG}
- lFlags := '';
- if (Flags and DISPATCH_METHOD)>0 then lFlags:=lFlags+'DISPATCH_METHOD ';
- if (Flags and DISPATCH_PROPERTYGET)>0 then lFlags:=lFlags+'DISPATCH_PROPERTYGET ';
- if (Flags and DISPATCH_PROPERTYPUT)>0 then lFlags:=lFlags+'DISPATCH_PROPERTYPUT ';
- if (Flags and DISPATCH_PROPERTYPUTREF)>0 then lFlags:=lFlags+'DISPATCH_PROPERTYPUTREF ';
- {$ENDIF}
-
- lObject := PPyObject(DispID); // Dirty storage !
- lParams := TDispParams(Params);
- lVarResult:= PVariant(varResult);
- if (lParams.cArgs=1) and (lParams.rgvarg^[0].vt=VT_ERROR) then lParams.cArgs:=0; // This is the case when invoking method with ()
- {$IFDEF DEBUG}DebugMessageFmt('TPythonAtom.Invoke(DispID=%d, IID=%s, LocaleID=%d, Flags=%s, argCount=%d, VarResult=%d)',[DispID, GuidToString(IID), LocaleID, lFlags, lParams.cArgs, Integer(VarResult)]);{$ENDIF}
- if ((Flags and DISPATCH_METHOD)>0) or ((Flags and DISPATCH_PROPERTYGET)>0) // If we have a method invocation or a property get
- then
- if dispId = -2 //Special case when invoking __asPPyObject__
- then
- begin
- myVariant := NativeInt(FPythonObject); //Not so dirty!
- if Assigned(lVarResult) then
- lvarResult^ := myVariant;
- end // of if
- else
- begin
- if (dispID = -1) or (dispID = 0) // Special case when invoking __asAtom__(-1) or IDispatch itself(0)
- then
- begin
- if Assigned(lVarResult) then
- lVarResult^ := self.asAtom;
- end // of if
- else
- begin
- lObject := PyObject_GetAttr(FPythonObject, lObject);
- try
- lPyArg := PyTuple_New(lParams.cArgs); // Is the tuple that contains the python method args
- try
- ii := lParams.cArgs - 1;
- for i:=0 to lParams.cArgs-1 do
- begin
- lParam := @lParams.rgvarg^[i];
- lParamValue := VariantAsPyObject(lParam^);
- PyTuple_SetItem(lPyArg, ii, lParamValue);
- dec(ii);
- end; // of for
- {$IFDEF DEBUG}DebugMessageFmt(' invoking with args=%s',[PyObjectAsString(lPyArg)]);{$ENDIF}
- // Invoking python function/property - returns the value to get
- if IsCallableType( lObject ) then
- begin
- lPyResult := PyObject_CallObject(lObject, lPyArg);
- CheckError(False);
- end // of if
- else
- begin
- lPyResult := lObject;
- Py_XIncRef(lPyResult);
- if lParams.cArgs = 1
- then
- begin
- Py_XDecRef(lPyResult);
- lPyResult := PySequence_GetItem(lPyResult, PVariant(@lParams.rgvarg^[0])^);
- end // of if
- else if lParams.cArgs > 1 then
- raise Exception.Create( 'Multi-dimensional sequences are not supported in Python' );
- end; // of else
- finally
- Py_XDecRef(lPyArg);
- end; // of try
- {$IFDEF DEBUG}DebugMessageFmt(' python Result=%s',[PyObjectAsString(lPyREsult)]);{$ENDIF}
- try
- if (lPyResult <> Py_None) and (lVarResult <> nil) then // Handling result, if any
- begin
- if IsBasicType(lPyResult)
- then
- begin
- lVarResult^ := OleVariant(PyObjectAsVariant(lPyResult)); // convert the simple value to a oleVariant
- end // of if
- else // if it's not a basic type, then wrap it up under a new interface
- begin
- lVarResult^ := TPythonAtom.Create(lPyResult).asAtom; // If so, let's create a new atom for it...Note that COM should destroy it as soon as not needed anymore
- end; // of else
- end; // of if
- finally
- Py_XDecRef(lPyResult);
- end; // of try
- finally
- Py_XDecRef(lObject);
- end; // of try
- end; // of else
- end // of else
- else
- if (Flags and DISPATCH_PROPERTYPUT) > 0 // We have to set a python value
- then
- begin
- lParam := @lParams.rgvarg^[0];
- lParamValue:=VariantAsPyObject(lParam^);
- try
- PyObject_SetAttr(self.PythonObject, lObject, lParamValue);
- finally
- Py_XDECREF(lParamValue);
- end; // of try
- end // of if
- else
- begin
- result := E_NOTIMPL;
- exit;
- end; // of else
- end; // of with
-end;
-
-procedure TPythonAtom.PythonAddRef;
-begin
- if assigned(FPythonObject) then GetPythonEngine.Py_INCREF(FPythonObject);
-end;
-
-procedure TPythonAtom.PythonRelease;
-begin
- if assigned(FPythonObject) then GetPythonEngine.Py_DECREF(FPythonObject);
-end;
-
-procedure TPythonAtom.SetPythonObject(const Value: PPyObject);
-begin
- PythonRelease;
- FPythonObject := Value;
- PythonAddRef;
-end;
-
-procedure TPythonAtom.AddRef;
-begin
- inherited _AddRef;
-end;
-
-procedure TPythonAtom.Release;
-begin
- inherited _Release;
-end;
-
-end.
diff --git a/Components/Sources/Core/PythonEngine.hpp b/Components/Sources/Core/PythonEngine.hpp
deleted file mode 100644
index c02a02e..0000000
--- a/Components/Sources/Core/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/Components/Sources/Core/PythonGUIInputOutput.hpp b/Components/Sources/Core/PythonGUIInputOutput.hpp
deleted file mode 100644
index 101f81b..0000000
--- a/Components/Sources/Core/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
diff --git a/Components/Sources/Core/TinyWideStrings.pas b/Components/Sources/Core/TinyWideStrings.pas
deleted file mode 100644
index 500b0c9..0000000
--- a/Components/Sources/Core/TinyWideStrings.pas
+++ /dev/null
@@ -1,187 +0,0 @@
-{$I Definition.Inc}
-
-unit TinyWideStrings;
-// Tiny WideStringList implementation for versions of Delphi prior to BDS2006
-
-interface
-
-uses Classes, SysUtils;
-
-{ TWideStringList class }
-type
- PWideStringItem = ^TWideStringItem;
- TWideStringItem = record
- FString: WideString;
- FObject: TObject;
- end;
-
- PWideStringItemList = ^TWideStringItemList;
- TWideStringItemList = array[0..MaxListSize] of TWideStringItem;
-
- TWideStringList = class(TPersistent)
- private
- FList: PWideStringItemList;
- FCount: Integer;
- FCapacity: Integer;
- procedure Grow;
- protected
- procedure Error(const Msg: WideString; Data: Integer); overload;
- procedure Error(Msg: PResStringRec; Data: Integer); overload;
- function Get(Index: Integer): WideString;
- function GetCapacity: Integer;
- function GetCount: Integer;
- function GetObject(Index: Integer): TObject;
- procedure Put(Index: Integer; const S: WideString);
- procedure PutObject(Index: Integer; AObject: TObject);
- procedure SetCapacity(NewCapacity: Integer);
- procedure InsertItem(Index: Integer; const S: WideString; AObject: TObject);
- public
- destructor Destroy; override;
- function Add(const S: WideString): Integer;
- function AddObject(const S: WideString; AObject: TObject): Integer;
- procedure InsertObject(Index: Integer; const S: WideString;
- AObject: TObject);
- procedure Clear;
- procedure Delete(Index: Integer);
- procedure Insert(Index: Integer; const S: WideString);
- property Capacity: Integer read GetCapacity write SetCapacity;
- property Count: Integer read GetCount;
- property Objects[Index: Integer]: TObject read GetObject write PutObject;
- property Strings[Index: Integer]: WideString read Get write Put; default;
- end;
-
-implementation
-
-uses
- RTLConsts
- ;
-
-{ TWideStringList }
-
-procedure TWideStringList.Error(const Msg: WideString; Data: Integer);
-begin
- raise EStringListError.CreateFmt(Msg, [Data]) ;
-end;
-
-procedure TWideStringList.Error(Msg: PResStringRec; Data: Integer);
-begin
- Error(LoadResString(Msg), Data);
-end;
-
-destructor TWideStringList.Destroy;
-begin
- inherited Destroy;
- if FCount <> 0 then Finalize(FList^[0], FCount);
- FCount := 0;
- SetCapacity(0);
-end;
-
-function TWideStringList.Add(const S: WideString): Integer;
-begin
- Result := AddObject(S, nil);
-end;
-
-function TWideStringList.AddObject(const S: WideString; AObject: TObject): Integer;
-begin
- Result := FCount;
- InsertItem(Result, S, AObject);
-end;
-
-procedure TWideStringList.Clear;
-begin
- if FCount <> 0 then
- begin
- Finalize(FList^[0], FCount);
- FCount := 0;
- SetCapacity(0);
- end;
-end;
-
-procedure TWideStringList.Delete(Index: Integer);
-begin
- if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
- Finalize(FList^[Index]);
- Dec(FCount);
- if Index < FCount then
- System.Move(FList^[Index + 1], FList^[Index],
- (FCount - Index) * SizeOf(TStringItem));
-end;
-
-function TWideStringList.Get(Index: Integer): WideString;
-begin
- if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
- Result := FList^[Index].FString;
-end;
-
-function TWideStringList.GetCapacity: Integer;
-begin
- Result := FCapacity;
-end;
-
-function TWideStringList.GetCount: Integer;
-begin
- Result := FCount;
-end;
-
-function TWideStringList.GetObject(Index: Integer): TObject;
-begin
- if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
- Result := FList^[Index].FObject;
-end;
-
-procedure TWideStringList.Grow;
-var
- Delta: Integer;
-begin
- if FCapacity > 64 then Delta := FCapacity div 4 else
- if FCapacity > 8 then Delta := 16 else
- Delta := 4;
- SetCapacity(FCapacity + Delta);
-end;
-
-procedure TWideStringList.Insert(Index: Integer; const S: WideString);
-begin
- InsertObject(Index, S, nil);
-end;
-
-procedure TWideStringList.InsertObject(Index: Integer; const S: WideString;
- AObject: TObject);
-begin
- if (Index < 0) or (Index > FCount) then Error(@SListIndexError, Index);
- InsertItem(Index, S, AObject);
-end;
-
-procedure TWideStringList.InsertItem(Index: Integer; const S: WideString; AObject: TObject);
-begin
- if FCount = FCapacity then Grow;
- if Index < FCount then
- System.Move(FList^[Index], FList^[Index + 1],
- (FCount - Index) * SizeOf(TStringItem));
- with FList^[Index] do
- begin
- Pointer(FString) := nil;
- FObject := AObject;
- FString := S;
- end;
- Inc(FCount);
-end;
-
-procedure TWideStringList.Put(Index: Integer; const S: WideString);
-begin
- if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
- FList^[Index].FString := S;
-end;
-
-procedure TWideStringList.PutObject(Index: Integer; AObject: TObject);
-begin
- if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
- FList^[Index].FObject := AObject;
-end;
-
-procedure TWideStringList.SetCapacity(NewCapacity: Integer);
-begin
- ReallocMem(FList, NewCapacity * SizeOf(TStringItem));
- FCapacity := NewCapacity;
-end;
-
-end.
diff --git a/Components/Sources/Core/UnitTests/MethodCallBackTest.pas b/Components/Sources/Core/UnitTests/MethodCallBackTest.pas
deleted file mode 100644
index 563398a..0000000
--- a/Components/Sources/Core/UnitTests/MethodCallBackTest.pas
+++ /dev/null
@@ -1,334 +0,0 @@
-(**************************************************************************)
-(* *)
-(* Module: Unit 'MethodCallbackTest' Copyright (c) 2006 *)
-(* *)
-(* Version: 0.0 Vertec AG, Samuel Iseli *)
-(* samuel.iseli@vertec.ch *)
-(* Zurich, Switzerland *)
-(* *)
-(**************************************************************************)
-(* Test unit for MethodCallback *)
-(**************************************************************************)
-(* This source code is distributed with no WARRANTY, for no reason or use.*)
-(* Everyone is allowed to use and change this code free, as long as this *)
-(* header and its copyright text is intact. *)
-(* Samuel Iseli 2006-02-27 *)
-(**************************************************************************)
-
-unit MethodCallBackTest;
-
-interface
-
-uses
- TestFramework, MethodCallback;
-
-implementation
-
-
-type
- TFourArgStdFunction = function(arg1, arg2, arg3, arg4: integer): integer; stdcall;
- TFiveArgCdeclFunction = function(arg1, arg2, arg3, arg4, arg5: integer): integer; cdecl;
-
- TTestObj = class(TObject)
- public
- Argument1: string;
- Argument2: string;
- Argument3: string;
- function TwoArgStdFunction(arg1: string; arg2: string): integer; stdcall;
- procedure ThreeArgCdeclProcedure(arg1: string; arg2: string; arg3: string); cdecl;
- function FourArgStdFunction(arg1, arg2, arg3, arg4: integer): integer; stdcall;
- function FiveArgCdeclFunction(arg1, arg2, arg3, arg4, arg5: integer): integer; cdecl;
- end;
-
- TMethodCallbackTest = class(TTestCase)
- protected
- fTestObj: TTestObj;
- procedure Setup; override;
- procedure Teardown; override;
- published
- procedure TestDeleteOnEmptyAllocator;
- procedure TestCallBackStdCall;
- procedure TestCallBackCDecl;
- procedure TestOfObjectCallBackStdCall;
- procedure TestOfObjectCallBackCDecl;
- procedure TestDeleteCallBack;
- procedure TestFourArgStdFunction;
- procedure TestFiveArgCdeclFunction;
- procedure TestMemoryMgmt;
- procedure TestBug01;
- end;
-
- TTwoArgStdFunction = function (arg1, arg2: string): integer; stdcall;
- TThreeArgCDeclProcedure = procedure (arg1, arg2, arg3: string); cdecl;
-
- TMyFuncCallback = function(arg1, arg2: string): integer of object; stdcall;
- TMyProcCallback = procedure (arg1, arg2, arg3: string) of object; cdecl;
-
-{ TTestObj }
-
-function TTestObj.FiveArgCdeclFunction(arg1, arg2, arg3, arg4,
- arg5: integer): integer;
-begin
- Result := arg1 * arg4 + arg2 * arg5 + arg3;
-end;
-
-function TTestObj.FourArgStdFunction(arg1, arg2, arg3, arg4: integer): integer;
-begin
- Result := arg1 * arg3 + arg2 * arg4;
-end;
-
-procedure TTestObj.ThreeArgCdeclProcedure(arg1, arg2, arg3: string);
-begin
- Argument1:=arg1;
- Argument2:=arg2;
- Argument3:=arg3;
-end;
-
-function TTestObj.TwoArgStdFunction(arg1, arg2: string): integer;
-begin
- Argument1:=arg1;
- Argument2:=arg2;
- result:=1;
-end;
-
-{ TMethodCallbackTest }
-
-{ TMethodCallbackTest }
-
-procedure TMethodCallbackTest.Setup;
-begin
- inherited;
- fTestObj:=TTestObj.Create;
-end;
-
-procedure TMethodCallbackTest.Teardown;
-begin
- fTestObj.Free;
- FreeCallBacks;
- inherited;
-
-end;
-
-procedure TMethodCallbackTest.TestBug01;
-const
- AllocCount = {$IFDEF CPUX64}51{$ELSE}90{$ENDIF};
-var
- i: integer;
- ptr, ptr1, ptr2: Pointer;
-begin
- {
-I discovered a severe Bug in my memory manager code in MethodCallbacks.
-The pointer arithmetic when checking free space in an allocated memory block is wrong.
-
-The line that checks for free space in the current page is:
-
- if (page = nil) or (Longint(CodeMemPages^.CodeBlocks) -
-Longint(Pointer(CodeMemPages)) <= (size + sizeof(PCodeMemBlock))) then
-
-but it should be
-
- if (page = nil) or (Longint(CodeMemPages^.CodeBlocks) -
-Longint(Pointer(CodeMemPages)) <= (size + 3*sizeof(PCodeMemBlock))) then
-
-The old version didn't count the pointers of the TCodeMemPage structure (Next and Codeblocks).
-The error causes access violations on allocating the last block in a page when the requested size is smaller then the supposed (wrong) free space +8.
-
-Therefore it doesn't occur very often and the tests didn't catch it.
-I'm sorry about that. Hope it didn't cause too many problems up to now.
- }
-
- //---Test the code-memory manager
-
- // one ThreeArgDecl callback uses 33 bytes code + 4 bytes Next pointer = 37 bytes
- // we should be able to allocate 110 Callbacks per page
-
- CheckEquals(0, CodeMemPageCount);
-
- for i:=1 to AllocCount do
- ptr:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 5, ctCdecl);
-
- // there should still be 1 page allocated
- CheckEquals(1, CodeMemPageCount);
-
- // get one callback more and we should have 2 pages
- ptr:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 5, ctCdecl);
- // getting CodeMemPageCount would crash as the next page pointer was overwritten by the
- // last allocation
- CheckEquals(2, CodeMemPageCount);
-
-end;
-
-procedure TMethodCallbackTest.TestCallBackCDecl;
-var
- ptr: pointer;
- proc: TThreeArgCdeclProcedure;
-begin
- ptr:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
-
- //---call method through pointer
- proc:=TThreeArgCdeclProcedure(ptr);
-
- proc('first arg', 'second arg', 'third arg');
-
- CheckEquals('first arg', fTestObj.Argument1);
- CheckEquals('second arg', fTestObj.Argument2);
- CheckEquals('third arg', fTestObj.Argument3);
-
-end;
-
-procedure TMethodCallbackTest.TestCallBackStdCall;
-var
- ptr: pointer;
- func: TTwoArgStdFunction;
-begin
- ptr:=GetCallBack(fTestObj, @TTestObj.TwoArgStdFunction, 2, ctStdcall);
-
- //---call method through pointer
- func:=TTwoArgStdFunction(ptr);
-
- CheckEquals(1, func('first arg', 'second arg'));
- CheckEquals('first arg', fTestObj.Argument1);
- CheckEquals('second arg', fTestObj.Argument2);
-end;
-
-procedure TMethodCallbackTest.TestDeleteCallBack;
-var
- ptr1, ptr2, ptr3: Pointer;
- proc: TThreeArgCdeclProcedure;
- func: TTwoArgStdFunction;
-begin
- //---we create 3 callbacks and delete them.
- // if there aren't any AV, we assume it works...
- ptr1:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
- ptr2:=GetCallBack(fTestObj, @TTestObj.TwoArgStdFunction, 2, ctStdcall);
- DeleteCallBack(ptr1);
- ptr1:=GetCallBack(fTestObj, @TTestObj.TwoArgStdFunction, 2, ctStdcall);
- ptr3:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
-
- func:=TTwoArgStdFunction(ptr1);
- func('arg1', 'arg2');
- func:=TTwoArgStdFunction(ptr2);
- func('arg1', 'arg2');
- proc:=TThreeArgCdeclProcedure(ptr3);
- proc('arg1', 'arg2', 'arg3');
-
- DeleteCallBack(ptr1);
- DeleteCallBack(ptr2);
- DeleteCallback(ptr3);
-end;
-
-procedure TMethodCallbackTest.TestDeleteOnEmptyAllocator;
-var
- ptr1 : Pointer;
-begin
- ptr1 := nil;
- DeleteCallBack(ptr1);
-end;
-
-procedure TMethodCallbackTest.TestFiveArgCdeclFunction;
-Var
- CallBack : TFiveArgCdeclFunction;
-begin
- CallBack := GetCallBack(fTestObj, @TTestObj.FiveArgCdeclFunction, 5, ctCDECL);
- CheckEquals(CallBack(1,2,3,4,5), 1*4+2*5+3);
- DeleteCallBack(@CallBack);
-end;
-
-procedure TMethodCallbackTest.TestFourArgStdFunction;
-Var
- CallBack : TFourArgStdFunction;
-begin
- CallBack := GetCallBack(fTestObj, @TTestObj.FourArgStdFunction, 4, ctSTDCALL);
- CheckEquals(CallBack(1,2,3,4), 1*3+2*4);
- DeleteCallBack(@CallBack);
-end;
-
-procedure TMethodCallbackTest.TestMemoryMgmt;
-const
- AllocCount = {$IFDEF CPUX64}101{$ELSE}110{$ENDIF};
-var
- i: integer;
- ptr, ptr1, ptr2: Pointer;
-begin
- //---Test the code-memory manager
-
- // one ThreeArgDecl callback uses 33 bytes code + 4 bytes Next pointer = 37 bytes
- // we should be able to allocate 110 Callbacks per page
-
- CheckEquals(0, CodeMemPageCount);
-
- for i:=1 to AllocCount do
- ptr:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
-
- // there should still be 1 page allocated
- CheckEquals(1, CodeMemPageCount);
-
- // get one callback more and we should have 2 pages
- ptr:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
- CheckEquals(2, CodeMemPageCount);
-
- // get some more memory
- ptr1:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
- ptr2:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
- CheckEquals(2, CodeMemPageCount);
-
-
- // now Free the callbacks on page 2
- DeleteCallBack(ptr1);
- CheckEquals(2, CodeMemPageCount);
- DeleteCallBack(ptr);
- CheckEquals(2, CodeMemPageCount);
- DeleteCallBack(ptr2);
- // page count should be back to 1
- CheckEquals(1, CodeMemPageCount);
-
- // allocate one more and page count should go up to 2 again
- ptr:=GetCallBack(fTestObj, @TTestObj.ThreeArgCdeclProcedure, 3, ctCdecl);
- CheckEquals(2, CodeMemPageCount);
-
-
-
-end;
-
-procedure TMethodCallbackTest.TestOfObjectCallBackCDecl;
-var
- ptr: pointer;
- proc: TThreeArgCdeclProcedure;
- cb: TMyProcCallBack;
-begin
- cb:= fTestObj.ThreeArgCdeclProcedure;
- ptr:=GetOfObjectCallBack(TCallBack(cb), 3, ctCdecl);
-
- //---call method through pointer
- proc:=TThreeArgCdeclProcedure(ptr);
-
- proc('first arg', 'second arg', 'third arg');
-
- CheckEquals('first arg', fTestObj.Argument1);
- CheckEquals('second arg', fTestObj.Argument2);
- CheckEquals('third arg', fTestObj.Argument3);
-
-end;
-
-procedure TMethodCallbackTest.TestOfObjectCallBackStdCall;
-var
- ptr: pointer;
- func: TTwoArgStdFunction;
- cb: TMyFuncCallBack;
-begin
- cb:=fTestObj.TwoArgStdFunction;
- ptr:=GetOfObjectCallBack(TCallBack(cb), 2, ctStdcall);
-
- //---call method through pointer
- func:=TTwoArgStdFunction(ptr);
-
- CheckEquals(1, func('first arg', 'second arg'));
- CheckEquals('first arg', fTestObj.Argument1);
- CheckEquals('second arg', fTestObj.Argument2);
-end;
-
-
-initialization
- TestFrameWork.RegisterTest(TMethodCallBackTest.Suite());
-
-end.
diff --git a/Components/Sources/Core/UnitTests/Tests.dpr b/Components/Sources/Core/UnitTests/Tests.dpr
deleted file mode 100644
index 6498499..0000000
--- a/Components/Sources/Core/UnitTests/Tests.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program Tests;
-
-uses
- Forms,
- GuiTestRunner,
- MethodCallBackTest in 'MethodCallBackTest.pas';
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- GuiTestRunner.RunRegisteredTests;
-end.
diff --git a/Components/Sources/Core/UnitTests/Tests.res b/Components/Sources/Core/UnitTests/Tests.res
deleted file mode 100644
index bd92bb7..0000000
Binary files a/Components/Sources/Core/UnitTests/Tests.res and /dev/null differ
diff --git a/Components/Sources/Core/VarPyth.rst b/Components/Sources/Core/VarPyth.rst
deleted file mode 100644
index 03a11e3..0000000
--- a/Components/Sources/Core/VarPyth.rst
+++ /dev/null
@@ -1,34 +0,0 @@
-
-# hash value = 61888190
-varpyth.smultidimensionalpropsnotsupported='Multi-dimensional sequences o'+
-'r mappings are not supported in Python'
-
-
-# hash value = 209853316
-varpyth.scantconvertarg='Can'#39't convert argument #%d of %s into a Pyth'+
-'on object'
-
-
-# hash value = 198061570
-varpyth.sbothoperandsofintdividemustbeintegers='Both operands of an integ'+
-'er division must be of type integer'
-
-
-# hash value = 229549924
-varpyth.scantconvertkeytopythonobject='Can'#39't convert Key into a Pytho'+
-'n object'
-
-
-# hash value = 68458372
-varpyth.scantconvertvaluetopythonobject='Can'#39't convert Value into a P'+
-'ython object'
-
-
-# hash value = 232876276
-varpyth.scantcreatenewsequenceobject='Can'#39't create a new sequence obj'+
-'ect'
-
-
-# hash value = 196548996
-varpyth.sexpectedpythonvariant='Expected a Python variant'
-
diff --git a/Components/Sources/Core/WrapDelphi.pas b/Components/Sources/Core/WrapDelphi.pas
deleted file mode 100644
index 844a32c..0000000
--- a/Components/Sources/Core/WrapDelphi.pas
+++ /dev/null
@@ -1,2968 +0,0 @@
-(*-----------------------------------------------------------------------------
- Unit Name: WrapDelphi
- Author: Kiriakos Vlahos
- Date: 24-Feb-2005
- Purpose: Provide automatic wrapping of Delphi variables utilising RTTI
- Version: 1.11
-
- Contributors:
- Morgan Martinet (mmm@free.fr)
-
- Features:
- Check our Wiki at: http://py4d.pbwiki.com/.
-
- Published properties and methods compiled with {$METHODINFO ON} are
- handled automatically (Note that METHODINFO can be used only with Delphi7
- or later, but all the other wrapping features will work with previous
- versions of Delphi starting from Delphi5).
- Moreover common methods and properties of
- the following frequently used Delphi classes are also exported
- (Note that this list is not exhaustive):
-
- TObject (ClassName, Free, InheritsFrom)
- TPersistent (Assign)
- TCollection (sequence interface, Items, Count, Insert, Add, Clear)
- TStrings (mapping interface, Text, Add, AddObject, Delete, IndexOf, Clear)
- TComponent (Event properties, Subproperties, Owner, ComponentCount, Components)
- TControl (Parent)
- TWinControl (ControlCount, Controls)
- TForm (Show, ShowModal, Release)
-
-
- TStrings, TCollection.Items, TComponent.Components and
- TWinControl.Controls are exposed as sequence/mapping interfaces.
- You can also access the Screen and Application objects, and some other
- constants like mrOk, mrCancel...
-
- PyDelphiWrapper.RegisterDelphiWrapper allows the customized wrapping of
- additional Delphi classes over which you do not have direct control.
- PyDelphiWrapper.EventHandlers.RegisterHandler() can be used to add event handling
- functionality. TNotify events are handled out-of-the-box. To handle
- other types of events you need to write a TEventHandler descendent and
- register the EventHandler.
-
- A Module level function CreateComponent(ClassName, Owner) is also exported.
- For this function to work, the class needs to be registered using
- Classes.RegisterClass (Some classes are already pre-registered like TForm,
- TApplication, TScreen, TButton, TCheckBox...).
-
- You can subclass TForm as you would do in Delphi, but you are not able to
- override the Delphi methods in Python. There is also a helper
- function BindMethodsToEvents that can connect your method handlers to the
- component events if you respect a specific pattern for naming your methods:
- handle_ComponentName_EventName --> handle_Button1_OnClick
- This function is especially useful when you subclass an existing Delphi form,
- as the form will already have all the necessary components setup, but you'll
- be missing the events to your Python code.
- If you subclass Form in Python and name your class with the same name as
- an existing Delphi form (that must be registered with RegisterClass),
- then this class will be used to instanciate the form instead of the regular empty TForm.
-
-class TTestForm(Form):
- def __init__(self, Owner):
- self.Caption = self.Caption + ' - changed by Python subclass'
- self.BindMethodsToEvents() # this will connect handle_btnAdd_OnClick to btnAdd.OnClick
-
- def handle_btnAdd_OnClick(self, Sender):
- self.ListBox1.Items.Add(self.Edit1.Text)
-
- There is also a helper method named SetProps at the TPyDelphiObject level,
- allowing any wrapped object to do:
- button.SetProps(Left=10, Top=20, Caption='Clickme!)
-
- You can inspect the published properties of any wrapped object by inspecting the
- __published__ property.
-
- Note that events requiring var parameters like OnCloseQuery will provide a specific object
- containing a single Value property that will hold the actual value of the parameter,
- because Python does not allow modifying the parameters:
- def handle_close_query(self, sender, accept):
- accept.Value = False # accept = False would have not effect!
-
- Usage:
- Drop a PyDelphiWrapper component on a form, set its engine and module
- properties to a PythonEngine and PythonModule.
-
- Note that it is very important to add each wrapped Delphi unit to your uses
- clause or you won't access the specific wrappers as they would not be
- registered.
- To make it easier, you can simply add the unit WrapDelphiVCL to your uses
- clause.
-
- Alternatively create a PyDelphiWrapper component using code,
- set its engine and module properties and initialize e.g.
-
- PyDelphiWrapper := TPyDelphiWrapper.Create(Self);
- PyDelphiWrapper.Engine := PyEngine;
- PyDelphiWrapper.Module := PythonModule;
- PyDelphiWrapper.Initialize; // Should only be called if PyDelphiWrapper is created at run time
-
- Use PyDelphiWrapper.Wrap to wrap a given object
- var
- p : PPyObject;
- begin
- // Wrap the Form itself.
- p := PyDelphiWrapper.Wrap(Form1);
- PythonModule.SetVar( 'Form', p );
- PyEngine.Py_DecRef(p);
- end;
-
- Look at the demos 31 and 32 for further examples of usage.
-
- History:
- 1.00 24-Feb-2005 Kiriakos Vlahos
- Initial release
-
- 1.01 12-May-2005 Morgan Martinet
-
- - inherit TPyDelphiWrapper from TPythonClient
- - removed type TPythonTypeCustomCreate as TPythonType now has a new attribute GenerateCreateFunction
- the custom types didn't use the former CanCreate property and thus CreateComponent conflicted
- with the function exposed by TPyDelphiWrapper.
- - changed the boolean parameter of TObjectToPyObject into an enumeration, to help understand
- when you read the code, if the object is owned or not.
- - added property __bound__ to TPyDelphiObject, to know if the wrapper is still bound to the instance.
- - added property __owned__ to the base Delphi wrapper, to know if the wrapper owns the underlying
- object or not.
- - added SqAssItem and SqSlice to the TStringsWrapper
- - moved method Show of the Form wrapper to the Control wrapper
- - added Exception's message to the exception raised in TPyDelphiMethodObject.Call
- - fixed bug in Collection iterator (method Iter and IterNext were swapped)
- - refactored iterators with a common base class
- - added automatic support of sequences and iterators if the wrapper overrides the GetContainerAccessClass method.
- - refactored index checking
- - implemented sequence protocol with more collections
- - used new class method SetupType for configuring the services exposed by the python type
- allowing better polymorphism.
- - TStrings wrapper now inherits from TPersistent wrapper.
- - Fixed bug in TStrings.SqItem that returned a string instead of a wrapped TObject.
- - Changed DelphiObject member field to a property and redefined its type for each subclass,
- in order to avoid casting DelphiObject each time need to invoke an attribute.
- This was too much error prone, especially with Copy&Paste.
- - Added various helper functions to check parameter types.
- - Allowed events with TObject subclasses, using an interfaces IFreeNotification/IFreeNotificationSubscriber
- - Added helper class TFreeNotificationImpl handling the details of the IFreeNotification implementation.
- - Fixed bug when accessing attributes of an unbound wrapper
- - Renamed TPyStringsObject into TPyDelphiStrings for consistency
- - Changed the TForm wrapper into a TCustomForm wrapper
- - Added helper methods ToTuple, ToList to any wrapper supporting sequences (TStrings, TComponent...)
- - Added Objects property to TStrings
- - TStrings can be accessed with an integer to get the string item or with a key string to get
- the associated object.
-
- 1.02 23-May-2005 Morgan Martinet
-
- - Wrapped TBasicAction
- - Wrapped TActionList
- - Wrapped Screen object
- - Defined TModalResult constants
- - fixed bug when exiting application with Python events still attached -> crash
- - fixed bug in event handlers: when destroying an event, only set the handler to nil if it is our handler!
- - created TEventHandlers collection
- - Moved code that gets/sets events outside of GetAttrO/SetAttrO into TEventHandlers
- - return the associated Python handler of an event (in TPyDelphiObject.GetAttrO)
-
- 1.03 30-May-2005 Morgan Martinet
-
- - Wrapped TMonitor
- - Wrapped TApplication
- - The wrappers now will try to receive a free notification from the wrapped object. This will always
- work with components and may work with classes that implement IFreeNotification.
- - Refactored the registration of wrappers and helper types.
- Now you don't have to create your TPythonType instance. This will be done automatically in the
- RegisterDelphiWrapper and RegisterHelperType methods.
- You can setup the new type by overriding the SetupType class method of TPyObject.
- procedure RegisterDelphiWrapper(AWrapperClass : TPyDelphiObjectClass);
- RegisterHelperType(APyObjectClass : TPyObjectClass);
- Also, note that RegisterDelphiClass as been renamed RegisterDelphiWrapper and there's no
- ne need to give the associated Delphi class, as the wrapper class will override a new
- class function named DelphiObjectClass that must return the wrapped delphi class.
- - Moved wrappers into new dedicated units for each Delphi VCL unit:
- WrapDelphiClasses, WrapDelphiControls, WrapDelphiForms, WrapDelphiActnList
- - Added a new registration system at the unit level, to allow each dedicated unit to register
- the wrappers of the unit's classes.
- - New way to define getters/setters by using Class methods instead of global functions,
- thanks to Michiel du Toit.
-
- 1.04 30-May-2005 Morgan Martinet
-
- - Made WrapDelphi compatible with previous versions of Delphi (below 7):
- all the wrapping features are available, and only the dynamic method invocation
- relying on {$METHODINFO ON} is disabled. Have to check compilation with D5 to D6.
- - Allowed subclassing of components. Introduced new wrappers for TForm and TButton.
- - Added new unit WrapDelphiStdCtrls
-
- 1.05 11-June-2005 Morgan Martinet
-
- - renamed method TObjectToPyObject into Wrap
- - stored default wrapper types pointers into public properties of TPyDelphiWrapper,
- for immediate access (instead of doing a lookup in the list).
- - added class TPyDelphiVarParameter for handling Delphi var Parameters.
- - Defined event for TForm.OnCloseQuery
- - Defined event for TForm.OnClose
-
- 1.06 13-June-2005 Morgan Martinet
-
- - Created wrappers for all controls of the StdCtrls unit.
- - Created wrappers for all controls of the ExtCtrls unit in new unit WrapDelphiExtCtrls.
- - Added property __published__ to TPyDelphiObject, that will return the list of all published properties
- of the wrapped class. This can be use to know which properties can be accessed and for documenting...
- - Made Helper types visible at a module level, because Point, Rect... are helper types.
- - Added wrapper for TPoint
- - Implemented method TScreen.MonitorFromPoint using Point object.
-
- 1.07 25-June-2005 Morgan Martinet
-
- - When creating an instance of a form (with a Python subclass of Form), if the Owner is Application,
- then we use Application.CreateForm instead of just instanciating the metaclass, otherwise the Application
- will never have a Main form.
- - Started making a Python dll module hosting the Delphi wrappers.
- - fixed a declaration error of the property setters in TApplication wrapper
- - Added method RegisterFunction to TPyDelphiWrapper
- - Wrapped api FreeConsole in WrapDelphiForms
- - Added method SetProps at the TPyDelphiObject level, allowing any wrapped object to do:
- button.SetProps(Left=10, Top=20, Caption='Clickme!)
- - Wrapped procedure Abort
- - Created new type for wrapping TRect records.
- - New behaviour with forms: if you subclass Form in Python and name your class with the same name as
- a Delphi form (that must be registered with RegisterClass), then this class will be used to instanciate
- the form instead of the regular empty TForm.
- - Added a fake get/set method to TPyDelphiObject and create get/set definitions for each published property, using
- those fake methods that won't do anything, because the property value will be fetched in the GetAttr method,
- before even trying to use the python properties.
- This will help a lot documenting existing wrappers, using regular python tools, and it will also allow the
- use of the code insight provided by the IDE.
-
- 1.08 16-July-2005 Morgan Martinet
-
- - Added method BindMethodsToEvents to TComponent wrapper. It will allow a subclassed form
- to automatically bind its controls to the form's methods, if you respect a specific naming
- convention. Each method must be named like:
- def handle_MyComponent_OnClick(self, sender): pass
-
- Note that for the hooking the form's properties, you have to use a special component name "Self":
- def handle_Self_OnCloseQuery(self, sender, CanClose): pass
-
- Note that BindMethodsToEvents accepts a default parameter for specifying the expected prefix,
- which defaults to "handle_".
-
- Note that BindMethodsToEvents returns a list of tuples. Each tuple contains:
- ComponentName, EventName, MethodObject
-
- This method is especially useful if you create a base form in Delphi, using the form designer,
- with no code (or not much), then you subclass this form in Python, provide events that will
- be automatically be connected when you invoke BindMethodsToEvents in the __init__ handler.
-
- - Finished cleanup of the property getters (global function --> method)
-
- 1.09 18-Dec-2005 Morgan Martinet
-
- - Added new unit WrapDelphiWindows (to define a couple of symbols only)
- - Added new unit WrapDelphiComCtrls
- - Added new unit WrapDelphiGrids
- - Added new unit WrapDelphiGraphics
- - Added new unit WrapDelphiButtons
- - Wrapped TSize
- - Wrapped TCanvas, TGraphic, TBitmap, TMetaFile, TIcon, TPicture
- - Wrapped TKeyPressEvent and TKeyEvent
- - Made a breaking change when dealing with property sets:
- now we expect a sequence of strings. Each string should have the name as the enumeration in the set.
- Ex: MainForm.Anchors = ['akLeft', 'akTop']
- Of course, a set property will now return a list of strings.
- In the past, it would have returned an integer containing all the bits of the set,
- and it would have accepted to assign either the same kind of integer value or
- a string like "[akLeft, akTop]".
- - Made a breaking change when dealing with property enumerations:
- return a string representing its value instead of the ordinal value.
- - You don't need to call explicitely RegisterClass for your registered Python types as it will be done
- automatically for you in RegisterDelphiWrapper. But it is still usefull if you need to create VCL objects
- that have no wrapper, using the CreateComponent helper function.
-
- 1.10 24-Feb-2006 Morgan Martinet
-
- - Wrapped TPageControl and TTabSheet
-
- 1.11 14-Mar-2006 Morgan Martinet
-
- - Added methods Repaint and Invalidate to the TControl wrapper
- - Fixed bug when running WrapDelphi without Assertions in the compiler options
- thanks to a report from Dominique Whali
- - made fields fDefaultIterType and fDefaultContainerType of TPyDelphiWrapper protected
-
- TODO:
-
- - Extend SetProps: if property receiving the value is a TStrings and the value a sequence,
- then assign the sequence content to the TStrings.
- - what do we do if the Delphi code raises an exception when invoked by Python?
- Shouldn't we resurface it as a Python exception?
- - can we debug the Python code executed from a triggered event? Presently not, as we directly ask Python
- to execute a specific callable...
- - Create a simple app that just initializes Python and executes a script? To avoid having a console...
- - Bug with Delphi pyd: can't change the application title, because TApplication creates its own handle
- - Wrap TApplicationEvents. In fact define the events used by TApplicationEvents.
- - Wrap TMenu and Toolbar
- - Wrap TObjectList
- - Unit Test all exposed attributes
- - Wrap simple types like TMessage
- - Generate Documentation from available metainformation (see __members__, ClassName...)
- - Allow Wrappers to handle IFreeNotification for the wrapped object when the object does not
- support it, only when the wrapper knows that it is safe enough (singleton delphi object)
- - Handle interfaces?
- - Be able to return an object containing the current event handler of any Delphi object that was hooked by Delphi,
- and not by Python, as presently, if a button has a Delphi OnClick event, inspecting this event from Python
- will return None.
-
- -----------------------------------------------------------------------------*)
-{$I Definition.Inc}
-
-unit WrapDelphi;
-
-interface
-
-uses
- SysUtils, Classes, PythonEngine, TypInfo,
- Variants,
-{$IFNDEF FPC}
- ObjAuto,
-{$ENDIF}
- Contnrs;
-
-Type
- TObjectOwnership = (soReference, soOwned);
-
- // forward declaration
- TPyDelphiWrapper = class;
-
- {
- If you want to benefit from subscribing to events from Python when your
- wrapped class does not inherit from TComponent, then you can simply
- implement the IFreeNotification, store the subscriber event sink and
- trigger its Notify method in your destructor.
- Note that TFreeNotificationImpl does all the plumbing for you.
- }
- IFreeNotificationSubscriber = interface
- ['{F08FB6EA-3D8B-43C0-8343-77C8E06DE401}']
- procedure Notify(ADeletedObject : TObject);
- end;
-
- IFreeNotification = interface
- ['{085FD1BB-44FC-457A-B357-4E06071BBEA5}']
- procedure Subscribe(const ASubscriber: IFreeNotificationSubscriber);
- procedure UnSubscribe(const ASubscriber: IFreeNotificationSubscriber);
- end;
-
- { Helper class that handles the detail of implementing IFreeNotification.
- Usage:
-
- TMyClass = class(TInterfacedObject, IFreeNotification)
- private
- fFreeNotifImpl : TFreeNotificationImpl;
- protected
- property FreeNotifImpl : IFreeNotification read fFreeNotifImpl implements IFreeNotification;
- public
- constructor Create;
- end;
-
- constructor TMyClass.Create;
- begin
- fFreeNotifImpl := TFreeNotificationImpl.Create(Self);
- end;
- }
- TFreeNotificationImpl = class(TInterfacedObject, IFreeNotification)
- private
- fSubscribers : TInterfaceList;
- fOwner: TObject;
-
- function GetSubscribers : TInterfaceList;
- protected
- // implementation of IFreeNotification
- procedure Subscribe(const ASubscriber: IFreeNotificationSubscriber);
- procedure UnSubscribe(const ASubscriber: IFreeNotificationSubscriber);
- public
- constructor Create(AOwner : TObject);
- destructor Destroy; override;
-
- property Owner : TObject read fOwner;
- end;
-
- {
- This class helps wrappers to implement sequence and iterator protocols.
- You must subclass it, override GetItem, GetSize.
- If you override IndexOf, then you must override SupportsIndexOf and return True.
- If you override SetItem, then you must override SupportsWrite and return True.
- You can give a specific name to the container if you override the Name function.
-
- Note that an instance of this class must belong to a single owner, if you want
- to give it to another class (like a container to an iterator, then you must
- clone it).
- }
- TContainerAccess = class
- private
- fContainer: TObject;
- fWrapper: TPyDelphiWrapper;
- protected
- function Wrap(Obj : TObject; Ownership: TObjectOwnership = soReference) : PPyObject;
- public
- constructor Create(AWrapper : TPyDelphiWrapper; AContainer: TObject); virtual;
-
- function Clone : TContainerAccess; virtual;
- function GetItem(AIndex : Integer) : PPyObject; virtual; abstract;
- function GetSize : Integer; virtual; abstract;
- function IndexOf(AValue : PPyObject) : Integer; virtual;
- function SetItem(AIndex : Integer; AValue : PPyObject) : Boolean; virtual;
-
- class function ExpectedContainerClass : TClass; virtual; abstract;
- class function Name : String; virtual;
- class function SupportsWrite : Boolean; virtual;
- class function SupportsIndexOf : Boolean; virtual;
-
- property Container : TObject read fContainer;
- property Wrapper : TPyDelphiWrapper read fWrapper;
- end;
- TContainerAccessClass = class of TContainerAccess;
-
-
- {
- Abstract sequence relying on the container access protocol.
- This will help us support the VCL way to access elements,
- for instance: form.Components[i]
- Note that we could simply write form[i], but then we might use it for
- form.Controls[i] (as Components would be the default sequence).
- As the sequence supports iterators, you can also write:
- for i in form: pass
- for i in form.Components: pass
- for i in form.Controls: pass
- }
- TPyDelphiContainer = class(TPyObject)
- private
- fContainerAccess: TContainerAccess;
- fPyDelphiWrapper: TPyDelphiWrapper;
- public
- destructor Destroy; override;
-
- procedure Setup(APyDelphiWrapper : TPyDelphiWrapper; AContainerAccess : TContainerAccess);
- class procedure SetupType( PythonType : TPythonType ); override;
-
- function Repr : PPyObject; override;
- function Iter : PPyObject; override;
-
- // Sequence services
- function SqLength : NativeInt; override;
- function SqItem( idx : NativeInt ) : PPyObject; override;
- function SqAssItem( idx : NativeInt; obj : PPyObject) : Integer; override;
- function SqSlice( idx1, idx2 : NativeInt ) : PPyObject; override;
- function SqContains( obj: PPyObject): integer; override;
-
- // Properties
- property ContainerAccess : TContainerAccess read fContainerAccess;
- property PyDelphiWrapper : TPyDelphiWrapper read fPyDelphiWrapper;
- end;
-
- {
- Abstract iterator relying on the container access protocol.
- }
- TPyDelphiIterator = class(TPyObject)
- private
- fPosition: Integer;
- fContainerAccess: TContainerAccess;
- public
- destructor Destroy; override;
-
- procedure Setup(AContainerAccess : TContainerAccess);
- class procedure SetupType( PythonType : TPythonType ); override;
-
- function Repr : PPyObject; override;
- function Iter : PPyObject; override;
- function IterNext : PPyObject; override;
-
- // Properties
- property Position : Integer read fPosition;
- property ContainerAccess : TContainerAccess read fContainerAccess;
- end;
-
- {
- Base class allowing us to implement interfaces.
- }
- TPyInterfacedObject = class(TPyObject, IInterface)
- private
- // implementation of interface IInterface
- {$IFDEF FPC_HAS_CONSTREF}
- function QueryInterface(constref IID: TGUID; out Obj): HResult; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
- function _AddRef: Integer; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
- function _Release: Integer; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
- {$ELSE}
- function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
- {$ENDIF}
- end;
-
- {
- PyObject wrapping TObject
- Exposes published properties and methods
- Also exposes the property ClassName and methods InheritesFrom and Free
- Do not create TPyDelphi or its subclasses directly - Instead use
- PyDelphiWrapper.TObjectToPyObject
- }
- TPyDelphiObject = class (TPyInterfacedObject, IFreeNotificationSubscriber)
- private
- fDelphiObject: TObject;
- fContainerAccess : TContainerAccess;
- function GetContainerAccess: TContainerAccess;
- procedure SetDelphiObject(const Value: TObject);
- protected
- fCanFreeOwnedObject : Boolean;
-
- function CheckBound : Boolean;
- function HasContainerAccessClass : Boolean;
- procedure SubscribeToFreeNotification; virtual;
- procedure UnSubscribeToFreeNotification; virtual;
- class function GetTypeName : String; virtual;
- // Exposed Methods
- function Free_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function InheritsFrom_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ToTuple_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ToList_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SetProps(args, keywords : PPyObject) : PPyObject; cdecl;
- // Exposed Getters
- function Get_ClassName(Acontext : Pointer) : PPyObject; cdecl;
- function Get_Owned(Acontext : Pointer) : PPyObject; cdecl;
- function Get_Bound(Acontext : Pointer) : PPyObject; cdecl;
- function Get_Published(AContext : Pointer) : PPyObject; cdecl;
- function Dummy_Getter(AContext : Pointer) : PPyObject; cdecl;
- // Exposed Setters
- function Dummy_Setter(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- // implementation of interface IFreeNotificationSubscriber
- procedure Notify(ADeletedObject : TObject);
- public
- PyDelphiWrapper : TPyDelphiWrapper;
- Owned: Boolean;
-
- constructor Create( APythonType : TPythonType ); override;
- destructor Destroy; override;
-
- function GetAttrO( key: PPyObject) : PPyObject; override;
- function SetAttrO( key, value: PPyObject) : Integer; override;
- // Objects are equal when they refer to the same DelphiObject
- function Compare( obj: PPyObject) : Integer; override;
- function RichCompare( obj : PPyObject; Op : TRichComparisonOpcode) : PPyObject; override;
- function Repr : PPyObject; override;
- // automatic iterator support when the wrapper implements IContainerAccessProvider
- function Iter : PPyObject; override;
- // Sequence services
- function SqLength : NativeInt; override;
- function SqItem( idx : NativeInt ) : PPyObject; override;
- function SqSlice( idx1, idx2 : NativeInt ) : PPyObject; override;
- function SqContains( obj: PPyObject): integer; override;
- function SqAssItem( idx : NativeInt; obj : PPyObject) : Integer; override;
-
- class function DelphiObjectClass : TClass; virtual;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure SetupType( PythonType : TPythonType ); override;
- // if the class is a container (TStrings, TComponent, TCollection...),
- // then return the class implementing the access to the contained items.
- class function GetContainerAccessClass : TContainerAccessClass; virtual;
- // creates a container access object using the class returned by GetContainerAccess.
- function CreateContainerAccess : TContainerAccess; virtual;
-
- // helper methods
- function Wrap(AObject : TObject; AOwnership: TObjectOwnership = soReference) : PPyObject;
- // Properties
- property DelphiObject: TObject read fDelphiObject write SetDelphiObject;
- property ContainerAccess : TContainerAccess read GetContainerAccess;
- end;
- TPyDelphiObjectClass = class of TPyDelphiObject;
-
- { This class will simply hold a Python object in its Value property.
- This is required for Delphi var parameters because Python won't let you
- replace a parameter value with another one, so, we will provide a container
- and you'll be able to change its content. }
- TPyDelphiVarParameter = class(TPyObject)
- private
- fValue: PPyObject;
- procedure SetValue(const Value: PPyObject);
- protected
- // Exposed Getters
- function Get_Value(Acontext : Pointer) : PPyObject; cdecl;
- // Exposed Setters
- function Set_Value(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- destructor Destroy; override;
-
- function Compare( obj: PPyObject) : Integer; override;
- function RichCompare( obj : PPyObject; Op : TRichComparisonOpcode) : PPyObject; override;
- function Repr : PPyObject; override;
-
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure SetupType( PythonType : TPythonType ); override;
-
- property Value : PPyObject read fValue write SetValue;
- end;
-
- TEventHandler = class
- private
- fComponent: TObject;
- public
- PyDelphiWrapper : TPyDelphiWrapper;
- PropertyInfo : PPropInfo;
- EventType : PTypeInfo;
- Callable : PPyObject;
- // connects to the event on creation
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); virtual;
- // Disconnects from the event on destruction
- destructor Destroy; override;
- // Disconnects from the free notification event now
- procedure Unsubscribe;
- // returns the type info of the supported event
- class function GetTypeInfo : PTypeInfo; virtual; abstract;
- // properties
- property Component : TObject read fComponent;
- end;
- TEventHandlerClass = class of TEventHandler;
-
- TEventHandlers = class
- private
- fItems : TObjectList;
- fRegisteredClasses : TClassList;
- fPyDelphiWrapper: TPyDelphiWrapper;
- function GetCount: Integer;
- function GetItem(AIndex: Integer): TEventHandler;
- function GetRegisteredClass(AIndex: Integer): TEventHandlerClass;
- function GetRegisteredClassCount: Integer;
- protected
- function FindHandler(ATypeInfo : PTypeInfo) : TEventHandlerClass;
- property RegisteredClasses[AIndex : Integer] : TEventHandlerClass read GetRegisteredClass;
- property RegisteredClassCount : Integer read GetRegisteredClassCount;
- public
- constructor Create(APyDelphiWrapper : TPyDelphiWrapper);
- destructor Destroy; override;
-
- function Add(AEventHandler : TEventHandler) : Boolean;
- procedure Clear;
- procedure Delete(AIndex : Integer);
- function GetCallable(AComponent : TObject; APropInfo : PPropInfo) : PPyObject; overload;
- function GetCallable(AComponent : TObject; const APropName : String) : PPyObject; overload;
- function Link(AComponent : TObject; APropInfo : PPropInfo; ACallable : PPyObject) : Boolean;
- function IndexOf(AComponent : TObject; APropInfo : PPropInfo) : Integer;
- procedure RegisterHandler(AEventHandlerClass : TEventHandlerClass);
- function Unlink(AComponent : TObject; APropInfo : PPropInfo) : Boolean;
-
- property Count : Integer read GetCount;
- property Items[AIndex : Integer] : TEventHandler read GetItem; default;
- property PyDelphiWrapper : TPyDelphiWrapper read fPyDelphiWrapper;
- end;
-
- TNotifyEventHandler = class(TEventHandler)
- protected
- procedure DoEvent(Sender: TObject);
- public
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); override;
- class function GetTypeInfo : PTypeInfo; override;
- end;
-
- { Subclass TRegisteredUnit to register your wrappers for a specific unit.
- See WrapDelphiForms which will wrapp some of the classes of the Forms.pas unit.
-
- type
- TFormsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
- procedure TFormsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
- begin
- inherited;
- // Singletons
- APyDelphiWrapper.DefineVar('Application', Application);
- APyDelphiWrapper.DefineVar('Screen', Screen);
-
- // MessageBox flags
- APyDelphiWrapper.DefineVar('MB_ABORTRETRYIGNORE', MB_ABORTRETRYIGNORE);
- APyDelphiWrapper.DefineVar('MB_OK', MB_OK);
- end;
-
- function TFormsRegistration.Name: String;
- begin
- Result := 'Forms';
- end;
-
- procedure TFormsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
- begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomForm);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiApplication);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiScreen);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiMonitor);
-
- APyDelphiWrapper.EventHandlers.RegisterHandler(TCloseQueryEventHandler);
- end;
-
- You must also register this class to the RegisteredUnits singleton like this:
- initialization
- RegisteredUnits.Add(TFormsRegistration.Create);
- }
- TRegisteredUnit = class
- public
- function Name : String; virtual; abstract;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); virtual;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); virtual;
- procedure DefineFunctions(APyDelphiWrapper : TPyDelphiWrapper); virtual;
- end;
-
- { Singleton containing all registered units.
- This will be used by TPyDelphiWrapper for registering the wrappers of
- classes contained in those units.
- The advantage is that we can select what we want to wrap simply by
- including the Wrapped units into the project, and thus avoid code bloating
- if we don't need those units.
- }
- TRegisteredUnits = class
- private
- fItems : TObjectList;
- function GetCount: Integer;
- function GetItem(AIndex: Integer): TRegisteredUnit;
- public
- constructor Create;
- destructor Destroy; override;
-
- procedure Add(ARegisteredModule : TRegisteredUnit);
-
- property Count : Integer read GetCount;
- property Items[AIndex : Integer] : TRegisteredUnit read GetItem; default;
- end;
-
- {
- The main component of this unit.
- Method TObjectToPyObject wraps Delphi objects into Python objects
- Method RegisterDelphiClass can be used to extend its functionality.
- Method RegisterEventHandler can be used to add event handling functionality
- }
- {$IF not Defined(FPC) and (CompilerVersion >= 23)}
- [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
- {$IFEND}
- TPyDelphiWrapper = class(TEngineClient, IFreeNotificationSubscriber)
- private
- // Stores Delphi class registration information
- fClassRegister : TObjectList;
- // Stores registration for Helper Types (do not correspond to Delphi classes)
- fHelperClassRegister : TStringList;
- // Stores Created Event Handlers
- fEventHandlerList : TEventHandlers;
- fVarParamType: TPythonType;
-{$IFNDEF FPC}
- fDelphiMethodType: TPythonType;
-{$ENDIF}
- // Exposed Module level function CreateComponent(ComponentClass, Owner)
- function CreateComponent( pself, args : PPyObject ) : PPyObject; cdecl;
- // Implementation of interface IFreeNotificationSubscriber
- procedure Notify(ADeletedObject : TObject);
- protected
- FModule : TPythonModule;
- fDefaultIterType: TPythonType;
- fDefaultContainerType: TPythonType;
- procedure CreateWrappers; virtual;
- procedure CreateModuleVars; virtual;
- procedure CreateModuleFunctions; virtual;
- procedure SetEngine(Value : TPythonEngine ); override;
- procedure SetModule(const Value: TPythonModule);
- procedure Notification( AComponent: TComponent;
- Operation: TOperation); override;
- procedure ModuleReady(Sender : TObject); override;
- procedure UnsubscribeFreeNotifications;
- procedure CreatePyFunc(AModule : TPythonModule; AMethodDef : PPyMethodDef);
- public
- constructor Create( AOwner : TComponent ); override;
- destructor Destroy; override;
-
- procedure Initialize; override;
- procedure Finalize; override;
- procedure DefineVar(const AName : String; const AValue : Variant); overload;
- procedure DefineVar(const AName : String; AValue : TObject); overload;
- procedure RegisterDelphiWrapper(AWrapperClass : TPyDelphiObjectClass);
- function RegisterHelperType(APyObjectClass : TPyObjectClass) : TPythonType;
- function RegisterFunction(AFuncName : PAnsiChar; AFunc : PyCFunction; ADocString : PAnsiChar ) : PPyMethodDef; overload;
- function RegisterFunction(AFuncName : PAnsiChar; AFunc : TDelphiMethod; ADocString : PAnsiChar ) : PPyMethodDef; overload;
- function GetHelperType(TypeName : string) : TPythonType;
- // Function that provides a Python object wrapping a Delphi object
- function Wrap(AObj : TObject; AOwnership: TObjectOwnership = soReference) : PPyObject;
- // properties
- property EventHandlers : TEventHandlers read fEventHandlerList;
- // Helper types
- property DefaultContainerType : TPythonType read fDefaultContainerType;
- property DefaultIterType : TPythonType read fDefaultIterType;
-{$IFNDEF FPC}
- property DelphiMethodType : TPythonType read fDelphiMethodType;
-{$ENDIF}
- property VarParamType : TPythonType read fVarParamType;
- published
- property Module : TPythonModule read FModule write SetModule;
- end;
-
- { Singletons }
- function RegisteredUnits : TRegisteredUnits;
-
- { Misc }
- procedure Register;
-
- { Helper Functions }
-
- function CheckIndex(AIndex, ACount : Integer; const AIndexName : String = 'Index') : Boolean;
- function CheckIntAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : Integer) : Boolean;
- function CheckBoolAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : Boolean) : Boolean;
- function CheckStrAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : String) : Boolean;
- function CheckObjAttribute(AAttribute : PPyObject; const AAttributeName : String;
- AExpectedClass : TClass;
- var AValue : TObject) : Boolean;
- function CheckCallableAttribute(AAttribute : PPyObject; const AAttributeName : String) : Boolean;
- function CheckEnum(const AEnumName : String; AValue, AMinValue, AMaxValue : Integer) : Boolean;
- function CreateSlice(ASequence : TPyObject; AIndex1, AIndex2 : Integer) : PPyObject;
- function CreateVarParam(PyDelphiWrapper : TPyDelphiWrapper; const AValue : Variant) : PPyObject;
- function SetToPython(ATypeInfo: PTypeInfo; AValue : Integer) : PPyObject; overload;
- function SetToPython(APropInfo: PPropInfo; AValue : Integer) : PPyObject; overload;
- function SetToPython(AInstance: TObject; APropInfo: PPropInfo) : PPyObject; overload;
- function PythonToSet(ASet : PPyObject; APropInfo: PPropInfo) : Integer;
- function SupportsFreeNotification(AObject : TObject) : Boolean;
- procedure RaiseNotifyEvent(PyDelphiWrapper : TPyDelphiWrapper; ACallable : PPyObject; Sender: TObject);
-
-implementation
-
-Uses
- Math,
- RTLConsts;
-
-var
- gRegisteredUnits : TRegisteredUnits;
-function RegisteredUnits : TRegisteredUnits;
-begin
- if not Assigned(gRegisteredUnits) then
- gRegisteredUnits := TRegisteredUnits.Create;
- Result := gRegisteredUnits;
-end;
-
-var
- gNames : TStringList;
-
-function AddName(const AName : String) : PAnsiChar;
-begin
- gNames.Add(AName);
- Result := PAnsiChar(AnsiString(gNames[gNames.Count-1]));
-end;
-
-procedure Register;
-begin
- RegisterComponents('Python', [TPyDelphiWrapper]);
-end;
-
-{ Helper functions }
-
-function CheckIndex(AIndex, ACount : Integer; const AIndexName : String = 'Index') : Boolean;
-begin
- if (AIndex < 0) or (AIndex >= ACount) then
- with GetPythonEngine do
- begin
- Result := False;
- PyErr_SetString (PyExc_IndexError^,
- PAnsiChar(AnsiString(Format('%s "%d" out of range',[AIndexName, AIndex]))));
- end
- else
- Result := True;
-end;
-
-function CheckIntAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : Integer) : Boolean;
-begin
- if GetPythonEngine.PyInt_Check(AAttribute) then
- begin
- AValue := GetPythonEngine.PyInt_AsLong(AAttribute);
- Result := True;
- end
- else
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('%s receives only integer values', [AAttributeName]))));
- end;
-end;
-
-function CheckBoolAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : Boolean) : Boolean;
-begin
- AValue := GetPythonEngine.PyObject_IsTrue(AAttribute) <> 0;
- Result := True;
-end;
-
-function CheckStrAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : String) : Boolean;
-begin
- if GetPythonEngine.PyString_Check(AAttribute) then
- begin
- AValue := GetPythonEngine.PyString_AsDelphiString(AAttribute);
- Result := True;
- end
- else
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('%s receives only string values', [AAttributeName]))));
- end;
-end;
-
-function CheckCallableAttribute(AAttribute : PPyObject; const AAttributeName : String) : Boolean;
-begin
- if (AAttribute = GetPythonEngine.Py_None) or (GetPythonEngine.PyCallable_Check(AAttribute) <> 0) then
- Result := True
- else
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('%s accepts only None or Callable values', [AAttributeName]))));
- end;
-end;
-
-function CheckEnum(const AEnumName : String; AValue, AMinValue, AMaxValue : Integer) : Boolean;
-begin
- if (AValue >= AMinValue) and (AValue <= AMaxValue) then
- Result := True
- else
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('Enum %s accepts values between %d and %d. Received %d.', [AEnumName, AMinValue, AMaxValue, AValue]))));
- end;
-end;
-
-function CheckObjAttribute(AAttribute : PPyObject; const AAttributeName : String;
- AExpectedClass : TClass;
- var AValue : TObject) : Boolean;
-var
- PyObject : TPyObject;
-begin
- if AAttribute = GetPythonEngine.Py_None then
- begin
- Result := True;
- AValue := nil;
- end
- else if IsDelphiObject(AAttribute) then
- begin
- PyObject := PythonToDelphi(AAttribute);
- if not (PyObject is TPyDelphiObject) or
- not (TPyDelphiObject(PyObject).DelphiObject.InheritsFrom(AExpectedClass)) then
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('%s receives only Delphi objects of type %s', [AAttributeName, AExpectedClass.ClassName]))));
- end
- else
- begin
- Result := True;
- AValue := TPyDelphiObject(PyObject).DelphiObject;
- end;
- end
- else
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('%s receives only Delphi objects', [AAttributeName]))));
- end;
-end;
-
-function CreateSlice(ASequence : TPyObject; AIndex1, AIndex2 : Integer) : PPyObject;
-var
- i : Integer;
- tmp : Integer;
-begin
- if not CheckIndex(AIndex1, ASequence.SqLength, 'Index1') then
- Result := nil
- else if not CheckIndex(AIndex2, ASequence.SqLength, 'Index2') then
- Result := nil
- else with GetPythonEngine do
- begin
- if AIndex1 > AIndex2 then
- begin
- tmp := AIndex2;
- AIndex2 := AIndex1;
- AIndex1 := tmp;
- end;
-
- Result := PyTuple_New(AIndex2-AIndex1+1);
- for i := 0 to PyTuple_Size(Result)-1 do
- PyTuple_SetItem(Result, i, ASequence.SqItem(AIndex1));
- end;
-end;
-
-function CreateVarParam(PyDelphiWrapper : TPyDelphiWrapper; const AValue : Variant) : PPyObject;
-var
- tmp : PPyObject;
- _varParam : TPyDelphiVarParameter;
-begin
- Result := PyDelphiWrapper.VarParamType.CreateInstance;
- _varParam := PythonToDelphi(Result) as TPyDelphiVarParameter;
- tmp := GetPythonEngine.VariantAsPyObject(AValue);
- _varParam.Value := tmp; // refcount was incremented
- GetPythonEngine.Py_DECREF(tmp);
-end;
-
-function SupportsFreeNotification(AObject : TObject) : Boolean;
-var
- _FreeNotification : IFreeNotification;
-begin
- Result := (AObject is TComponent) or AObject.GetInterface(IFreeNotification, _FreeNotification);
-end;
-
-procedure RaiseNotifyEvent(PyDelphiWrapper : TPyDelphiWrapper; ACallable : PPyObject; Sender: TObject);
-Var
- PyObject, PyTuple, PyResult : PPyObject;
-begin
- Assert(Assigned(PyDelphiWrapper));
- if Assigned(ACallable) and PythonOK then
- with GetPythonEngine do begin
- PyObject := PyDelphiWrapper.Wrap(Sender);
- PyTuple := PyTuple_New(1);
- try
- GetPythonEngine.PyTuple_SetItem(PyTuple, 0, PyObject);
- PyResult := PyObject_CallObject(ACallable, PyTuple);
- if Assigned(PyResult) then Py_DECREF(PyResult);
- finally
- Py_DECREF(PyTuple);
- end;
- CheckError;
- end;
-end;
-
-function SetToPython(ATypeInfo: PTypeInfo; AValue : Integer) : PPyObject; overload;
-var
- S: TIntegerSet;
- I: Integer;
- _name : PPyObject;
-begin
- Result := GetPythonEngine.PyList_New(0);
- Integer(S) := AValue;
- for I := 0 to SizeOf(Integer) * 8 - 1 do
- if I in S then
- begin
- _name := GetPythonEngine.PyString_FromString(PAnsiChar(AnsiString(GetEnumName(ATypeInfo, I))));
- GetPythonEngine.PyList_Append(Result, _name);
- GetPythonEngine.Py_XDecRef(_name);
- end;
-end;
-
-function SetToPython(APropInfo: PPropInfo; AValue : Integer) : PPyObject; overload;
-begin
- {$IFDEF FPC}
- Result := SetToPython(GetTypeData(APropInfo.PropType)^.CompType, AValue);
- {$ELSE FPC}
- Result := SetToPython(GetTypeData(APropInfo^.PropType^)^.CompType^, AValue);
- {$ENDIF FPC}
-end;
-
-function SetToPython(AInstance: TObject; APropInfo: PPropInfo) : PPyObject; overload;
-begin
- Result := SetToPython(APropInfo, GetOrdProp(AInstance, APropInfo));
-end;
-
-function PythonToSet(ASet : PPyObject; APropInfo: PPropInfo) : Integer;
-var
- i : Integer;
- EnumObj: PPyObject;
- EnumName: string;
- EnumValue: Longint;
- EnumInfo: PTypeInfo;
-
-begin
- Result := 0;
- with GetPythonEngine do
- begin
- Assert(PySequence_Check(ASet) <> 0, 'PythonToSet expects a Python sequence as first parameter');
-
- {$IFDEF FPC}
- EnumInfo := GetTypeData(APropInfo^.PropType)^.CompType;
- {$ELSE FPC}
- EnumInfo := GetTypeData(APropInfo^.PropType^)^.CompType^;
- {$ENDIF FPC}
- for i := 0 to PySequence_Length(ASet)-1 do
- begin
- EnumObj := PySequence_GetItem(ASet, i);
- try
- EnumName := PyObjectAsString(EnumObj);
- finally
- Py_XDecRef(EnumObj);
- end;
- EnumValue := GetEnumValue(EnumInfo, EnumName);
- if EnumValue < 0 then
- raise EPropertyConvertError.CreateResFmt(@SInvalidPropertyElement, [EnumName]);
- Include(TIntegerSet(Result), EnumValue);
- end;
- end;
-end;
-
-{$IFDEF FPC}
-function GetPropValue(Instance: TObject; PropInfo: PPropInfo): Variant;
-begin
- Result := Variants.GetPropValue(Instance, PropInfo^.Name);
-end;
-
-procedure SetPropValue(Instance: TObject; PropInfo: PPropInfo; const Value: Variant);
-begin
- Variants.SetPropValue(Instance, PropInfo^.Name, Value);
-end;
-{$ENDIF}
-
-function Abort_Wrapper(pself, args: PPyObject): PPyObject; cdecl;
-begin
- Result := nil;
- Abort;
-end;
-
-Type
- // Used for class registration by TPyDelphiWrapper fClassRegister
- TRegisteredClass = class
- public
- DelphiClass : TClass;
- PythonType : TPythonType;
- end;
-
-{$IFNDEF FPC}
-Type
- // PyObject wrapping TObject method call
- // Helper object used by TPyDelphiObject
- TPyDelphiMethodObject = class (TPyObject)
- public
- DelphiObject: TObject;
- MethodInfo : TMethodInfoHeader;
- function Call( ob1, ob2 : PPyObject) : PPyObject; override;
- function Repr : PPyObject; override;
- class procedure SetupType( PythonType : TPythonType ); override;
- end;
-{$ENDIF}
-
-{ TFreeNotificationImpl }
-
-constructor TFreeNotificationImpl.Create(AOwner: TObject);
-begin
- inherited Create;
- Assert(Assigned(AOwner));
- fOwner := AOwner;
-end;
-
-destructor TFreeNotificationImpl.Destroy;
-var
- i : Integer;
-begin
- if Assigned(fSubscribers) then
- begin
- for i := 0 to fSubscribers.Count-1 do
- (fSubscribers[i] as IFreeNotificationSubscriber).Notify(Owner);
- fSubscribers.Free;
- end;
- inherited;
-end;
-
-function TFreeNotificationImpl.GetSubscribers: TInterfaceList;
-begin
- if not Assigned(fSubscribers) then
- fSubscribers := TInterfaceList.Create;
- Result := fSubscribers;
-end;
-
-procedure TFreeNotificationImpl.Subscribe(
- const ASubscriber: IFreeNotificationSubscriber);
-begin
- Assert(Assigned(ASubscriber));
- if not Assigned(fSubscribers) or (fSubscribers.IndexOf(ASubscriber) < 0) then
- GetSubscribers.Add(ASubscriber);
-end;
-
-procedure TFreeNotificationImpl.UnSubscribe(
- const ASubscriber: IFreeNotificationSubscriber);
-begin
- if Assigned(fSubscribers) then
- begin
- fSubscribers.Remove(ASubscriber);
- if fSubscribers.Count = 0 then
- FreeAndNil(fSubscribers);
- end;
-end;
-
-{ TContainerAccess }
-
-function TContainerAccess.Clone: TContainerAccess;
-begin
- Result := TContainerAccessClass(ClassType).Create(Wrapper, Container);
-end;
-
-constructor TContainerAccess.Create(AWrapper: TPyDelphiWrapper;
- AContainer: TObject);
-begin
- inherited Create;
- Assert(Assigned(AWrapper));
- Assert(Assigned(AContainer));
- Assert(AContainer.InheritsFrom(ExpectedContainerClass), Format('Class %s expects a container of class %s', [ClassName, ExpectedContainerClass.ClassName]));
- fWrapper := AWrapper;
- fContainer := AContainer;
-end;
-
-function TContainerAccess.IndexOf(AValue: PPyObject): Integer;
-begin
- Result := -1;
-end;
-
-class function TContainerAccess.Name: String;
-begin
- Result := ExpectedContainerClass.ClassName;
-end;
-
-function TContainerAccess.SetItem(AIndex: Integer; AValue: PPyObject): Boolean;
-begin
- Result := False;
-end;
-
-class function TContainerAccess.SupportsIndexOf: Boolean;
-begin
- Result := False;
-end;
-
-class function TContainerAccess.SupportsWrite: Boolean;
-begin
- Result := False;
-end;
-
-function TContainerAccess.Wrap(Obj: TObject;
- Ownership: TObjectOwnership): PPyObject;
-begin
- Result := Wrapper.Wrap(Obj, Ownership);
-end;
-
-{ TPyDelphiContainer }
-
-destructor TPyDelphiContainer.Destroy;
-begin
- fContainerAccess.Free;
- inherited;
-end;
-
-function TPyDelphiContainer.Iter: PPyObject;
-begin
- Result := PyDelphiWrapper.DefaultIterType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiIterator do
- Setup(Self.ContainerAccess.Clone);
-end;
-
-function TPyDelphiContainer.Repr: PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString( PAnsiChar(AnsiString(Format('',
- [ContainerAccess.Name, NativeInt(Self)]))) );
-end;
-
-procedure TPyDelphiContainer.Setup(APyDelphiWrapper : TPyDelphiWrapper;
- AContainerAccess : TContainerAccess);
-begin
- Assert(Assigned(APyDelphiWrapper));
- Assert(Assigned(AContainerAccess));
- fPyDelphiWrapper := APyDelphiWrapper;
- fContainerAccess := AContainerAccess;
-end;
-
-class procedure TPyDelphiContainer.SetupType(PythonType: TPythonType);
-begin
- inherited;
- PythonType.Name := 'DefaultContainerType';
- PythonType.TypeName := 'DelphiDefaultContainer';
- PythonType.GenerateCreateFunction := False;
- PythonType.DocString.Text := 'Abstract Container type for Delphi';
- PythonType.Services.Basic := PythonType.Services.Basic + [bsRepr, bsIter];
- PythonType.Services.Sequence := PythonType.Services.Sequence + [ssLength, ssItem, ssAssItem, ssContains, ssSlice];
-end;
-
-function TPyDelphiContainer.SqAssItem(idx: NativeInt;
- obj: PPyObject): integer;
-begin
- if ContainerAccess.SupportsWrite then
- begin
- if not CheckIndex(idx, ContainerAccess.GetSize) then
- Result := -1
- else
- if ContainerAccess.SetItem(idx, obj) then
- Result := 0
- else
- Result := -1;
- end
- else
- begin
- Result := -1;
- with GetPythonEngine do
- PyErr_SetString( PyExc_SystemError^, PAnsiChar(AnsiString(Format('Container %s does not support indexed write (f[i] = x)', [fContainerAccess.Name]))) );
- end;
-end;
-
-function TPyDelphiContainer.SqContains(obj: PPyObject): integer;
-begin
- if ContainerAccess.SupportsIndexOf then
- begin
- if ContainerAccess.IndexOf(Obj) > -1 then
- Result := 1
- else
- Result := 0;
- end
- else
- begin
- Result := -1;
- with GetPythonEngine do
- PyErr_SetString( PyExc_SystemError^, PAnsiChar(AnsiString(Format('Container %s does not support the Contains protocol', [fContainerAccess.Name]))) );
- end;
-end;
-
-function TPyDelphiContainer.SqItem(idx: NativeInt): PPyObject;
-begin
- if CheckIndex(idx, SqLength) then
- Result := ContainerAccess.GetItem(idx)
- else
- Result := nil;
-end;
-
-function TPyDelphiContainer.SqLength: NativeInt;
-begin
- Result := ContainerAccess.GetSize;
-end;
-
-function TPyDelphiContainer.SqSlice(idx1, idx2: NativeInt): PPyObject;
-begin
- Result := CreateSlice(Self, idx1, idx2);
-end;
-
-{ TPyDelphiIterator }
-
-destructor TPyDelphiIterator.Destroy;
-begin
- fContainerAccess.Free;
- inherited;
-end;
-
-function TPyDelphiIterator.Iter: PPyObject;
-begin
- Result := GetSelf;
- GetPythonEngine.Py_XINCREF(Result);
-end;
-
-function TPyDelphiIterator.IterNext: PPyObject;
-begin
- if fPosition >= ContainerAccess.GetSize then with GetPythonEngine do begin
- Result := nil;
- PyErr_SetString (PyExc_StopIteration^, 'StopIteration');
- end else begin
- Result := ContainerAccess.GetItem(fPosition);
- Inc(fPosition);
- end;
-end;
-
-function TPyDelphiIterator.Repr: PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString( PAnsiChar(AnsiString(Format('',
- [ContainerAccess.Name, NativeInt(Self)]))) );
-end;
-
-procedure TPyDelphiIterator.Setup(AContainerAccess : TContainerAccess);
-begin
- Assert(Assigned(AContainerAccess));
- fContainerAccess := AContainerAccess;
- fPosition := 0;
-end;
-
-class procedure TPyDelphiIterator.SetupType(PythonType: TPythonType);
-begin
- inherited;
- PythonType.Name := 'DefaultIterType';
- PythonType.TypeName := 'DelphiDefaultIterator';
- PythonType.GenerateCreateFunction := False;
- PythonType.DocString.Text := 'Iterator for Abstract Containers';
- PythonType.Services.Basic := [bsRepr, bsStr, bsIter, bsIterNext];
-end;
-
-{ TPyInterfacedObject }
-
-function TPyInterfacedObject._AddRef: Integer;
-begin
- Result := -1;
-end;
-
-function TPyInterfacedObject._Release: Integer;
-begin
- Result := -1;
-end;
-
-function TPyInterfacedObject.QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} IID: TGUID;
- out Obj): HResult;
-begin
- if GetInterface(IID, Obj) then
- Result := 0
- else
- Result := E_NOINTERFACE;
-end;
-
-{ TPyDelphiObject }
-
-function TPyDelphiObject.CheckBound: Boolean;
-begin
- Result := Assigned(DelphiObject);
- if not Result then
- with GetPythonEngine do
- PyErr_SetString(PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Delphi wrapper %s is not bound', [ClassName]))));
-end;
-
-function TPyDelphiObject.Compare(obj: PPyObject): Integer;
-Var
- PyObject : TPyObject;
-begin
- if IsDelphiObject(obj) then begin
- PyObject := PythonToDelphi(obj);
- if PyObject is TPyDelphiObject then
- Result := Sign(NativeInt(TPyDelphiObject(PyObject).DelphiObject) - NativeInt(DelphiObject))
- else
- Result := -1; // not equal
- end else
- Result := -1; // not equal
-end;
-
-constructor TPyDelphiObject.Create(APythonType: TPythonType);
-begin
- inherited;
- if Assigned(APythonType) and (APythonType.Owner is TPyDelphiWrapper) then
- PyDelphiWrapper := TPyDelphiWrapper(APythonType.Owner);
-end;
-
-function TPyDelphiObject.CreateContainerAccess: TContainerAccess;
-var
- _ContainerAccessClass : TContainerAccessClass;
-begin
- _ContainerAccessClass := GetContainerAccessClass;
- if Assigned(_ContainerAccessClass) then
- Result := _ContainerAccessClass.Create(PyDelphiWrapper, DelphiObject)
- else
- raise Exception.CreateFmt('Wrapper class %s does not provide a container access', [ClassName]);
-end;
-
-class function TPyDelphiObject.DelphiObjectClass: TClass;
-begin
- Result := TObject;
-end;
-
-destructor TPyDelphiObject.Destroy;
-begin
- DelphiObject := nil; // will free the object if owned
- fContainerAccess.Free;
- inherited;
-end;
-
-function TPyDelphiObject.Dummy_Getter(AContext: Pointer): PPyObject;
-begin
- // Note that this code should never execute as TPyDelphiObject overrides GetAttrO
- // to intercept an access to a published property.
- // This getter was only registered to help document the wrapped object and
- // benefit from the code insight of the Python IDE.
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar('Fatal error. The Delphi wrapper did not find the published property you were trying to access'));
-end;
-
-function TPyDelphiObject.Dummy_Setter(AValue: PPyObject;
- AContext: Pointer): Integer;
-begin
- // Note that this code should never execute as TPyDelphiObject overrides GetAttrO
- // to intercept an access to a published property.
- // This getter was only registered to help document the wrapped object and
- // benefit from the code insight of the Python IDE.
- Result := -1;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar('Fatal error. The Delphi wrapper did not find the published property you were trying to access'));
-end;
-
-function TPyDelphiObject.Free_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Free' ) <> 0 then
- begin
- if Owned or fCanFreeOwnedObject then begin
- DelphiObject := nil; // this will free the object automatically
- Owned := False;
- Result := ReturnNone;
- end else begin
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar('The Delphi object cannot be freed, since it is not Owned'));
- Result := nil;
- end;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiObject.GetAttrO(key: PPyObject): PPyObject;
-(*
- First Look for "published" methods compiled with {$METHODINFO ON}
- Then look for published properties
- Finally call inherited which calls PyObject_GenericGetAttr
-*)
-var
- Name: ShortString;
-{$IFNDEF FPC}
- Info: PMethodInfoHeader;
-{$ENDIF}
- PropInfo: PPropInfo;
- Obj : TObject;
-begin
- Result := nil;
- if GetPythonEngine.PyString_Check(Key) then
- Name := ShortString(GetPythonEngine.PyString_AsDelphiString(Key))
- else
- Name := '';
-
-{$IFNDEF FPC}
- if Assigned(DelphiObject) and (Name <> '') then
- Info := GetMethodInfo(DelphiObject, Name)
- else
- Info := nil;
-
- if Info <> nil then // We have a method
- begin
- // Ensure the method information has enough type information
- if Info.Len <= SizeOf(Info^) - SizeOf(ShortString) + 1 + Length(Info.Name) then
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Unknown attribute "%s"',[Name]))))
- else
- begin
- Result := PyDelphiWrapper.DelphiMethodType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiMethodObject do begin
- MethodInfo := Info^;
- DelphiObject := self.DelphiObject;
- end;
- end;
- end
- else{$ENDIF} if Assigned(DelphiObject) and (Name <> '') then
- begin
- // Not a method, try a property.
- PropInfo := GetPropInfo(DelphiObject, string(Name));
- if PropInfo <> nil then
- begin
- // we have a property
- if PropInfo^.PropType^.Kind = tkClass then begin
- Obj := TObject(GetOrdProp(Self.DelphiObject, PropInfo));
- Result := Wrap(Obj);
- end else if PropInfo^.PropType^.Kind = tkMethod then begin
- Result := PyDelphiWrapper.fEventHandlerList.GetCallable(Self.DelphiObject, PropInfo)
- end else if PropInfo^.PropType^.Kind = tkSet then begin
- Result := SetToPython(Self.DelphiObject, PropInfo)
- end else if PropInfo^.PropType^.Kind = tkEnumeration then begin
- begin
- {$IFDEF FPC}
- if GetTypeData(PropInfo^.PropType)^.BaseType = TypeInfo(Boolean) then
- {$ELSE FPC}
- if GetTypeData(PropInfo^.PropType^)^.BaseType^ = TypeInfo(Boolean) then
- {$ENDIF FPC}
- Result := GetPythonEngine.VariantAsPyObject(Boolean(GetOrdProp(Self.DelphiObject, PropInfo)))
- else
- {$IFDEF FPC}
- Result := GetPythonEngine.PyString_FromString(PAnsiChar(AnsiString(GetEnumName(PropInfo^.PropType,
- {$ELSE FPC}
- Result := GetPythonEngine.PyString_FromString(PAnsiChar(AnsiString(GetEnumName(PropInfo^.PropType^,
- {$ENDIF FPC}
- GetOrdProp(Self.DelphiObject, PropInfo)))));
- end
- end else
- Result := GetPythonEngine.VariantAsPyObject(GetPropValue(DelphiObject, PropInfo));
- end;
- end;
-
- if not Assigned(Result) then
- Result := inherited GetAttrO(key);
-end;
-
-function TPyDelphiObject.GetContainerAccess: TContainerAccess;
-begin
- if not Assigned(fContainerAccess) then
- fContainerAccess := CreateContainerAccess;
- Result := fContainerAccess;
-end;
-
-class function TPyDelphiObject.GetContainerAccessClass : TContainerAccessClass;
-begin
- Result := nil;
-end;
-
-function TPyDelphiObject.Get_Bound(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := VariantAsPyObject(Assigned(DelphiObject));
- end;
-end;
-
-function TPyDelphiObject.Get_ClassName(Acontext: Pointer): PPyObject;
-Var
- S : String;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- if CheckBound then
- begin
- S := DelphiObject.ClassName;
- Result := PyString_FromString(PAnsiChar(AnsiString(S)));
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiObject.Get_Owned(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- if CheckBound then
- Result := VariantAsPyObject(Owned)
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiObject.Get_Published(AContext: Pointer): PPyObject;
-var
- i : Integer;
- _PropList: PPropList;
- _propCount : Integer;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- _propCount := GetPropList(DelphiObject, _PropList);
- Result := PyList_New(_propCount);
- if _propCount > 0 then
- begin
- try
- for i := 0 to _propCount-1 do
- PyList_SetItem(Result, i, PyString_FromString(PAnsiChar(AnsiString(_PropList^[i].Name))));
- finally
- FreeMem(_PropList);
- end;
- PyList_Sort(Result);
- end;
- end;
-end;
-
-class function TPyDelphiObject.GetTypeName : String;
-begin
- Result := Copy(DelphiObjectClass.ClassName, 2, MaxInt);
-end;
-
-function TPyDelphiObject.HasContainerAccessClass: Boolean;
-begin
- Result := GetContainerAccessClass <> nil;
-end;
-
-function TPyDelphiObject.InheritsFrom_Wrapper(args: PPyObject): PPyObject;
-var
- _obj : PPyObject;
- AClass: TClass;
- KlassName: string;
- IsSubClass: Boolean;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:InheritsFrom',@_obj ) <> 0 then begin
- if CheckBound then begin
- KlassName := PyObjectAsString(_obj);
- AClass := DelphiObject.ClassType;
- repeat
- IsSubClass := SameText(AClass.ClassName, KlassName);
- if IsSubClass then Break;
- AClass := AClass.ClassParent;
- until AClass = nil;
- if IsSubClass then
- Result := PPyObject(Py_True)
- else
- Result := PPyObject(Py_False);
- Py_INCREF( Result );
- end else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiObject.Iter: PPyObject;
-begin
- if HasContainerAccessClass then
- begin
- Result := PyDelphiWrapper.DefaultIterType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiIterator do
- Setup(Self.ContainerAccess.Clone);
- end
- else
- begin
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString( PyExc_SystemError^, PAnsiChar(AnsiString(Format('Wrapper %s does not support iterators', [Self.ClassName]))) );
- end;
-end;
-
-procedure TPyDelphiObject.Notify(ADeletedObject: TObject);
-begin
- if fDelphiObject = ADeletedObject then
- fDelphiObject := nil;
-end;
-
-class procedure TPyDelphiObject.RegisterGetSets(PythonType: TPythonType);
-var
- i : Integer;
- _doc : String;
- _propCount : Integer;
- _PropList: PPropList;
- _typeInfo : PTypeInfo;
-begin
- inherited;
- // first register get/set for each published property, to allow easier documenting
- // and use of code insight within a Python IDE.
- // Note that the Delphi type info contains short strings which are not directly compatible with PAnsiChar.
- // So, we have to convert them to regular strings, store them in a list, to maintain them alive, then
- // we can cast them into PChars.
- _typeInfo := DelphiObjectClass.ClassInfo;
- if _typeInfo <> nil then
- begin
- _propCount := GetPropList(_typeInfo, _PropList);
- if _propCount > 0 then
- try
- for i := 0 to _propCount-1 do
- begin
- _doc := Format('Published property %s : %s', [_PropList^[i].Name, _PropList^[i].PropType^.Name]);
- PythonType.AddGetSet(AddName(string(_PropList^[i].Name)), @TPyDelphiObject.Dummy_Getter, @TPyDelphiObject.Dummy_Setter,
- AddName(_doc), nil);
- end;
- finally
- FreeMem(_PropList);
- end;
- end;
- // then register TObject + custom getters/setters.
- with PythonType do
- begin
- AddGetSet('ClassName', @TPyDelphiObject.Get_ClassName, nil,
- 'Returns the TObject.ClassName', nil);
- AddGetSet('__bound__', @TPyDelphiObject.Get_Bound, nil,
- 'Returns True if the wrapper is still bound to the Delphi instance.', nil);
- AddGetSet('__owned__', @TPyDelphiObject.Get_Owned, nil,
- 'Returns True if the wrapper owns the Delphi instance.', nil);
- AddGetSet('__published__', @TPyDelphiObject.Get_published, nil,
- 'Returns the list of all published properties of this instance.', nil);
- end;
-end;
-
-class procedure TPyDelphiObject.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethodWithKeywords('SetProps', @TPyDelphiObject.SetProps,
- 'TObject.SetProps(prop1=val1, prop2=val2...)'#10 +
- 'Sets several properties in one call');
- PythonType.AddMethod('Free', @TPyDelphiObject.Free_Wrapper,
- 'TObject.Free()'#10 +
- 'Frees the Wrapped Delphi Object');
- PythonType.AddMethod('InheritsFrom', @TPyDelphiObject.InheritsFrom_Wrapper,
- 'TObject.InheritsFrom(ClassName)'#10 +
- 'Returns True if Delphi Object is or inherits from ClassName');
- PythonType.AddMethod('ToTuple', @TPyDelphiObject.ToTuple_Wrapper,
- 'TStrings.ToTuple()'#10 +
- 'If the object is a container (TStrings, TComponent...), it returns the content of the sequence as a Python tuple object.');
- PythonType.AddMethod('ToList', @TPyDelphiObject.ToList_Wrapper,
- 'TStrings.ToList()'#10 +
- 'If the object is a container (TStrings, TComponent...), it returns the content of the sequence as a Python list object.');
-end;
-
-function TPyDelphiObject.Repr: PPyObject;
-begin
- with GetPythonEngine do
- if Assigned(DelphiObject) then
- Result := PyString_FromString( PAnsiChar(AnsiString(Format('',
- [DelphiObject.ClassName, NativeInt(Self)]))) )
- else
- Result := PyString_FromString( PAnsiChar(AnsiString(Format('',
- [DelphiObjectClass.ClassName, NativeInt(Self)]))) );
-end;
-
-function TPyDelphiObject.RichCompare(obj: PPyObject;
- Op: TRichComparisonOpcode): PPyObject;
-Var
- Res : Boolean;
-begin
- Res := False;
- case Op of
- pyLT: Res := Compare(obj) < 0;
- pyLE: Res := Compare(obj) <= 0;
- pyEQ: Res := Compare(obj) = 0;
- pyNE: Res := Compare(obj) <> 0;
- pyGT: Res := Compare(obj) > 0;
- pyGE: Res := Compare(obj) >= 0;
- end;
- if Res then
- Result := PPyObject(GetPythonEngine.Py_True)
- else
- Result := PPyObject(GetPythonEngine.Py_False);
- GetPythonEngine.Py_INCREF( Result );
-end;
-
-function TPyDelphiObject.SetAttrO(key, value: PPyObject): Integer;
-
- function HandleEvent(PropInfo: PPropInfo) : Integer;
- begin
- if PyDelphiWrapper.EventHandlers.Link(DelphiObject, PropInfo, value) then
- Result := 0
- else
- Result := -1;
- end;
-
- function HandleClass(PropInfo: PPropInfo) : Integer;
- var
- PyObject : TPyObject;
- Obj : TObject;
- begin
- Result := -1;
- if IsDelphiObject(value) then
- begin
- PyObject := PythonToDelphi(value);
- if PyObject is TPyDelphiObject then
- begin
- Obj := TPyDelphiObject(PyObject).DelphiObject;
- {$IFDEF FPC}
- if Obj.ClassType.InheritsFrom(GetTypeData(PropInfo^.PropType).ClassType) then
- {$ELSE FPC}
- if Obj.ClassType.InheritsFrom(GetTypeData(PropInfo^.PropType^).ClassType) then
- {$ENDIF FPC}
- begin
- SetOrdProp(DelphiObject, PropInfo, NativeInt(Obj));
- Result := 0;
- end
- else
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^, 'Incompatible classes');
- end
- else
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^, 'Class property - expected a Delphi object');
- end
- else
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^, 'Class property - expected a Delphi object');
- end;
-
- function HandleSet(PropInfo: PPropInfo) : Integer;
- begin
- try
- SetPropValue(DelphiObject, PropInfo, PythonToSet(Value, PropInfo));
- Result := 0;
- except
- on E: Exception do with GetPythonEngine do
- begin
- Result := -1;
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(E.Message)));
- end;
- end;
- end;
-
- function HandleOtherTypes(PropInfo: PPropInfo) : Integer;
- Var
- V : Variant;
- begin
- try
- V := GetPythonEngine.PyObjectAsVariant(Value);
- if (PropInfo.PropType^.Kind = tkEnumeration) and (VarType(V) = varOleStr) then
- // Special case that occurs in Python3000
- V := VarAsType(V, varString); //Downcast to string
- SetPropValue(DelphiObject, PropInfo, V);
- Result := 0;
- except
- on E: Exception do with GetPythonEngine do
- begin
- Result := -1;
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(E.Message)));
- end;
- end;
- end;
-
-var
- PropInfo: PPropInfo;
- Name : string;
-begin
-
- if Assigned(DelphiObject) then
- begin
- Name := GetPythonEngine.PyString_AsDelphiString(Key);
- PropInfo := GetPropInfo(DelphiObject, Name);
- end
- else
- PropInfo := nil;
-
- if PropInfo <> nil then
- begin
- if PropInfo^.PropType^.Kind = tkMethod then
- Result := HandleEvent(PropInfo)
- else if PropInfo^.PropType^.Kind = tkClass then
- Result := HandleClass(PropInfo)
- else if PropInfo^.PropType^.Kind = tkSet then
- Result := HandleSet(PropInfo)
- else
- Result := HandleOtherTypes(PropInfo);
- end
- else
- Result := inherited SetAttrO(key, value);
-end;
-
-procedure TPyDelphiObject.SetDelphiObject(const Value: TObject);
-begin
- if fDelphiObject <> Value then
- begin
- if Assigned(Value) then
- Assert(Value.InheritsFrom(DelphiObjectClass));
- if Assigned(fDelphiObject)then
- begin
- UnSubscribeToFreeNotification;
- if Owned then
- fDelphiObject.Free;
- end;
- fDelphiObject := Value;
- if Assigned(fDelphiObject) then
- SubscribeToFreeNotification;
- end;
-end;
-
-function TPyDelphiObject.SetProps(args, keywords: PPyObject): PPyObject;
-var
- i : Integer;
- _key : PPyObject;
- _keys : PPyObject;
- _value : PPyObject;
-begin
- Result := nil;
- with GetPythonEngine do
- begin
- Adjust(@Self);
- _keys := PyDict_Keys(keywords);
- try
- for i := 0 to PySequence_Length(_keys)-1 do
- begin
- _key := PySequence_GetItem(_keys, i);
- if _key = nil then
- Exit;
- try
- _value := PyDict_GetItem(keywords, _key); // returns a borrowed reference
- if PyObject_SetAttr(GetSelf, _key, _value) = -1 then
- Exit;
- finally
- Py_DECREF(_key);
- end;
- end;
- finally
- Py_DECREF(_keys);
- end;
- Result := ReturnNone;
- end;
-end;
-
-class procedure TPyDelphiObject.SetupType(PythonType: TPythonType);
-var
- _ContainerAccessClass : TContainerAccessClass;
-begin
- inherited;
- PythonType.TypeName := AnsiString(GetTypeName);
- PythonType.Name := string(PythonType.TypeName) + 'Type';
- PythonType.TypeFlags := PythonType.TypeFlags + [tpfBaseType, tpfHaveRichCompare];
- PythonType.GenerateCreateFunction := False;
- PythonType.DocString.Text := 'Wrapper for Delphi ' + DelphiObjectClass.ClassName;
- PythonType.Services.Basic := [bsGetAttrO, bsSetAttrO, bsRepr, bsStr, bsCompare, bsRichCompare];
- _ContainerAccessClass := GetContainerAccessClass;
- if Assigned(_ContainerAccessClass) then
- begin
- PythonType.Services.Basic := PythonType.Services.Basic + [bsIter];
- PythonType.Services.Sequence := PythonType.Services.Sequence + [ssLength, ssItem, ssSlice];
- if _ContainerAccessClass.SupportsWrite then
- PythonType.Services.Sequence := PythonType.Services.Sequence + [ssAssItem];
- if _ContainerAccessClass.SupportsIndexOf then
- PythonType.Services.Sequence := PythonType.Services.Sequence + [ssContains];
- end;
-end;
-
-function TPyDelphiObject.SqAssItem(idx: NativeInt; obj: PPyObject): integer;
-begin
- if HasContainerAccessClass then
- begin
- if not CheckIndex(idx, GetContainerAccess.GetSize) then
- Result := -1
- else
- if GetContainerAccess.SetItem(idx, obj) then
- Result := 0
- else
- Result := -1;
- end
- else
- begin
- Result := -1;
- with GetPythonEngine do
- PyErr_SetString( PyExc_SystemError^, PAnsiChar(AnsiString(Format('Wrapper %s does not support indexed write (f[i] = x)', [Self.ClassName]))) );
- end;
-end;
-
-function TPyDelphiObject.SqContains(obj: PPyObject): integer;
-begin
- if HasContainerAccessClass then
- begin
- if ContainerAccess.IndexOf(obj) > -1 then
- Result := 1
- else
- Result := 0;
- end
- else
- Result := 0;
-end;
-
-function TPyDelphiObject.SqItem(idx: NativeInt): PPyObject;
-begin
- if HasContainerAccessClass then
- begin
- if not CheckIndex(idx, ContainerAccess.GetSize) then
- Result := nil
- else
- Result := ContainerAccess.GetItem(idx);
- end
- else
- begin
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString( PyExc_SystemError^, PAnsiChar(AnsiString(Format('Wrapper %s does not support sequences', [Self.ClassName]))) );
- end;
-end;
-
-function TPyDelphiObject.SqLength: NativeInt;
-begin
- if HasContainerAccessClass then
- Result := ContainerAccess.GetSize
- else
- Result := 0;
-end;
-
-function TPyDelphiObject.SqSlice(idx1, idx2: NativeInt): PPyObject;
-begin
- Result := CreateSlice(Self, idx1, idx2);
-end;
-
-procedure TPyDelphiObject.SubscribeToFreeNotification;
-var
- _FreeNotification : IFreeNotification;
-begin
- Assert(Assigned(fDelphiObject));
- if fDelphiObject.GetInterface(IFreeNotification, _FreeNotification) then
- _FreeNotification.Subscribe(Self);
-end;
-
-function TPyDelphiObject.ToList_Wrapper(args: PPyObject): PPyObject;
-var
- i : Integer;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PythonType.Services.Sequence * [ssItem, ssLength] <> [ssItem, ssLength] then
- begin
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString( PyExc_SystemError^, PAnsiChar(AnsiString(Format('Wrapper %s does not support sequences', [Self.ClassName]))) );
- end
- else if GetPythonEngine.PyArg_ParseTuple( args, ':ToList' ) <> 0 then
- with GetPythonEngine do
- begin
- Result := PyList_New(SqLength);
- for i := 0 to PyList_Size(Result)-1 do
- PyList_SetItem(Result, i, SqItem(i));
- end
- else
- Result := nil;
-end;
-
-function TPyDelphiObject.ToTuple_Wrapper(args: PPyObject): PPyObject;
-var
- i : Integer;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PythonType.Services.Sequence * [ssItem, ssLength] <> [ssItem, ssLength] then
- begin
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString( PyExc_SystemError^, PAnsiChar(AnsiString(Format('Wrapper %s does not support sequences', [Self.ClassName]))) );
- end
- else if GetPythonEngine.PyArg_ParseTuple( args, ':ToTuple' ) <> 0 then
- with GetPythonEngine do
- begin
- Result := PyTuple_New(SqLength);
- for i := 0 to PyTuple_Size(Result)-1 do
- PyTuple_SetItem(Result, i, SqItem(i));
- end
- else
- Result := nil;
-end;
-
-procedure TPyDelphiObject.UnSubscribeToFreeNotification;
-var
- _FreeNotification : IFreeNotification;
-begin
- Assert(Assigned(fDelphiObject));
- if fDelphiObject.GetInterface(IFreeNotification, _FreeNotification) then
- _FreeNotification.UnSubscribe(Self);
-end;
-
-function TPyDelphiObject.Wrap(AObject: TObject;
- AOwnership: TObjectOwnership): PPyObject;
-begin
- Result := PyDelphiWrapper.Wrap(AObject, AOwnership);
-end;
-
-{$IFNDEF FPC}
-{ TPyDelphiMethodObject }
-
-function TPyDelphiMethodObject.Call(ob1, ob2: PPyObject): PPyObject;
-Var
- V : Variant;
- ParamIndexes: array of Integer;
- Params: array of Variant;
- i, ArgCount: integer;
-begin
- // Ignore keyword arguments ob2
- // ob1 is a tuple with zero or more elements
- V := GetPythonEngine.PyObjectAsVariant(ob1);
- // V is a VarArray
-
- ArgCount := VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1;
- SetLength(ParamIndexes, 0);
- SetLength(Params, ArgCount);
-
- // Params should contain arguments in reverse order!
- for i := 0 to ArgCount - 1 do
- Params[i] := VarArrayGet(V, [ArgCount - i - 1]);
-
- with GetPythonEngine do
- try
- Result := VariantAsPyObject(ObjectInvoke(DelphiObject,
- @MethodInfo, ParamIndexes, Params));
- except
- on E: Exception do
- begin
- Result := nil;
- PyErr_SetString (PyExc_TypeError^,
- PAnsiChar(AnsiString(Format('"%s" called with invalid arguments: %s',[MethodInfo.Name, E.Message]))));
- end;
- end;
-end;
-
-function TPyDelphiMethodObject.Repr: PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString( PAnsiChar(AnsiString(Format('',
- [MethodInfo.Name, DelphiObject.ClassName, NativeInt(Self)]))) );
-end;
-
-class procedure TPyDelphiMethodObject.SetupType( PythonType : TPythonType );
-begin
- inherited;
- PythonType.Name := 'DelphiMethodType';
- PythonType.TypeName := 'DelphiMethod';
- PythonType.DocString.Text := 'Wrapper for Delphi methods';
- PythonType.Services.Basic := [bsRepr, bsStr, bsCall];
- PythonType.GenerateCreateFunction := False;
-end;
-
-{$ENDIF}
-
-{ TPyDelphiVarParameter }
-
-function TPyDelphiVarParameter.Compare(obj: PPyObject): Integer;
-var
- _value : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if Self.Value = nil then
- _value := Py_None
- else
- _value := Self.Value;
- if IsPython3000 then begin
- if PyObject_RichCompareBool(_value, obj, PY_LT) = 1 then
- Result := -1
- else if PyObject_RichCompareBool(_value, obj, PY_EQ) = 1 then
- Result := 0
- else
- Result := 1;
- PyErr_Clear;
- end else
- Result := PyObject_Compare(_value, obj);
- end;
-end;
-
-destructor TPyDelphiVarParameter.Destroy;
-begin
- Value := nil;
- inherited;
-end;
-
-function TPyDelphiVarParameter.Get_Value(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := Self.Value;
- if not Assigned(Result) then
- Result := Py_None;
- Py_XIncRef(Result);
- end;
-end;
-
-class procedure TPyDelphiVarParameter.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Value', @TPyDelphiVarParameter.Get_Value, @TPyDelphiVarParameter.Set_Value,
- 'Provides access to the Value associated with the Var parameter', nil);
- end;
-end;
-
-function TPyDelphiVarParameter.Repr: PPyObject;
-var
- _value : PPyObject;
-begin
- if not Assigned(Value) then
- _value := GetPythonEngine.ReturnNone
- else
- _value := GetPythonEngine.PyObject_Repr(Value);
- try
- Result := GetPythonEngine.PyString_FromString(PAnsiChar(AnsiString(Format('', [GetPythonEngine.PyObjectAsString(_value)]))));
- finally
- GetPythonEngine.Py_DECREF(_value);
- end;
-end;
-
-function TPyDelphiVarParameter.RichCompare(obj: PPyObject;
- Op: TRichComparisonOpcode): PPyObject;
-var
- _value : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if Self.Value = nil then
- _value := Py_None
- else
- _value := Self.Value;
- Result := PyObject_RichCompare(_value, obj, Ord(Op));
- end;
-end;
-
-class procedure TPyDelphiVarParameter.SetupType(PythonType: TPythonType);
-begin
- inherited;
- PythonType.TypeName := 'VarParameter';
- PythonType.Name := string(PythonType.TypeName) + 'Type';
- PythonType.TypeFlags := PythonType.TypeFlags + [tpfBaseType];
- PythonType.GenerateCreateFunction := False;
- PythonType.DocString.Text := 'Container object allowing modification of Delphi var parameters from Python';
- PythonType.Services.Basic := [bsGetAttrO, bsSetAttrO, bsRepr, bsStr, bsCompare];
-end;
-
-procedure TPyDelphiVarParameter.SetValue(const Value: PPyObject);
-begin
- if (fValue <> Value) and (Value <> GetSelf) then
- begin
- if Assigned(Value) and (Value.ob_type = PythonType.TheTypePtr) then // don't let embedding a var param into another one.
- Exit;
- if Assigned(fValue) and PythonOK then
- GetPythonEngine.Py_DECREF(fValue);
- fValue := Value;
- if PythonOK then
- GetPythonEngine.Py_XINCREF(fValue);
- end;
-end;
-
-function TPyDelphiVarParameter.Set_Value(AValue: PPyObject;
- Acontext: Pointer): Integer;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Self.Value := AValue;
- Result := 0;
- end;
-end;
-
-{ TEventHandler }
-
-constructor TEventHandler.Create(PyDelphiWrapper : TPyDelphiWrapper;
- Component: TObject; PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- _FreeNotification : IFreeNotification;
- _Valid : Boolean;
-begin
- _Valid := (Component is TComponent) or Component.GetInterface(IFreeNotification, _FreeNotification);
- if not _Valid then
- raise Exception.CreateFmt('Class %s must inherit from TComponent or implement IFreeNotification to work with events', [Component.ClassName]);
- Self.fComponent := Component;
- Self.PropertyInfo := PropertyInfo;
- Self.Callable := Callable;
- Self.PyDelphiWrapper := PyDelphiWrapper;
- GetPythonEngine.Py_INCREF(Self.Callable);
- if Assigned(_FreeNotification) then
- _FreeNotification.Subscribe(PyDelphiWrapper)
- else
- (Component as TComponent).FreeNotification(PyDelphiWrapper);
-end;
-
-destructor TEventHandler.Destroy;
-var
- Method : TMethod;
-begin
- Method := GetMethodProp(Component, PropertyInfo);
- if Method.Data = Self then
- begin
- Method.Code := nil;
- Method.Data := nil;
- // Set the event property to nil, only if it we hooked it
- SetMethodProp(Component, PropertyInfo, Method);
- if PythonOK then
- GetPythonEngine.Py_DECREF(Self.Callable);
- end;
- inherited;
-end;
-
-procedure TEventHandler.Unsubscribe;
-var
- _FreeNotification : IFreeNotification;
-begin
- if Component.GetInterface(IFreeNotification, _FreeNotification) then
- _FreeNotification.UnSubscribe(PyDelphiWrapper);
-end;
-
-{ TNotifyEventHandler }
-
-constructor TNotifyEventHandler.Create(PyDelphiWrapper : TPyDelphiWrapper;
- Component: TObject; PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- Method : TMethod;
-begin
- inherited;
- Method.Code := @TNotifyEventHandler.DoEvent;
- Method.Data := Self;
- SetMethodProp(Component, PropertyInfo, Method);
-end;
-
-procedure TNotifyEventHandler.DoEvent(Sender: TObject);
-begin
- RaiseNotifyEvent(PyDelphiWrapper, Callable, Sender);
-end;
-
-class function TNotifyEventHandler.GetTypeInfo: PTypeInfo;
-begin
- Result := System.TypeInfo(TNotifyEvent);
-end;
-
-{ TEventHandlers }
-
-function TEventHandlers.Add(AEventHandler: TEventHandler) : Boolean;
-begin
- fItems.Add(AEventHandler);
- Result := True;
-end;
-
-procedure TEventHandlers.Clear;
-begin
- fItems.Clear;
-end;
-
-constructor TEventHandlers.Create(APyDelphiWrapper : TPyDelphiWrapper);
-begin
- inherited Create;
- fPyDelphiWrapper := APyDelphiWrapper;
- fItems := TObjectList.Create;
- fRegisteredClasses := TClassList.Create;
-end;
-
-procedure TEventHandlers.Delete(AIndex: Integer);
-begin
- fItems.Delete(AIndex);
-end;
-
-destructor TEventHandlers.Destroy;
-begin
- fRegisteredClasses.Free;
- fItems.Free;
- inherited;
-end;
-
-function TEventHandlers.GetCallable(AComponent: TObject;
- APropInfo: PPropInfo): PPyObject;
-var
- _idx : Integer;
-begin
- _idx := IndexOf(AComponent, APropInfo);
- if _idx > -1 then
- begin
- Result := Items[_idx].Callable;
- GetPythonEngine.Py_XIncRef(Result);
- end
- else
- Result := GetPythonEngine.ReturnNone;
-end;
-
-function TEventHandlers.FindHandler(ATypeInfo: PTypeInfo): TEventHandlerClass;
-var
- i : Integer;
-begin
- Result := nil;
- for i := 0 to RegisteredClassCount-1 do
- if RegisteredClasses[i].GetTypeInfo = ATypeInfo then
- begin
- Result := RegisteredClasses[i];
- Break;
- end;
-end;
-
-function TEventHandlers.GetCallable(AComponent: TObject;
- const APropName: String): PPyObject;
-var
- _propInfo : PPropInfo;
-begin
- _propInfo := GetPropInfo(AComponent, APropName, [tkMethod]);
- if Assigned(_propInfo) then
- Result := GetCallable(AComponent, _propInfo)
- else
- Result := GetPythonEngine.ReturnNone;
-end;
-
-function TEventHandlers.GetCount: Integer;
-begin
- Result := fItems.Count;
-end;
-
-function TEventHandlers.GetItem(AIndex: Integer): TEventHandler;
-begin
- Result := TEventHandler(fItems[AIndex]);
-end;
-
-function TEventHandlers.GetRegisteredClass(
- AIndex: Integer): TEventHandlerClass;
-begin
- Result := TEventHandlerClass(fRegisteredClasses[AIndex]);
-end;
-
-function TEventHandlers.GetRegisteredClassCount: Integer;
-begin
- Result := fRegisteredClasses.Count;
-end;
-
-function TEventHandlers.IndexOf(AComponent: TObject;
- APropInfo: PPropInfo): Integer;
-var
- i : Integer;
-begin
- Result := -1;
- for i := 0 to Count - 1 do
- if (Items[i].Component = AComponent) and (Items[i].PropertyInfo = APropInfo) then
- begin
- Result := i;
- Break;
- end;
-end;
-
-function TEventHandlers.Link(AComponent: TObject; APropInfo: PPropInfo;
- ACallable: PPyObject) : Boolean;
-var
- _handlerClass : TEventHandlerClass;
-begin
- Assert(Assigned(AComponent));
- Assert(Assigned(APropInfo));
- Assert(Assigned(ACallable));
- Result := False;
- with GetPythonEngine do
- begin
- if ACallable = Py_None then
- begin
- Unlink(AComponent, APropInfo); // it will assign nil to the event
- Result := True;
- end
- else if PyCallable_Check(ACallable) <> 0 then
- begin
- if SupportsFreeNotification(AComponent) then
- begin
- {$IFDEF FPC}
- _handlerClass := FindHandler(APropInfo^.PropType);
- {$ELSE FPC}
- _handlerClass := FindHandler(APropInfo^.PropType^);
- {$ENDIF FPC}
- if Assigned(_handlerClass) then
- begin
- Unlink(AComponent, APropInfo);
- Add(_handlerClass.Create(PyDelphiWrapper, AComponent, APropInfo, ACallable));
- Result := True;
- end
- else
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar('No Registered EventHandler for events of type ' + APropInfo^.PropType^.Name));
- end
- else
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('Class %s does not support events because it must either inherit from TComponent or implement interface IFreeNotification', [AComponent.ClassName]))));
- end
- else
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString('You can only assign a callable to a method property')));
- end;
-end;
-
-procedure TEventHandlers.RegisterHandler(AEventHandlerClass: TEventHandlerClass);
-begin
- if fRegisteredClasses.IndexOf(AEventHandlerClass) < 0 then
- fRegisteredClasses.Add(AEventHandlerClass);
-end;
-
-function TEventHandlers.Unlink(AComponent: TObject;
- APropInfo: PPropInfo): Boolean;
-var
- _idx : Integer;
-begin
- _idx := IndexOf(AComponent, APropInfo);
- Result := _idx > -1;
- if Result then
- Delete(_idx);
-end;
-
-{ TRegisteredUnit }
-
-procedure TRegisteredUnit.DefineFunctions(APyDelphiWrapper: TPyDelphiWrapper);
-begin
-end;
-
-procedure TRegisteredUnit.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
-end;
-
-procedure TRegisteredUnit.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
-end;
-
-{ TRegisteredUnits }
-
-procedure TRegisteredUnits.Add(ARegisteredModule: TRegisteredUnit);
-begin
- fItems.Add(ARegisteredModule);
-end;
-
-constructor TRegisteredUnits.Create;
-begin
- inherited Create;
- fItems := TObjectList.Create;
-end;
-
-destructor TRegisteredUnits.Destroy;
-begin
- fItems.Free;
- inherited;
-end;
-
-function TRegisteredUnits.GetCount: Integer;
-begin
- Result := fItems.Count;
-end;
-
-function TRegisteredUnits.GetItem(AIndex: Integer): TRegisteredUnit;
-begin
- Result := TRegisteredUnit(fItems[AIndex]);
-end;
-
-{ TPyDelphiWrapper }
-
-constructor TPyDelphiWrapper.Create(AOwner: TComponent);
-begin
- inherited;
- fClassRegister := TObjectList.Create(True);
- fHelperClassRegister := TStringList.Create;
- fEventHandlerList := TEventHandlers.Create(Self);
-
- if not (csDesigning in ComponentState) then
- CreateWrappers;
-
- // Enable sorting to benefit from binary search
- fHelperClassRegister.Sorted := True;
-end;
-
-function TPyDelphiWrapper.CreateComponent(pself, args: PPyObject): PPyObject;
-// Exposed function at the Module level
-// CreateComponent(ClassName, Owner)
-var
- KlassName : PAnsiChar;
- _obj : PPyObject;
- OwnerComponent : TComponent;
- Klass : TClass;
- _comp : TObject;
- Component : TComponent;
- Ownership : TObjectOwnership;
-begin
- Result := nil;
- CheckEngine;
- with Engine do begin
- if PyArg_ParseTuple( args, 'sO:CreateDelphiComponent',@KlassName, @_obj ) <> 0 then begin
- try
- Klass := GetClass(string(KlassName));
- except
- Klass := nil;
- end;
- if (Klass = nil) or not Klass.InheritsFrom(TComponent) then begin
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar('Invalid class'));
- Exit;
- end;
-
- if CheckObjAttribute(_obj, 'Owner', TComponent, _comp) then
- OwnerComponent := TComponent(_comp)
- else
- Exit;
- Component := TComponentClass(Klass).Create(OwnerComponent);
- if Assigned(OwnerComponent) then
- Ownership := soReference
- else
- Ownership := soOwned;
- Result := Self.Wrap(Component, Ownership);
- end else
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar('Invalid Arguments'));
- end;
-end;
-
-procedure TPyDelphiWrapper.CreateModuleFunctions;
-var
- i : Integer;
-begin
- if Assigned(FModule) then
- begin
- RegisterFunction(PAnsiChar('CreateComponent'), CreateComponent,
- PAnsiChar('CreateComponent(ComponentClass, Owner)'#10 +
- 'Creates a component of type ComponentClass owned by Owner'));
- RegisterFunction(PAnsiChar('Abort'), Abort_Wrapper,
- PAnsiChar('Abort()'#10 +
- 'Raises a silent exception.'));
- for i := 0 to RegisteredUnits.Count-1 do
- RegisteredUnits[i].DefineFunctions(Self);
- end;
-end;
-
-procedure TPyDelphiWrapper.CreateModuleVars;
-var
- i : Integer;
-begin
- Assert(Assigned(Module) and Module.Initialized);
- for i := 0 to RegisteredUnits.Count-1 do
- RegisteredUnits[i].DefineVars(Self);
-end;
-
-procedure TPyDelphiWrapper.CreatePyFunc(AModule: TPythonModule; AMethodDef: PPyMethodDef);
-var
- d : PPyObject;
-begin
- if Assigned(FModule) and FModule.Initialized then
- with GetPythonEngine do
- begin
- d := PyModule_GetDict(FModule.Module);
- Assert(Assigned(d));
- PyDict_SetItemString( d, AMethodDef^.ml_name, PyCFunction_New(AMethodDef, nil));
- end;
-end;
-
-procedure TPyDelphiWrapper.CreateWrappers;
-var
- i : Integer;
-begin
- // Helper Types
-{$IFNDEF FPC}
- fDelphiMethodType := RegisterHelperType(TPyDelphiMethodObject);
-{$ENDIF}
- fDefaultIterType := RegisterHelperType(TPyDelphiIterator);
- fDefaultContainerType := RegisterHelperType(TPyDelphiContainer);
- fVarParamType := RegisterHelperType(TPyDelphiVarParameter);
-
- // Create and Register Wrapper for TObject
- RegisterDelphiWrapper(TPyDelphiObject);
-
- // Register Notify event Handler
- EventHandlers.RegisterHandler(TNotifyEventHandler);
-
- // Register wrappers for each Delphi unit
- for i := 0 to RegisteredUnits.Count-1 do
- RegisteredUnits[i].RegisterWrappers(Self);
-end;
-
-procedure TPyDelphiWrapper.DefineVar(const AName: String; const AValue: Variant);
-var
- _obj : PPyObject;
-begin
- CheckEngine;
- Assert(Assigned(Module));
- _obj := Engine.VariantAsPyObject(AValue);
- Module.SetVar(AnsiString(AName), _obj);
- Engine.Py_DECREF(_obj);
-end;
-
-procedure TPyDelphiWrapper.DefineVar(const AName: String; AValue: TObject);
-var
- _obj : PPyObject;
-begin
- Assert(Assigned(Module));
- _obj := Wrap(AValue);
- Module.SetVar(AnsiString(AName), _obj);
- Engine.Py_DECREF(_obj);
-end;
-
-destructor TPyDelphiWrapper.Destroy;
-begin
- UnsubscribeFreeNotifications;
- // note that those pointers MUST be set to nil, otherwise it will crash
- // when calling inherited, as we have overridden SetEngine that tries to
- // assign the new engine value to the registered types.
- FreeAndNil(fClassRegister);
- FreeAndNil(fHelperClassRegister);
- FreeAndNil(fEventHandlerList);
-
- //No need to free PythonType objects since they are owned;
- inherited;
-end;
-
-procedure TPyDelphiWrapper.Finalize;
-begin
- inherited;
- UnsubscribeFreeNotifications;
- if Assigned(fEventHandlerList) then
- fEventHandlerList.Clear;
-end;
-
-function TPyDelphiWrapper.GetHelperType(TypeName: string): TPythonType;
-var
- Index : integer;
-begin
- Index := fHelperClassRegister.IndexOf(TypeName);
- if Index >= 0 then
- Result := fHelperClassRegister.Objects[Index] as TPythonType
- else
- Result := nil;
-end;
-
-procedure TPyDelphiWrapper.Initialize;
-var
- i : integer;
-begin
- if Initialized then
- Exit;
- inherited;
- // Initialize Wrapper Types
- for i := 0 to fClassRegister.Count - 1 do
- with TRegisteredClass(fClassRegister[i]).PythonType do
- if not Initialized then Initialize;
- // Initialize Helper Types
- for i := 0 to fHelperClassRegister.Count - 1 do
- with TPythonType(fHelperClassRegister.Objects[i]) do
- if not Initialized then Initialize;
- // Initialize module
- if Assigned(FModule) then begin
- if Module.Initialized then
- begin
- CreateModuleFunctions;
- CreateModuleVars;
- end
- else
- Module.AddClient( Self );
- end;
-end;
-
-procedure TPyDelphiWrapper.ModuleReady(Sender : TObject);
-begin
- inherited;
- CreateModuleFunctions;
- CreateModuleVars;
-end;
-
-procedure TPyDelphiWrapper.Notification(AComponent: TComponent;
- Operation: TOperation);
-begin
- inherited;
- if Operation = opRemove then begin
- if AComponent = FModule then
- FModule := nil
- else
- Notify(AComponent);
- end;
-end;
-
-procedure TPyDelphiWrapper.Notify(ADeletedObject: TObject);
-Var
- i : integer;
-begin
- //Free EventHandlers of Component
- if Assigned(fEventHandlerList) then
- for i := fEventHandlerList.Count - 1 downto 0 do
- if fEventHandlerList[i].Component = ADeletedObject then
- fEventHandlerList.Delete(i);
-end;
-
-procedure TPyDelphiWrapper.RegisterDelphiWrapper(
- AWrapperClass: TPyDelphiObjectClass);
-Var
- RegisteredClass : TRegisteredClass;
-begin
- Assert(Assigned(AWrapperClass));
-
- RegisteredClass := TRegisteredClass.Create;
- RegisteredClass.DelphiClass := AWrapperClass.DelphiObjectClass;
- RegisteredClass.PythonType := TPythonType.Create(Self);
- RegisteredClass.PythonType.Engine := Engine;
- RegisteredClass.PythonType.Module := fModule;
- RegisteredClass.PythonType.PyObjectClass := AWrapperClass;
- fClassRegister.Add(RegisteredClass);
- if AWrapperClass.DelphiObjectClass.InheritsFrom(TPersistent) then
- Classes.RegisterClass(TPersistentClass(AWrapperClass.DelphiObjectClass));
-end;
-
-function TPyDelphiWrapper.RegisterFunction(AFuncName: PAnsiChar;
- AFunc: PyCFunction; ADocString: PAnsiChar): PPyMethodDef;
-begin
- Assert(Assigned(Module));
- Result := FModule.AddMethod(AFuncName, AFunc, ADocString);
- CreatePyFunc(FModule, Result);
-end;
-
-function TPyDelphiWrapper.RegisterFunction(AFuncName : PAnsiChar; AFunc : TDelphiMethod; ADocString : PAnsiChar ) : PPyMethodDef;
-begin
- Assert(Assigned(Module));
- Result := FModule.AddDelphiMethod(AFuncName, AFunc, ADocString);
- CreatePyFunc(FModule, Result);
-end;
-
-function TPyDelphiWrapper.RegisterHelperType(APyObjectClass : TPyObjectClass) : TPythonType;
-begin
- Result := TPythonType.Create(Self);
- Result.Engine := Engine;
- Result.Module := fModule;
- Result.PyObjectClass := APyObjectClass;
- fHelperClassRegister.AddObject(Result.Name, Result);
-end;
-
-procedure TPyDelphiWrapper.SetEngine(Value : TPythonEngine);
-Var
- i : integer;
-begin
- if Value <> Engine then begin
- inherited;
- // Delphi Types
- if Assigned(fClassRegister) then
- for i := 0 to fClassRegister.Count - 1 do
- TRegisteredClass(fClassRegister[i]).PythonType.Engine := Value;
- // Helper Types
- if Assigned(fHelperClassRegister) then
- for i := 0 to fHelperClassRegister.Count - 1 do
- TPythonType(fHelperClassRegister.Objects[i]).Engine := Value;
- end;
-end;
-
-procedure TPyDelphiWrapper.SetModule(const Value: TPythonModule);
-Var
- i : integer;
-begin
- if Value <> FModule then begin
- if Assigned(FModule) then
- FModule.RemoveFreeNotification(Self);
- FModule := Value;
- if Assigned(FModule) then
- FModule.FreeNotification(Self);
- if Assigned(fClassRegister) then
- for i := 0 to fClassRegister.Count - 1 do
- TRegisteredClass(fClassRegister[i]).PythonType.Module := Value;
- if Assigned(fHelperClassRegister) then
- for i := 0 to fHelperClassRegister.Count - 1 do
- TPythonType(fHelperClassRegister.Objects[i]).Module := Value;
- if Assigned(FModule) then
- if Initialized and (ComponentState * [csDesigning, csLoading] = []) then
- if FModule.Initialized then
- begin
- CreateModuleFunctions;
- CreateModuleVars;
- end
- else
- FModule.AddClient(Self);
- end;
-end;
-
-procedure TPyDelphiWrapper.UnsubscribeFreeNotifications;
-Var
- i : integer;
-begin
- if Assigned(fEventHandlerList) then
- for i := fEventHandlerList.Count - 1 downto 0 do
- fEventHandlerList[i].Unsubscribe;
-end;
-
-
-function TPyDelphiWrapper.Wrap(AObj: TObject;
- AOwnership: TObjectOwnership): PPyObject;
-Var
- i : integer;
- DelphiClass : TClass;
- Index : integer;
-begin
- CheckEngine;
- // We cast the python object to the right delphi type
- if not Assigned(AObj) then
- Result := Engine.ReturnNone
- else begin
- // find nearest registered ancestor
- Index := -1;
- DelphiClass := AObj.ClassType;
- while Assigned(DelphiClass) do begin
- for i := 0 to fClassRegister.Count - 1 do
- if TRegisteredClass(fClassRegister[i]).DelphiClass = DelphiClass then begin
- Index := i;
- break;
- end;
- if Index >= 0 then break;
- DelphiClass := DelphiClass.ClassParent;
- end;
- Assert(Index >= 0, 'Internal Error in PyDelphiWrapper.TObjectToPyObject'); // shouldn't happen
-
- Result := TRegisteredClass(fClassRegister[Index]).PythonType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiObject do begin
- DelphiObject := AObj;
- PyDelphiWrapper := Self;
- Owned := AOwnership = soOwned;
- end;
- end;
-end;
-
-initialization
- gNames := TStringList.Create;
-finalization
- FreeAndNil(gNames);
- FreeAndNil(gRegisteredUnits);
-end.
-
diff --git a/Components/Sources/Core/WrapDelphiActnList.pas b/Components/Sources/Core/WrapDelphiActnList.pas
deleted file mode 100644
index c1408f5..0000000
--- a/Components/Sources/Core/WrapDelphiActnList.pas
+++ /dev/null
@@ -1,195 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiActnList;
-
-interface
-
-uses
- Classes, PythonEngine, WrapDelphi, WrapDelphiClasses, ActnList;
-
-type
- {
- Access to the Action items of the TCustomActionList collection.
- }
- TActionListAccess = class(TContainerAccess)
- private
- function GetContainer: TCustomActionList;
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- function IndexOf(AValue : PPyObject) : Integer; override;
-
- class function ExpectedContainerClass : TClass; override;
- class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
-
- property Container : TCustomActionList read GetContainer;
- end;
-
- {
- PyObject wrapping TCustomActionList
- Exposes properties ActionCount and Actions
- }
- TPyDelphiCustomActionList = class (TPyDelphiComponent)
- private
- function GetDelphiObject: TCustomActionList;
- procedure SetDelphiObject(const Value: TCustomActionList);
- protected
- // property getters
- function Get_ActionCount(AContext : Pointer) : PPyObject; cdecl;
- function Get_Actions(AContext : Pointer) : PPyObject; cdecl;
- public
- // Class methods
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class function GetContainerAccessClass : TContainerAccessClass; override;
- // Properties
- property DelphiObject: TCustomActionList read GetDelphiObject write SetDelphiObject;
- end;
-
-
-implementation
-
-{ Register the wrappers, the globals and the constants }
-type
- TActnListRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TActnListRegistration }
-
-procedure TActnListRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
-end;
-
-function TActnListRegistration.Name: String;
-begin
- Result := 'ActnList';
-end;
-
-procedure TActnListRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomActionList);
-end;
-
-{ TPyDelphiCustomActionList }
-
-class function TPyDelphiCustomActionList.DelphiObjectClass: TClass;
-begin
- Result := TCustomActionList;
-end;
-
-class function TPyDelphiCustomActionList.GetContainerAccessClass: TContainerAccessClass;
-begin
- Result := TActionListAccess;
-end;
-
-function TPyDelphiCustomActionList.GetDelphiObject: TCustomActionList;
-begin
- Result := TCustomActionList(inherited DelphiObject);
-end;
-
-function TPyDelphiCustomActionList.Get_ActionCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.ActionCount);
- end;
-end;
-
-function TPyDelphiCustomActionList.Get_Actions(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TActionListAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-class procedure TPyDelphiCustomActionList.RegisterGetSets(
- PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('ActionCount', @TPyDelphiCustomActionList.Get_ActionCount, nil,
- 'Indicates the number of actions in the action list.', nil);
- AddGetSet('Actions', @TPyDelphiCustomActionList.Get_Actions, nil,
- 'Lists the actions maintained by the action list.', nil);
- end;
-end;
-
-procedure TPyDelphiCustomActionList.SetDelphiObject(
- const Value: TCustomActionList);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TActionListAccess }
-
-class function TActionListAccess.ExpectedContainerClass: TClass;
-begin
- Result := TCustomActionList;
-end;
-
-function TActionListAccess.GetContainer: TCustomActionList;
-begin
- Result := TCustomActionList(inherited Container);
-end;
-
-function TActionListAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap(Container.Actions[AIndex]);
-end;
-
-function TActionListAccess.GetSize: Integer;
-begin
- Result := Container.ActionCount;
-end;
-
-function TActionListAccess.IndexOf(AValue: PPyObject): Integer;
-var
- i : Integer;
- _obj : TPyObject;
- _item : TBasicAction;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if IsDelphiObject(AValue) then
- begin
- _obj := PythonToDelphi(AValue);
- if (_obj is TPyDelphiObject) and (TPyDelphiObject(_obj).DelphiObject is TBasicAction) then
- begin
- _item := TBasicAction(TPyDelphiObject(_obj).DelphiObject);
- for i := 0 to Container.ActionCount-1 do
- if Container.Actions[i] = _item then
- begin
- Result := i;
- Break;
- end;
- end;
- end;
- end;
-end;
-
-class function TActionListAccess.Name: String;
-begin
- Result := 'TCustomActionList.Actions';
-end;
-
-class function TActionListAccess.SupportsIndexOf: Boolean;
-begin
- Result := True;
-end;
-
-
-initialization
- RegisteredUnits.Add( TActnListRegistration.Create );
-end.
diff --git a/Components/Sources/Core/WrapDelphiButtons.pas b/Components/Sources/Core/WrapDelphiButtons.pas
deleted file mode 100644
index 45a6db8..0000000
--- a/Components/Sources/Core/WrapDelphiButtons.pas
+++ /dev/null
@@ -1,110 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiButtons;
-
-interface
-
-uses
- Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses,
- WrapDelphiControls, Buttons;
-
-type
- TPyDelphiSpeedButton = class (TPyDelphiControl)
- private
- function GetDelphiObject: TSpeedButton;
- procedure SetDelphiObject(const Value: TSpeedButton);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TSpeedButton read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiBitBtn = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TBitBtn;
- procedure SetDelphiObject(const Value: TBitBtn);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TBitBtn read GetDelphiObject write SetDelphiObject;
- end;
-
-implementation
-
-{ Register the wrappers, the globals and the constants }
-type
- TButtonsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TButtonsRegistration }
-
-procedure TButtonsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.DefineVar('bkCustom', bkCustom);
- APyDelphiWrapper.DefineVar('bkOK', bkOK);
- APyDelphiWrapper.DefineVar('bkCancel', bkCancel);
- APyDelphiWrapper.DefineVar('bkHelp', bkHelp);
- APyDelphiWrapper.DefineVar('bkYes', bkYes);
- APyDelphiWrapper.DefineVar('bkNo', bkNo);
- APyDelphiWrapper.DefineVar('bkClose', bkClose);
- APyDelphiWrapper.DefineVar('bkAbort', bkAbort);
- APyDelphiWrapper.DefineVar('bkRetry', bkRetry);
- APyDelphiWrapper.DefineVar('bkIgnore', bkIgnore);
- APyDelphiWrapper.DefineVar('bkAll', bkAll);
-end;
-
-function TButtonsRegistration.Name: String;
-begin
- Result := 'Buttons';
-end;
-
-procedure TButtonsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiSpeedButton);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiBitBtn);
-end;
-
-{ TPyDelphiSpeedButton }
-
-class function TPyDelphiSpeedButton.DelphiObjectClass: TClass;
-begin
- Result := TSpeedButton;
-end;
-
-function TPyDelphiSpeedButton.GetDelphiObject: TSpeedButton;
-begin
- Result := TSpeedButton(inherited DelphiObject);
-end;
-
-procedure TPyDelphiSpeedButton.SetDelphiObject(const Value: TSpeedButton);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiBitBtn }
-
-class function TPyDelphiBitBtn.DelphiObjectClass: TClass;
-begin
- Result := TBitBtn;
-end;
-
-function TPyDelphiBitBtn.GetDelphiObject: TBitBtn;
-begin
- Result := TBitBtn(inherited DelphiObject);
-end;
-
-procedure TPyDelphiBitBtn.SetDelphiObject(const Value: TBitBtn);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-initialization
- RegisteredUnits.Add( TButtonsRegistration.Create );
-end.
diff --git a/Components/Sources/Core/WrapDelphiClasses.pas b/Components/Sources/Core/WrapDelphiClasses.pas
deleted file mode 100644
index f4f2e0a..0000000
--- a/Components/Sources/Core/WrapDelphiClasses.pas
+++ /dev/null
@@ -1,1597 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiClasses;
-
-interface
-
-uses
- Classes, SysUtils, PythonEngine, WrapDelphi;
-
-type
- {
- PyObject wrapping TPersistent
- Exposes Assign Method
- }
- TPyDelphiPersistent = class (TPyDelphiObject)
- private
- function GetDelphiObject: TPersistent;
- procedure SetDelphiObject(const Value: TPersistent);
- protected
- // Exposed Methods
- function Assign_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function GetNamePath_Wrapper(args : PPyObject) : PPyObject; cdecl;
- // Virtual Methods
- function Assign(ASource : PPyObject) : PPyObject; virtual;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TPersistent read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- Access to the TCollectionItem items of a TCollection.
- }
- TCollectionAccess = class(TContainerAccess)
- private
- function GetContainer: TCollection;
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- function IndexOf(AValue : PPyObject) : Integer; override;
-
- class function ExpectedContainerClass : TClass; override;
- class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
-
- property Container : TCollection read GetContainer;
- end;
-
- {
- PyObject wrapping TCollection
- }
- TPyDelphiCollection = class (TPyDelphiPersistent)
- private
- function GetDelphiObject: TCollection;
- procedure SetDelphiObject(const Value: TCollection);
- protected
- // Exposed Methods
- function Insert_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Add_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Clear_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Delete_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function BeginUpdate_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function EndUpdate_Wrapper(args : PPyObject) : PPyObject; cdecl;
- // Property Getters
- function Get_Count( AContext : Pointer) : PPyObject; cdecl;
- function Get_Items( AContext : Pointer) : PPyObject; cdecl;
- function Get_Owner( AContext : Pointer) : PPyObject; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class function GetContainerAccessClass : TContainerAccessClass; override;
- // Properties
- property DelphiObject: TCollection read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- Access to the items owned by a component.
- }
- TComponentsAccess = class(TContainerAccess)
- private
- function GetContainer: TComponent;
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- function IndexOf(AValue : PPyObject) : Integer; override;
-
- class function ExpectedContainerClass : TClass; override;
- class function SupportsIndexOf : Boolean; override;
-
- property Container : TComponent read GetContainer;
- end;
-
- {
- PyObject wrapping TComponent
- Exposes read-only properties ComponentCount and Owner as well as
- sub-components as pseudo-properties
- }
- TPyDelphiComponent = class (TPyDelphiPersistent)
- private
- fFreeNotificationComp : TComponent;
- function GetDelphiObject: TComponent;
- procedure SetDelphiObject(const Value: TComponent);
- procedure HandleFreeNotificationEvent(Sender: TObject; AComponent: TComponent);
- protected
- function CreateComponent(AOwner : TComponent) : TComponent; virtual;
- procedure SubscribeToFreeNotification; override;
- procedure UnSubscribeToFreeNotification; override;
- // Exposed Methods
- function GetParentComponent_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function HasParent_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function BindMethodsToEvents(args : PPyObject) : PPyObject; cdecl;
- // Property Getters
- function Get_ComponentCount( AContext : Pointer) : PPyObject; cdecl;
- function Get_Owner( AContext : Pointer) : PPyObject; cdecl;
- function Get_Components( AContext : Pointer) : PPyObject; cdecl;
- public
- constructor CreateWith( APythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- function GetAttrO( key: PPyObject) : PPyObject; override;
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- class procedure SetupType( PythonType : TPythonType ); override;
- class function GetContainerAccessClass : TContainerAccessClass; override;
- // Mapping services
- function MpLength : NativeInt; override;
- function MpSubscript( obj : PPyObject) : PPyObject; override;
- // Properties
- property DelphiObject: TComponent read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- Access to the string items of the TStrings collection.
- }
- TStringsAccess = class(TContainerAccess)
- private
- function GetContainer: TStrings;
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- function IndexOf(AValue : PPyObject) : Integer; override;
- function SetItem(AIndex : Integer; AValue : PPyObject) : Boolean; override;
-
- class function ExpectedContainerClass : TClass; override;
- class function SupportsIndexOf : Boolean; override;
- class function SupportsWrite : Boolean; override;
-
- property Container : TStrings read GetContainer;
- end;
-
- {
- Access to the TObject items of the TStrings.Objects collection.
- }
- TStringsObjectsAccess = class(TStringsAccess)
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function IndexOf(AValue : PPyObject) : Integer; override;
- function SetItem(AIndex : Integer; AValue : PPyObject) : Boolean; override;
- class function Name : String; override;
- end;
-
- {
- PyObject wrapping TStrings
- Note that you can assign a Python sequence to a TStrings (X.Assign([1, 2, 3]))
- Note that X[1] will return a string, where as X['key'] will return the object associated
- with the string 'key'.
- Provides a mapping interface to a Delphi strings object
- Exposes Methods Add, AddObject, Delete, IndexOf and Clear
- }
- TPyDelphiStrings = class (TPyDelphiPersistent)
- private
- function GetDelphiObject: TStrings;
- procedure SetDelphiObject(const Value: TStrings);
- protected
- // Exposed Methods
- function Add_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function AddObject_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Clear_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Delete_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function IndexOf_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function BeginUpdate_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function EndUpdate_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function LoadFromFile_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SaveToFile_Wrapper(args : PPyObject) : PPyObject; cdecl;
- // Property Getters
- function Get_Capacity( AContext : Pointer) : PPyObject; cdecl;
- function Get_Text( AContext : Pointer) : PPyObject; cdecl;
- function Get_Objects( AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_Capacity( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- function Set_Text( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- // Virtual Methods
- function Assign(ASource : PPyObject) : PPyObject; override;
- public
- function Repr : PPyObject; override;
- // Mapping services
- function MpLength : NativeInt; override;
- function MpSubscript( obj : PPyObject) : PPyObject; override;
- // Class methods
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- class procedure SetupType( PythonType : TPythonType ); override;
- class function GetContainerAccessClass : TContainerAccessClass; override;
- // Properties
- property DelphiObject: TStrings read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- PyObject wrapping TBasicAction
- Exposes methods Execute, Update
- Exposes property ActionComponent
- }
- TPyDelphiBasicAction = class (TPyDelphiComponent)
- private
- function GetDelphiObject: TBasicAction;
- procedure SetDelphiObject(const Value: TBasicAction);
- protected
- // Exposed Methods
- function Execute_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Update_Wrapper(args : PPyObject) : PPyObject; cdecl;
- // Property Getters
- function Get_ActionComponent( AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_ActionComponent( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- public
- // Class methods
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TBasicAction read GetDelphiObject write SetDelphiObject;
- end;
-
- { Helper functions }
-
- function ShiftToPython(AShift : TShiftState) : PPyObject;
-
-implementation
-
-uses
- TypInfo;
-
-{ Register the wrappers, the globals and the constants }
-type
- TClassesRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TClassesRegistration }
-
-procedure TClassesRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.DefineVar('ssShift', 'ssShift');
- APyDelphiWrapper.DefineVar('ssAlt', 'ssAlt');
- APyDelphiWrapper.DefineVar('ssCtrl', 'ssCtrl');
- APyDelphiWrapper.DefineVar('ssLeft', 'ssLeft');
- APyDelphiWrapper.DefineVar('ssRight', 'ssRight');
- APyDelphiWrapper.DefineVar('ssMiddle', 'ssMiddle');
- APyDelphiWrapper.DefineVar('ssDouble', 'ssDouble');
-end;
-
-function TClassesRegistration.Name: String;
-begin
- Result := 'Classes';
-end;
-
-procedure TClassesRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPersistent);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCollection);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiComponent);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStrings);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiBasicAction);
-end;
-
-{ Helper functions }
-
-function ShiftToPython(AShift : TShiftState) : PPyObject;
-
- procedure Append(AList : PPyObject; const AString : String);
- var
- _item : PPyObject;
- begin
- with GetPythonEngine do
- begin
- _item := PyString_FromString(PAnsiChar(AnsiString(AString)));
- PyList_Append(AList, _item);
- Py_XDecRef(_item);
- end;
- end;
-
-begin
- with GetPythonEngine do
- begin
- Result := PyList_New(0);
- if ssShift in AShift then
- Append(Result, 'ssShift');
- if ssAlt in AShift then
- Append(Result, 'ssAlt');
- if ssCtrl in AShift then
- Append(Result, 'ssCtrl');
- if ssLeft in AShift then
- Append(Result, 'ssLeft');
- if ssRight in AShift then
- Append(Result, 'ssRight');
- if ssMiddle in AShift then
- Append(Result, 'ssMiddle');
- if ssDouble in AShift then
- Append(Result, 'ssDouble');
- end;
-end;
-
-{ TPyDelphiPersistent }
-
-function TPyDelphiPersistent.Assign(ASource: PPyObject): PPyObject;
-var
- _object : TObject;
-begin
- if CheckObjAttribute(ASource, 'First parameter', TPersistent, _object) then
- begin
- DelphiObject.Assign(TPersistent(_object));
- Result := GetPythonEngine.ReturnNone;
- end
- else
- Result := nil;
-end;
-
-function TPyDelphiPersistent.Assign_Wrapper(args: PPyObject): PPyObject;
-var
- _obj : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:Assign',@_obj ) <> 0 then
- Result := Self.Assign(_obj)
- else
- Result := nil;
- end;
-end;
-
-class function TPyDelphiPersistent.DelphiObjectClass: TClass;
-begin
- Result := TPersistent;
-end;
-
-function TPyDelphiPersistent.GetDelphiObject: TPersistent;
-begin
- Result := TPersistent(inherited DelphiObject);
-end;
-
-function TPyDelphiPersistent.GetNamePath_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':GetNamePath' ) <> 0 then begin
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.GetNamePath)))
- end else
- Result := nil;
- end;
-end;
-
-class procedure TPyDelphiPersistent.RegisterMethods(
- PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('Assign', @TPyDelphiPersistent.Assign_Wrapper,
- 'TPersistent.Assign(persistent)'#10 +
- 'Assigns to this object the values of another TPersistent object');
- PythonType.AddMethod('GetNamePath', @TPyDelphiPersistent.GetNamePath_Wrapper,
- 'TPersistent.GetNamePath()'#10 +
- 'Returns the name of the object as it appears in the Object Inspector.');
-end;
-
-procedure TPyDelphiPersistent.SetDelphiObject(const Value: TPersistent);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TCollectionAccess }
-
-class function TCollectionAccess.ExpectedContainerClass: TClass;
-begin
- Result := TCollection;
-end;
-
-function TCollectionAccess.GetContainer: TCollection;
-begin
- Result := TCollection(inherited Container);
-end;
-
-function TCollectionAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap( Container.Items[AIndex] );
-end;
-
-function TCollectionAccess.GetSize: Integer;
-begin
- Result := Container.Count;
-end;
-
-function TCollectionAccess.IndexOf(AValue: PPyObject): Integer;
-var
- i : Integer;
- _obj : TPyObject;
- _item : TCollectionItem;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if PyInt_Check(AValue) then
- begin
- _item := Container.FindItemID(PyInt_AsLong(AValue));
- if Assigned(_item) then
- Result := _item.Index;
- end
- else if IsDelphiObject(AValue) then
- begin
- _obj := PythonToDelphi(AValue);
- if (_obj is TPyDelphiObject) and (TPyDelphiObject(_obj).DelphiObject is TCollectionItem) then
- begin
- _item := TCollectionItem(TPyDelphiObject(_obj).DelphiObject);
- for i := 0 to Container.Count-1 do
- if Container.Items[i] = _item then
- begin
- Result := i;
- Break;
- end;
- end;
- end;
- end;
-end;
-
-class function TCollectionAccess.Name: String;
-begin
- Result := 'TCollection.Items';
-end;
-
-class function TCollectionAccess.SupportsIndexOf: Boolean;
-begin
- Result := True;
-end;
-
-{ TPyDelphiCollection }
-
-function TPyDelphiCollection.Add_Wrapper(args: PPyObject): PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, ':Add' ) <> 0 then
- Result := Wrap(DelphiObject.Add)
- else
- Result := nil;
-end;
-
-function TPyDelphiCollection.BeginUpdate_Wrapper(
- args: PPyObject): PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, ':BeginUpdate' ) <> 0 then begin
- DelphiObject.BeginUpdate;
- Result := GetPythonEngine.ReturnNone;
- end else
- Result := nil;
-end;
-
-function TPyDelphiCollection.Clear_Wrapper(args: PPyObject): PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, ':Clear') <> 0 then begin
- (DelphiObject as TCollection).Clear;
- Result := GetPythonEngine.ReturnNone;
- end else
- Result := nil;
-end;
-
-function TPyDelphiCollection.Delete_Wrapper(args: PPyObject): PPyObject;
-Var
- Index : integer;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, 'i:Delete',@Index ) <> 0 then
- begin
- if not CheckIndex(Index, DelphiObject.Count) then
- Result := nil
- else
- begin
- DelphiObject.Delete(Index);
- Result := GetPythonEngine.ReturnNone;
- end;
- end
- else
- Result := nil;
-end;
-
-class function TPyDelphiCollection.DelphiObjectClass: TClass;
-begin
- Result := TCollection;
-end;
-
-function TPyDelphiCollection.EndUpdate_Wrapper(args: PPyObject): PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, ':EndUpdate') <> 0 then begin
- DelphiObject.EndUpdate;
- Result := GetPythonEngine.ReturnNone;
- end else
- Result := nil;
-end;
-
-class function TPyDelphiCollection.GetContainerAccessClass: TContainerAccessClass;
-begin
- Result := TCollectionAccess;
-end;
-
-function TPyDelphiCollection.GetDelphiObject: TCollection;
-begin
- Result := TCollection(inherited DelphiObject);
-end;
-
-function TPyDelphiCollection.Get_Count(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Count);
- end;
-end;
-
-function TPyDelphiCollection.Get_Items(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Self.PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, Self.ContainerAccess.Clone);
- end;
-end;
-
-function TPyDelphiCollection.Get_Owner(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Owner);
- end;
-end;
-
-function TPyDelphiCollection.Insert_Wrapper(args: PPyObject): PPyObject;
-Var
- Index : integer;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, 'i:Insert',@Index ) <> 0 then
- Result := Wrap(DelphiObject.Insert(Index))
- else
- Result := nil;
-end;
-
-class procedure TPyDelphiCollection.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Count', @TPyDelphiCollection.Get_Count, nil,
- 'Returns the count of collection items', nil);
- AddGetSet('Items', @TPyDelphiCollection.Get_Items, nil,
- 'Returns an iterator over the collection items', nil);
- AddGetSet('Owner', @TPyDelphiCollection.Get_Owner, nil,
- 'Returns the Owner of the collection', nil);
- end;
-end;
-
-class procedure TPyDelphiCollection.RegisterMethods(
- PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('Insert', @TPyDelphiCollection.Insert_Wrapper,
- 'TCollection.Insert(Index)'#10 +
- 'Inserts a new collection item to the collection at the Index position');
- PythonType.AddMethod('Add', @TPyDelphiCollection.Add_Wrapper,
- 'TCollection.Add()'#10 +
- 'Adds a collection item to the collection');
- PythonType.AddMethod('Clear', @TPyDelphiCollection.Clear_Wrapper,
- 'TCollection.Clear()'#10 +
- 'Clears all collection items');
- PythonType.AddMethod('Delete', @TPyDelphiCollection.Delete_Wrapper,
- 'TCollection.Delete(Index)'#10 +
- 'Deletes a single item from the collection.');
- PythonType.AddMethod('BeginUpdate', @TPyDelphiCollection.BeginUpdate_Wrapper,
- 'TCollection.BeginUpdate()'#10 +
- 'Suspends screen repainting.');
- PythonType.AddMethod('EndUpdate', @TPyDelphiCollection.EndUpdate_Wrapper,
- 'TCollection.EndUpdate()'#10 +
- 'Re-enables screen repainting.');
-end;
-
-procedure TPyDelphiCollection.SetDelphiObject(const Value: TCollection);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TComponentsAccess }
-
-class function TComponentsAccess.ExpectedContainerClass: TClass;
-begin
- Result := TComponent;
-end;
-
-function TComponentsAccess.GetContainer: TComponent;
-begin
- Result := TComponent(inherited Container);
-end;
-
-function TComponentsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap( Container.Components[AIndex] );
-end;
-
-function TComponentsAccess.GetSize: Integer;
-begin
- Result := Container.ComponentCount;
-end;
-
-function TComponentsAccess.IndexOf(AValue: PPyObject): Integer;
-Var
- i : Integer;
- S : string;
- _obj : TPyObject;
- _value : TObject;
- _comp : TComponent;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if PyString_Check(AValue) then
- begin
- S := PyString_AsDelphiString(AValue);
- for i := 0 to Container.ComponentCount-1 do
- if SameText( Container.Components[i].Name, S) then
- begin
- Result := i;
- Break;
- end;
- end
- else if IsDelphiObject(AValue) then
- begin
- _obj := PythonToDelphi(AValue);
- if _obj is TPyDelphiObject then
- begin
- _value := TPyDelphiObject(_obj).DelphiObject;
- if _value is TComponent then
- begin
- _comp := TComponent(_value);
- for i := 0 to Container.ComponentCount-1 do
- if Container.Components[i] = _comp then
- begin
- Result := i;
- Break;
- end;
- end;
- end;
- end;
- end;
-end;
-
-class function TComponentsAccess.SupportsIndexOf: Boolean;
-begin
- Result := True;
-end;
-
-{ TPyDelphiObjectNexus }
-{ used by TPyDelphiObject to get free notification }
-
-type
- TPyDelphiObjectNexusEvent = procedure(Sender: TObject; AComponent: TComponent) of object;
- TPyDelphiObjectNexus = class(TComponent)
- private
- FOnFreeNotify: TPyDelphiObjectNexusEvent;
- protected
- procedure Notification(AComponent: TComponent; Operation: TOperation); override;
- public
- property OnFreeNotify: TPyDelphiObjectNexusEvent read FOnFreeNotify write FOnFreeNotify;
- end;
-
-{ TPyDelphiObjectNexus }
-
-procedure TPyDelphiObjectNexus.Notification(AComponent: TComponent; Operation: TOperation);
-begin
- if (Operation = opRemove) and Assigned(FOnFreeNotify) then
- FOnFreeNotify(Self, AComponent);
- inherited Notification(AComponent, Operation);
-end;
-
-{ TPyDelphiComponent }
-
-function TPyDelphiComponent.BindMethodsToEvents(args: PPyObject): PPyObject;
-var
- i : Integer;
- j : Integer;
- d : PPyObject;
- s : PPyObject;
- obj : PPyObject;
- objMethod : PPyObject;
- objComp : PPyObject;
- key : PPyObject;
- keys : PPyObject;
- _idx : Integer;
- _name : String;
- _prefix : String;
- _compName : String;
- _eventName : String;
- _comp : TComponent;
- _pair : PPyObject;
- _bindings : PPyObject;
- _type : PPyTypeObject;
-begin
- _prefix := 'handle_';
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- Result := nil;
- s := nil;
- if PyArg_ParseTuple( args, '|O:BindMethodsToEvents',@s ) <> 0 then
- begin
- if Assigned(S) then
- _prefix := PyString_AsDelphiString(s);
- _bindings := PyList_New(0);
- try
- _type := GetSelf.ob_type;
- while _type <> nil do
- begin
- d := _type.tp_dict;
- if Assigned(d) and PyDict_Check(d) then
- begin
- keys := PyDict_Keys(d);
- try
- if PySequence_Check(keys) = 1 then
- for i := 0 to PySequence_Length(keys)-1 do
- begin
- key := PySequence_GetItem(keys, i);
- obj := PyDict_GetItem(d, key); // borrowed ref
- objComp := nil;
- try
- if PyCallable_Check(obj) = 1 then
- begin
- _name := PyObjectAsString(key);
- if SameText(Copy(_name, 1, Length(_prefix)), _prefix) then
- begin
- System.Delete(_name, 1, Length(_prefix));
- _idx := -1;
- for j := Length(_name) downto 1 do
- if _name[j] = '_' then
- begin
- _idx := j;
- Break;
- end;
- if _idx > -1 then
- begin
- _compName := Copy(_name, 1, _idx-1);
- _eventName := Copy(_name, _idx+1, MaxInt);
- if SameText(_compName, 'Self') then
- begin
- _comp := Self.DelphiObject;
- objComp := GetSelf;
- Py_IncRef(objComp);
- end
- else
- begin
- _comp := Self.DelphiObject.FindComponent(_compName);
- if Assigned(_comp) then
- objComp := Wrap(_comp);
- end;
- if not Assigned(_comp) and not Assigned(objComp) then
- begin
- objComp := PyObject_GetAttrString(GetSelf, PAnsiChar(AnsiString(_compName)));
- if Assigned(objComp) then
- begin
- if IsDelphiObject(objComp) and (PythonToDelphi(objComp) is TPyDelphiComponent) then
- _comp := TPyDelphiComponent(PythonToDelphi(objComp)).DelphiObject;
- end
- else
- PyErr_Clear;
- end;
- if Assigned(_comp) and Assigned(objComp) and IsPublishedProp(_comp, _eventName) then
- begin
- objMethod := PyObject_GenericGetAttr(GetSelf, key);
- if PyErr_Occurred <> nil then
- Exit;
- PyObject_SetAttrString(objComp, PAnsiChar(AnsiString(_eventName)), objMethod);
- if PyErr_Occurred <> nil then
- Exit
- else
- begin
- _pair := PyTuple_New(3);
- PyTuple_SetItem(_pair, 0, PyString_FromString(PAnsiChar(AnsiString(_compName))));
- PyTuple_SetItem(_pair, 1, PyString_FromString(PAnsiChar(AnsiString(_eventName))));
- PyTuple_SetItem(_pair, 2, objMethod);
- PyList_Append(_bindings, _pair);
- end;
- end;
- end;
- end;
- end;
- finally
- Py_XDecRef(objComp);
- Py_DecRef(key);
- end;
- end; // for
- finally
- Py_DecRef(keys);
- end;
- end;
- _type := _type.tp_base;
- end;
- Result := _bindings;
- _bindings := nil;
- finally
- Py_XDecRef(_bindings);
- end;
- end;
- end;
-end;
-
-function TPyDelphiComponent.Get_ComponentCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.ComponentCount);
- end;
-end;
-
-function TPyDelphiComponent.Get_Components(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Self.PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, Self.ContainerAccess.Clone);
- end;
-end;
-
-function TPyDelphiComponent.Get_Owner(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Owner);
- end;
-end;
-
-function TPyDelphiComponent.GetParentComponent_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':GetParentComponent') <> 0 then begin
- Result := Wrap(DelphiObject.GetParentComponent)
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiComponent.HasParent_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':HasParent') <> 0 then begin
- Result := VariantAsPyObject(DelphiObject.HasParent)
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiComponent.GetAttrO(key: PPyObject): PPyObject;
-Var
- Component: TComponent;
- Name: string;
-begin
- Result := nil;
- if Assigned(DelphiObject) then
- begin
- if GetPythonEngine.PyString_Check(Key) then
- begin
- Name := GetPythonEngine.PyString_AsDelphiString(Key);
- // try a sub component
- Component := DelphiObject.FindComponent(Name);
- if Component <> nil then
- Result := Wrap(Component);
- end;
- end;
-
- if not Assigned(Result) then
- Result := inherited GetAttrO(key);
-end;
-
-function TPyDelphiComponent.GetDelphiObject: TComponent;
-begin
- Result := TComponent(inherited DelphiObject);
-end;
-
-procedure TPyDelphiComponent.SetDelphiObject(const Value: TComponent);
-begin
- inherited DelphiObject := Value;
-end;
-
-class procedure TPyDelphiComponent.RegisterGetSets(
- PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('ComponentCount', @TPyDelphiComponent.Get_ComponentCount, nil,
- 'Returns the owned component count', nil);
- AddGetSet('Owner', @TPyDelphiComponent.Get_Owner, nil,
- 'Returns the Component Owner', nil);
- AddGetSet('Components', @TPyDelphiComponent.Get_Components, nil,
- 'Returns an iterator over the owned components', nil);
- end;
-end;
-
-class procedure TPyDelphiComponent.RegisterMethods(
- PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('GetParentComponent', @TPyDelphiComponent.GetParentComponent_Wrapper,
- 'TComponent.GetParentComponent()'#10 +
- 'Returns the parent of a component.');
- PythonType.AddMethod('HasParent', @TPyDelphiComponent.HasParent_Wrapper,
- 'TComponent.HasParent()'#10 +
- 'Indicates whether the component has a parent to handle its filing.');
- PythonType.AddMethod('BindMethodsToEvents', @TPyDelphiComponent.BindMethodsToEvents,
- 'TComponent.BindMethodsToEvents(prefix)'#10 +
- 'Connects methods to component events if they are named using the following patter: Prefix_ComponentName_EventName.'+#10+
- 'Example: def handle_button1_OnClick(Sender): pass'+#10+
- 'The function returns a list of tuples. Each tuple contains the name of the component, the name of the event and the method object assigned to the event.'+#10+
- 'Note that the prefix parameter is optional and will default to "handle_".');
-end;
-
-class procedure TPyDelphiComponent.SetupType(PythonType: TPythonType);
-begin
- inherited;
- PythonType.Services.Mapping := PythonType.Services.Mapping + [msLength, msSubscript];
-end;
-
-class function TPyDelphiComponent.GetContainerAccessClass: TContainerAccessClass;
-begin
- Result := TComponentsAccess;
-end;
-
-function TPyDelphiComponent.MpLength: NativeInt;
-begin
- Result := SqLength;
-end;
-
-function TPyDelphiComponent.MpSubscript(obj: PPyObject): PPyObject;
-var
- _name : String;
- _comp : TComponent;
-begin
- with GetPythonEngine do
- begin
- if PyInt_Check(obj) then
- Result := SqItem(PyInt_AsLong(obj))
- else if PyString_Check(obj) then
- begin
- _name := String(PyString_AsDelphiString(obj));
- _comp := DelphiObject.FindComponent(_name);
- if Assigned(_comp) then
- Result := Wrap(_comp)
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_KeyError^, PAnsiChar(AnsiString(_name)));
- end;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_KeyError^, 'Key must be a string');
- end;
- end;
-end;
-
-procedure TPyDelphiComponent.SubscribeToFreeNotification;
-begin
- Assert(Assigned(DelphiObject));
- if not Assigned(fFreeNotificationComp) then
- begin
- fFreeNotificationComp := TPyDelphiObjectNexus.Create(nil);
- TPyDelphiObjectNexus(fFreeNotificationComp).OnFreeNotify := HandleFreeNotificationEvent;
- end;
- DelphiObject.FreeNotification(fFreeNotificationComp);
-end;
-
-procedure TPyDelphiComponent.UnSubscribeToFreeNotification;
-begin
- Assert(Assigned(DelphiObject));
- if Assigned(fFreeNotificationComp) then
- DelphiObject.RemoveFreeNotification(fFreeNotificationComp);
-end;
-
-function TPyDelphiComponent.CreateComponent(AOwner: TComponent): TComponent;
-begin
- Result := TComponentClass(DelphiObjectClass).Create(AOwner);
-end;
-
-constructor TPyDelphiComponent.CreateWith(APythonType: TPythonType;
- args: PPyObject);
-var
- _obj : PPyObject;
- _owner : TObject;
-begin
- inherited;
- if APythonType.Engine.PyArg_ParseTuple( args, 'O:Create',@_obj ) <> 0 then
- begin
- _owner := nil;
- if CheckObjAttribute(_obj, 'Owner', TComponent, _owner) then
- begin
- DelphiObject := CreateComponent(TComponent(_owner));
- Owned := not Assigned(_owner);
- fCanFreeOwnedObject := True;
- end;
- end;
-end;
-
-destructor TPyDelphiComponent.Destroy;
-begin
- inherited;
- fFreeNotificationComp.Free; // Free fFreeNotificationComp after inherited, because inherited will do DelphiObject := nil which call UnsubscribeFreeNotification
-end;
-
-procedure TPyDelphiComponent.HandleFreeNotificationEvent(Sender: TObject;
- AComponent: TComponent);
-begin
- Notify(AComponent);
-end;
-
-class function TPyDelphiComponent.DelphiObjectClass: TClass;
-begin
- Result := TComponent;
-end;
-
-{ TStringsAccess }
-
-class function TStringsAccess.ExpectedContainerClass: TClass;
-begin
- Result := TStrings;
-end;
-
-function TStringsAccess.GetContainer: TStrings;
-begin
- Result := TStrings(inherited Container);
-end;
-
-function TStringsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := GetPythonEngine.PyString_FromString( PAnsiChar(AnsiString(Container[AIndex])) );
-end;
-
-function TStringsAccess.GetSize: Integer;
-begin
- Result := Container.Count;
-end;
-
-function TStringsAccess.IndexOf(AValue: PPyObject): Integer;
-begin
- Result := Container.IndexOf(GetPythonEngine.PyObjectAsString(AValue));
-end;
-
-function TStringsAccess.SetItem(AIndex: Integer; AValue: PPyObject): Boolean;
-begin
- with GetPythonEngine do
- begin
- if PyString_Check(AValue) then
- begin
- Container[AIndex] := PyString_AsDelphiString(AValue);
- Result := True;
- end
- else
- begin
- Result := False;
- PyErr_SetString (PyExc_AttributeError^, 'You can only assign strings to TStrings items');
- end;
- end
-end;
-
-class function TStringsAccess.SupportsIndexOf: Boolean;
-begin
- Result := True;
-end;
-
-class function TStringsAccess.SupportsWrite: Boolean;
-begin
- Result := True;
-end;
-
-{ TStringsObjectsAccess }
-
-function TStringsObjectsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap( Container.Objects[AIndex] );
-end;
-
-function TStringsObjectsAccess.IndexOf(AValue: PPyObject): Integer;
-var
- i : Integer;
- _obj : TPyObject;
- _value : TObject;
-begin
- Result := -1;
- if IsDelphiObject(AValue) then
- begin
- _obj := PythonToDelphi(AValue);
- if _obj is TPyDelphiObject then
- begin
- _value := TPyDelphiObject(_obj).DelphiObject;
- for i := 0 to Container.Count-1 do
- begin
- if Container.Objects[i] = _value then
- begin
- Result := i;
- Break;
- end;
- end;
- end;
- end;
-end;
-
-class function TStringsObjectsAccess.Name: String;
-begin
- Result := 'Objects';
-end;
-
-function TStringsObjectsAccess.SetItem(AIndex: Integer; AValue: PPyObject): Boolean;
-begin
- with GetPythonEngine do
- begin
- if IsDelphiObject(AValue) and (PythonToDelphi(AValue) is TPyDelphiObject) then
- begin
- Container.Objects[AIndex] := TPyDelphiObject(PythonToDelphi(AValue)).DelphiObject;
- Result := True;
- end
- else
- begin
- Result := False;
- PyErr_SetString (PyExc_AttributeError^, 'You can only assign Delphi wrappers to Objects items');
- end;
- end
-end;
-
-{ TPyDelphiStrings }
-
-function TPyDelphiStrings.AddObject_Wrapper(args: PPyObject): PPyObject;
-Var
- PStr : PPyObject;
- _obj : PPyObject;
- _value : TObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- with GetPythonEngine do
- if PyArg_ParseTuple( args, 'OO:AddObject',@PStr, @_obj ) <> 0 then
- begin
- if CheckObjAttribute(_obj, 'The second argument of AddObject', TObject, _value) then
- Result := PyInt_FromLong(DelphiObject.AddObject(PyString_AsDelphiString(PStr), _value))
- else
- Result := nil;
- end
- else
- Result := nil;
-end;
-
-function TPyDelphiStrings.Add_Wrapper(args: PPyObject): PPyObject;
-Var
- PStr : PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- with GetPythonEngine do
- if PyArg_ParseTuple( args, 'O:Add',@PStr ) <> 0 then
- Result := PyInt_FromLong(DelphiObject.Add(PyString_AsDelphiString(PStr)))
- else
- Result := nil;
-end;
-
-function TPyDelphiStrings.Assign(ASource: PPyObject): PPyObject;
-var
- i : Integer;
- _item : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not IsDelphiObject(ASource) and (PySequence_Check(ASource) <> 0) then
- begin
- DelphiObject.BeginUpdate;
- try
- DelphiObject.Clear;
- DelphiObject.Capacity := PySequence_Length(ASource);
- for i := 0 to PySequence_Length(ASource)-1 do
- begin
- _item := PySequence_GetItem(ASource, i);
- try
- DelphiObject.Add(PyObjectAsString(_item));
- finally
- Py_DecRef(_item);
- end;
- end;
- finally
- DelphiObject.EndUpdate;
- end;
- Result := ReturnNone;
- end
- else
- Result := inherited Assign(ASource);
- end;
-end;
-
-function TPyDelphiStrings.BeginUpdate_Wrapper(args: PPyObject): PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, ':BeginUpdate') <> 0 then begin
- DelphiObject.BeginUpdate;
- Result := GetPythonEngine.ReturnNone;
- end else
- Result := nil;
-end;
-
-function TPyDelphiStrings.Clear_Wrapper(args: PPyObject): PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, ':Clear') <> 0 then begin
- DelphiObject.Clear;
- Result := GetPythonEngine.ReturnNone;
- end else
- Result := nil;
-end;
-
-function TPyDelphiStrings.Delete_Wrapper(args: PPyObject): PPyObject;
-Var
- Index : integer;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, 'i:Delete',@Index ) <> 0 then
- begin
- if CheckIndex(Index, DelphiObject.Count) then
- begin
- DelphiObject.Delete(Index);
- Result := GetPythonEngine.ReturnNone;
- end
- else
- Result := nil
- end
- else
- Result := nil;
-end;
-
-class function TPyDelphiStrings.DelphiObjectClass: TClass;
-begin
- Result := TStrings;
-end;
-
-function TPyDelphiStrings.EndUpdate_Wrapper(args: PPyObject): PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, ':EndUpdate') <> 0 then begin
- DelphiObject.EndUpdate;
- Result := GetPythonEngine.ReturnNone;
- end else
- Result := nil;
-end;
-
-class function TPyDelphiStrings.GetContainerAccessClass: TContainerAccessClass;
-begin
- Result := TStringsAccess;
-end;
-
-function TPyDelphiStrings.GetDelphiObject: TStrings;
-begin
- Result := TStrings(inherited DelphiObject);
-end;
-
-function TPyDelphiStrings.Get_Capacity(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Capacity);
- end;
-end;
-
-function TPyDelphiStrings.Get_Objects(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Self.PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TStringsObjectsAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-function TPyDelphiStrings.Get_Text(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(GetPythonEngine.CleanString(AnsiString(DelphiObject.Text))));
- end;
-end;
-
-function TPyDelphiStrings.IndexOf_Wrapper(args: PPyObject): PPyObject;
-Var
- PStr : PPyObject;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- with GetPythonEngine do
- if PyArg_ParseTuple( args, 'O:IndexOf',@PStr ) <> 0 then
- Result := GetPythonEngine.PyInt_FromLong(DelphiObject.IndexOf(PyString_AsDelphiString(PStr)))
- else
- Result := nil;
-end;
-
-function TPyDelphiStrings.LoadFromFile_Wrapper(args: PPyObject): PPyObject;
-Var
- PStr : PAnsiChar;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, 's:LoadFromFile',@PStr ) <> 0 then
- begin
- DelphiObject.LoadFromFile(String(PStr));
- Result := GetPythonEngine.ReturnNone;
- end
- else
- Result := nil;
-end;
-
-function TPyDelphiStrings.MpLength: NativeInt;
-begin
- Result := DelphiObject.Count;
-end;
-
-function TPyDelphiStrings.MpSubscript(obj: PPyObject): PPyObject;
-Var
- S : string;
- Index : integer;
-begin
- with GetPythonEngine do
- begin
- if PyInt_Check(obj) then
- Result := SqItem(PyInt_AsLong(obj))
- else
- begin
- S := PyObjectAsString(obj);
- if S <> '' then begin
- Index := DelphiObject.IndexOf(S);
- if Index >= 0 then begin
- if Assigned(DelphiObject.Objects[Index]) then
- Result := Wrap(DelphiObject.Objects[Index])
- else
- Result := GetPythonEngine.ReturnNone;
- end else with GetPythonEngine do begin
- PyErr_SetString (PyExc_KeyError^, PAnsiChar(AnsiString(S)));
- Result := nil;
- end;
- end else with GetPythonEngine do begin
- PyErr_SetString (PyExc_KeyError^, '');
- Result := nil;
- end;
- end;
- end;
-end;
-
-class procedure TPyDelphiStrings.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Capacity', @TPyDelphiStrings.Get_Capacity, @TPyDelphiStrings.Set_Capacity,
- 'Indicates the number of strings the TStrings object can hold.', nil);
- AddGetSet('Text', @TPyDelphiStrings.Get_Text, @TPyDelphiStrings.Set_Text,
- 'Lists the strings in the TStrings object as a single string with the individual strings delimited by carriage returns and line feeds.', nil);
- AddGetSet('Objects', @TPyDelphiStrings.Get_Objects, nil,
- 'Represents a set of objects that are associated one with each of the strings in the Strings property.', nil);
- end;
-end;
-
-class procedure TPyDelphiStrings.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('Add', @TPyDelphiStrings.Add_Wrapper,
- 'TStrings.Add(s)'#10 +
- 'Adds a string to the TStrings object and returns the index position');
- PythonType.AddMethod('AddObject', @TPyDelphiStrings.AddObject_Wrapper,
- 'TStrings.AddObject(s, delphiobject)'#10 +
- 'Adds a string and an associated Delphi object to the Strings and returns the index position');
- PythonType.AddMethod('Clear', @TPyDelphiStrings.Clear_Wrapper,
- 'TStrings.Clear()'#10 +
- 'Clears all strings from a TStrings (and the associated objects');
- PythonType.AddMethod('Delete', @TPyDelphiStrings.Delete_Wrapper,
- 'TStrings.Delete(i)'#10 +
- 'Deletes the string at Index i (and the associated object');
- PythonType.AddMethod('IndexOf', @TPyDelphiStrings.IndexOf_Wrapper,
- 'TStrings.IndexOf(s)'#10 +
- 'Returns the Index of a string s or -1 if not found');
- PythonType.AddMethod('BeginUpdate', @TPyDelphiStrings.BeginUpdate_Wrapper,
- 'TStrings.BeginUpdate()'#10 +
- 'Enables the TStrings object to track when the list of strings is changing.');
- PythonType.AddMethod('EndUpdate', @TPyDelphiStrings.EndUpdate_Wrapper,
- 'TStrings.EndUpdate()'#10 +
- 'Enables the TStrings object to keep track of when the list of strings has finished changing.');
- PythonType.AddMethod('LoadFromFile', @TPyDelphiStrings.LoadFromFile_Wrapper,
- 'TStrings.LoadFromFile(filename)'#10 +
- 'Fills the list with the lines of text in a specified file.');
- PythonType.AddMethod('SaveToFile', @TPyDelphiStrings.SaveToFile_Wrapper,
- 'TStrings.SaveToFile(filename)'#10 +
- 'Saves the strings in the list to the specified file.');
-end;
-
-function TPyDelphiStrings.Repr: PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString( PAnsiChar(AnsiString(Format('',
- [NativeInt(self)]))) );
-end;
-
-function TPyDelphiStrings.SaveToFile_Wrapper(args: PPyObject): PPyObject;
-Var
- PStr : PAnsiChar;
-begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if GetPythonEngine.PyArg_ParseTuple( args, 's:SaveToFile',@PStr ) <> 0 then
- begin
- DelphiObject.SaveToFile(String(PStr));
- Result := GetPythonEngine.ReturnNone;
- end
- else
- Result := nil;
-end;
-
-procedure TPyDelphiStrings.SetDelphiObject(const Value: TStrings);
-begin
- inherited DelphiObject := Value;
-end;
-
-class procedure TPyDelphiStrings.SetupType(PythonType: TPythonType);
-begin
- inherited;
- PythonType.Services.Mapping := PythonType.Services.Mapping + [msLength, msSubscript];
-end;
-
-{ TPyDelphiBasicAction }
-
-class function TPyDelphiBasicAction.DelphiObjectClass: TClass;
-begin
- Result := TBasicAction;
-end;
-
-function TPyDelphiBasicAction.Execute_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Execute') <> 0 then begin
- Result := VariantAsPyObject( DelphiObject.Execute );
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiBasicAction.GetDelphiObject: TBasicAction;
-begin
- Result := TBasicAction(inherited DelphiObject);
-end;
-
-function TPyDelphiBasicAction.Get_ActionComponent(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.ActionComponent);
- end;
-end;
-
-class procedure TPyDelphiBasicAction.RegisterGetSets(
- PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('ActionComponent', @TPyDelphiBasicAction.Get_ActionComponent, @TPyDelphiBasicAction.Set_ActionComponent,
- 'Indicates the client component that caused this action to execute.', nil);
- end;
-end;
-
-class procedure TPyDelphiBasicAction.RegisterMethods(
- PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('Execute', @TPyDelphiBasicAction.Execute_Wrapper,
- 'TBasicAction.Execute()'#10 +
- 'Generates an OnExecute event.');
- PythonType.AddMethod('Update', @TPyDelphiBasicAction.Update_Wrapper,
- 'TBasicAction.Update()'#10 +
- 'Provides an opportunity to execute centralized code when an application is idle.');
-end;
-
-procedure TPyDelphiBasicAction.SetDelphiObject(const Value: TBasicAction);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiBasicAction.Set_ActionComponent(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _actionComponent : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'ActionComponent', TComponent, _actionComponent) then
- begin
- Self.DelphiObject.ActionComponent := TComponent(_actionComponent);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiBasicAction.Update_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Update') <> 0 then begin
- Result := VariantAsPyObject( DelphiObject.Update );
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiStrings.Set_Capacity(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _capacity : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Capacity', _capacity) then
- begin
- DelphiObject.Capacity := _capacity;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiStrings.Set_Text(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _text : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'Text', _text) then
- begin
- DelphiObject.Text := _text;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-initialization
- RegisteredUnits.Add(TClassesRegistration.Create);
-end.
diff --git a/Components/Sources/Core/WrapDelphiComCtrls.pas b/Components/Sources/Core/WrapDelphiComCtrls.pas
deleted file mode 100644
index 1c74ac6..0000000
--- a/Components/Sources/Core/WrapDelphiComCtrls.pas
+++ /dev/null
@@ -1,641 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiComCtrls;
-
-interface
-
-uses
- Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses,
- WrapDelphiControls, Windows, ComCtrls, TypInfo;
-
-type
- TTabChangingEventHandler = class(TEventHandler)
- protected
- procedure DoEvent(Sender: TObject; var AllowChange: Boolean);
- public
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); override;
- class function GetTypeInfo : PTypeInfo; override;
- end;
-
- {$IFNDEF FPC}
- TPyDelphiDateTimePicker = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TDateTimePicker;
- procedure SetDelphiObject(const Value: TDateTimePicker);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TDateTimePicker read GetDelphiObject write SetDelphiObject;
- end;
- {$ENDIF FPC}
-
- TPyDelphiTabSheet = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TTabSheet;
- procedure SetDelphiObject(const Value: TTabSheet);
- protected
- // Property Getters
- function Get_TabIndex( AContext : Pointer) : PPyObject; cdecl;
- function Get_PageControl( AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_PageControl( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TTabSheet read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- Access to the child pages of a TPageControl.Pages collection.
- }
- TPagesAccess = class(TContainerAccess)
- private
- function GetContainer: TPageControl;
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- function IndexOf(AValue : PPyObject) : Integer; override;
-
- class function ExpectedContainerClass : TClass; override;
- class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
-
- property Container : TPageControl read GetContainer;
- end;
-
- TPyDelphiPageControl = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TPageControl;
- procedure SetDelphiObject(const Value: TPageControl);
- protected
- // methods
- {$IFNDEF FPC}
- function IndexOfTabAt_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function GetHitTestInfoAt_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function TabRect_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function ScrollTabs_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function FindNextPage_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SelectNextPage_Wrapper(args : PPyObject) : PPyObject; cdecl;
- // Property Getters
- function Get_ActivePage( AContext : Pointer) : PPyObject; cdecl;
- function Get_ActivePageIndex( AContext : Pointer) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_Canvas( AContext : Pointer) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_PageCount( AContext : Pointer) : PPyObject; cdecl;
- function Get_Pages( AContext : Pointer) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_RowCount( AContext : Pointer) : PPyObject; cdecl;
- {$ENDIF FPC}
- // Property Setters
- function Set_ActivePage( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- function Set_ActivePageIndex( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TPageControl read GetDelphiObject write SetDelphiObject;
- end;
-
-implementation
-
-uses
- WrapDelphiTypes, ExtCtrls;
-
-{ Register the wrappers, the globals and the constants }
-type
- TComCtrlsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TComCtrlsRegistration }
-
-procedure TComCtrlsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
-end;
-
-function TComCtrlsRegistration.Name: String;
-begin
- Result := 'ComCtrls';
-end;
-
-procedure TComCtrlsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- {$IFNDEF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiDateTimePicker);
- {$ENDIF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPageControl);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTabSheet);
-
- APyDelphiWrapper.EventHandlers.RegisterHandler(TTabChangingEventHandler);
-end;
-
-{$IFNDEF FPC}
-{ TPyDelphiDateTimePicker }
-
-class function TPyDelphiDateTimePicker.DelphiObjectClass: TClass;
-begin
- Result := TDateTimePicker;
-end;
-
-function TPyDelphiDateTimePicker.GetDelphiObject: TDateTimePicker;
-begin
- Result := TDateTimePicker(inherited DelphiObject);
-end;
-
-procedure TPyDelphiDateTimePicker.SetDelphiObject(const Value: TDateTimePicker);
-begin
- inherited DelphiObject := Value;
-end;
-{$ENDIF FPC}
-
-{ TPyDelphiPageControl }
-
-class function TPyDelphiPageControl.DelphiObjectClass: TClass;
-begin
- Result := TPageControl;
-end;
-
-function TPyDelphiPageControl.FindNextPage_Wrapper(
- args: PPyObject): PPyObject;
-var
- _CurPage: TObject;
- _pCurPage: PPyObject;
- _pGoForward, _pCheckTabVisible: PPyObject;
-begin
- // function FindNextPage(CurPage: TTabSheet; GoForward, CheckTabVisible: Boolean): TTabSheet;
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'OOO:FindNextPage',@_pCurPage, @_pGoForward, @_pCheckTabVisible ) <> 0 then begin
- if CheckObjAttribute(_pCurPage, 'CurPage', TTabSheet, _CurPage) then
- Result := Wrap( DelphiObject.FindNextPage(TTabSheet(_CurPage), PyObject_IsTrue(_pGoForward)<>0, PyObject_IsTrue(_pCheckTabVisible)<>0) )
- else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiPageControl.GetDelphiObject: TPageControl;
-begin
- Result := TPageControl(inherited DelphiObject);
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiPageControl.GetHitTestInfoAt_Wrapper(
- args: PPyObject): PPyObject;
-
- procedure AppendString(const AText : String);
- var
- _text : PPyObject;
- begin
- with GetPythonEngine do
- begin
- _text := PyString_FromString(PAnsiChar(AnsiString(AText)));
- PyList_Append(Result, _text);
- Py_DecRef(_text);
- end;
- end;
-
-var
- x, y: Integer;
- _result : THitTests;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'ii:GetHitTestInfoAt',@x, @y ) <> 0 then begin
- _result := DelphiObject.GetHitTestInfoAt(x, y);
- Result := PyList_New(0);
- if htAbove in _result then
- AppendString('htAbove');
- if htBelow in _result then
- AppendString('htBelow');
- if htNowhere in _result then
- AppendString('htNowhere');
- if htOnItem in _result then
- AppendString('htOnItem');
- if htOnButton in _result then
- AppendString('htOnButton');
- if htOnIcon in _result then
- AppendString('htOnIcon');
- if htOnIndent in _result then
- AppendString('htOnIndent');
- if htOnLabel in _result then
- AppendString('htOnLabel');
- if htOnRight in _result then
- AppendString('htOnRight');
- if htOnStateIcon in _result then
- AppendString('htOnStateIcon');
- if htToLeft in _result then
- AppendString('htToLeft');
- if htToRight in _result then
- AppendString('htToRight');
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiPageControl.Get_ActivePage(AContext: Pointer): PPyObject;
-begin
- Result := Wrap(DelphiObject.ActivePage);
-end;
-
-function TPyDelphiPageControl.Get_ActivePageIndex(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.ActivePageIndex);
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiPageControl.Get_Canvas(AContext: Pointer): PPyObject;
-begin
- Result := Wrap(DelphiObject.Canvas);
-end;
-{$ENDIF FPC}
-
-function TPyDelphiPageControl.Get_PageCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.PageCount);
- end;
-end;
-
-function TPyDelphiPageControl.Get_Pages(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Self.PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TPagesAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiPageControl.Get_RowCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.RowCount);
- end;
-end;
-
-function TPyDelphiPageControl.IndexOfTabAt_Wrapper(
- args: PPyObject): PPyObject;
-var
- x, y: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'ii:IndexOfTabAt',@x, @y ) <> 0 then begin
- Result := VariantAsPyObject( DelphiObject.IndexOfTabAt(x, y) );
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-class procedure TPyDelphiPageControl.RegisterGetSets(
- PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddGetSet('ActivePage', @TPyDelphiPageControl.Get_ActivePage, @TPyDelphiPageControl.Set_ActivePage,
- 'Specifies the page currently displayed by the page control.', nil);
- PythonType.AddGetSet('ActivePageIndex', @TPyDelphiPageControl.Get_ActivePageIndex, @TPyDelphiPageControl.Set_ActivePageIndex,
- 'Specifies the page currently displayed by the page control.', nil);
- {$IFNDEF FPC}
- PythonType.AddGetSet('Canvas', @TPyDelphiPageControl.Get_Canvas, nil,
- 'Gives access to the tab control�s canvas.', nil);
- {$ENDIF FPC}
- PythonType.AddGetSet('PageCount', @TPyDelphiPageControl.Get_PageCount, nil,
- 'Indicates the number of pages in the TPageControl object.', nil);
- PythonType.AddGetSet('Pages', @TPyDelphiPageControl.Get_Pages, nil,
- 'Lists all the pages in the TPageControl.', nil);
- {$IFNDEF FPC}
- PythonType.AddGetSet('RowCount', @TPyDelphiPageControl.Get_RowCount, nil,
- '', nil);
- {$ENDIF FPC}
-end;
-
-class procedure TPyDelphiPageControl.RegisterMethods(
- PythonType: TPythonType);
-begin
- inherited;
- {$IFNDEF FPC}
- PythonType.AddMethod('IndexOfTabAt', @TPyDelphiPageControl.IndexOfTabAt_Wrapper,
- 'TPageControl.IndexOfTabAt()'#10 +
- 'Indicates the index of the tab at a specified point.');
- PythonType.AddMethod('GetHitTestInfoAt', @TPyDelphiPageControl.GetHitTestInfoAt_Wrapper,
- 'TPageControl.GetHitTestInfoAt()'#10 +
- 'Returns information about the location of a point relative to the client area of the tab control.');
- {$ENDIF FPC}
- PythonType.AddMethod('TabRect', @TPyDelphiPageControl.TabRect_Wrapper,
- 'TPageControl.TabRect()'#10 +
- 'Returns the bounding rectangle for a specified tab.');
- {$IFNDEF FPC}
- PythonType.AddMethod('ScrollTabs', @TPyDelphiPageControl.ScrollTabs_Wrapper,
- 'TPageControl.ScrollTabs()'#10 +
- 'Scrolls the tabs that are visible when the tab control is not multi-line.');
- {$ENDIF FPC}
- PythonType.AddMethod('FindNextPage', @TPyDelphiPageControl.FindNextPage_Wrapper,
- 'TPageControl.FindNextPage()'#10 +
- 'Returns the next page in the page control before or after a specified page.');
- PythonType.AddMethod('SelectNextPage', @TPyDelphiPageControl.SelectNextPage_Wrapper,
- 'TPageControl.SelectNextPage()'#10 +
- 'Changes the ActivePage to the first visible page that is before or after the currently active page.');
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiPageControl.ScrollTabs_Wrapper(
- args: PPyObject): PPyObject;
-var
- delta: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'i:ScrollTabs',@delta ) <> 0 then begin
- DelphiObject.ScrollTabs(delta);
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiPageControl.SelectNextPage_Wrapper(
- args: PPyObject): PPyObject;
-var
- _pGoForward, _pCheckTabVisible: PPyObject;
-begin
- // procedure SelectNextPage(GoForward: Boolean; CheckTabVisible: Boolean = True);
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'OO:SelectNextPage',@_pGoForward, @_pCheckTabVisible ) <> 0 then begin
- DelphiObject.SelectNextPage(PyObject_IsTrue(_pGoForward)<>0, PyObject_IsTrue(_pCheckTabVisible)<>0);
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-
-end;
-
-procedure TPyDelphiPageControl.SetDelphiObject(const Value: TPageControl);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiPageControl.Set_ActivePage(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _object : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'ActivePage', TTabSheet, _object) then
- begin
- Self.DelphiObject.ActivePage := TTabSheet(_object);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiPageControl.Set_ActivePageIndex(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'ActivePageIndex', _value) then
- begin
- DelphiObject.ActivePageIndex := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiPageControl.TabRect_Wrapper(args: PPyObject): PPyObject;
-var
- idx: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'i:TabRect',@idx ) <> 0 then begin
- Result := WrapRect(PyDelphiWrapper, DelphiObject.TabRect(idx));
- end else
- Result := nil;
- end;
-end;
-
-{ TPyDelphiTabSheet }
-
-class function TPyDelphiTabSheet.DelphiObjectClass: TClass;
-begin
- Result := TTabSheet;
-end;
-
-function TPyDelphiTabSheet.GetDelphiObject: TTabSheet;
-begin
- Result := TTabSheet(inherited DelphiObject);
-end;
-
-function TPyDelphiTabSheet.Get_PageControl(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.PageControl);
- end;
-end;
-
-function TPyDelphiTabSheet.Get_TabIndex(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.TabIndex);
- end;
-end;
-
-class procedure TPyDelphiTabSheet.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddGetSet('TabIndex', @TPyDelphiTabSheet.Get_TabIndex, nil,
- 'Indicates the position of the tab sheet in the set of visible tabs in a TPageControl object.', nil);
- PythonType.AddGetSet('PageControl', @TPyDelphiTabSheet.Get_PageControl, @TPyDelphiTabSheet.Set_PageControl,
- 'Indicates the page control object that contains the tab sheet.', nil);
-end;
-
-procedure TPyDelphiTabSheet.SetDelphiObject(const Value: TTabSheet);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiTabSheet.Set_PageControl(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _object : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'PageControl', TPageControl, _object) then
- begin
- Self.DelphiObject.PageControl := TPageControl(_object);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{ TPagesAccess }
-
-class function TPagesAccess.ExpectedContainerClass: TClass;
-begin
- Result := TPageControl;
-end;
-
-function TPagesAccess.GetContainer: TPageControl;
-begin
- Result := TPageControl(inherited Container);
-end;
-
-function TPagesAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap( Container.Pages[AIndex] );
-end;
-
-function TPagesAccess.GetSize: Integer;
-begin
- Result := Container.PageCount;
-end;
-
-function TPagesAccess.IndexOf(AValue: PPyObject): Integer;
-var
- i : Integer;
- S : string;
- _obj : TPyObject;
- _value : TObject;
- _ctrl : TTabSheet;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if PyString_Check(AValue) then
- begin
- S := PyString_AsDelphiString(AValue);
- for i := 0 to Container.PageCount-1 do
- if SameText( Container.Pages[i].Name, S) then
- begin
- Result := i;
- Break;
- end;
- end
- else if IsDelphiObject(AValue) then
- begin
- _obj := PythonToDelphi(AValue);
- if _obj is TPyDelphiObject then
- begin
- _value := TPyDelphiObject(_obj).DelphiObject;
- if _value is TTabSheet then
- begin
- _ctrl := TTabSheet(_value);
- for i := 0 to Container.PageCount-1 do
- if Container.Pages[i] = _ctrl then
- begin
- Result := i;
- Break;
- end;
- end;
- end;
- end;
- end;
-end;
-
-class function TPagesAccess.Name: String;
-begin
- Result := 'Pages';
-end;
-
-class function TPagesAccess.SupportsIndexOf: Boolean;
-begin
- Result := True;
-end;
-
-{ TTabChangingEventHandler }
-
-constructor TTabChangingEventHandler.Create(
- PyDelphiWrapper: TPyDelphiWrapper; Component: TObject;
- PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- Method : TMethod;
-begin
- inherited;
- Method.Code := @TTabChangingEventHandler.DoEvent;
- Method.Data := Self;
- SetMethodProp(Component, PropertyInfo, Method);
-end;
-
-procedure TTabChangingEventHandler.DoEvent(Sender: TObject;
- var AllowChange: Boolean);
-Var
- PyObject, PyTuple, PyResult, PyAllowChange: PPyObject;
- _varParam : TPyDelphiVarParameter;
-begin
- Assert(Assigned(PyDelphiWrapper));
- if Assigned(Callable) and PythonOK then
- with GetPythonEngine do begin
- PyObject := PyDelphiWrapper.Wrap(Sender);
- PyAllowChange := CreateVarParam(PyDelphiWrapper, AllowChange);
- _varParam := PythonToDelphi(PyAllowChange) as TPyDelphiVarParameter;
- PyTuple := PyTuple_New(2);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 0, PyObject);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 1, PyAllowChange);
- try
- PyResult := PyObject_CallObject(Callable, PyTuple);
- if Assigned(PyResult) then
- begin
- Py_DECREF(PyResult);
- AllowChange := PyObject_IsTrue(_varParam.Value) = 1;
- end;
- finally
- Py_DECREF(PyTuple);
- end;
- CheckError;
- end;
-end;
-
-class function TTabChangingEventHandler.GetTypeInfo: PTypeInfo;
-begin
- Result := System.TypeInfo(TTabChangingEvent);
-end;
-
-initialization
- RegisteredUnits.Add( TComCtrlsRegistration.Create );
- {$IFNDEF FPC}
- Classes.RegisterClasses([TDateTimePicker]);
- {$ENDIF FPC}
-end.
diff --git a/Components/Sources/Core/WrapDelphiControls.pas b/Components/Sources/Core/WrapDelphiControls.pas
deleted file mode 100644
index 6d5d688..0000000
--- a/Components/Sources/Core/WrapDelphiControls.pas
+++ /dev/null
@@ -1,773 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiControls;
-
-interface
-
-uses
- Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses, Controls,
- TypInfo, Types;
-
-type
- {
- PyObject wrapping TControl
- Exposes methods Show, Hide, BringToFront, SendToBack, Update, SetBounds
- Exposes property Parent
- }
- TPyDelphiControl = class (TPyDelphiComponent)
- private
- function GetDelphiObject: TControl;
- procedure SetDelphiObject(const Value: TControl);
- protected
- // Exposed Methods
- function BringToFront_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ClientToScreen_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Hide_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Invalidate_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Repaint_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ScreenToClient_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SendToBack_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SetBounds_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Show_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Update_Wrapper(args : PPyObject) : PPyObject; cdecl;
- // Property Getters
- function Get_Parent( AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_Parent( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TControl read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- Access to the child controls of a TWinControl.Controls collection.
- }
- TControlsAccess = class(TContainerAccess)
- private
- function GetContainer: TWinControl;
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- function IndexOf(AValue : PPyObject) : Integer; override;
-
- class function ExpectedContainerClass : TClass; override;
- class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
-
- property Container : TWinControl read GetContainer;
- end;
-
- {
- PyObject wrapping TWinControl
- Exposes methods CanFocus, Focus
- Exposes properties Controls, ControlCount, Focused, Handle,
- HandleAllocated, ParentWindow, Showing
- }
- TPyDelphiWinControl = class (TPyDelphiControl)
- private
- function GetDelphiObject: TWinControl;
- procedure SetDelphiObject(const Value: TWinControl);
- protected
- // Exposed Methods
- function CanFocus_Wrapper(args: PPyObject): PPyObject; cdecl;
- function SetFocus_Wrapper(args: PPyObject): PPyObject; cdecl;
- // Property Getters
- function Get_ControlCount( AContext : Pointer) : PPyObject; cdecl;
- function Get_Controls( AContext : Pointer) : PPyObject; cdecl;
- function Get_Focused( AContext : Pointer) : PPyObject; cdecl;
- function Get_Handle( AContext : Pointer) : PPyObject; cdecl;
- function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;
- function Get_ParentWindow( AContext : Pointer) : PPyObject; cdecl;
- function Get_Showing( AContext : Pointer) : PPyObject; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TWinControl read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- PyObject wrapping TGraphicControl
- }
- TPyDelphiGraphicControl = class (TPyDelphiControl)
- private
- function GetDelphiObject: TGraphicControl;
- procedure SetDelphiObject(const Value: TGraphicControl);
- protected
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TGraphicControl read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- PyObject wrapping TCustomControl
- }
- TPyDelphiCustomControl = class (TPyDelphiControl)
- private
- function GetDelphiObject: TCustomControl;
- procedure SetDelphiObject(const Value: TCustomControl);
- protected
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TCustomControl read GetDelphiObject write SetDelphiObject;
- end;
-
-
- { TKeyPressEvent wrapper }
- TKeyPressEventHandler = class(TEventHandler)
- protected
- procedure DoEvent(Sender: TObject; var Key : Char);
- public
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); override;
- class function GetTypeInfo : PTypeInfo; override;
- end;
-
- { TKeyEvent wrapper }
- TKeyEventHandler = class(TEventHandler)
- protected
- procedure DoEvent(Sender: TObject; var Key : Word; Shift: TShiftState);
- public
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); override;
- class function GetTypeInfo : PTypeInfo; override;
- end;
-
-implementation
-
-uses
- WrapDelphiTypes;
-
-{ Register the wrappers, the globals and the constants }
-type
- TControlsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TControlsRegistration }
-
-procedure TControlsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- // TModalResult values
- APyDelphiWrapper.DefineVar('mrNone', mrNone);
- APyDelphiWrapper.DefineVar('mrOk', mrOk);
- APyDelphiWrapper.DefineVar('mrCancel', mrCancel);
- APyDelphiWrapper.DefineVar('mrAbort', mrAbort);
- APyDelphiWrapper.DefineVar('mrRetry', mrRetry);
- APyDelphiWrapper.DefineVar('mrIgnore', mrIgnore);
- APyDelphiWrapper.DefineVar('mrYes', mrYes);
- APyDelphiWrapper.DefineVar('mrNo', mrNo);
- APyDelphiWrapper.DefineVar('mrAll', mrAll);
- APyDelphiWrapper.DefineVar('mrNoToAll', mrNoToAll);
- APyDelphiWrapper.DefineVar('mrYesToAll', mrYesToAll);
-end;
-
-function TControlsRegistration.Name: String;
-begin
- Result := 'Controls';
-end;
-
-procedure TControlsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiControl);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiWinControl);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomControl);
-
- APyDelphiWrapper.EventHandlers.RegisterHandler(TKeyPressEventHandler);
- APyDelphiWrapper.EventHandlers.RegisterHandler(TKeyEventHandler);
-end;
-
-{ TPyDelphiControl }
-
-function TPyDelphiControl.BringToFront_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':BringToFront') <> 0 then begin
- DelphiObject.BringToFront;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiControl.ClientToScreen_Wrapper(
- args: PPyObject): PPyObject;
-var
- p : TPoint;
- pt : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:ClientToScreen',@pt ) <> 0 then begin
- if CheckPointAttribute(pt, 'point', p) then
- Result := WrapPoint(PyDelphiWrapper, DelphiObject.ClientToScreen(p))
- else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-class function TPyDelphiControl.DelphiObjectClass: TClass;
-begin
- Result := TControl;
-end;
-
-function TPyDelphiControl.GetDelphiObject: TControl;
-begin
- Result := TControl(inherited DelphiObject);
-end;
-
-function TPyDelphiControl.Get_Parent(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Parent);
- end;
-end;
-
-function TPyDelphiControl.Hide_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Hide') <> 0 then begin
- DelphiObject.Hide;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiControl.Invalidate_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Invalidate') <> 0 then begin
- DelphiObject.Invalidate;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-class procedure TPyDelphiControl.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddGetSet('Parent', @TPyDelphiControl.Get_Parent, @TPyDelphiControl.Set_Parent,
- 'Returns/Sets the Control Parent', nil);
-end;
-
-class procedure TPyDelphiControl.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('Show', @TPyDelphiControl.Show_Wrapper,
- 'TControl.Show()'#10 +
- 'Shows the wrapped Control');
- PythonType.AddMethod('Hide', @TPyDelphiControl.Hide_Wrapper,
- 'TControl.Hide()'#10 +
- 'Hides the wrapped Control');
- PythonType.AddMethod('BringToFront', @TPyDelphiControl.BringToFront_Wrapper,
- 'TControl.BringToFront()'#10 +
- 'Puts the control in front of all other controls in its parent control.');
- PythonType.AddMethod('SendToBack', @TPyDelphiControl.SendToBack_Wrapper,
- 'TControl.SendToBack()'#10 +
- 'Puts a windowed control behind all other windowed controls, or puts a non-windowed control behind all other non-windowed controls.');
- PythonType.AddMethod('Update', @TPyDelphiControl.Update_Wrapper,
- 'TControl.Update()'#10 +
- 'Processes any pending paint messages immediately.');
- PythonType.AddMethod('SetBounds', @TPyDelphiControl.SetBounds_Wrapper,
- 'TControl.SetBounds(Left, Top, Width, Height)'#10 +
- 'Sets the Left, Top, Width, and Height properties all at once.');
- PythonType.AddMethod('Invalidate', @TPyDelphiControl.Invalidate_Wrapper,
- 'TControl.Invalidate()'#10 +
- 'Completely repaint control.');
- PythonType.AddMethod('Repaint', @TPyDelphiControl.Repaint_Wrapper,
- 'TControl.Repaint()'#10 +
- 'Forces the control to repaint its image on the screen. ');
- PythonType.AddMethod('ClientToScreen', @TPyDelphiControl.ClientToScreen_Wrapper,
- 'TControl.ClientToScreen()'#10 +
- 'Translates a given point from client area coordinates to global screen coordinates.');
- PythonType.AddMethod('ScreenToClient', @TPyDelphiControl.ScreenToClient_Wrapper,
- 'TControl.ScreenToClient()'#10 +
- 'Converts the screen coordinates of a specified point on the screen to client coordinates.');
-end;
-
-function TPyDelphiControl.Repaint_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Repaint') <> 0 then begin
- DelphiObject.Repaint;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiControl.ScreenToClient_Wrapper(
- args: PPyObject): PPyObject;
-var
- p : TPoint;
- pt : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:ScreenToClient',@pt ) <> 0 then begin
- if CheckPointAttribute(pt, 'point', p) then
- Result := WrapPoint(PyDelphiWrapper, DelphiObject.ScreenToClient(p))
- else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiControl.SendToBack_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':SendToBack') <> 0 then begin
- DelphiObject.SendToBack;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiControl.SetBounds_Wrapper(args: PPyObject): PPyObject;
-var
- _left : Integer;
- _top : Integer;
- _width : Integer;
- _height : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiii:SetBounds',@_left, @_top, @_width, @_height ) <> 0 then begin
- DelphiObject.SetBounds(_left, _top, _width, _height);
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-procedure TPyDelphiControl.SetDelphiObject(const Value: TControl);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiControl.Set_Parent(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _object : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'Parent', TWinControl, _object) then
- begin
- Self.DelphiObject.Parent := TWinControl(_object);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiControl.Show_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Show') <> 0 then begin
- DelphiObject.Show;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiControl.Update_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Update') <> 0 then begin
- DelphiObject.Update;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-{ TControlsAccess }
-
-class function TControlsAccess.ExpectedContainerClass: TClass;
-begin
- Result := TWinControl;
-end;
-
-function TControlsAccess.GetContainer: TWinControl;
-begin
- Result := TWinControl(inherited Container);
-end;
-
-function TControlsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap( Container.Controls[AIndex] );
-end;
-
-function TControlsAccess.GetSize: Integer;
-begin
- Result := Container.ControlCount;
-end;
-
-function TControlsAccess.IndexOf(AValue: PPyObject): Integer;
-var
- i : Integer;
- S : string;
- _obj : TPyObject;
- _value : TObject;
- _ctrl : TControl;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if PyString_Check(AValue) then
- begin
- S := PyString_AsDelphiString(AValue);
- for i := 0 to Container.ControlCount-1 do
- if SameText( Container.Controls[i].Name, S) then
- begin
- Result := i;
- Break;
- end;
- end
- else if IsDelphiObject(AValue) then
- begin
- _obj := PythonToDelphi(AValue);
- if _obj is TPyDelphiObject then
- begin
- _value := TPyDelphiObject(_obj).DelphiObject;
- if _value is TControl then
- begin
- _ctrl := TControl(_value);
- for i := 0 to Container.ControlCount-1 do
- if Container.Controls[i] = _ctrl then
- begin
- Result := i;
- Break;
- end;
- end;
- end;
- end;
- end;
-end;
-
-class function TControlsAccess.Name: String;
-begin
- Result := 'Controls';
-end;
-
-class function TControlsAccess.SupportsIndexOf: Boolean;
-begin
- Result := True;
-end;
-
-{ TPyDelphiWinControl }
-
-function TPyDelphiWinControl.CanFocus_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':CanFocus') <> 0 then begin
- Result := VariantAsPyObject(DelphiObject.CanFocus)
- end else
- Result := nil;
- end;
-end;
-
-class function TPyDelphiWinControl.DelphiObjectClass: TClass;
-begin
- Result := TWinControl;
-end;
-
-function TPyDelphiWinControl.GetDelphiObject: TWinControl;
-begin
- Result := TWinControl(inherited DelphiObject);
-end;
-
-function TPyDelphiWinControl.Get_ControlCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.ControlCount);
- end;
-end;
-
-function TPyDelphiWinControl.Get_Controls(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Self.PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TControlsAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-function TPyDelphiWinControl.Get_Focused(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Focused);
- end;
-end;
-
-function TPyDelphiWinControl.Get_Handle(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Handle);
- end;
-end;
-
-function TPyDelphiWinControl.Get_HandleAllocated(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.HandleAllocated);
- end;
-end;
-
-function TPyDelphiWinControl.Get_ParentWindow(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.ParentWindow);
- end;
-end;
-
-function TPyDelphiWinControl.Get_Showing(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Showing);
- end;
-end;
-
-class procedure TPyDelphiWinControl.RegisterGetSets(
- PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddGetSet('ControlCount', @TPyDelphiWinControl.Get_ControlCount, nil,
- 'Returns the count of contained controls', nil);
- PythonType.AddGetSet('Controls', @TPyDelphiWinControl.Get_Controls, nil,
- 'Returns an iterator over contained controls', nil);
- PythonType.AddGetSet('Focused', @TPyDelphiWinControl.Get_Focused, nil,
- 'Determines whether the control has input focus.', nil);
- PythonType.AddGetSet('Handle', @TPyDelphiWinControl.Get_Handle, nil,
- 'Provides access to the underlying Windows screen object for the control.', nil);
- PythonType.AddGetSet('HandleAllocated', @TPyDelphiWinControl.Get_HandleAllocated, nil,
- 'Reports whether a screen object handle exists for the control.', nil);
- PythonType.AddGetSet('ParentWindow', @TPyDelphiWinControl.Get_ParentWindow, nil,
- 'Reference to parent�s underlying control.', nil);
- PythonType.AddGetSet('Showing', @TPyDelphiWinControl.Get_Showing, nil,
- 'Indicates whether the control is showing on the screen. ', nil);
-end;
-
-class procedure TPyDelphiWinControl.RegisterMethods(
- PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('CanFocus', @TPyDelphiWinControl.CanFocus_Wrapper,
- 'TWinControl.CanFocus()'#10 +
- 'Indicates whether a control can receive focus. ');
- PythonType.AddMethod('SetFocus', @TPyDelphiWinControl.SetFocus_Wrapper,
- 'TWinControl.SetFocus()'#10 +
- 'Gives the input focus to the control. ');
-end;
-
-procedure TPyDelphiWinControl.SetDelphiObject(const Value: TWinControl);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiWinControl.SetFocus_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':SetFocus') <> 0 then begin
- DelphiObject.SetFocus;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-{ TPyDelphiGraphicControl }
-
-class function TPyDelphiGraphicControl.DelphiObjectClass: TClass;
-begin
- Result := TGraphicControl;
-end;
-
-function TPyDelphiGraphicControl.GetDelphiObject: TGraphicControl;
-begin
- Result := TGraphicControl(inherited DelphiObject);
-end;
-
-procedure TPyDelphiGraphicControl.SetDelphiObject(
- const Value: TGraphicControl);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiCustomControl }
-
-class function TPyDelphiCustomControl.DelphiObjectClass: TClass;
-begin
- Result := TCustomControl;
-end;
-
-function TPyDelphiCustomControl.GetDelphiObject: TCustomControl;
-begin
- Result := TCustomControl(inherited DelphiObject);
-end;
-
-procedure TPyDelphiCustomControl.SetDelphiObject(
- const Value: TCustomControl);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TKeyPressEventHandler }
-
-constructor TKeyPressEventHandler.Create(
- PyDelphiWrapper: TPyDelphiWrapper; Component: TObject;
- PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- Method : TMethod;
-begin
- inherited;
- Method.Code := @TKeyPressEventHandler.DoEvent;
- Method.Data := Self;
- SetMethodProp(Component, PropertyInfo, Method);
-end;
-
-procedure TKeyPressEventHandler.DoEvent(Sender: TObject;
- var Key: Char);
-Var
- PyObject, PyTuple, PyResult, PyKey : PPyObject;
- _varParam : TPyDelphiVarParameter;
- _key : String;
-begin
- Assert(Assigned(PyDelphiWrapper));
- if Assigned(Callable) and PythonOK then
- with GetPythonEngine do begin
- PyObject := PyDelphiWrapper.Wrap(Sender);
- PyKey := CreateVarParam(PyDelphiWrapper, Key);
- _varParam := PythonToDelphi(PyKey) as TPyDelphiVarParameter;
- PyTuple := PyTuple_New(2);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 0, PyObject);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 1, PyKey);
- try
- PyResult := PyObject_CallObject(Callable, PyTuple);
- if Assigned(PyResult) then
- begin
- Py_DECREF(PyResult);
- if _varParam.Value = Py_None then
- Key := #0
- else if PyString_Check(_varParam.Value) then
- begin
- _key := PyString_AsDelphiString(_varParam.Value);
- if Length(_key) > 0 then
- Key := _key[1];
- end;
- end;
- finally
- Py_DECREF(PyTuple);
- end;
- CheckError;
- end;
-end;
-
-class function TKeyPressEventHandler.GetTypeInfo: PTypeInfo;
-begin
- Result := System.TypeInfo(TKeyPressEvent);
-end;
-
-{ TKeyEventHandler }
-
-constructor TKeyEventHandler.Create(PyDelphiWrapper: TPyDelphiWrapper;
- Component: TObject; PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- Method : TMethod;
-begin
- inherited;
- Method.Code := @TKeyEventHandler.DoEvent;
- Method.Data := Self;
- SetMethodProp(Component, PropertyInfo, Method);
-end;
-
-procedure TKeyEventHandler.DoEvent(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-Var
- PyObject, PyTuple, PyResult, PyKey : PPyObject;
- _varParam : TPyDelphiVarParameter;
-begin
- Assert(Assigned(PyDelphiWrapper));
- if Assigned(Callable) and PythonOK then
- with GetPythonEngine do begin
- PyObject := PyDelphiWrapper.Wrap(Sender);
- PyKey := CreateVarParam(PyDelphiWrapper, Key);
- _varParam := PythonToDelphi(PyKey) as TPyDelphiVarParameter;
- PyTuple := PyTuple_New(3);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 0, PyObject);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 1, PyKey);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 2, ShiftToPython(Shift));
- try
- PyResult := PyObject_CallObject(Callable, PyTuple);
- if Assigned(PyResult) then
- begin
- Py_DECREF(PyResult);
- if PyInt_Check(_varParam.Value) then
- Key := PyInt_AsLong(_varParam.Value);
- end;
- finally
- Py_DECREF(PyTuple);
- end;
- CheckError;
- end;
-end;
-
-class function TKeyEventHandler.GetTypeInfo: PTypeInfo;
-begin
- Result := System.TypeInfo(TKeyEvent);
-end;
-
-initialization
- RegisteredUnits.Add(TControlsRegistration.Create);
-end.
diff --git a/Components/Sources/Core/WrapDelphiExtCtrls.pas b/Components/Sources/Core/WrapDelphiExtCtrls.pas
deleted file mode 100644
index b957733..0000000
--- a/Components/Sources/Core/WrapDelphiExtCtrls.pas
+++ /dev/null
@@ -1,506 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiExtCtrls;
-
-interface
-
-uses
- Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses, WrapDelphiControls,
- Windows, ExtCtrls;
-
-type
- TPyDelphiShape = class (TPyDelphiGraphicControl)
- private
- function GetDelphiObject: TShape;
- procedure SetDelphiObject(const Value: TShape);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TShape read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiPaintBox = class (TPyDelphiGraphicControl)
- private
- function GetDelphiObject: TPaintBox;
- procedure SetDelphiObject(const Value: TPaintBox);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TPaintBox read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiImage = class (TPyDelphiGraphicControl)
- private
- function GetDelphiObject: TImage;
- procedure SetDelphiObject(const Value: TImage);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TImage read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiBevel = class (TPyDelphiGraphicControl)
- private
- function GetDelphiObject: TBevel;
- procedure SetDelphiObject(const Value: TBevel);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TBevel read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiTimer = class (TPyDelphiComponent)
- private
- function GetDelphiObject: TTimer;
- procedure SetDelphiObject(const Value: TTimer);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TTimer read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiPanel = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TPanel;
- procedure SetDelphiObject(const Value: TPanel);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TPanel read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiPage = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TPage;
- procedure SetDelphiObject(const Value: TPage);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TPage read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiNotebook = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TNotebook;
- procedure SetDelphiObject(const Value: TNotebook);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TNotebook read GetDelphiObject write SetDelphiObject;
- end;
-
- {$IFNDEF FPC}
- TPyDelphiHeader = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: THeader;
- procedure SetDelphiObject(const Value: THeader);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: THeader read GetDelphiObject write SetDelphiObject;
- end;
- {$ENDIF FPC}
-
- TPyDelphiRadioGroup = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TRadioGroup;
- procedure SetDelphiObject(const Value: TRadioGroup);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TRadioGroup read GetDelphiObject write SetDelphiObject;
- end;
-
- {$IFDEF FPC}
- TPyDelphiSplitter = class (TPyDelphiWinControl)
- {$ELSE FPC}
- TPyDelphiSplitter = class (TPyDelphiGraphicControl)
- {$ENDIF FPC}
- private
- function GetDelphiObject: TSplitter;
- procedure SetDelphiObject(const Value: TSplitter);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TSplitter read GetDelphiObject write SetDelphiObject;
- end;
-
- {$IFNDEF FPC}
- TPyDelphiControlBar = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TControlBar;
- procedure SetDelphiObject(const Value: TControlBar);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TControlBar read GetDelphiObject write SetDelphiObject;
- end;
- {$ENDIF FPC}
-
- TPyDelphiBoundLabel = class (TPyDelphiControl)
- private
- function GetDelphiObject: TBoundLabel;
- procedure SetDelphiObject(const Value: TBoundLabel);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TBoundLabel read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiLabeledEdit = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TLabeledEdit;
- procedure SetDelphiObject(const Value: TLabeledEdit);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TLabeledEdit read GetDelphiObject write SetDelphiObject;
- end;
-
- {$IFNDEF FPC}
- TPyDelphiColorBox = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TColorBox;
- procedure SetDelphiObject(const Value: TColorBox);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TColorBox read GetDelphiObject write SetDelphiObject;
- end;
- {$ENDIF FPC}
-
-implementation
-
-{ Register the wrappers, the globals and the constants }
-type
- TExtCtrlsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TExtCtrlsRegistration }
-
-procedure TExtCtrlsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
-end;
-
-function TExtCtrlsRegistration.Name: String;
-begin
- Result := 'ExtCtrls';
-end;
-
-procedure TExtCtrlsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiShape);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPaintBox);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImage);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiBevel);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTimer);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPanel);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPage);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiNotebook);
- {$IFNDEF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiHeader);
- {$ENDIF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiRadioGroup);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiSplitter);
- {$IFNDEF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiControlBar);
- {$ENDIF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiBoundLabel);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiLabeledEdit);
- {$IFNDEF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiColorBox);
- {$ENDIF FPC}
-end;
-
-
-{ TPyDelphiShape }
-
-class function TPyDelphiShape.DelphiObjectClass: TClass;
-begin
- Result := TShape;
-end;
-
-function TPyDelphiShape.GetDelphiObject: TShape;
-begin
- Result := TShape(inherited DelphiObject);
-end;
-
-procedure TPyDelphiShape.SetDelphiObject(const Value: TShape);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiPaintBox }
-
-class function TPyDelphiPaintBox.DelphiObjectClass: TClass;
-begin
- Result := TPaintBox;
-end;
-
-function TPyDelphiPaintBox.GetDelphiObject: TPaintBox;
-begin
- Result := TPaintBox(inherited DelphiObject);
-end;
-
-procedure TPyDelphiPaintBox.SetDelphiObject(const Value: TPaintBox);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiImage }
-
-class function TPyDelphiImage.DelphiObjectClass: TClass;
-begin
- Result := TImage;
-end;
-
-function TPyDelphiImage.GetDelphiObject: TImage;
-begin
- Result := TImage(inherited DelphiObject);
-end;
-
-procedure TPyDelphiImage.SetDelphiObject(const Value: TImage);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiBevel }
-
-class function TPyDelphiBevel.DelphiObjectClass: TClass;
-begin
- Result := TBevel;
-end;
-
-function TPyDelphiBevel.GetDelphiObject: TBevel;
-begin
- Result := TBevel(inherited DelphiObject);
-end;
-
-procedure TPyDelphiBevel.SetDelphiObject(const Value: TBevel);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiTimer }
-
-class function TPyDelphiTimer.DelphiObjectClass: TClass;
-begin
- Result := TTimer;
-end;
-
-function TPyDelphiTimer.GetDelphiObject: TTimer;
-begin
- Result := TTimer(inherited DelphiObject);
-end;
-
-procedure TPyDelphiTimer.SetDelphiObject(const Value: TTimer);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiPanel }
-
-class function TPyDelphiPanel.DelphiObjectClass: TClass;
-begin
- Result := TPanel;
-end;
-
-function TPyDelphiPanel.GetDelphiObject: TPanel;
-begin
- Result := TPanel(inherited DelphiObject);
-end;
-
-procedure TPyDelphiPanel.SetDelphiObject(const Value: TPanel);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiPage }
-
-class function TPyDelphiPage.DelphiObjectClass: TClass;
-begin
- Result := TPage;
-end;
-
-function TPyDelphiPage.GetDelphiObject: TPage;
-begin
- Result := TPage(inherited DelphiObject);
-end;
-
-procedure TPyDelphiPage.SetDelphiObject(const Value: TPage);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiNotebook }
-
-class function TPyDelphiNotebook.DelphiObjectClass: TClass;
-begin
- Result := TNotebook;
-end;
-
-function TPyDelphiNotebook.GetDelphiObject: TNotebook;
-begin
- Result := TNotebook(inherited DelphiObject);
-end;
-
-procedure TPyDelphiNotebook.SetDelphiObject(const Value: TNotebook);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{$IFNDEF FPC}
-{ TPyDelphiHeader }
-
-class function TPyDelphiHeader.DelphiObjectClass: TClass;
-begin
- Result := THeader;
-end;
-
-function TPyDelphiHeader.GetDelphiObject: THeader;
-begin
- Result := THeader(inherited DelphiObject);
-end;
-
-procedure TPyDelphiHeader.SetDelphiObject(const Value: THeader);
-begin
- inherited DelphiObject := Value;
-end;
-{$ENDIF FPC}
-
-
-{ TPyDelphiRadioGroup }
-
-class function TPyDelphiRadioGroup.DelphiObjectClass: TClass;
-begin
- Result := TRadioGroup;
-end;
-
-function TPyDelphiRadioGroup.GetDelphiObject: TRadioGroup;
-begin
- Result := TRadioGroup(inherited DelphiObject);
-end;
-
-procedure TPyDelphiRadioGroup.SetDelphiObject(const Value: TRadioGroup);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiSplitter }
-
-class function TPyDelphiSplitter.DelphiObjectClass: TClass;
-begin
- Result := TSplitter;
-end;
-
-function TPyDelphiSplitter.GetDelphiObject: TSplitter;
-begin
- Result := TSplitter(inherited DelphiObject);
-end;
-
-procedure TPyDelphiSplitter.SetDelphiObject(const Value: TSplitter);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{$IFNDEF FPC}
-{ TPyDelphiControlBar }
-
-class function TPyDelphiControlBar.DelphiObjectClass: TClass;
-begin
- Result := TControlBar;
-end;
-
-function TPyDelphiControlBar.GetDelphiObject: TControlBar;
-begin
- Result := TControlBar(inherited DelphiObject);
-end;
-
-procedure TPyDelphiControlBar.SetDelphiObject(const Value: TControlBar);
-begin
- inherited DelphiObject := Value;
-end;
-{$ENDIF FPC}
-
-{ TPyDelphiBoundLabel }
-
-class function TPyDelphiBoundLabel.DelphiObjectClass: TClass;
-begin
- Result := TBoundLabel;
-end;
-
-function TPyDelphiBoundLabel.GetDelphiObject: TBoundLabel;
-begin
- Result := TBoundLabel(inherited DelphiObject);
-end;
-
-procedure TPyDelphiBoundLabel.SetDelphiObject(const Value: TBoundLabel);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiLabeledEdit }
-
-class function TPyDelphiLabeledEdit.DelphiObjectClass: TClass;
-begin
- Result := TLabeledEdit;
-end;
-
-function TPyDelphiLabeledEdit.GetDelphiObject: TLabeledEdit;
-begin
- Result := TLabeledEdit(inherited DelphiObject);
-end;
-
-procedure TPyDelphiLabeledEdit.SetDelphiObject(const Value: TLabeledEdit);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{$IFNDEF FPC}
-{ TPyDelphiColorBox }
-
-class function TPyDelphiColorBox.DelphiObjectClass: TClass;
-begin
- Result := TColorBox;
-end;
-
-function TPyDelphiColorBox.GetDelphiObject: TColorBox;
-begin
- Result := TColorBox(inherited DelphiObject);
-end;
-
-procedure TPyDelphiColorBox.SetDelphiObject(const Value: TColorBox);
-begin
- inherited DelphiObject := Value;
-end;
-{$ENDIF FPC}
-
-
-initialization
- RegisteredUnits.Add( TExtCtrlsRegistration.Create );
- {$IFDEF FPC}
- Classes.RegisterClasses([TShape, TPaintBox, TImage, TBevel, TTimer, TPanel, TPage, TNotebook,
- TRadioGroup, TSplitter, TBoundLabel, TLabeledEdit]);
- {$ELSE FPC}
- Classes.RegisterClasses([TShape, TPaintBox, TImage, TBevel, TTimer, TPanel, TPage, TNotebook, THeader,
- TRadioGroup, TSplitter, TControlBar, TBoundLabel, TLabeledEdit, TColorBox]);
- {$ENDIF FPC}
-end.
diff --git a/Components/Sources/Core/WrapDelphiForms.pas b/Components/Sources/Core/WrapDelphiForms.pas
deleted file mode 100644
index 1dfa73b..0000000
--- a/Components/Sources/Core/WrapDelphiForms.pas
+++ /dev/null
@@ -1,2812 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiForms;
-
-interface
-
-uses
- Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses, WrapDelphiControls,
- Windows, Forms, Graphics, TypInfo;
-
-type
- TCloseQueryEventHandler = class(TEventHandler)
- protected
- procedure DoEvent(Sender: TObject; var CanClose : Boolean);
- public
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); override;
- class function GetTypeInfo : PTypeInfo; override;
- end;
-
- TCloseEventHandler = class(TEventHandler)
- protected
- procedure DoEvent(Sender: TObject; var Action: TCloseAction);
- public
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); override;
- class function GetTypeInfo : PTypeInfo; override;
- end;
-
- {
- PyObject wrapping TCustomForm
- Exposes methods ShowModal, Close, CloseQuery, Release
- Exposes property ModalResult
- }
- TPyDelphiCustomForm = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TCustomForm;
- procedure SetDelphiObject(const Value: TCustomForm);
- protected
- function CreateComponent(AOwner : TComponent) : TComponent; override;
- // Exposed Methods
- function Close_Wrapper(args: PPyObject): PPyObject; cdecl;
- function CloseQuery_Wrapper(args: PPyObject): PPyObject; cdecl;
- function ShowModal_Wrapper(args: PPyObject): PPyObject; cdecl;
- function Release_Wrapper(args : PPyObject) : PPyObject; cdecl;
- // Property Getters
- function Get_ModalResult(AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_ModalResult(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TCustomForm read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiForm = class (TPyDelphiCustomForm)
- private
- function GetDelphiObject: TForm;
- procedure SetDelphiObject(const Value: TForm);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TForm read GetDelphiObject write SetDelphiObject;
- end;
-
- {
- PyObject wrapping TMonitor
- Exposes properties Handle, MonitorNum, Left, Height, Top, Width, BoundsRect, WorkareaRect, Primary
- }
- TPyDelphiMonitor = class (TPyDelphiObject)
- private
- function GetDelphiObject: TMonitor;
- procedure SetDelphiObject(const Value: TMonitor);
- protected
- function Get_Handle(AContext : Pointer): PPyObject; cdecl;
- function Get_MonitorNum(AContext : Pointer): PPyObject; cdecl;
- function Get_Left(AContext : Pointer): PPyObject; cdecl;
- function Get_Height(AContext : Pointer): PPyObject; cdecl;
- function Get_Top(AContext : Pointer): PPyObject; cdecl;
- function Get_Width(AContext : Pointer): PPyObject; cdecl;
- function Get_BoundsRect(AContext : Pointer): PPyObject; cdecl;
- function Get_WorkareaRect(AContext : Pointer): PPyObject; cdecl;
- function Get_Primary(AContext : Pointer): PPyObject; cdecl;
- public
- // Class methods
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TMonitor read GetDelphiObject write SetDelphiObject;
- end;
-
- TBaseScreenAccess = class(TContainerAccess)
- private
- function GetContainer: TScreen;
- public
- class function ExpectedContainerClass : TClass; override;
-
- property Container : TScreen read GetContainer;
- end;
-
- {
- Access to the custom forms of the Screen singleton.
- }
- TScreenCustomFormsAccess = class(TBaseScreenAccess)
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- //function IndexOf(AValue : PPyObject) : Integer; override;
-
- //class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
- end;
-
- {
- Access to the forms of the Screen singleton.
- }
- TScreenFormsAccess = class(TBaseScreenAccess)
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- //function IndexOf(AValue : PPyObject) : Integer; override;
-
- //class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
- end;
-
- {
- Access to the TDataModule items of the Screen singleton.
- }
- TScreenDataModulesAccess = class(TBaseScreenAccess)
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- //function IndexOf(AValue : PPyObject) : Integer; override;
-
- //class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
- end;
-
- {
- Access to the Cursors of the Screen singleton.
- }
- TScreenCursorsAccess = class(TBaseScreenAccess)
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- //function IndexOf(AValue : PPyObject) : Integer; override;
-
- //class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
- end;
-
- {
- Access to the Cursors of the Screen singleton.
- }
- TScreenMonitorsAccess = class(TBaseScreenAccess)
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- //function IndexOf(AValue : PPyObject) : Integer; override;
-
- //class function SupportsIndexOf : Boolean; override;
- class function Name : String; override;
- end;
-
- {
- PyObject wrapping TScreen
- Exposes methods DisableAlign, EnableAlign, Realign, ResetFonts
- Exposes all properties of TScreen
- }
- TPyDelphiScreen = class (TPyDelphiComponent)
- private
- fOnActiveControlChange: PPyObject;
- fOnActiveFormChange: PPyObject;
- function GetDelphiObject: TScreen;
- procedure SetDelphiObject(const Value: TScreen);
- procedure HandleOnActiveControlChange(Sender : TObject);
- procedure HandleOnActiveFormChange(Sender : TObject);
- protected
- // Exposed Methods
- {$IFNDEF FPC}
- function DisableAlign_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function EnableAlign_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function MonitorFromPoint_Wrapper(args : PPyObject) : PPyObject; cdecl;
- //TODO: implementation
- //function MonitorFromRect(const Rect: TRect; MonitorDefault: TMonitorDefaultTo = mdNearest): TMonitor;
- //function MonitorFromWindow(const Handle: THandle; MonitorDefault: TMonitorDefaultTo = mdNearest): TMonitor;
- {$IFNDEF FPC}
- function Realign_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ResetFonts_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- // Property Getters
- function Get_ActiveControl(AContext : Pointer) : PPyObject; cdecl;
- function Get_ActiveCustomForm(AContext : Pointer) : PPyObject; cdecl;
- function Get_ActiveForm(AContext : Pointer) : PPyObject; cdecl;
- function Get_CustomFormCount(AContext : Pointer) : PPyObject; cdecl;
- function Get_CustomForms(AContext : Pointer) : PPyObject; cdecl;
- function Get_Cursor(AContext : Pointer) : PPyObject; cdecl;
- function Get_Cursors(AContext : Pointer) : PPyObject; cdecl;
- function Get_DataModules(AContext : Pointer) : PPyObject; cdecl;
- function Get_DataModuleCount(AContext : Pointer) : PPyObject; cdecl;
- function Get_MonitorCount(AContext : Pointer) : PPyObject; cdecl;
- function Get_Monitors(AContext : Pointer) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_DesktopRect(AContext : Pointer) : PPyObject; cdecl;
- function Get_DesktopLeft(AContext : Pointer) : PPyObject; cdecl;
- function Get_DesktopTop(AContext : Pointer) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_DesktopWidth(AContext : Pointer) : PPyObject; cdecl;
- function Get_DesktopHeight(AContext : Pointer) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_WorkAreaRect(AContext : Pointer) : PPyObject; cdecl;
- function Get_WorkAreaHeight(AContext : Pointer) : PPyObject; cdecl;
- function Get_WorkAreaLeft(AContext : Pointer) : PPyObject; cdecl;
- function Get_WorkAreaTop(AContext : Pointer) : PPyObject; cdecl;
- function Get_WorkAreaWidth(AContext : Pointer) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_HintFont(AContext : Pointer) : PPyObject; cdecl;
- function Get_IconFont(AContext : Pointer) : PPyObject; cdecl;
- function Get_MenuFont(AContext : Pointer) : PPyObject; cdecl;
- function Get_Fonts(AContext : Pointer) : PPyObject; cdecl;
- function Get_FormCount(AContext : Pointer) : PPyObject; cdecl;
- function Get_Forms(AContext : Pointer) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_Imes(AContext : Pointer) : PPyObject; cdecl;
- function Get_DefaultIme(AContext : Pointer) : PPyObject; cdecl;
- function Get_DefaultKbLayout(AContext : Pointer) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_Height(AContext : Pointer) : PPyObject; cdecl;
- function Get_PixelsPerInch(AContext : Pointer) : PPyObject; cdecl;
- function Get_Width(AContext : Pointer) : PPyObject; cdecl;
- function Get_OnActiveControlChange(AContext : Pointer) : PPyObject; cdecl;
- function Get_OnActiveFormChange(AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_Cursor(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_HintFont(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_IconFont(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_MenuFont(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_OnActiveControlChange(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_OnActiveFormChange(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- destructor Destroy; override;
- // Class methods
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TScreen read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiApplication = class (TPyDelphiComponent)
- private
- function GetDelphiObject: TApplication;
- procedure SetDelphiObject(const Value: TApplication);
- protected
- // Exposed Methods
- function ActivateHint_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function BringToFront_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function CancelHint_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ExecuteAction_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function HandleException_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function HandleMessage_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function HelpCommand_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function HelpContext_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function HelpJump_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function HelpKeyword_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function HideHint_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Initialize_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function IsRightToLeft_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function MessageBox_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Minimize_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ModalStarted_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ModalFinished_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function NormalizeAllTopMosts_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function NormalizeTopMosts_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function RestoreTopMosts_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function ProcessMessages_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Restore_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Run_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ShowException_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Terminate_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function UpdateAction_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function UseRightToLeftAlignment_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function UseRightToLeftReading_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function UseRightToLeftScrollBar_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- // property getters
- function Get_Active(AContext : Pointer): PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_AllowTesting(AContext : Pointer): PPyObject; cdecl;
- function Get_AutoDragDocking(AContext : Pointer): PPyObject; cdecl;
- function Get_CurrentHelpFile(AContext : Pointer): PPyObject; cdecl;
- function Get_DialogHandle(AContext : Pointer): PPyObject; cdecl;
- function Get_Handle(AContext : Pointer): PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_ExeName(AContext : Pointer): PPyObject; cdecl;
- function Get_HelpFile(AContext : Pointer): PPyObject; cdecl;
- function Get_Hint(AContext : Pointer): PPyObject; cdecl;
- function Get_HintColor(AContext : Pointer): PPyObject; cdecl;
- function Get_HintHidePause(AContext : Pointer): PPyObject; cdecl;
- function Get_HintPause(AContext : Pointer): PPyObject; cdecl;
- function Get_HintShortCuts(AContext : Pointer): PPyObject; cdecl;
- function Get_HintShortPause(AContext : Pointer): PPyObject; cdecl;
- function Get_Icon(AContext : Pointer): PPyObject; cdecl;
- function Get_MainForm(AContext : Pointer): PPyObject; cdecl;
- function Get_BiDiMode(AContext : Pointer): PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_BiDiKeyboard(AContext : Pointer): PPyObject; cdecl;
- function Get_NonBiDiKeyboard(AContext : Pointer): PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_ShowHint(AContext : Pointer): PPyObject; cdecl;
- function Get_ShowMainForm(AContext : Pointer): PPyObject; cdecl;
- function Get_Terminated(AContext : Pointer): PPyObject; cdecl;
- function Get_Title(AContext : Pointer): PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_UpdateFormatSettings(AContext : Pointer): PPyObject; cdecl;
- function Get_UpdateMetricSettings(AContext : Pointer): PPyObject; cdecl;
- {$ENDIF FPC}
- // property setters
- {$IFNDEF FPC}
- function Set_AllowTesting(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_AutoDragDocking(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_DialogHandle(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_Handle(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- {$ENDIF FPC}
- function Set_HelpFile(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_Hint(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_HintColor(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_HintHidePause(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_HintPause(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_HintShortCuts(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_HintShortPause(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_Icon(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_BiDiMode(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- {$IFNDEF FPC}
- function Set_BiDiKeyboard(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_NonBiDiKeyboard(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- {$ENDIF FPC}
- function Set_ShowHint(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_ShowMainForm(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_Title(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- {$IFNDEF FPC}
- function Set_UpdateFormatSettings(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_UpdateMetricSettings(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- {$ENDIF FPC}
- public
- // Class methods
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TApplication read GetDelphiObject write SetDelphiObject;
- end;
-
-implementation
-
-uses
- WrapDelphiTypes;
-
-{ Global Functions }
-function FreeConsole_Wrapper(pself, args: PPyObject): PPyObject; cdecl;
-begin
- FreeConsole;
- Result := GetPythonEngine.ReturnNone;
-end;
-
-{ Register the wrappers, the globals and the constants }
-type
- TFormsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineFunctions(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TFormsRegistration }
-
-procedure TFormsRegistration.DefineFunctions(
- APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterFunction(PAnsiChar('FreeConsole'), FreeConsole_Wrapper,
- PAnsiChar('FreeConsole_Wrapper()'#10 +
- 'Frees the MS-DOS console associated with the process.'));
-end;
-
-procedure TFormsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- // Singletons
- APyDelphiWrapper.DefineVar('Application', Application);
- APyDelphiWrapper.DefineVar('Screen', Screen);
-
- // MessageBox flags
- APyDelphiWrapper.DefineVar('MB_ABORTRETRYIGNORE', MB_ABORTRETRYIGNORE);
- APyDelphiWrapper.DefineVar('MB_OK', MB_OK);
- APyDelphiWrapper.DefineVar('MB_OKCANCEL', MB_OKCANCEL);
- APyDelphiWrapper.DefineVar('MB_RETRYCANCEL', MB_RETRYCANCEL);
- APyDelphiWrapper.DefineVar('MB_YESNO', MB_YESNO);
- APyDelphiWrapper.DefineVar('MB_YESNOCANCEL', MB_YESNOCANCEL);
-
- // MessageBox results
- APyDelphiWrapper.DefineVar('IDOK', IDOK);
- APyDelphiWrapper.DefineVar('IDCANCEL', IDCANCEL);
- APyDelphiWrapper.DefineVar('IDABORT', IDABORT);
- APyDelphiWrapper.DefineVar('IDRETRY', IDRETRY);
- APyDelphiWrapper.DefineVar('IDIGNORE', IDIGNORE);
- APyDelphiWrapper.DefineVar('IDYES', IDYES);
- APyDelphiWrapper.DefineVar('IDNO', IDNO);
-
- // TCloseAction enum
- APyDelphiWrapper.DefineVar('caNone', caNone);
- APyDelphiWrapper.DefineVar('caHide', caHide);
- APyDelphiWrapper.DefineVar('caFree', caFree);
- APyDelphiWrapper.DefineVar('caMinimize', caMinimize);
-
- // TMonitorDefaultTo enum
- APyDelphiWrapper.DefineVar('mdNearest', mdNearest);
- APyDelphiWrapper.DefineVar('mdNull', mdNull);
- APyDelphiWrapper.DefineVar('mdPrimary', mdPrimary);
-end;
-
-function TFormsRegistration.Name: String;
-begin
- Result := 'Forms';
-end;
-
-procedure TFormsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomForm);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiForm);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiApplication);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiScreen);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiMonitor);
-
- APyDelphiWrapper.EventHandlers.RegisterHandler(TCloseQueryEventHandler);
- APyDelphiWrapper.EventHandlers.RegisterHandler(TCloseEventHandler);
-end;
-
-{ TPyDelphiCustomForm }
-
-function TPyDelphiCustomForm.Close_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Close') <> 0 then begin
- DelphiObject.Close;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCustomForm.CloseQuery_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':CloseQuery') <> 0 then begin
- Result := VariantAsPyObject(DelphiObject.CloseQuery)
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCustomForm.Release_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Release') <> 0 then
- begin
- if Owned then begin
- (DelphiObject as TForm).Release;
- DelphiObject := nil;
- Owned := False;
- Result := ReturnNone;
- end else begin
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar('The Delphi form cannot be released, since it is not Owned'));
- Result := nil;
- end;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCustomForm.ShowModal_Wrapper(args: PPyObject): PPyObject;
-Var
- ModalResult : integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ShowModal') <> 0 then begin
- ModalResult := (DelphiObject as TForm).ShowModal;
- Result := PyInt_FromLong(ModalResult);
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCustomForm.GetDelphiObject: TCustomForm;
-begin
- Result := TCustomForm(inherited DelphiObject);
-end;
-
-procedure TPyDelphiCustomForm.SetDelphiObject(const Value: TCustomForm);
-begin
- inherited DelphiObject := Value;
-end;
-
-class procedure TPyDelphiCustomForm.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('ModalResult', @TPyDelphiCustomForm.Get_ModalResult, @TPyDelphiCustomForm.Set_ModalResult,
- 'Represents the return value of a form that is used as a modal dialog.', nil);
- end;
-end;
-
-class procedure TPyDelphiCustomForm.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('Close', @TPyDelphiCustomForm.Close_Wrapper,
- 'TForm.Close()'#10 +
- 'Closes the wrapped Form');
- PythonType.AddMethod('CloseQuery', @TPyDelphiCustomForm.CloseQuery_Wrapper,
- 'TForm.CloseQuery()'#10 +
- 'Asked the wrapped Form if it can close');
- PythonType.AddMethod('ShowModal', @TPyDelphiCustomForm.ShowModal_Wrapper,
- 'TForm.ShowModal()'#10 +
- 'Shows the wrapped Form as a modal form');
- PythonType.AddMethod('Release', @TPyDelphiCustomForm.Release_Wrapper,
- 'TForm.Release()'#10 +
- 'Releases (destroys) the wrapped Form');
-end;
-
-class function TPyDelphiCustomForm.DelphiObjectClass: TClass;
-begin
- Result := TCustomForm;
-end;
-
-function TPyDelphiCustomForm.Get_ModalResult(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.ModalResult);
- end;
-end;
-
-function TPyDelphiCustomForm.Set_ModalResult(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _modalResult : Integer;
-begin
- if CheckIntAttribute(AValue, 'ModalResult', _modalResult) then
- with GetPythonEngine do begin
- Adjust(@Self);
- DelphiObject.ModalResult := _modalResult;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-function TPyDelphiCustomForm.CreateComponent(AOwner: TComponent): TComponent;
-var
- _class : TClass;
- _compClass : TComponentClass;
- _className : String;
-begin
- // get the default form class
- _compClass := TComponentClass(DelphiObjectClass);
- // if we have a subclass of our Form wrapper, then check if we can find
- // a Delphi class that would have the same name as the Python class.
- // This would allow Python to instanciate an existing Delphi form class,
- // instead of only using a blank form.
- if ob_type <> PythonType.TheTypePtr then
- begin
- _className := string(ob_type.tp_name);
- _class := GetClass(_className);
- if not Assigned(_class) then
- _class := GetClass('T'+_className);
- if Assigned(_class) and _class.InheritsFrom(TCustomForm) then
- _compClass := TComponentClass(_class);
- end;
- // if the Owner is Application, then we have to call its CreateForm method,
- // otherwise we won't have a main form defined, as the main form is the
- // first created form. Of course, this is a concern only when Python
- // controls all the GUI and calls Application.Run by itself.
- if AOwner = Application then
- Application.CreateForm(_compClass, Result)
- else
- Result := _compClass.Create(AOwner);
-end;
-
-{ TPyDelphiForm }
-
-class function TPyDelphiForm.DelphiObjectClass: TClass;
-begin
- Result := TForm;
-end;
-
-function TPyDelphiForm.GetDelphiObject: TForm;
-begin
- Result := TForm(inherited DelphiObject);
-end;
-
-procedure TPyDelphiForm.SetDelphiObject(const Value: TForm);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiScreen }
-
-class function TPyDelphiScreen.DelphiObjectClass: TClass;
-begin
- Result := TScreen;
-end;
-
-destructor TPyDelphiScreen.Destroy;
-begin
- if PythonOK then
- begin
- GetPythonEngine.Py_XDECREF(fOnActiveControlChange);
- GetPythonEngine.Py_XDECREF(fOnActiveFormChange);
- end;
- inherited;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiScreen.DisableAlign_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':DisableAlign') <> 0 then begin
- DelphiObject.DisableAlign;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiScreen.EnableAlign_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':EnableAlign') <> 0 then begin
- DelphiObject.EnableAlign;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiScreen.GetDelphiObject: TScreen;
-begin
- Result := TScreen(inherited DelphiObject);
-end;
-
-function TPyDelphiScreen.Get_ActiveControl(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.ActiveControl);
- end;
-end;
-
-function TPyDelphiScreen.Get_ActiveCustomForm(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.ActiveCustomForm);
- end;
-end;
-
-function TPyDelphiScreen.Get_ActiveForm(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.ActiveForm);
- end;
-end;
-
-function TPyDelphiScreen.Get_Cursor(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Cursor);
- end;
-end;
-
-function TPyDelphiScreen.Get_Cursors(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TScreenCursorsAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-function TPyDelphiScreen.Get_CustomFormCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.CustomFormCount);
- end;
-end;
-
-function TPyDelphiScreen.Get_CustomForms(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TScreenCustomFormsAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-function TPyDelphiScreen.Get_DataModuleCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.DataModuleCount);
- end;
-end;
-
-function TPyDelphiScreen.Get_DataModules(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TScreenDataModulesAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiScreen.Get_DefaultIme(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.DefaultIme)));
- end;
-end;
-
-function TPyDelphiScreen.Get_DefaultKbLayout(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.DefaultKbLayout);
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiScreen.Get_DesktopHeight(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.DesktopHeight);
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiScreen.Get_DesktopLeft(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.DesktopLeft);
- end;
-end;
-
-function TPyDelphiScreen.Get_DesktopRect(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := WrapRect(PyDelphiWrapper, DelphiObject.DesktopRect);
- end;
-end;
-
-function TPyDelphiScreen.Get_DesktopTop(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.DesktopTop);
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiScreen.Get_DesktopWidth(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.DesktopWidth);
- end;
-end;
-
-function TPyDelphiScreen.Get_Fonts(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Fonts);
- end;
-end;
-
-function TPyDelphiScreen.Get_FormCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.FormCount);
- end;
-end;
-
-function TPyDelphiScreen.Get_Forms(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TScreenFormsAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-function TPyDelphiScreen.Get_Height(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Height);
- end;
-end;
-
-function TPyDelphiScreen.Get_HintFont(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.HintFont);
- end;
-end;
-
-function TPyDelphiScreen.Get_IconFont(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.IconFont);
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiScreen.Get_Imes(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Imes);
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiScreen.Get_MenuFont(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.MenuFont);
- end;
-end;
-
-function TPyDelphiScreen.Get_MonitorCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.MonitorCount);
- end;
-end;
-
-function TPyDelphiScreen.Get_Monitors(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TScreenMonitorsAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-function TPyDelphiScreen.Get_OnActiveControlChange(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if Assigned(fOnActiveControlChange) then
- begin
- Result := fOnActiveControlChange;
- Py_XINCREF(Result);
- end
- else
- Result := ReturnNone;
- end;
-end;
-
-function TPyDelphiScreen.Get_OnActiveFormChange(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if Assigned(fOnActiveFormChange) then
- begin
- Result := fOnActiveFormChange;
- Py_XINCREF(Result);
- end
- else
- Result := ReturnNone;
- end;
-end;
-
-function TPyDelphiScreen.Get_PixelsPerInch(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.PixelsPerInch);
- end;
-end;
-
-function TPyDelphiScreen.Get_Width(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Width);
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiScreen.Get_WorkAreaHeight(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.WorkAreaHeight);
- end;
-end;
-
-function TPyDelphiScreen.Get_WorkAreaLeft(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.WorkAreaLeft);
- end;
-end;
-
-function TPyDelphiScreen.Get_WorkAreaRect(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := WrapRect(PyDelphiWrapper, DelphiObject.WorkAreaRect);
- end;
-end;
-
-function TPyDelphiScreen.Get_WorkAreaTop(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.WorkAreaTop);
- end;
-end;
-
-function TPyDelphiScreen.Get_WorkAreaWidth(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.WorkAreaWidth);
- end;
-end;
-{$ENDIF FPC}
-
-procedure TPyDelphiScreen.HandleOnActiveControlChange(Sender: TObject);
-begin
- RaiseNotifyEvent(PyDelphiWrapper, fOnActiveControlChange, Sender);
-end;
-
-procedure TPyDelphiScreen.HandleOnActiveFormChange(Sender: TObject);
-begin
- RaiseNotifyEvent(PyDelphiWrapper, fOnActiveFormChange, Sender);
-end;
-
-function TPyDelphiScreen.MonitorFromPoint_Wrapper(args: PPyObject): PPyObject;
-var
- p : TPoint;
- _pointObj : PPyObject;
- _monitorDefault : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'Oi:MonitorFromPoint',@_pointObj, @_monitorDefault ) <> 0 then
- begin
- if CheckPointAttribute(_pointObj, 'First parameter', p) and
- CheckEnum('TMonitorDefaultTo', _monitorDefault, Ord(Low(TMonitorDefaultTo)), Ord(High(TMonitorDefaultTo))) then
- begin
- Result := Wrap(DelphiObject.MonitorFromPoint(p, TMonitorDefaultTo(_monitorDefault)));
- end
- else
- Result := nil;
- end
- else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiScreen.Realign_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Realign') <> 0 then begin
- DelphiObject.Realign;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiScreen.ResetFonts_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ResetFonts') <> 0 then begin
- DelphiObject.ResetFonts;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-class procedure TPyDelphiScreen.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('ActiveControl', @TPyDelphiScreen.Get_ActiveControl, nil,
- 'Indicates which control currently has input focus on the screen.', nil);
- AddGetSet('ActiveCustomForm', @TPyDelphiScreen.Get_ActiveCustomForm, nil,
- 'Indicates the descendant of TCustomForm that currently has focus.', nil);
- AddGetSet('ActiveForm', @TPyDelphiScreen.Get_ActiveForm, nil,
- 'Indicates which form currently has focus.', nil);
- AddGetSet('CustomFormCount', @TPyDelphiScreen.Get_CustomFormCount, nil,
- 'Indicates the number of forms or property pages displayed on the screen.', nil);
- AddGetSet('CustomForms', @TPyDelphiScreen.Get_CustomForms, nil,
- 'Lists all the forms and property pages that are currently displayed in the application.', nil);
- AddGetSet('Cursor', @TPyDelphiScreen.Get_Cursor, @TPyDelphiScreen.Set_Cursor,
- 'Controls the mouse cursor image on a global level.', nil);
- AddGetSet('Cursors', @TPyDelphiScreen.Get_Cursors, nil,
- 'Lists the cursors available to the application.', nil);
- AddGetSet('DataModules', @TPyDelphiScreen.Get_DataModules, nil,
- 'Lists all the data modules that are currently instantiated in the application.', nil);
- AddGetSet('DataModuleCount', @TPyDelphiScreen.Get_DataModuleCount, nil,
- 'Indicates the number of data modules that are currently instantiated in the application.', nil);
- AddGetSet('MonitorCount', @TPyDelphiScreen.Get_MonitorCount, nil,
- 'Specifies the number of monitors used to comprise the desktop.', nil);
- AddGetSet('Monitors', @TPyDelphiScreen.Get_Monitors, nil,
- 'Provides access to an individual monitor used to comprise the desktop.', nil);
- {$IFNDEF FPC}
- AddGetSet('DesktopRect', @TPyDelphiScreen.Get_DesktopRect, nil,
- 'Specifies the boundaries of the virtual desktop relative to the upper-left corner of the primary monitor.', nil);
- AddGetSet('DesktopLeft', @TPyDelphiScreen.Get_DesktopLeft, nil,
- 'Specifies the x-coordinate of the desktop�s left edge relative to the upper-left corner of the primary monitor.', nil);
- AddGetSet('DesktopTop', @TPyDelphiScreen.Get_DesktopTop, nil,
- 'Specifies the y-coordinate of the entire desktop�s top edge relative to the upper-left corner of the primary monitor.', nil);
- {$ENDIF FPC}
- AddGetSet('DesktopWidth', @TPyDelphiScreen.Get_DesktopWidth, nil,
- 'Specifies the width of the entire virtual desktop.', nil);
- AddGetSet('DesktopHeight', @TPyDelphiScreen.Get_DesktopHeight, nil,
- 'Specifies the height of the entire virtual desktop.', nil);
- {$IFNDEF FPC}
- AddGetSet('WorkAreaRect', @TPyDelphiScreen.Get_WorkAreaRect, nil,
- 'Specifies the boundaries of the usable work area on the primary monitor.', nil);
- AddGetSet('WorkAreaHeight', @TPyDelphiScreen.Get_WorkAreaHeight, nil,
- 'Specifies the height of the work area on the primary monitor.', nil);
- AddGetSet('WorkAreaLeft', @TPyDelphiScreen.Get_WorkAreaLeft, nil,
- 'Specifies the left edge of the work area on the primary monitor.', nil);
- AddGetSet('WorkAreaTop', @TPyDelphiScreen.Get_WorkAreaTop, nil,
- 'Specifies the top edge of the work area on the primary monitor.', nil);
- AddGetSet('WorkAreaWidth', @TPyDelphiScreen.Get_WorkAreaWidth, nil,
- 'Specifies the width of the work area on the primary monitor.', nil);
- {$ENDIF FPC}
- AddGetSet('HintFont', @TPyDelphiScreen.Get_HintFont, @TPyDelphiScreen.Set_HintFont,
- 'Specifies the font used to display help hints.', nil);
- AddGetSet('IconFont', @TPyDelphiScreen.Get_IconFont, @TPyDelphiScreen.Set_IconFont,
- 'Specifies the font used to display the labels on the icons in file selection dialogs.', nil);
- AddGetSet('MenuFont', @TPyDelphiScreen.Get_MenuFont, @TPyDelphiScreen.Set_MenuFont,
- 'Specifies the font used for menu commands.', nil);
- AddGetSet('Fonts', @TPyDelphiScreen.Get_Fonts, nil,
- 'Lists the face names for all fonts supported by the screen.', nil);
- AddGetSet('FormCount', @TPyDelphiScreen.Get_FormCount, nil,
- 'Indicates the number of forms or property pages displayed on the screen.', nil);
- AddGetSet('Forms', @TPyDelphiScreen.Get_Forms, nil,
- 'Lists all the forms currently displayed in the application.', nil);
- {$IFNDEF FPC}
- AddGetSet('Imes', @TPyDelphiScreen.Get_Imes, nil,
- 'Lists all input method editors (IMEs) installed on the system.', nil);
- AddGetSet('DefaultIme', @TPyDelphiScreen.Get_DefaultIme, nil,
- 'Indicates which input method editor (IME) is active when the TScreen object is created.', nil);
- AddGetSet('DefaultKbLayout', @TPyDelphiScreen.Get_DefaultKbLayout, nil,
- 'Indicates the Windows handle to the keyboard layout that was active when the application started running.', nil);
- {$ENDIF FPC}
- AddGetSet('Height', @TPyDelphiScreen.Get_Height, nil,
- 'Indicates the vertical size of the screen in pixels.', nil);
- AddGetSet('PixelsPerInch', @TPyDelphiScreen.Get_PixelsPerInch, nil,
- 'Indicates the number of screen pixels that make up a logical inch in the vertical direction.', nil);
- AddGetSet('Width', @TPyDelphiScreen.Get_Width, nil,
- 'Indicates the horizontal size of the screen in pixels.', nil);
- AddGetSet('OnActiveControlChange', @TPyDelphiScreen.Get_OnActiveControlChange, @TPyDelphiScreen.Set_OnActiveControlChange,
- 'Occurs immediately after input focus changes to a new windowed control.', nil);
- AddGetSet('OnActiveFormChange', @TPyDelphiScreen.Get_OnActiveFormChange, @TPyDelphiScreen.Set_OnActiveFormChange,
- 'Occurs immediately after a new form becomes active in a multi-form application.', nil);
- end;
-end;
-
-class procedure TPyDelphiScreen.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- {$IFNDEF FPC}
- PythonType.AddMethod('DisableAlign', @TPyDelphiScreen.DisableAlign_Wrapper,
- 'TScreen.DisableAlign()'#10 +
- 'Prevents forms from being aligned in the screen.');
- PythonType.AddMethod('EnableAlign', @TPyDelphiScreen.EnableAlign_Wrapper,
- 'TScreen.EnableAlign()'#10 +
- 'Allows forms to be aligned in the screen.');
- PythonType.AddMethod('Realign', @TPyDelphiScreen.Realign_Wrapper,
- 'TScreen.Realign()'#10 +
- 'Realigns the screen�s forms according to their Align properties.');
- PythonType.AddMethod('ResetFonts', @TPyDelphiScreen.ResetFonts_Wrapper,
- 'TScreen.ResetFonts()'#10 +
- 'Reinitializes the fonts listed in the Fonts property.');
- {$ENDIF FPC}
- PythonType.AddMethod('MonitorFromPoint', @TPyDelphiScreen.MonitorFromPoint_Wrapper,
- 'TScreen.MonitorFromPoint(APoint, AMonitorDefault)'#10 +
- 'Returns the monitor where a specified point is located.');
-end;
-
-procedure TPyDelphiScreen.SetDelphiObject(const Value: TScreen);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiScreen.Set_Cursor(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _cursor : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Cursor', _cursor) then
- begin
- DelphiObject.Cursor := _cursor;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiScreen.Set_HintFont(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _font : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'HintFont', TFont, _font) then
- begin
- DelphiObject.HintFont := TFont(_font);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiScreen.Set_IconFont(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _font : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'IconFont', TFont, _font) then
- begin
- DelphiObject.IconFont := TFont(_font);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiScreen.Set_MenuFont(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _font : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'MenuFont', TFont, _font) then
- begin
- DelphiObject.MenuFont := TFont(_font);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiScreen.Set_OnActiveControlChange(AValue: PPyObject;
- AContext: Pointer): Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckCallableAttribute(AValue, 'OnActiveControlChange') then
- begin
- Py_XDECREF(fOnActiveControlChange);
- if AValue = Py_None then
- begin
- DelphiObject.OnActiveControlChange := nil;
- fOnActiveControlChange := nil;
- end
- else
- begin
- fOnActiveControlChange := AValue;
- Py_XINCREF(fOnActiveControlChange);
- DelphiObject.OnActiveControlChange := HandleOnActiveControlChange;
- end;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiScreen.Set_OnActiveFormChange(AValue: PPyObject;
- AContext: Pointer): Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckCallableAttribute(AValue, 'OnActiveFormChange') then
- begin
- Py_XDECREF(fOnActiveFormChange);
- if AValue = Py_None then
- begin
- DelphiObject.OnActiveFormChange := nil;
- fOnActiveFormChange := nil;
- end
- else
- begin
- fOnActiveFormChange := AValue;
- Py_XINCREF(fOnActiveFormChange);
- DelphiObject.OnActiveFormChange := HandleOnActiveFormChange;
- end;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{ TBaseScreenAccess }
-
-class function TBaseScreenAccess.ExpectedContainerClass: TClass;
-begin
- Result := TScreen;
-end;
-
-function TBaseScreenAccess.GetContainer: TScreen;
-begin
- Result := TScreen(inherited Container);
-end;
-
-{ TScreenCustomFormsAccess }
-
-function TScreenCustomFormsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap(Container.CustomForms[AIndex]);
-end;
-
-function TScreenCustomFormsAccess.GetSize: Integer;
-begin
- Result := Container.CustomFormCount;
-end;
-
-class function TScreenCustomFormsAccess.Name: String;
-begin
- Result := 'TScreen.CustomForms';
-end;
-
-{ TScreenFormsAccess }
-
-function TScreenFormsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap(Container.Forms[AIndex]);
-end;
-
-function TScreenFormsAccess.GetSize: Integer;
-begin
- Result := Container.FormCount;
-end;
-
-class function TScreenFormsAccess.Name: String;
-begin
- Result := 'TScreen.Forms';
-end;
-
-{ TScreenDataModulesAccess }
-
-function TScreenDataModulesAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap(Container.DataModules[AIndex]);
-end;
-
-function TScreenDataModulesAccess.GetSize: Integer;
-begin
- Result := Container.DataModuleCount;
-end;
-
-class function TScreenDataModulesAccess.Name: String;
-begin
- Result := 'TScreen.DataModules';
-end;
-
-{ TScreenCursorsAccess }
-
-function TScreenCursorsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := GetPythonEngine.PyInt_FromLong( Container.Cursors[AIndex] );
-end;
-
-function TScreenCursorsAccess.GetSize: Integer;
-begin
- Result := 32767;
-end;
-
-class function TScreenCursorsAccess.Name: String;
-begin
- Result := 'TScreen.Cursors';
-end;
-
-{ TScreenMonitorsAccess }
-
-function TScreenMonitorsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- Result := Wrap(Container.Monitors[AIndex]);
-end;
-
-function TScreenMonitorsAccess.GetSize: Integer;
-begin
- Result := Container.MonitorCount;
-end;
-
-class function TScreenMonitorsAccess.Name: String;
-begin
- Result := 'TScreen.Monitors';
-end;
-
-{ TPyDelphiMonitor }
-
-function TPyDelphiMonitor.Get_BoundsRect(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := WrapRect(PyDelphiWrapper, DelphiObject.BoundsRect);
- end;
-end;
-
-function TPyDelphiMonitor.Get_Handle(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Handle);
- end;
-end;
-
-function TPyDelphiMonitor.Get_Height(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Height);
- end;
-end;
-
-function TPyDelphiMonitor.Get_Left(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Left);
- end;
-end;
-
-function TPyDelphiMonitor.Get_MonitorNum(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.MonitorNum);
- end;
-end;
-
-function TPyDelphiMonitor.Get_Primary(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Primary);
- end;
-end;
-
-function TPyDelphiMonitor.Get_Top(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Top);
- end;
-end;
-
-function TPyDelphiMonitor.Get_Width(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Width);
- end;
-end;
-
-function TPyDelphiMonitor.Get_WorkareaRect(AContext : Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := WrapRect(PyDelphiWrapper, DelphiObject.WorkareaRect);
- end;
-end;
-
-function TPyDelphiMonitor.GetDelphiObject: TMonitor;
-begin
- Result := TMonitor(inherited DelphiObject);
-end;
-
-class procedure TPyDelphiMonitor.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Handle', @TPyDelphiMonitor.Get_Handle, nil,
- 'Indicates the Windows handle for the monitor.', nil);
- AddGetSet('MonitorNum', @TPyDelphiMonitor.Get_MonitorNum, nil,
- 'Specifies the index of the monitor in the global screen object�s Monitors list.', nil);
- AddGetSet('Left', @TPyDelphiMonitor.Get_Left, nil,
- 'Indicates the logical position of the left edge of the monitor.', nil);
- AddGetSet('Height', @TPyDelphiMonitor.Get_Height, nil,
- 'Indicates the vertical size of the monitor in pixels.', nil);
- AddGetSet('Top', @TPyDelphiMonitor.Get_Top, nil,
- 'Indicates the logical position of the top edge of the monitor.', nil);
- AddGetSet('Width', @TPyDelphiMonitor.Get_Width, nil,
- 'Indicates the horizontal size of the monitor in pixels.', nil);
- AddGetSet('BoundsRect', @TPyDelphiMonitor.Get_BoundsRect, nil,
- 'Indicates the dimensions of the monitor in pixels.', nil);
- AddGetSet('WorkareaRect', @TPyDelphiMonitor.Get_WorkareaRect, nil,
- 'Indicates the dimensions of the usable area on the monitor.', nil);
- AddGetSet('Primary', @TPyDelphiMonitor.Get_Primary, nil,
- 'Indicates whether this is the primary monitor.', nil);
- end;
-end;
-
-procedure TPyDelphiMonitor.SetDelphiObject(const Value: TMonitor);
-begin
- inherited DelphiObject := Value;
-end;
-
-class function TPyDelphiMonitor.DelphiObjectClass: TClass;
-begin
- Result := TMonitor;
-end;
-
-{ TPyDelphiApplication }
-
-function TPyDelphiApplication.ActivateHint_Wrapper(
- args: PPyObject): PPyObject;
-var
- _obj : PPyObject;
- _point : TPoint;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:ActivateHint',@_obj ) <> 0 then begin
- if CheckPointAttribute(_obj, 'The first argument of ActivateHint', _point) then
- begin
- DelphiObject.ActivateHint(_point);
- Result := ReturnNone;
- end else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.BringToFront_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':BringToFront') <> 0 then begin
- DelphiObject.BringToFront;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.CancelHint_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':CancelHint') <> 0 then begin
- DelphiObject.CancelHint;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.ExecuteAction_Wrapper(
- args: PPyObject): PPyObject;
-var
- _obj : PPyObject;
- _value : TObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:ExecuteAction',@_obj ) <> 0 then begin
- if CheckObjAttribute(_obj, 'The first argument of ExecuteAction', TBasicAction, _value) then
- begin
- Result := VariantAsPyObject( DelphiObject.ExecuteAction(TBasicAction(_value)) );
- end else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.GetDelphiObject: TApplication;
-begin
- Result := TApplication(inherited DelphiObject);
-end;
-
-function TPyDelphiApplication.HandleException_Wrapper(
- args: PPyObject): PPyObject;
-var
- _obj : PPyObject;
- _sender : TObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:HandleException',@_obj ) <> 0 then begin
- if CheckObjAttribute(_obj, 'The first argument of HandleException', TObject, _sender) then
- begin
- DelphiObject.HandleException(_sender);
- Result := ReturnNone;
- end else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.HandleMessage_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':HandleMessage') <> 0 then begin
- DelphiObject.HandleMessage;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.HelpCommand_Wrapper(
- args: PPyObject): PPyObject;
-var
- _command : Integer;
- _data : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'i:HelpCommand',@_command, @_data ) <> 0 then begin
- Result := VariantAsPyObject( DelphiObject.HelpCommand(_command, _data) );
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.HelpContext_Wrapper(
- args: PPyObject): PPyObject;
-var
- _context : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'i:HelpContext',@_context ) <> 0 then begin
- Result := VariantAsPyObject( DelphiObject.HelpContext(_context) );
- end else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.HelpJump_Wrapper(args: PPyObject): PPyObject;
-var
- _jumpID : PAnsiChar;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 's:HelpJump',@_jumpID ) <> 0 then begin
- Result := VariantAsPyObject( DelphiObject.HelpJump(String(_jumpID)) );
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.HelpKeyword_Wrapper(
- args: PPyObject): PPyObject;
-var
- _keyword : PAnsiChar;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 's:HelpKeyword',@_keyword ) <> 0 then begin
- Result := VariantAsPyObject( DelphiObject.HelpKeyword(String(_keyword)) );
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.HideHint_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':HideHint') <> 0 then begin
- DelphiObject.HideHint;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.Initialize_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Initialize') <> 0 then begin
- DelphiObject.Initialize;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.IsRightToLeft_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':IsRightToLeft') <> 0 then begin
- Result := VariantAsPyObject( DelphiObject.IsRightToLeft );
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.MessageBox_Wrapper(
- args: PPyObject): PPyObject;
-var
- _text : PAnsiChar;
- _caption : PAnsiChar;
- _flags : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'ssi:MessageBox',@_text, @_caption, @_flags ) <> 0 then begin
- Result := PyInt_FromLong(
- DelphiObject.MessageBox(PChar(string(_text)), PChar(string(_caption)), _flags) );
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.Minimize_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Minimize') <> 0 then begin
- DelphiObject.Minimize;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.ModalFinished_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ModalFinished') <> 0 then begin
- DelphiObject.ModalFinished;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.ModalStarted_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ModalStarted') <> 0 then begin
- DelphiObject.ModalStarted;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.NormalizeAllTopMosts_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':NormalizeAllTopMosts') <> 0 then begin
- DelphiObject.NormalizeAllTopMosts;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.NormalizeTopMosts_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':NormalizeTopMosts') <> 0 then begin
- DelphiObject.NormalizeTopMosts;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.RestoreTopMosts_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':RestoreTopMosts') <> 0 then begin
- DelphiObject.RestoreTopMosts;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.ProcessMessages_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ProcessMessages') <> 0 then begin
- DelphiObject.ProcessMessages;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-class procedure TPyDelphiApplication.RegisterGetSets(
- PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Active', @TPyDelphiApplication.Get_Active, nil,
- 'Specifies whether the application is active and has focus.', nil);
- {$IFNDEF FPC}
- AddGetSet('AllowTesting', @TPyDelphiApplication.Get_AllowTesting, @TPyDelphiApplication.Set_AllowTesting,
- 'Represents information for the IDE.', nil);
- AddGetSet('AutoDragDocking', @TPyDelphiApplication.Get_AutoDragDocking, @TPyDelphiApplication.Set_AutoDragDocking,
- 'Indicates whether dragged windows are automatically docked.', nil);
- AddGetSet('CurrentHelpFile', @TPyDelphiApplication.Get_CurrentHelpFile, nil,
- 'Indicates the current help file.', nil);
- {$ENDIF FPC}
- AddGetSet('ExeName', @TPyDelphiApplication.Get_ExeName, nil,
- 'Contains the file name of the application�s executable file including path information.', nil);
- {$IFNDEF FPC}
- AddGetSet('DialogHandle', @TPyDelphiApplication.Get_DialogHandle, @TPyDelphiApplication.Set_DialogHandle,
- 'Provides a mechanism for using non-VCL dialog boxes in an application.', nil);
- AddGetSet('Handle', @TPyDelphiApplication.Get_Handle, @TPyDelphiApplication.Set_Handle,
- 'Provides access to the window handle of the main form (window) of the application.', nil);
- {$ENDIF FPC}
- AddGetSet('HelpFile', @TPyDelphiApplication.Get_HelpFile, @TPyDelphiApplication.Set_HelpFile,
- 'Specifies the name of the default file the application uses to display Help.', nil);
- AddGetSet('Hint', @TPyDelphiApplication.Get_Hint, @TPyDelphiApplication.Set_Hint,
- 'Specifies the text string that appears in the Help Hint box.', nil);
- AddGetSet('HintColor', @TPyDelphiApplication.Get_HintColor, @TPyDelphiApplication.Set_HintColor,
- 'color of the hint boxes for the Help Hints for the application.', nil);
- AddGetSet('HintPause', @TPyDelphiApplication.Get_HintPause, @TPyDelphiApplication.Set_HintPause,
- 'Specifies the time interval that passes before the control''s Help Hint appears when the user places the mouse pointer on a control or menu item.', nil);
- AddGetSet('HintHidePause', @TPyDelphiApplication.Get_HintHidePause, @TPyDelphiApplication.Set_HintHidePause,
- 'Specifies the time interval to wait before hiding the Help Hint if the mouse has not moved from the control or menu item.', nil);
- AddGetSet('HintShortCuts', @TPyDelphiApplication.Get_HintShortCuts, @TPyDelphiApplication.Set_HintShortCuts,
- 'Specifies whether the application�s pop-up hints include shortcut information.', nil);
- AddGetSet('HintShortPause', @TPyDelphiApplication.Get_HintShortPause, @TPyDelphiApplication.Set_HintShortPause,
- 'Specifies the time period to wait before bringing up a hint if another hint has already been shown.', nil);
- AddGetSet('Icon', @TPyDelphiApplication.Get_Icon, @TPyDelphiApplication.Set_Icon,
- 'Determines which icon represents the application on the Windows task bar.', nil);
- AddGetSet('MainForm', @TPyDelphiApplication.Get_MainForm, nil,
- 'Identifies which form in the application is the main window.', nil);
- AddGetSet('BiDiMode', @TPyDelphiApplication.Get_BiDiMode, @TPyDelphiApplication.Set_BiDiMode,
- 'Indicates the layout of the application when running under Middle Eastern versions of Windows.', nil);
- {$IFNDEF FPC}
- AddGetSet('BiDiKeyboard', @TPyDelphiApplication.Get_BiDiKeyboard, @TPyDelphiApplication.Set_BiDiKeyboard,
- 'Specifies the name of the keyboard map that should be used in middle-east locales when text reads from right to left.', nil);
- AddGetSet('NonBiDiKeyboard', @TPyDelphiApplication.Get_NonBiDiKeyboard, @TPyDelphiApplication.Set_NonBiDiKeyboard,
- 'Specifies the name of the keyboard map that should be used unless text reads from right to left.', nil);
- {$ENDIF FPC}
- AddGetSet('ShowHint', @TPyDelphiApplication.Get_ShowHint, @TPyDelphiApplication.Set_ShowHint,
- 'Determines whether Help Hints are enabled or disabled for the entire application.', nil);
- AddGetSet('ShowMainForm', @TPyDelphiApplication.Get_ShowMainForm, @TPyDelphiApplication.Set_ShowMainForm,
- 'Determines whether the application shows its main form on startup.', nil);
- AddGetSet('Terminated', @TPyDelphiApplication.Get_Terminated, nil,
- 'Reports whether the application is in the process of shutting down.', nil);
- AddGetSet('Title', @TPyDelphiApplication.Get_Title, @TPyDelphiApplication.Set_Title,
- 'Contains the text that appears below the icon representing the application when it is minimized.', nil);
- {$IFNDEF FPC}
- AddGetSet('UpdateFormatSettings', @TPyDelphiApplication.Get_UpdateFormatSettings, @TPyDelphiApplication.Set_UpdateFormatSettings,
- 'Specifies whether format settings are updated automatically when the user alters the system configuration.', nil);
- AddGetSet('UpdateMetricSettings', @TPyDelphiApplication.Get_UpdateMetricSettings, @TPyDelphiApplication.Set_UpdateMetricSettings,
- 'Specifies whether the settings used for the hint window font and the icon title font are updated.', nil);
- {$ENDIF FPC}
- end;
-end;
-
-class procedure TPyDelphiApplication.RegisterMethods(
- PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('ActivateHint', @TPyDelphiApplication.ActivateHint_Wrapper,
- 'TApplication.ActivateHint()'#10 +
- 'Displays a hint window for the control at a specified position.');
- PythonType.AddMethod('BringToFront', @TPyDelphiApplication.BringToFront_Wrapper,
- 'TApplication.BringToFront()'#10 +
- 'Sets the last active window as the topmost window on the desktop above all other applications.');
- PythonType.AddMethod('CancelHint', @TPyDelphiApplication.CancelHint_Wrapper,
- 'TApplication.CancelHint()'#10 +
- 'Cancels the display of a hint for a control.');
- PythonType.AddMethod('ExecuteAction', @TPyDelphiApplication.ExecuteAction_Wrapper,
- 'TApplication.ExecuteAction()'#10 +
- 'Generates an OnActionExecute event.');
- PythonType.AddMethod('HandleException', @TPyDelphiApplication.HandleException_Wrapper,
- 'TApplication.HandleException()'#10 +
- 'Provides default handling of exceptions for the application.');
- PythonType.AddMethod('HandleMessage', @TPyDelphiApplication.HandleMessage_Wrapper,
- 'TApplication.HandleMessage()'#10 +
- 'Interrupts the execution of an application while Windows processes a message in the Windows message queue. ');
- PythonType.AddMethod('HelpCommand', @TPyDelphiApplication.HelpCommand_Wrapper,
- 'TApplication.HelpCommand()'#10 +
- 'Provides quick access to any of the Help commands in the WinHelp API (application programming interface).');
- PythonType.AddMethod('HelpContext', @TPyDelphiApplication.HelpContext_Wrapper,
- 'TApplication.HelpContext()'#10 +
- 'Displays a specified help topic.');
- {$IFNDEF FPC}
- PythonType.AddMethod('HelpJump', @TPyDelphiApplication.HelpJump_Wrapper,
- 'TApplication.HelpJump()'#10 +
- 'Displays a specified help topic.');
- {$ENDIF FPC}
- PythonType.AddMethod('HelpKeyword', @TPyDelphiApplication.HelpKeyword_Wrapper,
- 'TApplication.HelpKeyword()'#10 +
- 'Displays a specified help topic.');
- PythonType.AddMethod('HideHint', @TPyDelphiApplication.HideHint_Wrapper,
- 'TApplication.HideHint()'#10 +
- 'Hides the current hint.');
- PythonType.AddMethod('Initialize', @TPyDelphiApplication.Initialize_Wrapper,
- 'TApplication.Initialize()'#10 +
- 'Provides an opportunity to initialize subsystems.');
- {$IFNDEF FPC}
- PythonType.AddMethod('IsRightToLeft', @TPyDelphiApplication.IsRightToLeft_Wrapper,
- 'TApplication.IsRightToLeft()'#10 +
- 'Specifies whether the application adjusts its interface for Middle Eastern locales.');
- {$ENDIF FPC}
- PythonType.AddMethod('MessageBox', @TPyDelphiApplication.MessageBox_Wrapper,
- 'TApplication.MessageBox()'#10 +
- 'Displays a specified message to the user.');
- PythonType.AddMethod('Minimize', @TPyDelphiApplication.Minimize_Wrapper,
- 'TApplication.Minimize()'#10 +
- 'Shrinks an application to the Windows task bar.');
- PythonType.AddMethod('ModalStarted', @TPyDelphiApplication.ModalStarted_Wrapper,
- 'TApplication.ModalStarted()'#10 +
- 'Track opening of modal form.');
- PythonType.AddMethod('ModalFinished', @TPyDelphiApplication.ModalFinished_Wrapper,
- 'TApplication.ModalFinished()'#10 +
- 'Track closing of modal form.');
- {$IFNDEF FPC}
- PythonType.AddMethod('NormalizeAllTopMosts', @TPyDelphiApplication.NormalizeAllTopMosts_Wrapper,
- 'TApplication.NormalizeAllTopMosts()'#10 +
- 'Makes forms that have been designated as topmost forms (their FormStyle is fsStayOnTop) behave as if they were not topmost forms. ');
- PythonType.AddMethod('RestoreTopMosts', @TPyDelphiApplication.RestoreTopMosts_Wrapper,
- 'TApplication.RestoreTopMosts()'#10 +
- 'Restores forms designated as fsStayOnTop to be topmost again.');
- {$ENDIF FPC}
- PythonType.AddMethod('ProcessMessages', @TPyDelphiApplication.ProcessMessages_Wrapper,
- 'TApplication.ProcessMessages()'#10 +
- 'Interrupts the execution of an application so that it can process the message queue.');
- PythonType.AddMethod('Restore', @TPyDelphiApplication.Restore_Wrapper,
- 'TApplication.Restore()'#10 +
- 'Restores a minimized application to its normal size.');
- PythonType.AddMethod('Run', @TPyDelphiApplication.Run_Wrapper,
- 'TApplication.Run()'#10 +
- 'Executes the application.');
- PythonType.AddMethod('ShowException', @TPyDelphiApplication.ShowException_Wrapper,
- 'TApplication.ShowException()'#10 +
- 'Displays a message box for exceptions that are not caught by application code.');
- PythonType.AddMethod('Terminate', @TPyDelphiApplication.Terminate_Wrapper,
- 'TApplication.Terminate()'#10 +
- 'Ends application execution.');
- PythonType.AddMethod('UpdateAction', @TPyDelphiApplication.UpdateAction_Wrapper,
- 'TApplication.UpdateAction()'#10 +
- 'Generates an OnActionUpdate event.');
- {$IFNDEF FPC}
- PythonType.AddMethod('UseRightToLeftAlignment', @TPyDelphiApplication.UseRightToLeftAlignment_Wrapper,
- 'TApplication.UseRightToLeftAlignment()'#10 +
- 'Specifies whether the application object is in a right-to-left alignment mode.');
- PythonType.AddMethod('UseRightToLeftReading', @TPyDelphiApplication.UseRightToLeftReading_Wrapper,
- 'TApplication.UseRightToLeftReading()'#10 +
- 'Specifies whether the application object is in a right-to-left text mode.');
- PythonType.AddMethod('UseRightToLeftScrollBar', @TPyDelphiApplication.UseRightToLeftScrollBar_Wrapper,
- 'TApplication.UseRightToLeftScrollBar()'#10 +
- 'Specifies whether the vertical scroll bar appears on the left side controls.');
- {$ENDIF FPC}
-end;
-
-function TPyDelphiApplication.Restore_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Restore') <> 0 then begin
- DelphiObject.Restore;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.Run_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Run') <> 0 then
- begin
- DelphiObject.Run;
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-procedure TPyDelphiApplication.SetDelphiObject(const Value: TApplication);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiApplication.ShowException_Wrapper(
- args: PPyObject): PPyObject;
-var
- _obj : PPyObject;
- _value : TObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:ShowException',@_obj ) <> 0 then begin
- if CheckObjAttribute(_obj, 'The first argument of ShowException', Exception, _value) then
- begin
- DelphiObject.ShowException(Exception(_value));
- Result := ReturnNone;
- end else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.Terminate_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Terminate') <> 0 then begin
- DelphiObject.Terminate;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.UpdateAction_Wrapper(
- args: PPyObject): PPyObject;
-var
- _obj : PPyObject;
- _value : TObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:UpdateAction',@_obj ) <> 0 then begin
- if CheckObjAttribute(_obj, 'The first argument of UpdateAction', TBasicAction, _value) then
- begin
- DelphiObject.UpdateAction(TBasicAction(_value));
- Result := ReturnNone;
- end else
- Result := nil;
- end else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.UseRightToLeftAlignment_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':UseRightToLeftAlignment') <> 0 then begin
- DelphiObject.UseRightToLeftAlignment;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.UseRightToLeftReading_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':UseRightToLeftReading') <> 0 then begin
- DelphiObject.UseRightToLeftReading;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-function TPyDelphiApplication.UseRightToLeftScrollBar_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':UseRightToLeftScrollBar') <> 0 then begin
- DelphiObject.UseRightToLeftScrollBar;
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.Get_Active(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Active);
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.Get_AllowTesting(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.AllowTesting);
- end;
-end;
-
-function TPyDelphiApplication.Get_AutoDragDocking(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.AutoDragDocking);
- end;
-end;
-
-function TPyDelphiApplication.Get_BiDiKeyboard(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.BiDiKeyboard)));
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.Get_BiDiMode(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Ord(DelphiObject.BiDiMode));
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.Get_CurrentHelpFile(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.CurrentHelpFile)));
- end;
-end;
-
-function TPyDelphiApplication.Get_DialogHandle(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.DialogHandle);
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.Get_ExeName(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.ExeName)));
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.Get_Handle(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Handle);
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.Get_HelpFile(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.HelpFile)));
- end;
-end;
-
-function TPyDelphiApplication.Get_Hint(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.Hint)));
- end;
-end;
-
-function TPyDelphiApplication.Get_HintColor(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.HintColor);
- end;
-end;
-
-function TPyDelphiApplication.Get_HintHidePause(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.HintHidePause);
- end;
-end;
-
-function TPyDelphiApplication.Get_HintPause(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.HintPause);
- end;
-end;
-
-function TPyDelphiApplication.Get_HintShortCuts(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.HintShortCuts);
- end;
-end;
-
-function TPyDelphiApplication.Get_HintShortPause(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.HintShortPause);
- end;
-end;
-
-function TPyDelphiApplication.Get_Icon(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Icon);
- end;
-end;
-
-function TPyDelphiApplication.Get_MainForm(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.MainForm);
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.Get_NonBiDiKeyboard(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.NonBiDiKeyboard)));
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.Get_ShowHint(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.ShowHint);
- end;
-end;
-
-function TPyDelphiApplication.Get_ShowMainForm(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.ShowMainForm);
- end;
-end;
-
-function TPyDelphiApplication.Get_Terminated(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Terminated);
- end;
-end;
-
-function TPyDelphiApplication.Get_Title(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.Title)));
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.Get_UpdateFormatSettings(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.UpdateFormatSettings);
- end;
-end;
-
-function TPyDelphiApplication.Get_UpdateMetricSettings(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.UpdateMetricSettings);
- end;
-end;
-
-function TPyDelphiApplication.Set_AllowTesting(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'AllowTesting', _value) then
- begin
- DelphiObject.AllowTesting := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_AutoDragDocking(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'AutoDragDocking', _value) then
- begin
- DelphiObject.AutoDragDocking := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_BiDiKeyboard(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'BiDiKeyboard', _value) then
- begin
- DelphiObject.BiDiKeyboard := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.Set_BiDiMode(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'BiDiMode', _value) then
- begin
- DelphiObject.BiDiMode := TBiDiMode(_value);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.Set_DialogHandle(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'DialogHandle', _value) then
- begin
- DelphiObject.DialogHandle := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_Handle(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Handle', _value) then
- begin
- DelphiObject.Handle := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.Set_HelpFile(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'HelpFile', _value) then
- begin
- DelphiObject.HelpFile := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_Hint(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'Hint', _value) then
- begin
- DelphiObject.Hint := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_HintColor(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'HintColor', _value) then
- begin
- DelphiObject.HintColor := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_HintHidePause(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'HintHidePause', _value) then
- begin
- DelphiObject.HintHidePause := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_HintPause(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'HintPause', _value) then
- begin
- DelphiObject.HintPause := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_HintShortCuts(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'HintShortCuts', _value) then
- begin
- DelphiObject.HintShortCuts := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_HintShortPause(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'HintShortPause', _value) then
- begin
- DelphiObject.HintShortPause := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_Icon(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'Icon', TIcon, _value) then
- begin
- DelphiObject.Icon := TIcon(_value);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.Set_NonBiDiKeyboard(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'NonBiDiKeyboard', _value) then
- begin
- DelphiObject.NonBiDiKeyboard := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiApplication.Set_ShowHint(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'ShowHint', _value) then
- begin
- DelphiObject.ShowHint := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_ShowMainForm(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'ShowMainForm', _value) then
- begin
- DelphiObject.ShowMainForm := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_Title(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'Title', _value) then
- begin
- DelphiObject.Title := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiApplication.Set_UpdateFormatSettings(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'UpdateFormatSettings', _value) then
- begin
- DelphiObject.UpdateFormatSettings := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiApplication.Set_UpdateMetricSettings(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'UpdateMetricSettings', _value) then
- begin
- DelphiObject.UpdateMetricSettings := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-{$ENDIF FPC}
-
-class function TPyDelphiApplication.DelphiObjectClass: TClass;
-begin
- Result := TApplication;
-end;
-
-{ TCloseQueryEventHandler }
-
-constructor TCloseQueryEventHandler.Create(
- PyDelphiWrapper: TPyDelphiWrapper; Component: TObject;
- PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- Method : TMethod;
-begin
- inherited;
- Method.Code := @TCloseQueryEventHandler.DoEvent;
- Method.Data := Self;
- SetMethodProp(Component, PropertyInfo, Method);
-end;
-
-procedure TCloseQueryEventHandler.DoEvent(Sender: TObject;
- var CanClose: Boolean);
-Var
- PyObject, PyTuple, PyResult, PyCanClose : PPyObject;
- _varParam : TPyDelphiVarParameter;
-begin
- Assert(Assigned(PyDelphiWrapper));
- if Assigned(Callable) and PythonOK then
- with GetPythonEngine do begin
- PyObject := PyDelphiWrapper.Wrap(Sender);
- PyCanClose := CreateVarParam(PyDelphiWrapper, CanClose);
- _varParam := PythonToDelphi(PyCanClose) as TPyDelphiVarParameter;
- PyTuple := PyTuple_New(2);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 0, PyObject);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 1, PyCanClose);
- try
- PyResult := PyObject_CallObject(Callable, PyTuple);
- if Assigned(PyResult) then
- begin
- Py_DECREF(PyResult);
- CanClose := PyObject_IsTrue(_varParam.Value) = 1;
- end;
- finally
- Py_DECREF(PyTuple);
- end;
- CheckError;
- end;
-end;
-
-class function TCloseQueryEventHandler.GetTypeInfo: PTypeInfo;
-begin
- Result := System.TypeInfo(TCloseQueryEvent);
-end;
-
-{ TCloseActionEventHandler }
-
-constructor TCloseEventHandler.Create(
- PyDelphiWrapper: TPyDelphiWrapper; Component: TObject;
- PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- Method : TMethod;
-begin
- inherited;
- Method.Code := @TCloseEventHandler.DoEvent;
- Method.Data := Self;
- SetMethodProp(Component, PropertyInfo, Method);
-end;
-
-procedure TCloseEventHandler.DoEvent(Sender: TObject;
- var Action: TCloseAction);
-Var
- PyObject, PyTuple, PyResult, PyAction : PPyObject;
- _varParam : TPyDelphiVarParameter;
-begin
- Assert(Assigned(PyDelphiWrapper));
- if Assigned(Callable) and PythonOK then
- with GetPythonEngine do begin
- PyObject := PyDelphiWrapper.Wrap(Sender);
- PyAction := CreateVarParam(PyDelphiWrapper, NativeInt(Action));
- _varParam := PythonToDelphi(PyAction) as TPyDelphiVarParameter;
- PyTuple := PyTuple_New(2);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 0, PyObject);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 1, PyAction);
- try
- PyResult := PyObject_CallObject(Callable, PyTuple);
- if Assigned(PyResult) then
- begin
- Py_DECREF(PyResult);
- if PyInt_Check(_varParam.Value) and
- CheckEnum('TCloseAction', PyInt_AsLong(_varParam.Value), Ord(Low(TCloseAction)), Ord(High(TCloseAction))) then
- Action := TCloseAction(PyInt_AsLong(_varParam.Value));
- end;
- finally
- Py_DECREF(PyTuple);
- end;
- CheckError;
- end;
-end;
-
-class function TCloseEventHandler.GetTypeInfo: PTypeInfo;
-begin
- Result := System.TypeInfo(TCloseEvent);
-end;
-
-initialization
- RegisteredUnits.Add( TFormsRegistration.Create );
- Classes.RegisterClasses([TForm, TScreen, TApplication]);
-end.
diff --git a/Components/Sources/Core/WrapDelphiGraphics.pas b/Components/Sources/Core/WrapDelphiGraphics.pas
deleted file mode 100644
index 8fdca3e..0000000
--- a/Components/Sources/Core/WrapDelphiGraphics.pas
+++ /dev/null
@@ -1,2734 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiGraphics;
-
-interface
-
-uses
- Classes, Windows, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses, Graphics;
-
-type
- TPyDelphiGraphic = class(TPyDelphiPersistent)
- private
- function GetDelphiObject: TGraphic;
- procedure SetDelphiObject(const Value: TGraphic);
- protected
- // Exposed Methods
- function LoadFromFile_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SaveToFile_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function LoadFromStream_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SaveToStream_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function LoadFromClipboardFormat_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SaveToClipboardFormat_Wrapper(args : PPyObject) : PPyObject; cdecl;
-
- // Property Getters
- function Get_Empty( AContext : Pointer) : PPyObject; cdecl;
- function Get_Height( AContext : Pointer) : PPyObject; cdecl;
- function Get_Modified( AContext : Pointer) : PPyObject; cdecl;
- function Get_Palette( AContext : Pointer) : PPyObject; cdecl;
- function Get_PaletteModified( AContext : Pointer) : PPyObject; cdecl;
- function Get_Transparent( AContext : Pointer) : PPyObject; cdecl;
- function Get_Width( AContext : Pointer) : PPyObject; cdecl;
-
- // Property Setters
- function Set_Height( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- function Set_Modified( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- function Set_Palette( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- function Set_PaletteModified( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- function Set_Transparent( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- function Set_Width( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TGraphic read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiBitmap = class(TPyDelphiGraphic)
- private
- function GetDelphiObject: TBitmap;
- procedure SetDelphiObject(const Value: TBitmap);
- protected
- // Exposed Methods
- {$IFNDEF FPC}
- function Dormant_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function FreeImage_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function LoadFromResourceName_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function LoadFromResourceID_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Mask_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ReleaseHandle_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ReleaseMaskHandle_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ReleasePalette_Wrapper(args : PPyObject) : PPyObject; cdecl;
-
- // Property Getters
- function Get_Canvas( AContext : Pointer) : PPyObject; cdecl;
- function Get_Handle( AContext : Pointer) : PPyObject; cdecl;
- function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;
- function Get_HandleType( AContext : Pointer) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_IgnorePalette( AContext : Pointer) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_MaskHandle( AContext : Pointer) : PPyObject; cdecl;
- function Get_Monochrome( AContext : Pointer) : PPyObject; cdecl;
- function Get_PixelFormat( AContext : Pointer) : PPyObject; cdecl;
- function Get_TransparentColor( AContext : Pointer) : PPyObject; cdecl;
- function Get_TransparentMode( AContext : Pointer) : PPyObject; cdecl;
-
- // Property Setters
- function Set_Handle( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_HandleType( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- {$IFNDEF FPC}
- function Set_IgnorePalette( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- {$ENDIF FPC}
- function Set_MaskHandle( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Monochrome( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_PixelFormat( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_TransparentColor( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_TransparentMode( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TBitmap read GetDelphiObject write SetDelphiObject;
- end;
-
- {$IFNDEF FPC}
- TPyDelphiMetaFile = class(TPyDelphiGraphic)
- private
- function GetDelphiObject: TMetaFile;
- procedure SetDelphiObject(const Value: TMetaFile);
- protected
- // Exposed Methods
- function Clear_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function ReleaseHandle_Wrapper(args : PPyObject) : PPyObject; cdecl;
-
- // Property Getters
- function Get_CreatedBy( AContext : Pointer) : PPyObject; cdecl;
- function Get_Description( AContext : Pointer) : PPyObject; cdecl;
- function Get_Enhanced( AContext : Pointer) : PPyObject; cdecl;
- function Get_Handle( AContext : Pointer) : PPyObject; cdecl;
- function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;
- function Get_MMWidth( AContext : Pointer) : PPyObject; cdecl;
- function Get_MMHeight( AContext : Pointer) : PPyObject; cdecl;
- function Get_Inch( AContext : Pointer) : PPyObject; cdecl;
-
- // Property Setters
- function Set_Enhanced( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Handle( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_MMWidth( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_MMHeight( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Inch( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TMetaFile read GetDelphiObject write SetDelphiObject;
- end;
- {$ENDIF FPC}
-
- TPyDelphiIcon = class(TPyDelphiGraphic)
- private
- function GetDelphiObject: TIcon;
- procedure SetDelphiObject(const Value: TIcon);
- protected
- // Exposed Methods
- function ReleaseHandle_Wrapper(args : PPyObject) : PPyObject; cdecl;
-
- // Property Getters
- function Get_Handle( AContext : Pointer) : PPyObject; cdecl;
- function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_Handle( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TIcon read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiPicture = class(TPyDelphiPersistent)
- private
- function GetDelphiObject: TPicture;
- procedure SetDelphiObject(const Value: TPicture);
- protected
- // Exposed Methods
- function LoadFromFile_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function SaveToFile_Wrapper(args : PPyObject) : PPyObject; cdecl;
-
- // Property Getters
- function Get_Bitmap( AContext : Pointer) : PPyObject; cdecl;
- function Get_Graphic( AContext : Pointer) : PPyObject; cdecl;
- function Get_Height( AContext : Pointer) : PPyObject; cdecl;
- function Get_Icon( AContext : Pointer) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_MetaFile( AContext : Pointer) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_Width( AContext : Pointer) : PPyObject; cdecl;
-
- // Property Setters
- function Set_Bitmap( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Graphic( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Icon( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- {$IFNDEF FPC}
- function Set_MetaFile( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- {$ENDIF FPC}
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TPicture read GetDelphiObject write SetDelphiObject;
- end;
- {
- PyObject wrapping TCanvas
- }
- TPyDelphiCanvas = class(TPyDelphiPersistent)
- private
- function GetDelphiObject: TCanvas;
- procedure SetDelphiObject(const Value: TCanvas);
- protected
- // Exposed Methods
- function Arc_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function BrushCopy_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Chord_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function CopyRect_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Draw_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function DrawFocusRect_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Ellipse_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function FillRect_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function FloodFill_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function FrameRect_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function LineTo_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Lock_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function MoveTo_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Pie_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Polygon_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Polyline_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function PolyBezier_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function PolyBezierTo_Wrapper(args : PPyObject) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Rectangle_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Refresh_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function RoundRect_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function StretchDraw_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function TextExtent_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function TextHeight_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function TextOut_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function TextRect_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function TextWidth_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function TryLock_Wrapper(args : PPyObject) : PPyObject; cdecl;
- function Unlock_Wrapper(args : PPyObject) : PPyObject; cdecl;
- // Pixels[x,y] : TColor wrapper -> GetPixel / SetPixel
- function GetPixel(args : PPyObject) : PPyObject; cdecl;
- function SetPixel(args : PPyObject) : PPyObject; cdecl;
- // Property Getters
- function Get_HandleAllocated( AContext : Pointer) : PPyObject; cdecl;
- function Get_ClipRect( AContext : Pointer) : PPyObject; cdecl;
- function Get_Handle( AContext : Pointer) : PPyObject; cdecl;
- function Get_LockCount( AContext : Pointer) : PPyObject; cdecl;
- {$IFNDEF FPC}
- function Get_CanvasOrientation( AContext : Pointer) : PPyObject; cdecl;
- function Get_TextFlags( AContext : Pointer) : PPyObject; cdecl;
- {$ENDIF FPC}
- function Get_PenPos( AContext : Pointer) : PPyObject; cdecl;
- function Get_OnChange( AContext : Pointer) : PPyObject; cdecl;
- function Get_OnChanging( AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_Handle( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- {$IFNDEF FPC}
- function Set_TextFlags( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- {$ENDIF FPC}
- function Set_OnChange( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- function Set_OnChanging( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TCanvas read GetDelphiObject write SetDelphiObject;
- end;
-
-
-implementation
-
-uses
- Types,
- {$IFDEF FPC}
- GraphType,
- {$ENDIF FPC}
- WrapDelphiTypes;
-
-{ Register the wrappers, the globals and the constants }
-type
- TGraphicsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TGraphicsRegistration }
-
-procedure TGraphicsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.DefineVar('clScrollBar', clScrollBar);
- APyDelphiWrapper.DefineVar('clBackground', clBackground);
- APyDelphiWrapper.DefineVar('clActiveCaption', clActiveCaption);
- APyDelphiWrapper.DefineVar('clInactiveCaption', clInactiveCaption);
- APyDelphiWrapper.DefineVar('clMenu', clMenu);
- APyDelphiWrapper.DefineVar('clWindow', clWindow);
- APyDelphiWrapper.DefineVar('clWindowFrame', clWindowFrame);
- APyDelphiWrapper.DefineVar('clMenuText', clMenuText);
- APyDelphiWrapper.DefineVar('clWindowText', clWindowText);
- APyDelphiWrapper.DefineVar('clCaptionText', clCaptionText);
- APyDelphiWrapper.DefineVar('clActiveBorder', clActiveBorder);
- APyDelphiWrapper.DefineVar('clInactiveBorder', clInactiveBorder);
- APyDelphiWrapper.DefineVar('clAppWorkSpace', clAppWorkSpace);
- APyDelphiWrapper.DefineVar('clHighlight', clHighlight);
- APyDelphiWrapper.DefineVar('clHighlightText', clHighlightText);
- APyDelphiWrapper.DefineVar('clBtnFace', clBtnFace);
- APyDelphiWrapper.DefineVar('clBtnShadow', clBtnShadow);
- APyDelphiWrapper.DefineVar('clGrayText', clGrayText);
- APyDelphiWrapper.DefineVar('clBtnText', clBtnText);
- APyDelphiWrapper.DefineVar('clInactiveCaptionText', clInactiveCaptionText);
- APyDelphiWrapper.DefineVar('clBtnHighlight', clBtnHighlight);
- APyDelphiWrapper.DefineVar('cl3DDkShadow', cl3DDkShadow);
- APyDelphiWrapper.DefineVar('cl3DLight', cl3DLight);
- APyDelphiWrapper.DefineVar('clInfoText', clInfoText);
- APyDelphiWrapper.DefineVar('clInfoBk', clInfoBk);
- APyDelphiWrapper.DefineVar('clHotLight', clHotLight);
- APyDelphiWrapper.DefineVar('clGradientActiveCaption', clGradientActiveCaption);
- APyDelphiWrapper.DefineVar('clGradientInactiveCaption', clGradientInactiveCaption);
- APyDelphiWrapper.DefineVar('clMenuHighlight', clMenuHighlight);
- APyDelphiWrapper.DefineVar('clMenuBar', clMenuBar);
-
- APyDelphiWrapper.DefineVar('clBlack', clBlack);
- APyDelphiWrapper.DefineVar('clMaroon', clMaroon);
- APyDelphiWrapper.DefineVar('clGreen', clGreen);
- APyDelphiWrapper.DefineVar('clOlive', clOlive);
- APyDelphiWrapper.DefineVar('clNavy', clNavy);
- APyDelphiWrapper.DefineVar('clPurple', clPurple);
- APyDelphiWrapper.DefineVar('clTeal', clTeal);
- APyDelphiWrapper.DefineVar('clGray', clGray);
- APyDelphiWrapper.DefineVar('clSilver', clSilver);
- APyDelphiWrapper.DefineVar('clRed', clRed);
- APyDelphiWrapper.DefineVar('clLime', clLime);
- APyDelphiWrapper.DefineVar('clYellow', clYellow);
- APyDelphiWrapper.DefineVar('clBlue', clBlue);
- APyDelphiWrapper.DefineVar('clFuchsia', clFuchsia);
- APyDelphiWrapper.DefineVar('clAqua', clAqua);
- APyDelphiWrapper.DefineVar('clLtGray', clLtGray);
- APyDelphiWrapper.DefineVar('clDkGray', clDkGray);
- APyDelphiWrapper.DefineVar('clWhite', clWhite);
-
- APyDelphiWrapper.DefineVar('clMoneyGreen', clMoneyGreen);
- APyDelphiWrapper.DefineVar('clSkyBlue', clSkyBlue);
- APyDelphiWrapper.DefineVar('clCream', clCream);
- APyDelphiWrapper.DefineVar('clMedGray', clMedGray);
-
- APyDelphiWrapper.DefineVar('clNone', clNone);
- APyDelphiWrapper.DefineVar('clDefault', clDefault);
-
- APyDelphiWrapper.DefineVar('fsSurface', 'fsSurface');
- APyDelphiWrapper.DefineVar('fsBorder', 'fsBorder');
-end;
-
-function TGraphicsRegistration.Name: String;
-begin
- Result := 'Graphics';
-end;
-
-procedure TGraphicsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiGraphic);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiBitmap);
- {$IFNDEF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiMetaFile);
- {$ENDIF FPC}
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiIcon);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPicture);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCanvas);
-end;
-
-{ TPyDelphiGraphic }
-
-class function TPyDelphiGraphic.DelphiObjectClass: TClass;
-begin
- Result := TGraphic;
-end;
-
-function TPyDelphiGraphic.GetDelphiObject: TGraphic;
-begin
- Result := TGraphic(inherited DelphiObject);
-end;
-
-function TPyDelphiGraphic.Get_Empty(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Empty);
- end;
-end;
-
-function TPyDelphiGraphic.Get_Height(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Height);
- end;
-end;
-
-function TPyDelphiGraphic.Get_Modified(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Modified);
- end;
-end;
-
-function TPyDelphiGraphic.Get_Palette(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Palette);
- end;
-end;
-
-function TPyDelphiGraphic.Get_PaletteModified(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.PaletteModified);
- end;
-end;
-
-function TPyDelphiGraphic.Get_Transparent(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Transparent);
- end;
-end;
-
-function TPyDelphiGraphic.Get_Width(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Width);
- end;
-end;
-
-function TPyDelphiGraphic.LoadFromClipboardFormat_Wrapper(
- args: PPyObject): PPyObject;
-var
- _format : Integer;
- {$IFNDEF FPC}
- _data : Integer;
- _palette : Integer;
- {$ENDIF FPC}
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- {$IFDEF FPC}
- if PyArg_ParseTuple( args, 'i:LoadFromClipboardFormat',@_format ) <> 0 then
- begin
- DelphiObject.LoadFromClipboardFormat(_format);
- {$ELSE FPC}
- if PyArg_ParseTuple( args, 'iii:LoadFromClipboardFormat',@_format, @_data, @_palette ) <> 0 then
- begin
- DelphiObject.LoadFromClipboardFormat(_format, _data, _palette);
- {$ENDIF FPC}
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiGraphic.LoadFromFile_Wrapper(args: PPyObject): PPyObject;
-var
- _pFileName : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:LoadFromFile',@_pFileName ) <> 0 then
- begin
- DelphiObject.LoadFromFile(PyString_AsDelphiString(_pFileName));
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiGraphic.LoadFromStream_Wrapper(
- args: PPyObject): PPyObject;
-var
- _obj : TObject;
- _oStream : PPyObject;
- _stream : TStream;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oStream := nil;
- if (PyArg_ParseTuple( args, 'O:LoadFromStrea',@_oStream ) <> 0) and
- CheckObjAttribute(_oStream, 'Stream', TStream, _obj) then
- begin
- _stream := TStream(_obj);
- DelphiObject.LoadFromStream(_stream);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-class procedure TPyDelphiGraphic.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Empty', @TPyDelphiGraphic.Get_Empty, nil,
- '', nil);
- AddGetSet('Height', @TPyDelphiGraphic.Get_Height, @TPyDelphiGraphic.Set_Height,
- '', nil);
- AddGetSet('Modified', @TPyDelphiGraphic.Get_Modified, @TPyDelphiGraphic.Set_Modified,
- '', nil);
- AddGetSet('Palette', @TPyDelphiGraphic.Get_Palette, @TPyDelphiGraphic.Set_Palette,
- '', nil);
- AddGetSet('PaletteModified', @TPyDelphiGraphic.Get_PaletteModified, @TPyDelphiGraphic.Set_PaletteModified,
- '', nil);
- AddGetSet('Transparent', @TPyDelphiGraphic.Get_Transparent, @TPyDelphiGraphic.Set_Transparent,
- '', nil);
- AddGetSet('Width', @TPyDelphiGraphic.Get_Width, @TPyDelphiGraphic.Set_Width,
- '', nil);
- end;
-end;
-
-class procedure TPyDelphiGraphic.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('LoadFromFile', @TPyDelphiGraphic.LoadFromFile_Wrapper,
- 'TGraphic.LoadFromFile()'#10 +
- '');
- PythonType.AddMethod('SaveToFile', @TPyDelphiGraphic.SaveToFile_Wrapper,
- 'TGraphic.SaveToFile()'#10 +
- '');
- PythonType.AddMethod('LoadFromStream', @TPyDelphiGraphic.LoadFromStream_Wrapper,
- 'TGraphic.LoadFromStream()'#10 +
- '');
- PythonType.AddMethod('SaveToStream', @TPyDelphiGraphic.SaveToStream_Wrapper,
- 'TGraphic.SaveToStream()'#10 +
- '');
- PythonType.AddMethod('LoadFromClipboardFormat', @TPyDelphiGraphic.LoadFromClipboardFormat_Wrapper,
- 'TGraphic.LoadFromClipboardFormat()'#10 +
- '');
- PythonType.AddMethod('SaveToClipboardFormat', @TPyDelphiGraphic.SaveToClipboardFormat_Wrapper,
- 'TGraphic.SaveToClipboardFormat()'#10 +
- '');
-end;
-
-function TPyDelphiGraphic.SaveToClipboardFormat_Wrapper(
- args: PPyObject): PPyObject;
-var
- _format : Word;
- {$IFNDEF FPC}
- _data : THandle;
- _palette : HPALETTE;
- {$ENDIF FPC}
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- {$IFDEF FPC}
- if PyArg_ParseTuple( args, ':SaveToClipboardFormat') <> 0 then
- begin
- DelphiObject.SaveToClipboardFormat(_format);
- {$ELSE FPC}
- if PyArg_ParseTuple( args, ':SaveToClipboardFormat') <> 0 then
- begin
- DelphiObject.SaveToClipboardFormat(_format, _data, _palette);
- {$ENDIF FPC}
- Result := PyTuple_New(3);
- PyTuple_SetItem(Result, 0, PyInt_FromLong(_format));
- {$IFNDEF FPC}
- PyTuple_SetItem(Result, 1, PyInt_FromLong(_data));
- PyTuple_SetItem(Result, 2, PyInt_FromLong(_palette));
- {$ENDIF FPC}
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiGraphic.SaveToFile_Wrapper(args: PPyObject): PPyObject;
-var
- _pFileName : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:SaveToFile',@_pFileName ) <> 0 then
- begin
- DelphiObject.SaveToFile(PyString_AsDelphiString(_pFileName));
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiGraphic.SaveToStream_Wrapper(args: PPyObject): PPyObject;
-var
- _obj : TObject;
- _oStream : PPyObject;
- _stream : TStream;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oStream := nil;
- if (PyArg_ParseTuple( args, 'O:SaveToStream',@_oStream ) <> 0) and
- CheckObjAttribute(_oStream, 'Stream', TStream, _obj) then
- begin
- _stream := TStream(_obj);
- DelphiObject.SaveToStream(_stream);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-procedure TPyDelphiGraphic.SetDelphiObject(const Value: TGraphic);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiGraphic.Set_Height(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Height', _value) then
- begin
- DelphiObject.Height := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiGraphic.Set_Modified(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'Modified', _value) then
- begin
- DelphiObject.Modified := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiGraphic.Set_Palette(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Palette', _value) then
- begin
- DelphiObject.Palette := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiGraphic.Set_PaletteModified(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'PaletteModified', _value) then
- begin
- DelphiObject.PaletteModified := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiGraphic.Set_Transparent(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'Transparent', _value) then
- begin
- DelphiObject.Transparent := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiGraphic.Set_Width(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Width', _value) then
- begin
- DelphiObject.Width := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{ TPyDelphiBitmap }
-
-class function TPyDelphiBitmap.DelphiObjectClass: TClass;
-begin
- Result := TBitmap;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiBitmap.Dormant_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Dormant') <> 0 then
- begin
- DelphiObject.Dormant;
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiBitmap.FreeImage_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':FreeImage') <> 0 then
- begin
- DelphiObject.FreeImage;
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiBitmap.GetDelphiObject: TBitmap;
-begin
- Result := TBitmap(inherited DelphiObject);
-end;
-
-function TPyDelphiBitmap.Get_Canvas(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Canvas);
- end;
-end;
-
-function TPyDelphiBitmap.Get_Handle(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Handle);
- end;
-end;
-
-function TPyDelphiBitmap.Get_HandleAllocated(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.HandleAllocated);
- end;
-end;
-
-function TPyDelphiBitmap.Get_HandleType(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- case DelphiObject.HandleType of
- bmDIB: Result := PyString_FromString('bmDIB');
- bmDDB: Result := PyString_FromString('bmDDB');
- else
- Result := ReturnNone;
- end;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiBitmap.Get_IgnorePalette(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.IgnorePalette);
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiBitmap.Get_MaskHandle(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.MaskHandle);
- end;
-end;
-
-function TPyDelphiBitmap.Get_Monochrome(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Monochrome);
- end;
-end;
-
-function TPyDelphiBitmap.Get_PixelFormat(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- case DelphiObject.PixelFormat of
- pfDevice: Result := PyString_FromString('pfDevice');
- pf1bit: Result := PyString_FromString('pf1bit');
- pf4bit: Result := PyString_FromString('pf4bit');
- pf8bit: Result := PyString_FromString('pf8bit');
- pf15bit: Result := PyString_FromString('pf15bit');
- pf16bit: Result := PyString_FromString('pf16bit');
- pf24bit: Result := PyString_FromString('pf24bit');
- pf32bit: Result := PyString_FromString('pf32bit');
- pfCustom: Result := PyString_FromString('pfCustom');
- else
- Result := ReturnNone;
- end;
- end;
-end;
-
-function TPyDelphiBitmap.Get_TransparentColor(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.TransparentColor);
- end;
-end;
-
-function TPyDelphiBitmap.Get_TransparentMode(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- case DelphiObject.TransparentMode of
- tmAuto: Result := PyString_FromString('tmAuto');
- tmFixed: Result := PyString_FromString('tmFixed');
- else
- Result := ReturnNone;
- end;
- end;
-end;
-
-function TPyDelphiBitmap.LoadFromResourceID_Wrapper(
- args: PPyObject): PPyObject;
-var
- _instance : Integer;
- _resID : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'ii:LoadFromResourceID',@_instance, @_resID ) <> 0 then
- begin
- DelphiObject.LoadFromResourceID(_instance, _resID);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiBitmap.LoadFromResourceName_Wrapper(
- args: PPyObject): PPyObject;
-var
- _instance : Integer;
- _resName : PAnsiChar;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _resName := nil;
- if PyArg_ParseTuple( args, 'is:LoadFromResourceName',@_instance, @_resName ) <> 0 then
- begin
- if _resName <> nil then
- DelphiObject.LoadFromResourceName(_instance, String(_resName));
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiBitmap.Mask_Wrapper(args: PPyObject): PPyObject;
-var
- _transpColor : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'i:Mask',@_transpColor ) <> 0 then
- begin
- DelphiObject.Mask(_transpColor);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-class procedure TPyDelphiBitmap.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Canvas', @TPyDelphiBitmap.Get_Canvas, nil,
- '', nil);
- AddGetSet('Handle', @TPyDelphiBitmap.Get_Handle, @TPyDelphiBitmap.Set_Handle,
- '', nil);
- AddGetSet('HandleAllocated', @TPyDelphiBitmap.Get_HandleAllocated, nil,
- '', nil);
- AddGetSet('HandleType', @TPyDelphiBitmap.Get_HandleType, @TPyDelphiBitmap.Set_HandleType,
- '', nil);
- {$IFNDEF FPC}
- AddGetSet('IgnorePalette', @TPyDelphiBitmap.Get_IgnorePalette, @TPyDelphiBitmap.Set_IgnorePalette,
- '', nil);
- {$ENDIF FPC}
- AddGetSet('MaskHandle', @TPyDelphiBitmap.Get_MaskHandle, @TPyDelphiBitmap.Set_MaskHandle,
- '', nil);
- AddGetSet('Monochrome', @TPyDelphiBitmap.Get_Monochrome, @TPyDelphiBitmap.Set_Monochrome,
- '', nil);
- AddGetSet('PixelFormat', @TPyDelphiBitmap.Get_PixelFormat, @TPyDelphiBitmap.Set_PixelFormat,
- '', nil);
- AddGetSet('TransparentColor', @TPyDelphiBitmap.Get_TransparentColor, @TPyDelphiBitmap.Set_TransparentColor,
- '', nil);
- AddGetSet('TransparentMode', @TPyDelphiBitmap.Get_TransparentMode, @TPyDelphiBitmap.Set_TransparentMode,
- '', nil);
- end;
-end;
-
-class procedure TPyDelphiBitmap.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- {$IFNDEF FPC}
- PythonType.AddMethod('Dormant', @TPyDelphiBitmap.Dormant_Wrapper,
- 'TBitmap.Dormant()'#10 +
- '');
- {$ENDIF FPC}
- PythonType.AddMethod('FreeImage', @TPyDelphiBitmap.FreeImage_Wrapper,
- 'TBitmap.FreeImage()'#10 +
- '');
- PythonType.AddMethod('LoadFromResourceName', @TPyDelphiBitmap.LoadFromResourceName_Wrapper,
- 'TBitmap.LoadFromResourceName()'#10 +
- '');
- PythonType.AddMethod('LoadFromResourceID', @TPyDelphiBitmap.LoadFromResourceID_Wrapper,
- 'TBitmap.LoadFromResourceID()'#10 +
- '');
- PythonType.AddMethod('Mask', @TPyDelphiBitmap.Mask_Wrapper,
- 'TBitmap.Mask()'#10 +
- '');
- PythonType.AddMethod('ReleaseHandle', @TPyDelphiBitmap.ReleaseHandle_Wrapper,
- 'TBitmap.ReleaseHandle()'#10 +
- '');
- PythonType.AddMethod('ReleaseMaskHandle', @TPyDelphiBitmap.ReleaseMaskHandle_Wrapper,
- 'TBitmap.ReleaseMaskHandle()'#10 +
- '');
- PythonType.AddMethod('ReleasePalette', @TPyDelphiBitmap.ReleasePalette_Wrapper,
- 'TBitmap.ReleasePalette()'#10 +
- '');
-end;
-
-function TPyDelphiBitmap.ReleaseHandle_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ReleaseHandle') <> 0 then
- begin
- Result := PyInt_FromLong(DelphiObject.ReleaseHandle);
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiBitmap.ReleaseMaskHandle_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ReleaseMaskHandle') <> 0 then
- begin
- Result := PyInt_FromLong(DelphiObject.ReleaseMaskHandle);
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiBitmap.ReleasePalette_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ReleasePalette') <> 0 then
- begin
- Result := PyInt_FromLong(DelphiObject.ReleasePalette);
- end
- else
- Result := nil;
- end;
-end;
-
-procedure TPyDelphiBitmap.SetDelphiObject(const Value: TBitmap);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiBitmap.Set_Handle(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Handle', _value) then
- begin
- DelphiObject.Handle := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiBitmap.Set_HandleType(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'HandleType', _value) then
- begin
- if SameText(_value, 'bmDIB') then
- DelphiObject.HandleType := bmDIB
- else if SameText(_value, 'bmDDB') then
- DelphiObject.HandleType := bmDDB
- else
- begin
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Unknown THandleType value "%s"', [_value]))));
- Result := -1;
- Exit;
- end;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiBitmap.Set_IgnorePalette(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'IgnorePalette', _value) then
- begin
- DelphiObject.IgnorePalette := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiBitmap.Set_MaskHandle(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'MaskHandle', _value) then
- begin
- DelphiObject.MaskHandle := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiBitmap.Set_Monochrome(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'Monochrome', _value) then
- begin
- DelphiObject.Monochrome := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiBitmap.Set_PixelFormat(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'PixelFormat', _value) then
- begin
- if SameText(_value, 'pfDevice') then
- DelphiObject.PixelFormat := pfDevice
- else if SameText(_value, 'pf1bit') then
- DelphiObject.PixelFormat := pf1bit
- else if SameText(_value, 'pf4bit') then
- DelphiObject.PixelFormat := pf4bit
- else if SameText(_value, 'pf8bit') then
- DelphiObject.PixelFormat := pf8bit
- else if SameText(_value, 'pf15bit') then
- DelphiObject.PixelFormat := pf15bit
- else if SameText(_value, 'pf16bit') then
- DelphiObject.PixelFormat := pf16bit
- else if SameText(_value, 'pf24bit') then
- DelphiObject.PixelFormat := pf24bit
- else if SameText(_value, 'pf32bit') then
- DelphiObject.PixelFormat := pf32bit
- else if SameText(_value, 'pfCustom') then
- DelphiObject.PixelFormat := pfCustom
- else
- begin
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Unknown TPixelFormat value "%s"', [_value]))));
- Result := -1;
- Exit;
- end;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiBitmap.Set_TransparentColor(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'TransparentColor', _value) then
- begin
- DelphiObject.TransparentColor := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiBitmap.Set_TransparentMode(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : String;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckStrAttribute(AValue, 'TransparentMode', _value) then
- begin
- if SameText(_value, 'tmAuto') then
- DelphiObject.TransparentMode := tmAuto
- else if SameText(_value, 'tmFixed') then
- DelphiObject.TransparentMode := tmFixed
- else
- begin
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Unknown TTransparentMode value "%s"', [_value]))));
- Result := -1;
- Exit;
- end;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{ TPyDelphiCanvas }
-
-function TPyDelphiCanvas.Arc_Wrapper(args: PPyObject): PPyObject;
-var
- x1, y1, x2, y2, x3, y3, x4, y4: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiiiiiii:Arc',@x1, @y1, @x2, @y2, @x3, @y3, @x4, @y4 ) <> 0 then
- begin
- DelphiObject.Arc(x1, y1, x2, y2, x3, y3, x4, y4);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiCanvas.BrushCopy_Wrapper(args: PPyObject): PPyObject;
-var
- _obj : TObject;
- _oBitmap: PPyObject;
- _bitmap : TBitmap;
- _color : Integer;
- _dest : TRect;
- _source : TRect;
- _oDest : PPyObject;
- _oSource : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oBitmap := nil;
- _oSource := nil;
- _oDest := nil;
- if (PyArg_ParseTuple( args, 'OOOi:BrushCopy',@_oDest, @_oBitmap, @_oSource, @_color ) <> 0) and
- CheckRectAttribute(_oDest, 'Dest', _dest) and
- CheckRectAttribute(_oSource , 'Source', _source) and
- CheckObjAttribute(_oBitmap, 'Bitmap', TBitmap, _obj) then
- begin
- _bitmap := TBitmap(_obj);
- DelphiObject.BrushCopy(_dest, _bitmap, _source, _color);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiCanvas.Chord_Wrapper(args: PPyObject): PPyObject;
-var
- x1, y1, x2, y2, x3, y3, x4, y4: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiiiiiii:Chord',@x1, @y1, @x2, @y2, @x3, @y3, @x4, @y4 ) <> 0 then
- begin
- DelphiObject.Chord(x1, y1, x2, y2, x3, y3, x4, y4);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.CopyRect_Wrapper(args: PPyObject): PPyObject;
-var
- _obj : TObject;
- _oCanvas : PPyObject;
- _canvas : TCanvas;
- _oDest : PPyObject;
- _dest : TRect;
- _oSource : PPyObject;
- _source : TRect;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oCanvas := nil;
- _oSource := nil;
- _oDest := nil;
- if (PyArg_ParseTuple( args, 'OOO:CopyRect',@_oDest, @_oCanvas, @_oSource ) <> 0) and
- CheckRectAttribute(_oDest, 'Dest', _dest) and
- CheckRectAttribute(_oSource, 'Source', _source) and
- CheckObjAttribute(_oCanvas, 'Canvas', TCanvas, _obj) then
- begin
- _canvas := TCanvas(_obj);
- DelphiObject.CopyRect(_dest, _canvas, _source);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-class function TPyDelphiCanvas.DelphiObjectClass: TClass;
-begin
- Result := TCanvas;
-end;
-
-function TPyDelphiCanvas.Draw_Wrapper(args: PPyObject): PPyObject;
-var
- x, y : Integer;
- _obj : TObject;
- _oGraphic : PPyObject;
- _graphic : TGraphic;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- x := 0;
- y := 0;
- _oGraphic := nil;
- if (PyArg_ParseTuple( args, 'iiO:Draw',@x, @y, @_oGraphic ) <> 0) and
- CheckObjAttribute(_oGraphic, 'Graphic', TGraphic, _obj) then
- begin
- _graphic := TGraphic(_obj);
- DelphiObject.Draw(x, y, _graphic);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.DrawFocusRect_Wrapper(args: PPyObject): PPyObject;
-var
- _rectO : PPyObject;
- _rect : TRect;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if (PyArg_ParseTuple( args, 'O:DrawFocusRect',@_rectO ) <> 0) and
- CheckRectAttribute(_rectO, 'Rect', _rect) then
- begin
- DelphiObject.DrawFocusRect(_rect);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.Ellipse_Wrapper(args: PPyObject): PPyObject;
-var
- x1, y1, x2, y2: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiii:Ellipse',@x1, @y1, @x2, @y2 ) <> 0 then
- begin
- DelphiObject.Ellipse(x1, y1, x2, y2);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.FillRect_Wrapper(args: PPyObject): PPyObject;
-var
- _rectO : PPyObject;
- _rect : TRect;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if (PyArg_ParseTuple( args, 'O:FillRect',@_rectO ) <> 0) and
- CheckRectAttribute(_rectO, 'Rect', _rect) then
- begin
- DelphiObject.FillRect(_rect);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.FloodFill_Wrapper(args: PPyObject): PPyObject;
-var
- x, y, _color: Integer;
- _pFillStyle : PPyObject;
- _FillStyle : TFillStyle;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiiO:FloodFill',@x, @y, @_color, @_pFillStyle ) <> 0 then
- begin
- if SameText(PyString_AsDelphiString(_pFillStyle), 'fsBorder') then
- _FillStyle := fsBorder
- else
- _FillStyle := fsSurface;
- DelphiObject.FloodFill(x, y, _color, _fillStyle);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.FrameRect_Wrapper(args: PPyObject): PPyObject;
-var
- _rectO : PPyObject;
- _rect : TRect;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if (PyArg_ParseTuple( args, 'O:FrameRect',@_rectO ) <> 0) and
- CheckRectAttribute(_rectO, 'Rect', _rect) then
- begin
- DelphiObject.FrameRect(_rect);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiCanvas.Get_CanvasOrientation(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if DelphiObject.CanvasOrientation = coRightToLeft then
- Result := PyString_FromString('coRightToLeft')
- else
- Result := PyString_FromString('coLeftToRight');
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiCanvas.Get_ClipRect(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := WrapRect(PyDelphiWrapper, DelphiObject.ClipRect);
- end;
-end;
-
-function TPyDelphiCanvas.Get_Handle(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Handle);
- end;
-end;
-
-function TPyDelphiCanvas.Get_HandleAllocated(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.HandleAllocated);
- end;
-end;
-
-function TPyDelphiCanvas.Get_LockCount(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.LockCount);
- end;
-end;
-
-function TPyDelphiCanvas.Get_OnChange(AContext: Pointer): PPyObject;
-begin
- //todo
- Result := GetPythonEngine.ReturnNone;
-end;
-
-function TPyDelphiCanvas.Get_OnChanging(AContext: Pointer): PPyObject;
-begin
- //todo
- Result := GetPythonEngine.ReturnNone;
-end;
-
-function TPyDelphiCanvas.Get_PenPos(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- Adjust(@Self);
- Result := WrapPoint(PyDelphiWrapper, DelphiObject.PenPos);
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiCanvas.Get_TextFlags(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.TextFlags);
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiCanvas.GetDelphiObject: TCanvas;
-begin
- Result := TCanvas(inherited DelphiObject);
-end;
-
-function TPyDelphiCanvas.GetPixel(args: PPyObject): PPyObject;
-var
- x, y : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- x := 0;
- y := 0;
- if PyArg_ParseTuple( args, 'ii:GetPixel',@x, @y ) <> 0 then
- begin
- Result := PyInt_FromLong(DelphiObject.Pixels[x, y]);
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.LineTo_Wrapper(args: PPyObject): PPyObject;
-var
- x, y : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- x := 0;
- y := 0;
- if PyArg_ParseTuple( args, 'ii:LineTo',@x, @y ) <> 0 then
- begin
- DelphiObject.LineTo(x, y);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.Lock_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Lock') <> 0 then
- begin
- DelphiObject.Lock;
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.MoveTo_Wrapper(args: PPyObject): PPyObject;
-var
- x, y : Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- x := 0;
- y := 0;
- if PyArg_ParseTuple( args, 'ii:MoveTo',@x, @y ) <> 0 then
- begin
- DelphiObject.MoveTo(x, y);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.Pie_Wrapper(args: PPyObject): PPyObject;
-var
- x1, y1, x2, y2, x3, y3, x4, y4: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiiiiiii:Pie',@x1, @y1, @x2, @y2, @x3, @y3, @x4, @y4 ) <> 0 then
- begin
- DelphiObject.Pie(x1, y1, x2, y2, x3, y3, x4, y4);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.PolyBezier_Wrapper(args: PPyObject): PPyObject;
-var
- i : Integer;
- p : TPoint;
- _points : array of TPoint;
- _oPoints : PPyObject;
- _oPoint : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oPoints := nil;
- if PyArg_ParseTuple( args, 'O:PolyBezier',@_oPoints ) <> 0 then
- begin
- if PySequence_Check(_oPoints) <> 0 then
- begin
- SetLength(_points, PySequence_Length(_oPoints));
- for i := 0 to Length(_points)-1 do
- begin
- _oPoint := PySequence_GetItem(_oPoints, i);
- try
- if CheckPointAttribute(_oPoint, Format('Item #%d of Point sequence', [i]), p) then
- _points[i] := p
- else
- begin
- Result := nil;
- Exit;
- end;
- finally
- Py_XDecRef(_oPoint);
- end;
- end;
- DelphiObject.PolyBezier(_points);
- Result := GetPythonEngine.ReturnNone;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_AttributeError^, 'PolyBezier accepts only a sequence of points as single parameter');
- end;
- end
- else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiCanvas.PolyBezierTo_Wrapper(args: PPyObject): PPyObject;
-var
- i : Integer;
- p : TPoint;
- _points : array of TPoint;
- _oPoints : PPyObject;
- _oPoint : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oPoints := nil;
- if PyArg_ParseTuple( args, 'O:PolyBezierTo',@_oPoints ) <> 0 then
- begin
- if PySequence_Check(_oPoints) <> 0 then
- begin
- SetLength(_points, PySequence_Length(_oPoints));
- for i := 0 to Length(_points)-1 do
- begin
- _oPoint := PySequence_GetItem(_oPoints, i);
- try
- if CheckPointAttribute(_oPoint, Format('Item #%d of Point sequence', [i]), p) then
- _points[i] := p
- else
- begin
- Result := nil;
- Exit;
- end;
- finally
- Py_XDecRef(_oPoint);
- end;
- end;
- DelphiObject.PolyBezierTo(_points);
- Result := GetPythonEngine.ReturnNone;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_AttributeError^, 'PolyBezierTo accepts only a sequence of points as single parameter');
- end;
- end
- else
- Result := nil;
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiCanvas.Polygon_Wrapper(args: PPyObject): PPyObject;
-var
- i : Integer;
- p : TPoint;
- _points : array of TPoint;
- _oPoints : PPyObject;
- _oPoint : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oPoints := nil;
- if PyArg_ParseTuple( args, 'O:Polygon',@_oPoints ) <> 0 then
- begin
- if PySequence_Check(_oPoints) <> 0 then
- begin
- SetLength(_points, PySequence_Length(_oPoints));
- for i := 0 to Length(_points)-1 do
- begin
- _oPoint := PySequence_GetItem(_oPoints, i);
- try
- if CheckPointAttribute(_oPoint, Format('Item #%d of Point sequence', [i]), p) then
- _points[i] := p
- else
- begin
- Result := nil;
- Exit;
- end;
- finally
- Py_XDecRef(_oPoint);
- end;
- end;
- DelphiObject.Polygon(_points);
- Result := GetPythonEngine.ReturnNone;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_AttributeError^, 'Polygon accepts only a sequence of points as single parameter');
- end;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.Polyline_Wrapper(args: PPyObject): PPyObject;
-var
- i : Integer;
- p : TPoint;
- _points : array of TPoint;
- _oPoints : PPyObject;
- _oPoint : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oPoints := nil;
- if PyArg_ParseTuple( args, 'O:Polyline',@_oPoints ) <> 0 then
- begin
- if PySequence_Check(_oPoints) <> 0 then
- begin
- SetLength(_points, PySequence_Length(_oPoints));
- for i := 0 to Length(_points)-1 do
- begin
- _oPoint := PySequence_GetItem(_oPoints, i);
- try
- if CheckPointAttribute(_oPoint, Format('Item #%d of Point sequence', [i]), p) then
- _points[i] := p
- else
- begin
- Result := nil;
- Exit;
- end;
- finally
- Py_XDecRef(_oPoint);
- end;
- end;
- DelphiObject.Polyline(_points);
- Result := GetPythonEngine.ReturnNone;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_AttributeError^, 'Polyline accepts only a sequence of points as single parameter');
- end;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.Rectangle_Wrapper(args: PPyObject): PPyObject;
-var
- x1, y1, x2, y2: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiii:Rectangle',@x1, @y1, @x2, @y2 ) <> 0 then
- begin
- DelphiObject.Rectangle(x1, y1, x2, y2);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.Refresh_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Refresh') <> 0 then
- begin
- DelphiObject.Refresh;
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-class procedure TPyDelphiCanvas.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('HandleAllocated', @TPyDelphiCanvas.Get_HandleAllocated, nil,
- '', nil);
- AddGetSet('ClipRect', @TPyDelphiCanvas.Get_ClipRect, nil,
- 'Specifies the boundaries of the clipping rectangle.', nil);
- AddGetSet('Handle', @TPyDelphiCanvas.Get_Handle, @TPyDelphiCanvas.Set_Handle,
- 'Specifies the handle for this canvas.', nil);
- AddGetSet('LockCount', @TPyDelphiCanvas.Get_LockCount,nil,
- 'Indicates the number of times the canvas has been locked to prevent interference from other threads.', nil);
- {$IFNDEF FPC}
- AddGetSet('CanvasOrientation', @TPyDelphiCanvas.Get_CanvasOrientation, nil,
- 'Determines the orientation of the canvas as left-to-right or right-to-left.', nil);
- {$ENDIF FPC}
- AddGetSet('PenPos', @TPyDelphiCanvas.Get_PenPos, nil,
- 'Specifies the current drawing position of the Pen. ', nil);
- {$IFNDEF FPC}
- AddGetSet('TextFlags', @TPyDelphiCanvas.Get_TextFlags, @TPyDelphiCanvas.Set_TextFlags,
- 'Specifies how text is written to the canvas.', nil);
- {$ENDIF FPC}
- AddGetSet('OnChange', @TPyDelphiCanvas.Get_OnChange, @TPyDelphiCanvas.Set_OnChange,
- 'Occurs when the image has just changed.', nil);
- AddGetSet('OnChanging', @TPyDelphiCanvas.Get_OnChanging, @TPyDelphiCanvas.Set_OnChanging,
- 'Occurs just before a change is made to the image.', nil);
- end;
-end;
-
-class procedure TPyDelphiCanvas.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('Arc', @TPyDelphiCanvas.Arc_Wrapper,
- 'TCanvas.Arc()'#10 +
- '');
- {$IFNDEF FPC}
- PythonType.AddMethod('BrushCopy', @TPyDelphiCanvas.BrushCopy_Wrapper,
- 'TCanvas.BrushCopy()'#10 +
- '');
- {$ENDIF FPC}
- PythonType.AddMethod('Chord', @TPyDelphiCanvas.Chord_Wrapper,
- 'TCanvas.Chord()'#10 +
- '');
- PythonType.AddMethod('CopyRect', @TPyDelphiCanvas.CopyRect_Wrapper,
- 'TCanvas.CopyRect()'#10 +
- '');
- PythonType.AddMethod('Draw', @TPyDelphiCanvas.Draw_Wrapper,
- 'TCanvas.Draw()'#10 +
- '');
- PythonType.AddMethod('DrawFocusRect', @TPyDelphiCanvas.DrawFocusRect_Wrapper,
- 'TCanvas.DrawFocusRect()'#10 +
- '');
- PythonType.AddMethod('Ellipse', @TPyDelphiCanvas.Ellipse_Wrapper,
- 'TCanvas.Ellipse()'#10 +
- '');
- PythonType.AddMethod('FillRect', @TPyDelphiCanvas.FillRect_Wrapper,
- 'TCanvas.FillRect()'#10 +
- '');
- PythonType.AddMethod('FloodFill', @TPyDelphiCanvas.FloodFill_Wrapper,
- 'TCanvas.FloodFill()'#10 +
- '');
- PythonType.AddMethod('FrameRect', @TPyDelphiCanvas.FrameRect_Wrapper,
- 'TCanvas.FrameRect()'#10 +
- '');
- PythonType.AddMethod('LineTo', @TPyDelphiCanvas.LineTo_Wrapper,
- 'TCanvas.LineTo()'#10 +
- '');
- PythonType.AddMethod('Lock', @TPyDelphiCanvas.Lock_Wrapper,
- 'TCanvas.Lock()'#10 +
- '');
- PythonType.AddMethod('MoveTo', @TPyDelphiCanvas.MoveTo_Wrapper,
- 'TCanvas.MoveTo()'#10 +
- '');
- PythonType.AddMethod('Pie', @TPyDelphiCanvas.Pie_Wrapper,
- 'TCanvas.Pie()'#10 +
- '');
- PythonType.AddMethod('Polygon', @TPyDelphiCanvas.Polygon_Wrapper,
- 'TCanvas.Polygon()'#10 +
- '');
- PythonType.AddMethod('Polyline', @TPyDelphiCanvas.Polyline_Wrapper,
- 'TCanvas.Polyline()'#10 +
- '');
- PythonType.AddMethod('PolyBezier', @TPyDelphiCanvas.PolyBezier_Wrapper,
- 'TCanvas.PolyBezier()'#10 +
- '');
- {$IFNDEF FPC}
- PythonType.AddMethod('PolyBezierTo', @TPyDelphiCanvas.PolyBezierTo_Wrapper,
- 'TCanvas.PolyBezierTo()'#10 +
- '');
- {$ENDIF FPC}
- PythonType.AddMethod('Rectangle', @TPyDelphiCanvas.Rectangle_Wrapper,
- 'TCanvas.Rectangle()'#10 +
- '');
- PythonType.AddMethod('Refresh', @TPyDelphiCanvas.Refresh_Wrapper,
- 'TCanvas.Refresh()'#10 +
- '');
- PythonType.AddMethod('RoundRect', @TPyDelphiCanvas.RoundRect_Wrapper,
- 'TCanvas.RoundRect()'#10 +
- '');
- PythonType.AddMethod('StretchDraw', @TPyDelphiCanvas.StretchDraw_Wrapper,
- 'TCanvas.StretchDraw()'#10 +
- '');
- PythonType.AddMethod('TextExtent', @TPyDelphiCanvas.TextExtent_Wrapper,
- 'TCanvas.TextExtent()'#10 +
- '');
- PythonType.AddMethod('TextHeight', @TPyDelphiCanvas.TextHeight_Wrapper,
- 'TCanvas.TextHeight()'#10 +
- '');
- PythonType.AddMethod('TextOut', @TPyDelphiCanvas.TextOut_Wrapper,
- 'TCanvas.TextOut()'#10 +
- '');
- PythonType.AddMethod('TextRect', @TPyDelphiCanvas.TextRect_Wrapper,
- 'TCanvas.TextRect()'#10 +
- '');
- PythonType.AddMethod('TextWidth', @TPyDelphiCanvas.TextWidth_Wrapper,
- 'TCanvas.TextWidth()'#10 +
- '');
- PythonType.AddMethod('TryLock', @TPyDelphiCanvas.TryLock_Wrapper,
- 'TCanvas.TryLock()'#10 +
- '');
- PythonType.AddMethod('Unlock', @TPyDelphiCanvas.Unlock_Wrapper,
- 'TCanvas.Unlock()'#10 +
- '');
- PythonType.AddMethod('GetPixel', @TPyDelphiCanvas.GetPixel,
- 'TCanvas.GetPixel(x, y) -> TColor'#10 +
- 'This is the same as TCanvas.Pixels[x, y].'#13+
- 'Returns the color of the pixels within the current ClipRect.');
- PythonType.AddMethod('SetPixel', @TPyDelphiCanvas.SetPixel,
- 'TCanvas.SetPixel(x, y, color)'#10 +
- 'This is the same as TCanvas.Pixels[x, y] := color'#13+
- 'Specifies the color of the pixels within the current ClipRect.');
-end;
-
-function TPyDelphiCanvas.RoundRect_Wrapper(args: PPyObject): PPyObject;
-var
- x1, y1, x2, y2, x3, y3: Integer;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiiiii:RoundRect',@x1, @y1, @x2, @y2, @x3, @y3 ) <> 0 then
- begin
- DelphiObject.RoundRect(x1, y1, x2, y2, x3, y3);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.Set_Handle(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Handle', _value) then
- begin
- DelphiObject.Handle := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiCanvas.Set_OnChange(AValue: PPyObject;
- AContext: Pointer): integer;
-begin
- //todo
- Result := 0;
-end;
-
-function TPyDelphiCanvas.Set_OnChanging(AValue: PPyObject;
- AContext: Pointer): integer;
-begin
- //todo
- Result := 0;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiCanvas.Set_TextFlags(AValue: PPyObject;
- AContext: Pointer): integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'TextFlags', _value) then
- begin
- DelphiObject.TextFlags := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-{$ENDIF FPC}
-
-procedure TPyDelphiCanvas.SetDelphiObject(const Value: TCanvas);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiCanvas.SetPixel(args: PPyObject): PPyObject;
-var
- x, y : Integer;
- _color : TColor;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- x := 0;
- y := 0;
- if PyArg_ParseTuple( args, 'iii:SetPixel',@x, @y, @_color ) <> 0 then
- begin
- DelphiObject.Pixels[x, y] := _color;
- Result := GetPythonEngine.ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.StretchDraw_Wrapper(args: PPyObject): PPyObject;
-var
- _obj : TObject;
- _oGraphic : PPyObject;
- _graphic : TGraphic;
- _oRect : PPyObject;
- _rect : TRect;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- _oGraphic := nil;
- _oRect := nil;
- if (PyArg_ParseTuple( args, 'iiO:StretchDraw',@_oRect, @_oGraphic ) <> 0) and
- CheckRectAttribute(_oRect, 'Rect', _rect) and
- CheckObjAttribute(_oGraphic, 'Graphic', TGraphic, _obj) then
- begin
- _graphic := TGraphic(_obj);
- DelphiObject.StretchDraw(_rect, _graphic);
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.TextExtent_Wrapper(args: PPyObject): PPyObject;
-var
- _pText : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:TextExtent',@_pText ) <> 0 then
- begin
- Result := WrapSize(PyDelphiWrapper, DelphiObject.TextExtent(PyString_AsDelphiString(_pText)));
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.TextHeight_Wrapper(args: PPyObject): PPyObject;
-var
- _pText : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:TextHeight',@_pText ) <> 0 then
- begin
- Result := PyInt_FromLong(DelphiObject.TextHeight(PyString_AsDelphiString(_pText)));
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.TextOut_Wrapper(args: PPyObject): PPyObject;
-var
- x, y : Integer;
- _text : PAnsiChar;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- x := 0;
- y := 0;
- if PyArg_ParseTuple( args, 'iis:TextRect',@x, @y, @_text ) <> 0 then
- begin
- if _text <> nil then
- DelphiObject.TextOut(x, y, String(_text));
- Result := GetPythonEngine.ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.TextRect_Wrapper(args: PPyObject): PPyObject;
-var
- x, y : Integer;
- _rectO : PPyObject;
- _rect : TRect;
- _text : PAnsiChar;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- x := 0;
- y := 0;
- _rectO := nil;
- _text := nil;
- if (PyArg_ParseTuple( args, 'Oiis:TextRect',@_rectO, @x, @y, @_text ) <> 0) and
- CheckRectAttribute(_rectO, 'Rect', _rect) then
- begin
- if _text <> nil then
- DelphiObject.TextRect(_rect, x, y, String(_text));
- Result := GetPythonEngine.ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.TextWidth_Wrapper(args: PPyObject): PPyObject;
-var
- _pText : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:TextWidth',@_pText ) <> 0 then
- begin
- Result := PyInt_FromLong(DelphiObject.TextWidth(PyString_AsDelphiString(_pText)));
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.TryLock_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Unlock') <> 0 then
- begin
- Result := VariantAsPyObject( DelphiObject.TryLock );
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiCanvas.Unlock_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Unlock') <> 0 then
- begin
- DelphiObject.Unlock;
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-{$IFNDEF FPC}
-{ TPyDelphiMetaFile }
-
-function TPyDelphiMetaFile.Clear_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':Clear') <> 0 then
- begin
- DelphiObject.Clear;
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-class function TPyDelphiMetaFile.DelphiObjectClass: TClass;
-begin
- Result := TMetaFile;
-end;
-
-function TPyDelphiMetaFile.GetDelphiObject: TMetaFile;
-begin
- Result := TMetaFile(inherited DelphiObject);
-end;
-
-function TPyDelphiMetaFile.Get_CreatedBy(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.CreatedBy)));
- end;
-end;
-
-function TPyDelphiMetaFile.Get_Description(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.Description)));
- end;
-end;
-
-function TPyDelphiMetaFile.Get_Enhanced(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.Enhanced);
- end;
-end;
-
-function TPyDelphiMetaFile.Get_Handle(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Handle);
- end;
-end;
-
-function TPyDelphiMetaFile.Get_HandleAllocated(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.HandleAllocated);
- end;
-end;
-
-function TPyDelphiMetaFile.Get_Inch(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Inch);
- end;
-end;
-
-function TPyDelphiMetaFile.Get_MMHeight(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.MMHeight);
- end;
-end;
-
-function TPyDelphiMetaFile.Get_MMWidth(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.MMWidth);
- end;
-end;
-
-class procedure TPyDelphiMetaFile.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('CreatedBy', @TPyDelphiMetaFile.Get_CreatedBy, nil,
- '', nil);
- AddGetSet('Description', @TPyDelphiMetaFile.Get_Description, nil,
- '', nil);
- AddGetSet('Enhanced', @TPyDelphiMetaFile.Get_Enhanced, @TPyDelphiMetaFile.Set_Enhanced,
- '', nil);
- AddGetSet('Handle', @TPyDelphiMetaFile.Get_Handle, @TPyDelphiMetaFile.Set_Handle,
- '', nil);
- AddGetSet('HandleAllocated', @TPyDelphiMetaFile.Get_HandleAllocated, nil,
- '', nil);
- AddGetSet('MMWidth', @TPyDelphiMetaFile.Get_MMWidth, @TPyDelphiMetaFile.Set_MMWidth,
- '', nil);
- AddGetSet('MMHeight', @TPyDelphiMetaFile.Get_MMHeight, @TPyDelphiMetaFile.Set_MMHeight,
- '', nil);
- AddGetSet('Inch', @TPyDelphiMetaFile.Get_Inch, @TPyDelphiMetaFile.Set_Inch,
- '', nil);
- end;
-end;
-
-class procedure TPyDelphiMetaFile.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('Clear', @TPyDelphiMetaFile.Clear_Wrapper,
- 'TMetaFile.Clear()'#10 +
- '');
- PythonType.AddMethod('ReleaseHandle', @TPyDelphiMetaFile.ReleaseHandle_Wrapper,
- 'TMetaFile.ReleaseHandle()'#10 +
- '');
-end;
-
-function TPyDelphiMetaFile.ReleaseHandle_Wrapper(
- args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ReleaseHandle') <> 0 then
- begin
- Result := PyInt_FromLong(DelphiObject.ReleaseHandle);
- end
- else
- Result := nil;
- end;
-end;
-
-procedure TPyDelphiMetaFile.SetDelphiObject(const Value: TMetaFile);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiMetaFile.Set_Enhanced(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'Enhanced', _value) then
- begin
- DelphiObject.Enhanced := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiMetaFile.Set_Handle(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Handle', _value) then
- begin
- DelphiObject.Handle := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiMetaFile.Set_Inch(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Inch', _value) then
- begin
- DelphiObject.Inch := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiMetaFile.Set_MMHeight(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'MMHeight', _value) then
- begin
- DelphiObject.MMHeight := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiMetaFile.Set_MMWidth(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'MMWidth', _value) then
- begin
- DelphiObject.MMWidth := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-{$ENDIF FPC}
-
-{ TPyDelphiIcon }
-
-class function TPyDelphiIcon.DelphiObjectClass: TClass;
-begin
- Result := TIcon;
-end;
-
-function TPyDelphiIcon.GetDelphiObject: TIcon;
-begin
- Result := TIcon(inherited DelphiObject);
-end;
-
-function TPyDelphiIcon.Get_Handle(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Handle);
- end;
-end;
-
-function TPyDelphiIcon.Get_HandleAllocated(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.HandleAllocated);
- end;
-end;
-
-class procedure TPyDelphiIcon.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Handle', @TPyDelphiIcon.Get_Handle, @TPyDelphiIcon.Set_Handle,
- '', nil);
- AddGetSet('HandleAllocated', @TPyDelphiIcon.Get_HandleAllocated, nil,
- '', nil);
- end;
-end;
-
-class procedure TPyDelphiIcon.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('ReleaseHandle', @TPyDelphiIcon.ReleaseHandle_Wrapper,
- 'TIcon.ReleaseHandle()'#10 +
- '');
-end;
-
-function TPyDelphiIcon.ReleaseHandle_Wrapper(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, ':ReleaseHandle') <> 0 then
- begin
- Result := PyInt_FromLong(DelphiObject.ReleaseHandle);
- end
- else
- Result := nil;
- end;
-end;
-
-procedure TPyDelphiIcon.SetDelphiObject(const Value: TIcon);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiIcon.Set_Handle(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Handle', _value) then
- begin
- DelphiObject.Handle := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{ TPyDelphiPicture }
-
-class function TPyDelphiPicture.DelphiObjectClass: TClass;
-begin
- Result := TPicture;
-end;
-
-function TPyDelphiPicture.Get_Bitmap(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Bitmap);
- end;
-end;
-
-function TPyDelphiPicture.Get_Graphic(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Graphic);
- end;
-end;
-
-function TPyDelphiPicture.Get_Height(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Height);
- end;
-end;
-
-function TPyDelphiPicture.Get_Icon(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Icon);
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiPicture.Get_MetaFile(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.MetaFile);
- end;
-end;
-{$ENDIF FPC}
-
-function TPyDelphiPicture.Get_Width(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Width);
- end;
-end;
-
-function TPyDelphiPicture.GetDelphiObject: TPicture;
-begin
- Result := TPicture(inherited DelphiObject);
-end;
-
-function TPyDelphiPicture.LoadFromFile_Wrapper(args: PPyObject): PPyObject;
-var
- _pFileName : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:LoadFromFile',@_pFileName ) <> 0 then
- begin
- DelphiObject.LoadFromFile(PyString_AsDelphiString(_pFileName));
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-class procedure TPyDelphiPicture.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Bitmap', @TPyDelphiPicture.Get_Bitmap, @TPyDelphiPicture.Set_Bitmap,
- '', nil);
- AddGetSet('Graphic', @TPyDelphiPicture.Get_Graphic, @TPyDelphiPicture.Set_Graphic,
- '', nil);
- AddGetSet('Height', @TPyDelphiPicture.Get_Height, nil,
- '', nil);
- AddGetSet('Icon', @TPyDelphiPicture.Get_Icon, @TPyDelphiPicture.Set_Icon,
- '', nil);
- {$IFNDEF FPC}
- AddGetSet('Metafile', @TPyDelphiPicture.Get_Metafile, @TPyDelphiPicture.Set_Metafile,
- '', nil);
- {$ENDIF FPC}
- AddGetSet('Width', @TPyDelphiPicture.Get_Width, nil,
- '', nil);
- end;
-end;
-
-class procedure TPyDelphiPicture.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- PythonType.AddMethod('LoadFromFile', @TPyDelphiPicture.LoadFromFile_Wrapper,
- 'TPicture.LoadFromFile()'#10 +
- '');
- PythonType.AddMethod('SaveToFile', @TPyDelphiPicture.SaveToFile_Wrapper,
- 'TPicture.SaveToFile()'#10 +
- '');
-end;
-
-function TPyDelphiPicture.SaveToFile_Wrapper(args: PPyObject): PPyObject;
-var
- _pFileName : PPyObject;
-begin
- with GetPythonEngine do begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:SaveToFile',@_pFileName ) <> 0 then
- begin
- DelphiObject.SaveToFile(PyString_AsDelphiString(_pFileName));
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiPicture.Set_Bitmap(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _object : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'Bitmap', TBitmap, _object) then
- begin
- Self.DelphiObject.Bitmap := TBitmap(_object);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiPicture.Set_Graphic(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _object : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'Graphic', TGraphic, _object) then
- begin
- Self.DelphiObject.Graphic := TGraphic(_object);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiPicture.Set_Icon(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _object : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'Icon', TIcon, _object) then
- begin
- Self.DelphiObject.Icon := TIcon(_object);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{$IFNDEF FPC}
-function TPyDelphiPicture.Set_MetaFile(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _object : TObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckObjAttribute(AValue, 'MetaFile', TMetaFile, _object) then
- begin
- Self.DelphiObject.MetaFile := TMetaFile(_object);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-{$ENDIF FPC}
-
-procedure TPyDelphiPicture.SetDelphiObject(const Value: TPicture);
-begin
- inherited DelphiObject := Value;
-end;
-
-initialization
- RegisteredUnits.Add(TGraphicsRegistration.Create);
-end.
diff --git a/Components/Sources/Core/WrapDelphiGrids.pas b/Components/Sources/Core/WrapDelphiGrids.pas
deleted file mode 100644
index ca41e65..0000000
--- a/Components/Sources/Core/WrapDelphiGrids.pas
+++ /dev/null
@@ -1,702 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiGrids;
-
-interface
-
-uses
- Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses,
- WrapDelphiControls, Windows, Grids, TypInfo;
-
-type
- TDrawCellEventHandler = class(TEventHandler)
- protected
- procedure DoEvent(Sender: TObject; ACol, ARow: Longint;
- Rect: TRect; State: TGridDrawState);
- public
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); override;
- class function GetTypeInfo : PTypeInfo; override;
- end;
-
- TSelectCellEventHandler = class(TEventHandler)
- protected
- procedure DoEvent(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean);
- public
- constructor Create(PyDelphiWrapper : TPyDelphiWrapper; Component : TObject;
- PropertyInfo : PPropInfo; Callable : PPyObject); override;
- class function GetTypeInfo : PTypeInfo; override;
- end;
-
- TGridColWidthsAccess = class(TContainerAccess)
- private
- function GetContainer: TCustomDrawGrid;
- public
- function GetItem(AIndex : Integer) : PPyObject; override;
- function GetSize : Integer; override;
- function SetItem(AIndex : Integer; AValue : PPyObject) : Boolean; override;
-
- class function ExpectedContainerClass : TClass; override;
- class function SupportsWrite : Boolean; override;
- class function Name : String; override;
-
- property Container : TCustomDrawGrid read GetContainer;
- end;
-
- TPyDelphiCustomGrid = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TCustomGrid;
- procedure SetDelphiObject(const Value: TCustomGrid);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TCustomGrid read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiCustomDrawGrid = class (TPyDelphiCustomGrid)
- private
- function GetDelphiObject: TCustomDrawGrid;
- procedure SetDelphiObject(const Value: TCustomDrawGrid);
- protected
- // methods
- //function CellRect(ACol, ARow: Longint): TRect;
- //procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint);
- class function GetTypeName : String; override;
-
- // property getters
- function Get_Canvas(AContext : Pointer): PPyObject; cdecl;
- function Get_Col(AContext : Pointer): PPyObject; cdecl;
- function Get_ColWidths( AContext : Pointer) : PPyObject; cdecl;
- function Get_EditorMode(AContext : Pointer): PPyObject; cdecl;
- function Get_GridHeight(AContext : Pointer): PPyObject; cdecl;
- function Get_GridWidth(AContext : Pointer): PPyObject; cdecl;
- function Get_LeftCol(AContext : Pointer): PPyObject; cdecl;
- function Get_Selection(AContext : Pointer): PPyObject; cdecl;
- function Get_Row(AContext : Pointer): PPyObject; cdecl;
- //function Get_RowHeights(AContext : Pointer): PPyObject; cdecl;
- //function Get_TabStops(AContext : Pointer): PPyObject; cdecl;
- function Get_TopRow(AContext : Pointer): PPyObject; cdecl;
-
- // property setters
- function Set_Col(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_EditorMode(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_LeftCol(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_Selection(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_Row(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- function Set_TopRow(AValue : PPyObject; AContext : Pointer): Integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
-
- // Class methods
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
-
- // Properties
- property DelphiObject: TCustomDrawGrid read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiDrawGrid = class (TPyDelphiCustomDrawGrid)
- private
- function GetDelphiObject: TDrawGrid;
- procedure SetDelphiObject(const Value: TDrawGrid);
- protected
- class function GetTypeName : String; override;
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TDrawGrid read GetDelphiObject write SetDelphiObject;
- end;
-
- {$IFDEF FPC}
- TPyDelphiStringGrid = class (TPyDelphiCustomDrawGrid)
- {$ELSE FPC}
- TPyDelphiStringGrid = class (TPyDelphiDrawGrid)
- {$ENDIF FPC}
- private
- function GetDelphiObject: TStringGrid;
- procedure SetDelphiObject(const Value: TStringGrid);
- protected
- class function GetTypeName : String; override;
- function GetCell(args : PPyObject): PPyObject; cdecl;
- function SetCell(args : PPyObject): PPyObject; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TStringGrid read GetDelphiObject write SetDelphiObject;
- end;
-
-implementation
-
-uses
- WrapDelphiTypes;
-
-{ Register the wrappers, the globals and the constants }
-type
- TGridsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TGridsRegistration }
-
-procedure TGridsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.DefineVar('gdSelected', 'gdSelected');
- APyDelphiWrapper.DefineVar('gdFocused', 'gdFocused');
- APyDelphiWrapper.DefineVar('gdFixed', 'gdFixed');
-end;
-
-function TGridsRegistration.Name: String;
-begin
- Result := 'Grids';
-end;
-
-procedure TGridsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomGrid);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomDrawGrid);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiDrawGrid);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStringGrid);
-
- APyDelphiWrapper.EventHandlers.RegisterHandler(TDrawCellEventHandler);
- APyDelphiWrapper.EventHandlers.RegisterHandler(TSelectCellEventHandler);
-end;
-
-{ Helper functions }
-
-function MakeGridDrawState(AState : TGridDrawState) : PPyObject;
-var
- _item : PPyObject;
-begin
- with GetPythonEngine do
- begin
- Result := PyList_New(0);
- if gdSelected in AState then
- begin
- _item := PyString_FromString('gdSelected');
- PyList_Append(Result, _item);
- Py_DecRef(_item);
- end;
- if gdFocused in AState then
- begin
- _item := PyString_FromString('gdFocused');
- PyList_Append(Result, _item);
- Py_DecRef(_item);
- end;
- if gdFixed in AState then
- begin
- _item := PyString_FromString('gdFixed');
- PyList_Append(Result, _item);
- Py_DecRef(_item);
- end;
- end;
-end;
-
-{ TDrawCellEventHandler }
-
-constructor TDrawCellEventHandler.Create(PyDelphiWrapper: TPyDelphiWrapper;
- Component: TObject; PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- Method : TMethod;
-begin
- inherited;
- Method.Code := @TDrawCellEventHandler.DoEvent;
- Method.Data := Self;
- SetMethodProp(Component, PropertyInfo, Method);
-end;
-
-procedure TDrawCellEventHandler.DoEvent(Sender: TObject; ACol,
- ARow: Integer; Rect: TRect; State: TGridDrawState);
-Var
- PyObject, PyTuple, PyResult, PyCol, PyRow, PyRect, PyState: PPyObject;
-begin
- Assert(Assigned(PyDelphiWrapper));
- if Assigned(Callable) and PythonOK then
- with GetPythonEngine do begin
- PyObject := PyDelphiWrapper.Wrap(Sender);
- PyCol := PyInt_FromLong(ACol);
- PyRow := PyInt_FromLong(ARow);
- PyRect := WrapRect(PyDelphiWrapper, Rect);
- PyState := MakeGridDrawState(State);
-
- PyTuple := PyTuple_New(5);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 0, PyObject);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 1, PyCol);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 2, PyRow);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 3, PyRect);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 4, PyState);
- try
- PyResult := PyObject_CallObject(Callable, PyTuple);
- Py_XDECREF(PyResult);
- finally
- Py_DECREF(PyTuple);
- end;
- CheckError;
- end;
-end;
-
-class function TDrawCellEventHandler.GetTypeInfo: PTypeInfo;
-begin
- {$IFDEF FPC}
- Result := System.TypeInfo(TOnDrawCell);
- {$ELSE FPC}
- Result := System.TypeInfo(TDrawCellEvent);
- {$ENDIF FPC}
-end;
-
-{ TSelectCellEventHandler }
-
-constructor TSelectCellEventHandler.Create(
- PyDelphiWrapper: TPyDelphiWrapper; Component: TObject;
- PropertyInfo: PPropInfo; Callable: PPyObject);
-var
- Method : TMethod;
-begin
- inherited;
- Method.Code := @TSelectCellEventHandler.DoEvent;
- Method.Data := Self;
- SetMethodProp(Component, PropertyInfo, Method);
-end;
-
-procedure TSelectCellEventHandler.DoEvent(Sender: TObject; ACol,
- ARow: Integer; var CanSelect: Boolean);
-Var
- PyObject, PyTuple, PyResult, PyCol, PyRow, PyCanSelect: PPyObject;
- _varParam : TPyDelphiVarParameter;
-begin
- Assert(Assigned(PyDelphiWrapper));
- if Assigned(Callable) and PythonOK then
- with GetPythonEngine do begin
- PyObject := PyDelphiWrapper.Wrap(Sender);
- PyCol := PyInt_FromLong(ACol);
- PyRow := PyInt_FromLong(ARow);
- PyCanSelect := CreateVarParam(PyDelphiWrapper, CanSelect);
- _varParam := PythonToDelphi(PyCanSelect) as TPyDelphiVarParameter;
-
- PyTuple := PyTuple_New(4);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 0, PyObject);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 1, PyCol);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 2, PyRow);
- GetPythonEngine.PyTuple_SetItem(PyTuple, 3, PyCanSelect);
- try
- PyResult := PyObject_CallObject(Callable, PyTuple);
- if Assigned(PyResult) then
- begin
- Py_DECREF(PyResult);
- CanSelect := PyObject_IsTrue(_varParam.Value) = 1;
- end;
- finally
- Py_DECREF(PyTuple);
- end;
- CheckError;
- end;
-end;
-
-class function TSelectCellEventHandler.GetTypeInfo: PTypeInfo;
-begin
- {$IFDEF FPC}
- Result := System.TypeInfo(TOnSelectCellEvent);
- {$ELSE FPC}
- Result := System.TypeInfo(TSelectCellEvent);
- {$ENDIF FPC}
-end;
-
-{ TGridColWidthsAccess }
-
-class function TGridColWidthsAccess.ExpectedContainerClass: TClass;
-begin
- result:=TCustomGrid;
-end;
-
-function TGridColWidthsAccess.GetContainer: TCustomDrawGrid;
-begin
- result:=TCustomDrawGrid(inherited Container);
-end;
-
-function TGridColWidthsAccess.GetItem(AIndex: Integer): PPyObject;
-begin
- with GetPythonEngine do
- Result:=PyInt_FromLong(Container.ColWidths[AIndex]);
-end;
-
-type
- TCustomDrawGridAccess = class(TCustomDrawGrid);
-
-function TGridColWidthsAccess.GetSize: Integer;
-begin
- result:=TCustomDrawGridAccess(Container).ColCount;
-end;
-
-class function TGridColWidthsAccess.Name: String;
-begin
- result:='TCustomGrid.ColWidths';
-end;
-
-function TGridColWidthsAccess.SetItem(AIndex: Integer;
- AValue: PPyObject): Boolean;
-begin
- result:=True;
- with GetPythonEngine do
- Container.ColWidths[AIndex]:=PyInt_AsLong(AValue);
-end;
-
-class function TGridColWidthsAccess.SupportsWrite: Boolean;
-begin
- result:=True;
-end;
-
-{ TPyDelphiCustomGrid }
-
-class function TPyDelphiCustomGrid.DelphiObjectClass: TClass;
-begin
- Result := TCustomGrid;
-end;
-
-function TPyDelphiCustomGrid.GetDelphiObject: TCustomGrid;
-begin
- Result := TCustomGrid(inherited DelphiObject);
-end;
-
-procedure TPyDelphiCustomGrid.SetDelphiObject(const Value: TCustomGrid);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiCustomDrawGrid }
-
-class function TPyDelphiCustomDrawGrid.DelphiObjectClass: TClass;
-begin
- Result := TCustomDrawGrid;
-end;
-
-function TPyDelphiCustomDrawGrid.GetDelphiObject: TCustomDrawGrid;
-begin
- Result := TCustomDrawGrid(inherited DelphiObject);
-end;
-
-function TPyDelphiCustomDrawGrid.Get_Canvas(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Wrap(DelphiObject.Canvas);
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_ColWidths(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := Self.PyDelphiWrapper.DefaultContainerType.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiContainer do
- Setup(Self.PyDelphiWrapper, TGridColWidthsAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_Col(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Col);
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_EditorMode(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := VariantAsPyObject(DelphiObject.EditorMode);
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_GridHeight(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.GridHeight);
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_GridWidth(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.GridWidth);
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_LeftCol(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.LeftCol);
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_Row(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.Row);
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_Selection(
- AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := WrapRect(PyDelphiWrapper, TRect(DelphiObject.Selection));
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Get_TopRow(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.TopRow);
- end;
-end;
-
-class function TPyDelphiCustomDrawGrid.GetTypeName : String;
-begin
- Result := 'CustomDrawGrid';
-end;
-
-class procedure TPyDelphiCustomDrawGrid.RegisterGetSets(
- PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Canvas', @TPyDelphiCustomDrawGrid.Get_Canvas, nil,
- 'Specifies the TCanvas object that presents a drawing surface for the control.', nil);
- AddGetSet('Col', @TPyDelphiCustomDrawGrid.Get_Col, @TPyDelphiCustomDrawGrid.Set_Col,
- 'Specifies the index of the column that contains the selected cell.', nil);
- AddGetSet('ColWidths', @TPyDelphiCustomDrawGrid.Get_ColWidths, nil,
- 'Specifies column widths of the grid', nil);
- AddGetSet('EditorMode', @TPyDelphiCustomDrawGrid.Get_EditorMode, @TPyDelphiCustomDrawGrid.Set_EditorMode,
- 'Determines whether the current cell can be edited.', nil);
- AddGetSet('GridHeight', @TPyDelphiCustomDrawGrid.Get_GridHeight, nil,
- 'Specifies the height of the grid in pixels.', nil);
- AddGetSet('GridWidth', @TPyDelphiCustomDrawGrid.Get_GridWidth, nil,
- 'Specifies the width of the grid in pixels.', nil);
- AddGetSet('LeftCol', @TPyDelphiCustomDrawGrid.Get_LeftCol, @TPyDelphiCustomDrawGrid.Set_LeftCol,
- 'Specifies the index of the first visible scrollable column in the grid.', nil);
- AddGetSet('Selection', @TPyDelphiCustomDrawGrid.Get_Selection, @TPyDelphiCustomDrawGrid.Set_Selection,
- 'Indicates the boundaries of the current selection.', nil);
- AddGetSet('Row', @TPyDelphiCustomDrawGrid.Get_Row, @TPyDelphiCustomDrawGrid.Set_Row,
- 'Specifies the index of the row that contains the selected cell.', nil);
- AddGetSet('TopRow', @TPyDelphiCustomDrawGrid.Get_TopRow, @TPyDelphiCustomDrawGrid.Set_TopRow,
- 'Specifies the index of the first visible scrollable row in the grid.', nil);
- end;
-end;
-
-procedure TPyDelphiCustomDrawGrid.SetDelphiObject(
- const Value: TCustomDrawGrid);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiCustomDrawGrid.Set_Col(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Col', _value) then
- begin
- DelphiObject.Col := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Set_EditorMode(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Boolean;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckBoolAttribute(AValue, 'EditorMode', _value) then
- begin
- DelphiObject.EditorMode := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Set_LeftCol(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'LeftCol', _value) then
- begin
- DelphiObject.LeftCol := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Set_Row(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'Row', _value) then
- begin
- DelphiObject.Row := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Set_Selection(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : TRect;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckRectAttribute(AValue, 'Selection', _value) then
- begin
- DelphiObject.Selection := TGridRect(_value);
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiCustomDrawGrid.Set_TopRow(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'TopRow', _value) then
- begin
- DelphiObject.TopRow := _value;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-{ TPyDelphiDrawGrid }
-
-class function TPyDelphiDrawGrid.DelphiObjectClass: TClass;
-begin
- Result := TDrawGrid;
-end;
-
-function TPyDelphiDrawGrid.GetDelphiObject: TDrawGrid;
-begin
- Result := TDrawGrid(inherited DelphiObject);
-end;
-
-class function TPyDelphiDrawGrid.GetTypeName : String;
-begin
- Result := 'DrawGrid';
-end;
-
-procedure TPyDelphiDrawGrid.SetDelphiObject(const Value: TDrawGrid);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiStringGrid }
-
-class function TPyDelphiStringGrid.DelphiObjectClass: TClass;
-begin
- Result := TStringGrid;
-end;
-
-function TPyDelphiStringGrid.GetDelphiObject: TStringGrid;
-begin
- Result := TStringGrid(inherited DelphiObject);
-end;
-
-class procedure TPyDelphiStringGrid.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- PythonType.AddMethod('GetCell', @TPyDelphiStringGrid.GetCell,
- 'TStringGrid.GetCell(col, row)'#10 +
- 'Returns the content of a cell');
- PythonType.AddMethod('SetCell', @TPyDelphiStringGrid.SetCell,
- 'TStringGrid.SetCell(col, row, value)'#10 +
- 'Sets the content of a cell');
-end;
-
-class function TPyDelphiStringGrid.GetTypeName : String;
-begin
- Result := 'StringGrid';
-end;
-
-procedure TPyDelphiStringGrid.SetDelphiObject(const Value: TStringGrid);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiStringGrid.GetCell(args: PPyObject): PPyObject;
-var
- col, row: integer;
-begin
- with GetPythonEngine do begin
- // adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'ii:GetCell',@col, @row ) <> 0 then
- Result := PyString_FromString(PAnsiChar(AnsiString(DelphiObject.Cells[col, row])))
- else
- Result := nil;
- end;
-end;
-
-function TPyDelphiStringGrid.SetCell(args: PPyObject): PPyObject;
-var
- col, row: integer;
- value: PPyObject;
-begin
- with GetPythonEngine do begin
- // adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'iiO:GetCell',@col, @row, @value ) <> 0 then
- begin
- DelphiObject.Cells[col, row]:= PyString_AsDelphiString(value);
- result:=ReturnNone;
- end
- else
- Result := nil;
- end;
-
-end;
-
-
-initialization
- RegisteredUnits.Add( TGridsRegistration.Create );
- Classes.RegisterClasses([TDrawGrid, TStringGrid]);
-end.
diff --git a/Components/Sources/Core/WrapDelphiStdCtrls.pas b/Components/Sources/Core/WrapDelphiStdCtrls.pas
deleted file mode 100644
index 11222b3..0000000
--- a/Components/Sources/Core/WrapDelphiStdCtrls.pas
+++ /dev/null
@@ -1,494 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiStdCtrls;
-
-interface
-
-uses
- Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses,
- WrapDelphiControls, Windows, StdCtrls;
-
-type
- TPyDelphiButton = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TButton;
- procedure SetDelphiObject(const Value: TButton);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TButton read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiCheckBox = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TCheckBox;
- procedure SetDelphiObject(const Value: TCheckBox);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TCheckBox read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiComboBox = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TComboBox;
- procedure SetDelphiObject(const Value: TComboBox);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TComboBox read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiCustomEdit = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TCustomEdit;
- procedure SetDelphiObject(const Value: TCustomEdit);
- protected
- // Property Getters
- function Get_SelStart( AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_SelStart( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TCustomEdit read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiEdit = class (TPyDelphiCustomEdit)
- private
- function GetDelphiObject: TEdit;
- procedure SetDelphiObject(const Value: TEdit);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TEdit read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiCustomMemo = class (TPyDelphiCustomEdit)
- private
- function GetDelphiObject: TCustomMemo;
- procedure SetDelphiObject(const Value: TCustomMemo);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TCustomMemo read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiMemo = class (TPyDelphiCustomMemo)
- private
- function GetDelphiObject: TMemo;
- procedure SetDelphiObject(const Value: TMemo);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TMemo read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiGroupBox = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TGroupBox;
- procedure SetDelphiObject(const Value: TGroupBox);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TGroupBox read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiLabel = class (TPyDelphiControl)
- private
- function GetDelphiObject: TLabel;
- procedure SetDelphiObject(const Value: TLabel);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TLabel read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiListBox = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TListBox;
- procedure SetDelphiObject(const Value: TListBox);
- protected
- // Property Getters
- function Get_ItemIndex( AContext : Pointer) : PPyObject; cdecl;
- // Property Setters
- function Set_ItemIndex( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
- public
- class function DelphiObjectClass : TClass; override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- // Properties
- property DelphiObject: TListBox read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiRadioButton = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TRadioButton;
- procedure SetDelphiObject(const Value: TRadioButton);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TRadioButton read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiStaticText = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TStaticText;
- procedure SetDelphiObject(const Value: TStaticText);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TStaticText read GetDelphiObject write SetDelphiObject;
- end;
-
- TPyDelphiScrollBar = class (TPyDelphiWinControl)
- private
- function GetDelphiObject: TScrollBar;
- procedure SetDelphiObject(const Value: TScrollBar);
- public
- class function DelphiObjectClass : TClass; override;
- // Properties
- property DelphiObject: TScrollBar read GetDelphiObject write SetDelphiObject;
- end;
-
-implementation
-
-{ Register the wrappers, the globals and the constants }
-type
- TStdCtrlsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TStdCtrlsRegistration }
-
-procedure TStdCtrlsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
-end;
-
-function TStdCtrlsRegistration.Name: String;
-begin
- Result := 'StdCtrls';
-end;
-
-procedure TStdCtrlsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiButton);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCheckBox);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiComboBox);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomEdit);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiEdit);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomMemo);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiMemo);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiGroupBox);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiLabel);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiListBox);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiRadioButton);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStaticText);
- APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiScrollBar);
-end;
-
-{ TPyDelphiButton }
-
-class function TPyDelphiButton.DelphiObjectClass: TClass;
-begin
- Result := TButton;
-end;
-
-function TPyDelphiButton.GetDelphiObject: TButton;
-begin
- Result := TButton(inherited DelphiObject);
-end;
-
-procedure TPyDelphiButton.SetDelphiObject(const Value: TButton);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiCheckBox }
-
-class function TPyDelphiCheckBox.DelphiObjectClass: TClass;
-begin
- Result := TCheckBox;
-end;
-
-function TPyDelphiCheckBox.GetDelphiObject: TCheckBox;
-begin
- Result := TCheckBox(inherited DelphiObject);
-end;
-
-procedure TPyDelphiCheckBox.SetDelphiObject(const Value: TCheckBox);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiComboBox }
-
-class function TPyDelphiComboBox.DelphiObjectClass: TClass;
-begin
- Result := TComboBox;
-end;
-
-function TPyDelphiComboBox.GetDelphiObject: TComboBox;
-begin
- Result := TComboBox(inherited DelphiObject);
-end;
-
-procedure TPyDelphiComboBox.SetDelphiObject(const Value: TComboBox);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiEdit }
-
-class function TPyDelphiCustomEdit.DelphiObjectClass: TClass;
-begin
- Result := TCustomEdit;
-end;
-
-function TPyDelphiCustomEdit.GetDelphiObject: TCustomEdit;
-begin
- Result := TCustomEdit(inherited DelphiObject);
-end;
-
-procedure TPyDelphiCustomEdit.SetDelphiObject(const Value: TCustomEdit);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiCustomEdit.Get_SelStart(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.SelStart);
- end;
-end;
-
-function TPyDelphiCustomEdit.Set_SelStart(AValue: PPyObject; AContext: Pointer): integer;
-var
- _SelStart : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'SelStart', _SelStart) then
- begin
- DelphiObject.SelStart := _SelStart;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-class procedure TPyDelphiCustomEdit.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('SelStart', @TPyDelphiCustomEdit.Get_SelStart, @TPyDelphiCustomEdit.Set_SelStart,
- 'Returns/sets the position of the cursor.', nil);
- end;
-end;
-
-{ TPyDelphiEdit }
-
-class function TPyDelphiEdit.DelphiObjectClass: TClass;
-begin
- Result := TEdit;
-end;
-
-function TPyDelphiEdit.GetDelphiObject: TEdit;
-begin
- Result := TEdit(inherited DelphiObject);
-end;
-
-procedure TPyDelphiEdit.SetDelphiObject(const Value: TEdit);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiCustomMemo }
-
-class function TPyDelphiCustomMemo.DelphiObjectClass: TClass;
-begin
- Result := TCustomMemo;
-end;
-
-function TPyDelphiCustomMemo.GetDelphiObject: TCustomMemo;
-begin
- Result := TCustomMemo(inherited DelphiObject);
-end;
-
-procedure TPyDelphiCustomMemo.SetDelphiObject(const Value: TCustomMemo);
-begin
- inherited DelphiObject := Value;
-end;
-
-{ TPyDelphiMemo }
-
-class function TPyDelphiMemo.DelphiObjectClass: TClass;
-begin
- Result := TMemo;
-end;
-
-function TPyDelphiMemo.GetDelphiObject: TMemo;
-begin
- Result := TMemo(inherited DelphiObject);
-end;
-
-procedure TPyDelphiMemo.SetDelphiObject(const Value: TMemo);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiGroupBox }
-
-class function TPyDelphiGroupBox.DelphiObjectClass: TClass;
-begin
- Result := TGroupBox;
-end;
-
-function TPyDelphiGroupBox.GetDelphiObject: TGroupBox;
-begin
- Result := TGroupBox(inherited DelphiObject);
-end;
-
-procedure TPyDelphiGroupBox.SetDelphiObject(const Value: TGroupBox);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiLabel }
-
-class function TPyDelphiLabel.DelphiObjectClass: TClass;
-begin
- Result := TLabel;
-end;
-
-function TPyDelphiLabel.GetDelphiObject: TLabel;
-begin
- Result := TLabel(inherited DelphiObject);
-end;
-
-procedure TPyDelphiLabel.SetDelphiObject(const Value: TLabel);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiListBox }
-
-class function TPyDelphiListBox.DelphiObjectClass: TClass;
-begin
- Result := TListBox;
-end;
-
-function TPyDelphiListBox.GetDelphiObject: TListBox;
-begin
- Result := TListBox(inherited DelphiObject);
-end;
-
-procedure TPyDelphiListBox.SetDelphiObject(const Value: TListBox);
-begin
- inherited DelphiObject := Value;
-end;
-
-function TPyDelphiListBox.Set_ItemIndex(AValue: PPyObject; AContext: Pointer): integer;
-var
- _index : Integer;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- if CheckIntAttribute(AValue, 'ItemIndex', _index) then
- begin
- DelphiObject.ItemIndex := _index;
- Result := 0;
- end
- else
- Result := -1;
- end;
-end;
-
-function TPyDelphiListBox.Get_ItemIndex(AContext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(DelphiObject.ItemIndex);
- end;
-end;
-
-class procedure TPyDelphiListBox.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('ItemIndex', @TPyDelphiListBox.Get_ItemIndex, @TPyDelphiListBox.Set_ItemIndex,
- 'Indicates the position of the selected item.', nil);
- end;
-end;
-
-
-{ TPyDelphiRadioButton }
-
-class function TPyDelphiRadioButton.DelphiObjectClass: TClass;
-begin
- Result := TRadioButton;
-end;
-
-function TPyDelphiRadioButton.GetDelphiObject: TRadioButton;
-begin
- Result := TRadioButton(inherited DelphiObject);
-end;
-
-procedure TPyDelphiRadioButton.SetDelphiObject(const Value: TRadioButton);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiStaticText }
-
-class function TPyDelphiStaticText.DelphiObjectClass: TClass;
-begin
- Result := TStaticText;
-end;
-
-function TPyDelphiStaticText.GetDelphiObject: TStaticText;
-begin
- Result := TStaticText(inherited DelphiObject);
-end;
-
-procedure TPyDelphiStaticText.SetDelphiObject(const Value: TStaticText);
-begin
- inherited DelphiObject := Value;
-end;
-
-
-{ TPyDelphiScrollBar }
-
-class function TPyDelphiScrollBar.DelphiObjectClass: TClass;
-begin
- Result := TScrollBar;
-end;
-
-function TPyDelphiScrollBar.GetDelphiObject: TScrollBar;
-begin
- Result := TScrollBar(inherited DelphiObject);
-end;
-
-procedure TPyDelphiScrollBar.SetDelphiObject(const Value: TScrollBar);
-begin
- inherited DelphiObject := Value;
-end;
-
-initialization
- RegisteredUnits.Add( TStdCtrlsRegistration.Create );
- Classes.RegisterClasses([TButton, TCheckBox, TComboBox, TEdit, TMemo, TGroupBox,
- TLabel, TListBox, TRadioButton, TStaticText, TScrollBar]);
-end.
diff --git a/Components/Sources/Core/WrapDelphiTypes.pas b/Components/Sources/Core/WrapDelphiTypes.pas
deleted file mode 100644
index 513ae0b..0000000
--- a/Components/Sources/Core/WrapDelphiTypes.pas
+++ /dev/null
@@ -1,637 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiTypes;
-
-interface
-
-uses
- Classes,
- SysUtils,
- PythonEngine,
- Types,
- WrapDelphi;
-
-type
- TPyDelphiPoint = class(TPyObject)
- private
- fValue: TPoint;
- protected
- // Exposed Getters
- function Get_X(Acontext : Pointer) : PPyObject; cdecl;
- function Get_Y(Acontext : Pointer) : PPyObject; cdecl;
- // Exposed Setters
- function Set_X(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Y(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- constructor CreateWith( APythonType : TPythonType; args : PPyObject ); override;
-
- function Compare( obj: PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure SetupType( PythonType : TPythonType ); override;
-
- property Value : TPoint read fValue write fValue;
- end;
-
- TPyDelphiRect = class(TPyObject)
- private
- fValue: TRect;
- protected
- // Exposed Getters
- function Get_Left(Acontext : Pointer) : PPyObject; cdecl;
- function Get_Top(Acontext : Pointer) : PPyObject; cdecl;
- function Get_Right(Acontext : Pointer) : PPyObject; cdecl;
- function Get_Bottom(Acontext : Pointer) : PPyObject; cdecl;
- function Get_TopLeft(Acontext : Pointer) : PPyObject; cdecl;
- function Get_BottomRight(Acontext : Pointer) : PPyObject; cdecl;
- // Exposed Setters
- function Set_Left(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Top(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Right(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_Bottom(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_TopLeft(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_BottomRight(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- PyDelphiWrapper : TPyDelphiWrapper;
-
- constructor CreateWith( APythonType : TPythonType; args : PPyObject ); override;
-
- function Compare( obj: PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure SetupType( PythonType : TPythonType ); override;
-
- property Value : TRect read fValue write fValue;
- end;
-
- TPyDelphiSize = class(TPyObject)
- private
- fValue: TSize;
- protected
- // Exposed Getters
- function Get_CX(Acontext : Pointer) : PPyObject; cdecl;
- function Get_CY(Acontext : Pointer) : PPyObject; cdecl;
- // Exposed Setters
- function Set_CX(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- function Set_CY(AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
- public
- constructor CreateWith( APythonType : TPythonType; args : PPyObject ); override;
-
- function Compare( obj: PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
- class procedure SetupType( PythonType : TPythonType ); override;
-
- property Value : TSize read fValue write fValue;
- end;
-
- function WrapPoint(APyDelphiWrapper : TPyDelphiWrapper; const APoint : TPoint) : PPyObject;
- function WrapRect(APyDelphiWrapper : TPyDelphiWrapper; const ARect : TRect) : PPyObject;
- function WrapSize(APyDelphiWrapper : TPyDelphiWrapper; const ASize : TSize) : PPyObject;
- function CheckPointAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : TPoint) : Boolean;
- function CheckRectAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : TRect) : Boolean;
- function CheckSizeAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : TSize) : Boolean;
-
-implementation
-
-uses
- Math;
-
- { Register the wrappers, the globals and the constants }
-type
- TTypesRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TExtCtrlsRegistration }
-
-procedure TTypesRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
-end;
-
-function TTypesRegistration.Name: String;
-begin
- Result := 'Types';
-end;
-
-procedure TTypesRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.RegisterHelperType(TPyDelphiPoint);
- APyDelphiWrapper.RegisterHelperType(TPyDelphiRect);
- APyDelphiWrapper.RegisterHelperType(TPyDelphiSize);
-end;
-
-{ Helper functions }
-function WrapPoint(APyDelphiWrapper : TPyDelphiWrapper; const APoint : TPoint) : PPyObject;
-var
- _type : TPythonType;
-begin
- _type := APyDelphiWrapper.GetHelperType('PointType');
- Result := _type.CreateInstance;
- (PythonToDelphi(Result) as TPyDelphiPoint).Value := APoint;
-end;
-
-function WrapRect(APyDelphiWrapper : TPyDelphiWrapper; const ARect : TRect) : PPyObject;
-var
- _type : TPythonType;
-begin
- _type := APyDelphiWrapper.GetHelperType('RectType');
- Result := _type.CreateInstance;
- with PythonToDelphi(Result) as TPyDelphiRect do
- begin
- PyDelphiWrapper := APyDelphiWrapper;
- Value := ARect;
- end;
-end;
-
-function WrapSize(APyDelphiWrapper : TPyDelphiWrapper; const ASize : TSize) : PPyObject;
-var
- _type : TPythonType;
-begin
- _type := APyDelphiWrapper.GetHelperType('SizeType');
- Result := _type.CreateInstance;
- (PythonToDelphi(Result) as TPyDelphiSize).Value := ASize;
-end;
-
-function CheckPointAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : TPoint) : Boolean;
-begin
- with GetPythonEngine do
- begin
- if IsDelphiObject(AAttribute) and (PythonToDelphi(AAttribute) is TPyDelphiPoint) then
- begin
- AValue := TPyDelphiPoint(PythonToDelphi(AAttribute)).Value;
- Result := True;
- end
- else
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('%s receives only Point objects', [AAttributeName]))));
- end;
- end;
-end;
-
-function CheckRectAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : TRect) : Boolean;
-begin
- with GetPythonEngine do
- begin
- if IsDelphiObject(AAttribute) and (PythonToDelphi(AAttribute) is TPyDelphiRect) then
- begin
- AValue := TPyDelphiRect(PythonToDelphi(AAttribute)).Value;
- Result := True;
- end
- else
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('%s receives only Rect objects', [AAttributeName]))));
- end;
- end;
-end;
-
-function CheckSizeAttribute(AAttribute : PPyObject; const AAttributeName : String; var AValue : TSize) : Boolean;
-begin
- with GetPythonEngine do
- begin
- if IsDelphiObject(AAttribute) and (PythonToDelphi(AAttribute) is TPyDelphiSize) then
- begin
- AValue := TPyDelphiSize(PythonToDelphi(AAttribute)).Value;
- Result := True;
- end
- else
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('%s receives only Size objects', [AAttributeName]))));
- end;
- end;
-end;
-
-{ TPyDelphiPoint }
-
-function TPyDelphiPoint.Compare(obj: PPyObject): Integer;
-var
- _other : TPyDelphiPoint;
-begin
- if IsDelphiObject(obj) and (PythonToDelphi(obj) is TPyDelphiPoint) then
- begin
- _other := TPyDelphiPoint(PythonToDelphi(obj));
- Result := CompareValue(Value.X, _other.Value.X);
- if Result = 0 then
- Result := CompareValue(Value.Y, _other.Value.Y);
- end
- else
- Result := 1;
-end;
-
-constructor TPyDelphiPoint.CreateWith(APythonType: TPythonType;
- args: PPyObject);
-var
- x, y : Integer;
-begin
- inherited;
- if APythonType.Engine.PyArg_ParseTuple( args, 'ii:Create',@x, @y ) <> 0 then
- begin
- fValue.X := x;
- fValue.Y := y;
- end
-end;
-
-function TPyDelphiPoint.Get_X(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Value.X);
- end;
-end;
-
-function TPyDelphiPoint.Get_Y(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Value.Y);
- end;
-end;
-
-class procedure TPyDelphiPoint.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('X', @TPyDelphiPoint.Get_X, @TPyDelphiPoint.Set_X,
- 'Provides access to the X coordinate of a point', nil);
- AddGetSet('Y', @TPyDelphiPoint.Get_Y, @TPyDelphiPoint.Set_Y,
- 'Provides access to the Y coordinate of a point', nil);
- end;
-end;
-
-function TPyDelphiPoint.Repr: PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString(PAnsiChar(AnsiString(Format('', [Value.X, Value.Y]))));
-end;
-
-class procedure TPyDelphiPoint.SetupType(PythonType: TPythonType);
-begin
- inherited;
- PythonType.TypeName := 'Point';
- PythonType.Name := string(PythonType.TypeName) + 'Type';
- PythonType.TypeFlags := PythonType.TypeFlags + [tpfBaseType];
- PythonType.GenerateCreateFunction := False;
- PythonType.DocString.Text := 'wrapper for Delphi TPoint type';
- PythonType.Services.Basic := [bsGetAttrO, bsSetAttrO, bsRepr, bsStr, bsCompare];
-end;
-
-function TPyDelphiPoint.Set_X(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- x : Integer;
-begin
- if CheckIntAttribute(AValue, 'X', x) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.X := x;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-function TPyDelphiPoint.Set_Y(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- y : Integer;
-begin
- if CheckIntAttribute(AValue, 'Y', y) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.Y := y;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-{ TPyDelphiRect }
-
-function TPyDelphiRect.Compare(obj: PPyObject): Integer;
-var
- _other : TPyDelphiRect;
-begin
- if IsDelphiObject(obj) and (PythonToDelphi(obj) is TPyDelphiRect) then
- begin
- _other := TPyDelphiRect(PythonToDelphi(obj));
- Result := CompareValue(Value.Left, _other.Value.Left);
- if Result = 0 then
- Result := CompareValue(Value.Top, _other.Value.Top);
- if Result = 0 then
- Result := CompareValue(Value.Right, _other.Value.Right);
- if Result = 0 then
- Result := CompareValue(Value.Bottom, _other.Value.Bottom);
- end
- else
- Result := 1;
-end;
-
-constructor TPyDelphiRect.CreateWith(APythonType: TPythonType;
- args: PPyObject);
-begin
- inherited;
- APythonType.Engine.PyArg_ParseTuple( args, 'iiii:Create',@fValue.Left, @fValue.Top, @fValue.Right, @fValue.Bottom );
-end;
-
-function TPyDelphiRect.Get_Bottom(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Value.Bottom);
- end;
-end;
-
-function TPyDelphiRect.Get_BottomRight(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := WrapPoint(PyDelphiWrapper, Value.BottomRight);
- end;
-end;
-
-function TPyDelphiRect.Get_Left(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Value.Left);
- end;
-end;
-
-function TPyDelphiRect.Get_Right(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Value.Right);
- end;
-end;
-
-function TPyDelphiRect.Get_Top(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Value.Top);
- end;
-end;
-
-function TPyDelphiRect.Get_TopLeft(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := WrapPoint(PyDelphiWrapper, Value.TopLeft);
- end;
-end;
-
-class procedure TPyDelphiRect.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('Left', @TPyDelphiRect.Get_Left, @TPyDelphiRect.Set_Left,
- 'Provides access to the Left coordinate of a rectangle', nil);
- AddGetSet('Top', @TPyDelphiRect.Get_Top, @TPyDelphiRect.Set_Top,
- 'Provides access to the Top coordinate of a rectangle', nil);
- AddGetSet('Right', @TPyDelphiRect.Get_Right, @TPyDelphiRect.Set_Right,
- 'Provides access to the Right coordinate of a rectangle', nil);
- AddGetSet('Bottom', @TPyDelphiRect.Get_Bottom, @TPyDelphiRect.Set_Bottom,
- 'Provides access to the Bottom coordinate of a rectangle', nil);
- AddGetSet('TopLeft', @TPyDelphiRect.Get_TopLeft, @TPyDelphiRect.Set_TopLeft,
- 'Provides access to the TopLeft coordinate of a rectangle', nil);
- AddGetSet('BottomRight', @TPyDelphiRect.Get_BottomRight, @TPyDelphiRect.Set_BottomRight,
- 'Provides access to the BottomRight coordinate of a rectangle', nil);
- end;
-end;
-
-function TPyDelphiRect.Repr: PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString(PAnsiChar(AnsiString(Format('', [Value.Left, Value.Top, Value.Right, Value.Bottom]))));
-end;
-
-function TPyDelphiRect.Set_Bottom(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- if CheckIntAttribute(AValue, 'Bottom', _value) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.Bottom := _value;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-function TPyDelphiRect.Set_BottomRight(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : TPoint;
-begin
- if CheckPointAttribute(AValue, 'BottomRight', _value) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.BottomRight := _value;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-function TPyDelphiRect.Set_Left(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- if CheckIntAttribute(AValue, 'Left', _value) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.Left := _value;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-function TPyDelphiRect.Set_Right(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- if CheckIntAttribute(AValue, 'Right', _value) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.Right := _value;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-function TPyDelphiRect.Set_Top(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : Integer;
-begin
- if CheckIntAttribute(AValue, 'Top', _value) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.Top := _value;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-function TPyDelphiRect.Set_TopLeft(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- _value : TPoint;
-begin
- if CheckPointAttribute(AValue, 'TopLeft', _value) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.TopLeft := _value;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-class procedure TPyDelphiRect.SetupType(PythonType: TPythonType);
-begin
- inherited;
- PythonType.TypeName := 'Rect';
- PythonType.Name := string(PythonType.TypeName) + 'Type';
- PythonType.TypeFlags := PythonType.TypeFlags + [tpfBaseType];
- PythonType.GenerateCreateFunction := False;
- PythonType.DocString.Text := 'wrapper for Delphi TRect type';
- PythonType.Services.Basic := [bsGetAttrO, bsSetAttrO, bsRepr, bsStr, bsCompare];
-end;
-
-
-{ TPyDelphiSize }
-
-function TPyDelphiSize.Compare(obj: PPyObject): Integer;
-var
- _other : TPyDelphiSize;
-begin
- if IsDelphiObject(obj) and (PythonToDelphi(obj) is TPyDelphiSize) then
- begin
- _other := TPyDelphiSize(PythonToDelphi(obj));
- Result := CompareValue(Value.cx, _other.Value.cx);
- if Result = 0 then
- Result := CompareValue(Value.cy, _other.Value.cy);
- end
- else
- Result := 1;
-end;
-
-constructor TPyDelphiSize.CreateWith(APythonType: TPythonType;
- args: PPyObject);
-var
- cx, cy : Integer;
-begin
- inherited;
- if APythonType.Engine.PyArg_ParseTuple( args, 'ii:Create',@cx, @cy ) <> 0 then
- begin
- fValue.cx := cx;
- fValue.cy := cy;
- end
-end;
-
-function TPyDelphiSize.Get_CX(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Value.cx);
- end;
-end;
-
-function TPyDelphiSize.Get_CY(Acontext: Pointer): PPyObject;
-begin
- with GetPythonEngine do begin
- Adjust(@Self);
- Result := PyInt_FromLong(Value.cy);
- end;
-end;
-
-class procedure TPyDelphiSize.RegisterGetSets(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddGetSet('cx', @TPyDelphiSize.Get_CX, @TPyDelphiSize.Set_CX,
- 'Provides access to the width of the size', nil);
- AddGetSet('cy', @TPyDelphiSize.Get_CY, @TPyDelphiSize.Set_CY,
- 'Provides access to the height of the size', nil);
- end;
-end;
-
-function TPyDelphiSize.Repr: PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString(PAnsiChar(AnsiString(Format('', [Value.cx, Value.cy]))));
-end;
-
-class procedure TPyDelphiSize.SetupType(PythonType: TPythonType);
-begin
- inherited;
- PythonType.TypeName := 'Size';
- PythonType.Name := string(PythonType.TypeName) + 'Type';
- PythonType.TypeFlags := PythonType.TypeFlags + [tpfBaseType];
- PythonType.GenerateCreateFunction := False;
- PythonType.DocString.Text := 'wrapper for Delphi TSize type';
- PythonType.Services.Basic := [bsGetAttrO, bsSetAttrO, bsRepr, bsStr, bsCompare];
-end;
-
-function TPyDelphiSize.Set_CX(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- cx : Integer;
-begin
- if CheckIntAttribute(AValue, 'cx', cx) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.cx := cx;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-function TPyDelphiSize.Set_CY(AValue: PPyObject;
- AContext: Pointer): Integer;
-var
- cy : Integer;
-begin
- if CheckIntAttribute(AValue, 'cy', cy) then
- with GetPythonEngine do begin
- Adjust(@Self);
- fValue.cy := cy;
- Result := 0;
- end
- else
- Result := -1;
-end;
-
-initialization
- RegisteredUnits.Add(TTypesRegistration.Create);
-end.
diff --git a/Components/Sources/Core/WrapDelphiVCL.pas b/Components/Sources/Core/WrapDelphiVCL.pas
deleted file mode 100644
index 9e7bc76..0000000
--- a/Components/Sources/Core/WrapDelphiVCL.pas
+++ /dev/null
@@ -1,26 +0,0 @@
-unit WrapDelphiVCL;
-
-{
- Helper unit that will register all the wrappers for the VCL.
- Instead of including WrapDelphiClasses, WrapDelphiControls... into your uses
- clause, simply add WrapDelphiVCL.
-}
-interface
-
-implementation
-
-uses
- WrapDelphiTypes,
- WrapDelphiClasses,
- WrapDelphiWindows,
- WrapDelphiControls,
- WrapDelphiGraphics,
- WrapDelphiForms,
- WrapDelphiActnList,
- WrapDelphiStdCtrls,
- WrapDelphiComCtrls,
- WrapDelphiExtCtrls,
- WrapDelphiButtons,
- WrapDelphiGrids;
-
-end.
diff --git a/Components/Sources/Core/WrapDelphiWindows.pas b/Components/Sources/Core/WrapDelphiWindows.pas
deleted file mode 100644
index e1f42b1..0000000
--- a/Components/Sources/Core/WrapDelphiWindows.pas
+++ /dev/null
@@ -1,80 +0,0 @@
-{$I Definition.Inc}
-
-unit WrapDelphiWindows;
-
-interface
-
-uses
- Windows, Classes, SysUtils, PythonEngine, WrapDelphi, WrapDelphiClasses;
-
-implementation
-
-{ Register the wrappers, the globals and the constants }
-type
- TWindowsRegistration = class(TRegisteredUnit)
- public
- function Name : String; override;
- procedure RegisterWrappers(APyDelphiWrapper : TPyDelphiWrapper); override;
- procedure DefineVars(APyDelphiWrapper : TPyDelphiWrapper); override;
- end;
-
-{ TWindowsRegistration }
-
-procedure TWindowsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
- APyDelphiWrapper.DefineVar('MB_OK', MB_OK);
- APyDelphiWrapper.DefineVar('MB_YESNO', MB_YESNO);
- APyDelphiWrapper.DefineVar('MB_YESNOCANCEL', MB_YESNOCANCEL);
- APyDelphiWrapper.DefineVar('MB_OKCANCEL', MB_OKCANCEL);
- APyDelphiWrapper.DefineVar('MB_ABORTRETRYIGNORE', MB_ABORTRETRYIGNORE);
- APyDelphiWrapper.DefineVar('MB_RETRYCANCEL', MB_RETRYCANCEL);
- APyDelphiWrapper.DefineVar('MB_ICONINFORMATION', MB_ICONINFORMATION);
- APyDelphiWrapper.DefineVar('MB_ICONHAND', MB_ICONHAND);
- APyDelphiWrapper.DefineVar('MB_ICONQUESTION', MB_ICONQUESTION);
- APyDelphiWrapper.DefineVar('MB_ICONEXCLAMATION', MB_ICONEXCLAMATION);
- APyDelphiWrapper.DefineVar('MB_ICONASTERISK', MB_ICONASTERISK);
- APyDelphiWrapper.DefineVar('MB_ICONWARNING', MB_ICONWARNING);
- APyDelphiWrapper.DefineVar('MB_ICONERROR', MB_ICONERROR);
- APyDelphiWrapper.DefineVar('MB_ICONSTOP', MB_ICONSTOP);
- APyDelphiWrapper.DefineVar('MB_DEFBUTTON1', MB_DEFBUTTON1);
- APyDelphiWrapper.DefineVar('MB_DEFBUTTON2', MB_DEFBUTTON2);
- APyDelphiWrapper.DefineVar('MB_DEFBUTTON3', MB_DEFBUTTON3);
- APyDelphiWrapper.DefineVar('MB_DEFBUTTON4', MB_DEFBUTTON4);
- APyDelphiWrapper.DefineVar('MB_APPLMODAL', MB_APPLMODAL);
- APyDelphiWrapper.DefineVar('MB_SYSTEMMODAL', MB_SYSTEMMODAL);
- APyDelphiWrapper.DefineVar('MB_TASKMODAL', MB_TASKMODAL);
- APyDelphiWrapper.DefineVar('MB_HELP', MB_HELP);
- {$IFNDEF FPC}
- APyDelphiWrapper.DefineVar('MB_NOFOCUS', MB_NOFOCUS);
- {$ENDIF FPC}
-
- APyDelphiWrapper.DefineVar('IDOK', IDOK);
- APyDelphiWrapper.DefineVar('IDCANCEL', IDCANCEL);
- APyDelphiWrapper.DefineVar('IDABORT', IDABORT);
- APyDelphiWrapper.DefineVar('IDRETRY', IDRETRY);
- APyDelphiWrapper.DefineVar('IDIGNORE', IDIGNORE);
- APyDelphiWrapper.DefineVar('IDYES', IDYES);
- APyDelphiWrapper.DefineVar('IDNO', IDNO);
- APyDelphiWrapper.DefineVar('IDCLOSE', IDCLOSE);
- APyDelphiWrapper.DefineVar('IDHELP', IDHELP);
- {$IFNDEF FPC}
- APyDelphiWrapper.DefineVar('IDTRYAGAIN', IDTRYAGAIN);
- APyDelphiWrapper.DefineVar('IDCONTINUE', IDCONTINUE);
- {$ENDIF FPC}
-end;
-
-function TWindowsRegistration.Name: String;
-begin
- Result := 'Windows';
-end;
-
-procedure TWindowsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper);
-begin
- inherited;
-end;
-
-initialization
- RegisteredUnits.Add( TWindowsRegistration.Create );
-end.
-
diff --git a/Components/Sources/VCL/PythonDatabase.dcr b/Components/Sources/VCL/PythonDatabase.dcr
deleted file mode 100644
index 32dee87..0000000
Binary files a/Components/Sources/VCL/PythonDatabase.dcr and /dev/null differ
diff --git a/Components/Sources/VCL/PythonDatabase.pas b/Components/Sources/VCL/PythonDatabase.pas
deleted file mode 100644
index a397e45..0000000
--- a/Components/Sources/VCL/PythonDatabase.pas
+++ /dev/null
@@ -1,65 +0,0 @@
-{$I Definition.Inc}
-
-unit PythonDatabase;
-
-{-------------------------------------------------------------------------------
- $Header: /P4D/PythonForDelphi/Components/Sources/VCL/PythonDatabase.pas 1 03-04-09 19:25 Morgan $
- Copyright � MMM Inc. 2003 - All Rights Reserved.
- ------------------------------------------------------------------------------
- Author: Morgan Martinet
-
- Description:
-
- ------------------------------------------------------------------------------
- $Log: /P4D/PythonForDelphi/Components/Sources/VCL/PythonDatabase.pas $
- *
- * 1 03-04-09 19:25 Morgan
- * initial check-in
-
--------------------------------------------------------------------------------}
-
-interface
-uses Classes, PythonEngine;
-type
- {$IF not Defined(FPC) and (CompilerVersion >= 23)}
- [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
- {$IFEND}
- TPythonDatabase = class(TEngineClient)
- protected
- procedure SetEngine( val : TPythonEngine ); override;
- public
- constructor Create( AOwner : TComponent ); override;
- end;
-
- procedure Register;
-
-implementation
-uses pyDB, pyDBTables;
-
-procedure Register;
-begin
- RegisterComponents('Python',[TPythonDatabase]);
-end;
-
-constructor TPythonDatabase.Create( AOwner : TComponent );
-begin
- inherited;
- if not (csDesigning in ComponentState) then
- begin
- pyDB.CreateComponents(Self);
- pyDBTables.CreateComponents(Self);
- end;
-end;
-
-procedure TPythonDatabase.SetEngine( val : TPythonEngine );
-var
- i : Integer;
-begin
- inherited;
- for i := 0 to ComponentCount-1 do
- if Components[i] is TEngineClient then
- with TEngineClient(Components[i]) do
- Engine := val;
-end;
-
-end.
diff --git a/Components/Sources/VCL/pyDB.pas b/Components/Sources/VCL/pyDB.pas
deleted file mode 100644
index cc53aaf..0000000
--- a/Components/Sources/VCL/pyDB.pas
+++ /dev/null
@@ -1,2913 +0,0 @@
-{$I Definition.Inc}
-
-unit pyDB;
-
-{-------------------------------------------------------------------------------
- $Header: /P4D/PythonForDelphi/Components/Sources/VCL/pyDB.pas 1 03-04-09 19:25 Morgan $
- Copyright � MMM Inc. 2003 - All Rights Reserved.
- ------------------------------------------------------------------------------
- Author: Morgan Martinet
-
- Description:
-
- ------------------------------------------------------------------------------
- $Log: /P4D/PythonForDelphi/Components/Sources/VCL/pyDB.pas $
- *
- * 1 03-04-09 19:25 Morgan
- * initial check-in
-
--------------------------------------------------------------------------------}
-
-interface
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- PythonEngine, StdCtrls, ExtCtrls, ComCtrls, DB;
-type
- TCallBackSplit = record
- method: Pointer;
- self: TObject;
- end;
-
-{*********************************************************************
- * DB module *
- *********************************************************************}
- TPythonDB = class(TPythonModule)
- public
- constructor Create( AOwner : TComponent ); override;
- procedure Initialize; override;
- end;
-
-{*********************************************************************
- * Shared object *
- *********************************************************************}
-
- TSharedObject = class
- protected
- FRefCount : Integer;
- FData : TObject;
- FOwner : Boolean;
-
- procedure DoDecRef;
- procedure SetData( value : TObject );
-
- public
- constructor Create;
- constructor CreateWith( value : TObject; isOwner : Boolean );
- destructor Destroy; override;
-
- procedure IncRef;
- procedure DecRef;
- procedure FreeData;
-
- property Data : TObject read FData write SetData;
- property Owner : Boolean read FOwner write FOwner;
- end;
-
- {*********************************************************************
- * Interface of TCommon *
- *********************************************************************}
-
- TCommon = class(TPyObject)
- function GetProperties : PPyObject;
- procedure AppendProperties( List : PPyObject ); virtual;
- procedure AppendProp( List : PPyObject; const prop : String );
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- procedure RaiseDBError( E : Exception );
- function EventBelongsToObject( Event : TCallbackSplit ) : Boolean;
- end;
-
- {*********************************************************************
- * Interface of TField *
- *********************************************************************}
- // This is a Delphi class implementing a new Python type
- // it must derive from TPyObject or one of its descendants.
- // Then it must override some methods, like the constructors,
- // the RegisterMethods and the type services' virtual methods.
- TPyField = class(TCommon)
- FSharedObject : TSharedObject;
- FField : TField;
- FOnChange : PPyObject;
- FOnGetText : PPyObject;
- FOnSetText : PPyObject;
- FOnValidate : PPyObject;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyField
- function CheckDataset : Boolean;
- function CheckField : Boolean;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- function DoClear( args : PPyObject ) : PPyObject; cdecl;
- function DoFocusControl( args : PPyObject ) : PPyObject; cdecl;
- function DoIsValidChar( args : PPyObject ) : PPyObject; cdecl;
- function DoRefreshLookupList( args : PPyObject ) : PPyObject; cdecl;
-
- // Events
- ////////////////
- procedure OnChange( Sender : TField );
- procedure OnGetText( Sender: TField; var Text: String; DisplayText: Boolean );
- procedure OnSetText( Sender : TField; const Text: String );
- procedure OnValidate( Sender : TField );
- end;
-
- TPythonField = class( TPythonType)
- public
- constructor Create( AOwner : TComponent ); override;
- end;
-
-{*********************************************************************
- * Interface of TDataset *
- *********************************************************************}
-
-
- // This is a Delphi class implementing a new Python type
- // it must derive from TPyObject or one of its descendants.
- // Then it must override some methods, like the constructors,
- // the RegisterMethods and the type services' virtual methods.
- TPyDataset = class(TCommon)
- FSharedObject : TSharedObject;
- // Python functions or methods for each event
- FAfterClose : PPyObject;
- FAfterOpen : PPyObject;
- FAfterScroll : PPyObject;
- FBeforeClose : PPyObject;
- FBeforeOpen : PPyObject;
- FBeforeScroll : PPyObject;
- FAfterCancel : PPyObject;
- FAfterDelete : PPyObject;
- FAfterEdit : PPyObject;
- FAfterInsert : PPyObject;
- FAfterPost : PPyObject;
- FBeforeCancel : PPyObject;
- FBeforeDelete : PPyObject;
- FBeforeEdit : PPyObject;
- FBeforeInsert : PPyObject;
- FBeforePost : PPyObject;
- FOnCalcFields : PPyObject;
- FOnDeleteError : PPyObject;
- FOnEditError : PPyObject;
- FOnFilterRecord : PPyObject;
- FOnNewRecord : PPyObject;
- FOnPostError : PPyObject;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- // Sequence services
- function SqLength : Integer; override;
- function SqItem( idx : Integer ) : PPyObject; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyDataset
- function CheckDataset : Boolean;
- function Dataset : TDataset;
- procedure SetDataset( val : TDataset; owner : Boolean );
- function FieldNamesAsTuple : PPyObject;
- function FieldsAsTuple : PPyObject;
- function FieldsAsDict : PPyObject;
- function Locate( const keyFields : String; keyValues, options : PPyObject ) : PPyObject;
- function Lookup( const keyFields : String; keyValues : PPyObject; const resultFields : String ) : PPyObject;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- function DoOpen( args : PPyObject ) : PPyObject; cdecl;
- function DoClose( args : PPyObject ) : PPyObject; cdecl;
- function DoFirst( args : PPyObject ) : PPyObject; cdecl;
- function DoLast( args : PPyObject ) : PPyObject; cdecl;
- function DoNext( args : PPyObject ) : PPyObject; cdecl;
- function DoPrior( args : PPyObject ) : PPyObject; cdecl;
- function DoEdit( args : PPyObject ) : PPyObject; cdecl;
- function DoInsert( args : PPyObject ) : PPyObject; cdecl;
- function DoAppend( args : PPyObject ) : PPyObject; cdecl;
- function DoPost( args : PPyObject ) : PPyObject; cdecl;
- function DoCancel( args : PPyObject ) : PPyObject; cdecl;
- function DoDisableControls( args : PPyObject ) : PPyObject; cdecl;
- function DoEnableControls( args : PPyObject ) : PPyObject; cdecl;
- function DoLocate( args : PPyObject ) : PPyObject; cdecl;
- function DoLookup( args : PPyObject ) : PPyObject; cdecl;
- function DoMoveBy( args : PPyObject ) : PPyObject; cdecl;
- function DoRefresh( args : PPyObject ) : PPyObject; cdecl;
- function DoFields( args : PPyObject ) : PPyObject; cdecl;
- function DoFieldByName( args : PPyObject ) : PPyObject; cdecl;
- function DoFindField( args : PPyObject ) : PPyObject; cdecl;
- function DoFieldNamesAsTuple( args : PPyObject ) : PPyObject; cdecl;
- function DoFieldsAsTuple( args : PPyObject ) : PPyObject; cdecl;
- function DoFieldsAsDict( args : PPyObject ) : PPyObject; cdecl;
-
- // Events
- ////////////////
- procedure AfterClose( Dataset : TDataset );
- procedure AfterOpen( Dataset : TDataset );
- procedure AfterScroll( Dataset : TDataset );
- procedure BeforeClose( Dataset : TDataset );
- procedure BeforeOpen( Dataset : TDataset );
- procedure BeforeScroll( Dataset : TDataset );
- procedure AfterCancel ( Dataset : TDataset );
- procedure AfterDelete ( Dataset : TDataset );
- procedure AfterEdit ( Dataset : TDataset );
- procedure AfterInsert ( Dataset : TDataset );
- procedure AfterPost ( Dataset : TDataset );
- procedure BeforeCancel ( Dataset : TDataset );
- procedure BeforeDelete ( Dataset : TDataset );
- procedure BeforeEdit ( Dataset : TDataset );
- procedure BeforeInsert ( Dataset : TDataset );
- procedure BeforePost ( Dataset : TDataset );
- procedure OnCalcFields ( Dataset : TDataset );
- procedure OnDeleteError ( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
- procedure OnEditError ( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
- procedure OnFilterRecord ( Dataset : TDataset; var Accept : Boolean );
- procedure OnNewRecord ( Dataset : TDataset );
- procedure OnPostError ( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
- end;
-
- TPythonDataset = class( TPythonType)
- public
- constructor Create( AOwner : TComponent ); override;
- end;
-
- {*********************************************************************
- * Interface of TVarArg *
- *********************************************************************}
-
- TVarArg = class(TPyObject)
- FValue : PPyObject;
-
- // Constructors & Destructors
- constructor CreateWith( APythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
- end;
-
- TPythonVarArg = class( TPythonType)
- public
- constructor Create( AOwner : TComponent ); override;
- end;
-
- {*********************************************************************
- * Global functions *
- *********************************************************************}
- procedure CreateComponents( AOwner : TComponent );
- procedure SetEvent( var EventSlot : PPyObject; Event : PPyObject; const EventName, ClassName : String );
- function SetDatasetEvent( EventSlot : PPyObject; dsEvent : TDataSetNotifyEvent ) : TDataSetNotifyEvent;
- function SetDatasetErrorEvent( EventSlot : PPyObject; dsEvent : TDataSetErrorEvent ) : TDataSetErrorEvent;
- procedure ClearEvent( var EventSlot : PPyObject );
- function ReturnEvent( Event : PPyObject ) : PPyObject;
- procedure ExecuteEvent( Event : PPyObject; Args : array of Const );
- function NewDataset( aDataset : TDataset; IsOwner : Boolean ) : PPyObject;
-
- {********************************************************************
- * Global variables *
- *********************************************************************}
-var
- gDatasetType : TPythonType;
- gFieldType : TPythonType;
- gVarArgType : TPythonType;
- gDBModule : TPythonModule;
-
-
-implementation
-
-{*********************************************************************
- * DB module *
- *********************************************************************}
-
-constructor TPythonDB.Create( AOwner : TComponent );
-begin
- inherited;
- ModuleName := 'DB';
- Name := 'modDB';
- with DocString do
- begin
- Add( 'This module contains several Object Types that' );
- Add( 'will let you work with the Borland BDE and access' );
- Add( 'a database.' );
- Add( '' );
- end;
- with Errors.Add do
- Name := 'DBError';
-end;
-
-procedure TPythonDB.Initialize;
-begin
- inherited;
- // Values for type TTableType
- SetVarFromVariant( 'ttDefault', 0 );
- SetVarFromVariant( 'ttParadox', 1 );
- SetVarFromVariant( 'ttDBase', 2 );
- SetVarFromVariant( 'ttASCII', 3 );
- // Values for type TDatasetState
- SetVarFromVariant( 'dsInactive', 0 );
- SetVarFromVariant( 'dsBrowse', 1 );
- SetVarFromVariant( 'dsEdit', 2 );
- SetVarFromVariant( 'dsInsert', 3 );
- SetVarFromVariant( 'dsSetKey', 4 );
- SetVarFromVariant( 'dsCalcFields', 5 );
- SetVarFromVariant( 'dsFilter', 6 );
- SetVarFromVariant( 'dsNewValue', 7 );
- SetVarFromVariant( 'dsOldValue', 8 );
- SetVarFromVariant( 'dsCurValue', 9 );
- // Values for type TFieldType
- SetVarFromVariant( 'ftUnknown', 0 );
- SetVarFromVariant( 'ftString', 1 );
- SetVarFromVariant( 'ftSmallint', 2 );
- SetVarFromVariant( 'ftInteger', 3 );
- SetVarFromVariant( 'ftWord', 4 );
- SetVarFromVariant( 'ftBoolean', 5 );
- SetVarFromVariant( 'ftFloat', 6 );
- SetVarFromVariant( 'ftCurrency', 7 );
- SetVarFromVariant( 'ftBCD', 8 );
- SetVarFromVariant( 'ftDate', 9 );
- SetVarFromVariant( 'ftTime', 10 );
- SetVarFromVariant( 'ftDateTime', 11 );
- SetVarFromVariant( 'ftBytes', 12 );
- SetVarFromVariant( 'ftVarBytes', 13 );
- SetVarFromVariant( 'ftAutoInc', 14 );
- SetVarFromVariant( 'ftBlob', 15 );
- SetVarFromVariant( 'ftMemo', 16 );
- SetVarFromVariant( 'ftGraphic', 17 );
- SetVarFromVariant( 'ftFmtMemo', 18 );
- SetVarFromVariant( 'ftParadoxOle', 19 );
- SetVarFromVariant( 'ftDBaseOle', 20 );
- SetVarFromVariant( 'ftTypedBinary', 21 );
- SetVarFromVariant( 'ftCursor', 22 );
- // Values for type TFieldKind
- SetVarFromVariant( 'fkData', 0 );
- SetVarFromVariant( 'fkCalculated', 1 );
- SetVarFromVariant( 'fkLookup', 2 );
- SetVarFromVariant( 'fkInternalCalc', 3 );
- // Values for type TLocateOption
- SetVarFromVariant( 'loCaseInsensitive', 0 );
- SetVarFromVariant( 'loPartialKey', 1 );
- // Values for type TDataAction
- SetVarFromVariant( 'daFail', 0 );
- SetVarFromVariant( 'daAbort', 1 );
- SetVarFromVariant( 'daRetry', 2 );
- // Values for type TUpdateKind
- SetVarFromVariant( 'ukModify', 0 );
- SetVarFromVariant( 'ukInsert', 1 );
- SetVarFromVariant( 'ukDelete', 2 );
-end;
-
-{*********************************************************************
- * Shared object *
- *********************************************************************}
-
-procedure TSharedObject.DoDecRef;
-begin
- if FRefCount > 0 then
- Dec(FRefCount);
- if (FRefCount = 0) then
- FreeData;
-end;
-
-procedure TSharedObject.SetData( value : TObject );
-begin
- DoDecRef;
- FRefCount := 0;
- FData := value;
- IncRef;
-end;
-
-constructor TSharedObject.Create;
-begin
- inherited;
- Owner := True;
-end;
-
-constructor TSharedObject.CreateWith( value : TObject; isOwner : Boolean );
-begin
- inherited;
- Data := value;
- Owner := isOwner;
-end;
-
-destructor TSharedObject.Destroy;
-begin
- FreeData;
- inherited;
-end;
-
-procedure TSharedObject.IncRef;
-begin
- Inc(FRefCount);
-end;
-
-procedure TSharedObject.DecRef;
-begin
- if not Assigned(Self) then
- Exit;
- DoDecRef;
- if (FRefCount = 0) then
- Free;
-end;
-
-procedure TSharedObject.FreeData;
-begin
- if Owner and Assigned(FData) then
- FData.Free;
- FData := nil;
-end;
-
-{*********************************************************************
- * TCommon *
- *********************************************************************}
-
-function TCommon.GetProperties : PPyObject;
-begin
- with GetPythonEngine do
- begin
- Result := PyList_New(0);
- AppendProperties( Result );
- PyList_Sort(Result);
- end;
-end;
-
-procedure TCommon.AppendProperties( List : PPyObject );
-begin
- // Override this method in the subclasses and add your
- // properties to the list
-end;
-
-procedure TCommon.AppendProp( List : PPyObject; const prop : String );
-var
- obj : PPyObject;
-begin
- with GetPythonEngine do
- begin
- obj := PyString_FromString(PAnsiChar(AnsiString(prop)));
- PyList_Append( List, obj );
- Py_XDecRef(obj);
- end;
-end;
-
-function TCommon.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- try
- if (CompareText( string(key), '__properties__' ) = 0) or
- (CompareText( string(key), '__members__' ) = 0) then
- Result := GetProperties
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
-end;
-
-procedure TCommon.RaiseDBError( E : Exception );
-begin
- if gDBModule <> nil then
- gDBModule.RaiseError( 'DBError', AnsiString(E.Message) );
-end;
-
-function TCommon.EventBelongsToObject( Event : TCallbackSplit ) : Boolean;
-begin
- Result := Event.Self = Self;
-end;
-
-{*********************************************************************
- * TField *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyField.Create( APythonType : TPythonType );
-begin
- inherited;
-end;
-
-// Don't call the Create constructor of TPyField, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyDataset.Create will be automatically be called.
-
-constructor TPyField.CreateWith( PythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- //if PyArg_ParseTuple( args, 'ii:CreateTDataset',@x, @y ) = 0 then
- // exit;
- end;
-end;
-
-destructor TPyField.Destroy;
-begin
- if Assigned(FField) then
- begin
- if EventBelongsToObject( TCallbackSplit(FField.OnChange) ) then
- FField.OnChange := nil;
- if EventBelongsToObject( TCallbackSplit(FField.OnGetText) ) then
- FField.OnGetText := nil;
- if EventBelongsToObject( TCallbackSplit(FField.OnSetText) ) then
- FField.OnSetText := nil;
- if EventBelongsToObject( TCallbackSplit(FField.OnValidate) ) then
- FField.OnValidate := nil;
- end;
- FSharedObject.DecRef;
- FSharedObject := nil;
- FField := nil;
- ClearEvent( FOnChange );
- ClearEvent( FOnGetText );
- ClearEvent( FOnSetText );
- ClearEvent( FOnValidate );
- inherited;
-end;
-
-// Then we override the needed services
-
-function TPyField.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckField then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( string(key), 'Alignment' ) = 0 then
- Result := VariantAsPyObject( Integer(FField.Alignment) )
- else if CompareText( string(key), 'AsBoolean' ) = 0 then
- Result := VariantAsPyObject( FField.AsBoolean )
- else if CompareText( string(key), 'AsDateTime' ) = 0 then
- Result := VariantAsPyObject( FField.AsDateTime )
- else if CompareText( string(key), 'AsFloat' ) = 0 then
- Result := VariantAsPyObject( FField.AsFloat )
- else if CompareText( string(key), 'AsInteger' ) = 0 then
- Result := VariantAsPyObject( FField.AsInteger )
- else if CompareText( string(key), 'AsString' ) = 0 then
- Result := VariantAsPyObject( FField.AsString )
- else if CompareText( string(key), 'CanModify' ) = 0 then
- Result := VariantAsPyObject( FField.CanModify )
- else if CompareText( string(key), 'ConstraintErrorMessage' ) = 0 then
- Result := VariantAsPyObject( FField.ConstraintErrorMessage )
- else if CompareText( string(key), 'CurValue' ) = 0 then
- Result := VariantAsPyObject( FField.CurValue )
- else if CompareText( string(key), 'CustomConstraint' ) = 0 then
- Result := VariantAsPyObject( FField.CustomConstraint )
- else if CompareText( string(key), 'DataSize' ) = 0 then
- Result := VariantAsPyObject( FField.DataSize )
- else if CompareText( string(key), 'DataType' ) = 0 then
- Result := VariantAsPyObject( FField.DataType )
- else if CompareText( string(key), 'DefaultExpression' ) = 0 then
- Result := VariantAsPyObject( FField.DefaultExpression )
- else if CompareText( string(key), 'DisplayLabel' ) = 0 then
- Result := VariantAsPyObject( FField.DisplayLabel )
- else if CompareText( string(key), 'DisplayName' ) = 0 then
- Result := VariantAsPyObject( FField.DisplayName )
- else if CompareText( string(key), 'DisplayText' ) = 0 then
- Result := VariantAsPyObject( FField.DisplayText )
- else if CompareText( string(key), 'DisplayWidth' ) = 0 then
- Result := VariantAsPyObject( FField.DisplayWidth )
- else if CompareText( string(key), 'EditMask' ) = 0 then
- Result := VariantAsPyObject( FField.EditMask )
- else if CompareText( string(key), 'FieldKind' ) = 0 then
- Result := VariantAsPyObject( FField.FieldKind )
- else if CompareText( string(key), 'FieldName' ) = 0 then
- Result := VariantAsPyObject( FField.FieldName)
- else if CompareText( string(key), 'FieldNo' ) = 0 then
- Result := VariantAsPyObject( FField.FieldNo )
- else if CompareText( string(key), 'HasConstraints' ) = 0 then
- Result := VariantAsPyObject( FField.HasConstraints )
- else if CompareText( string(key), 'ImportedConstraint' ) = 0 then
- Result := VariantAsPyObject( FField.ImportedConstraint )
- else if CompareText( string(key), 'Index' ) = 0 then
- Result := VariantAsPyObject( FField.Index )
- else if CompareText( string(key), 'IsBlob' ) = 0 then
- Result := VariantAsPyObject( FField.IsBlob)
- else if CompareText( string(key), 'IsIndexField' ) = 0 then
- Result := VariantAsPyObject( FField.IsIndexField )
- else if CompareText( string(key), 'IsNull' ) = 0 then
- Result := VariantAsPyObject( FField.IsNull )
- else if CompareText( string(key), 'KeyFields' ) = 0 then
- Result := VariantAsPyObject( FField.KeyFields )
- else if CompareText( string(key), 'Lookup' ) = 0 then
- Result := VariantAsPyObject( FField.Lookup )
- else if CompareText( string(key), 'LookupCache' ) = 0 then
- Result := VariantAsPyObject( FField.LookupCache )
- else if CompareText( string(key), 'LookupDataset' ) = 0 then
- Result := ReturnNone
- else if CompareText( string(key), 'LookupKeyFields' ) = 0 then
- Result := VariantAsPyObject( FField.LookupKeyFields )
- else if CompareText( string(key), 'LookupList' ) = 0 then
- Result := ReturnNone
- else if CompareText( string(key), 'LookupResultField' ) = 0 then
- Result := VariantAsPyObject( FField.LookupResultField )
- else if CompareText( string(key), 'NewValue' ) = 0 then
- Result := VariantAsPyObject( FField.NewValue )
- else if CompareText( string(key), 'Offset' ) = 0 then
- Result := VariantAsPyObject( FField.Offset )
- else if CompareText( string(key), 'OldValue' ) = 0 then
- Result := VariantAsPyObject( FField.OldValue )
- else if CompareText( string(key), 'Origin' ) = 0 then
- Result := VariantAsPyObject( FField.Origin )
- else if CompareText( string(key), 'ReadOnly' ) = 0 then
- Result := VariantAsPyObject( FField.ReadOnly )
- else if CompareText( string(key), 'Required' ) = 0 then
- Result := VariantAsPyObject( FField.Required )
- else if CompareText( string(key), 'Size' ) = 0 then
- Result := VariantAsPyObject( FField.Size )
- else if CompareText( string(key), 'Text' ) = 0 then
- Result := VariantAsPyObject( FField.Text )
- else if CompareText( string(key), 'ValidChars' ) = 0 then
- Result := ReturnNone
- else if CompareText( string(key), 'Value' ) = 0 then
- Result := VariantAsPyObject( FField.Value )
- else if CompareText( string(key), 'Visible' ) = 0 then
- Result := VariantAsPyObject( FField.Visible )
- else if CompareText( string(key), 'OnChange' ) = 0 then
- Result := ReturnEvent( FOnChange )
- else if CompareText( string(key), 'OnGetText' ) = 0 then
- Result := ReturnEvent( FOnGetText )
- else if CompareText( string(key), 'OnSetText' ) = 0 then
- Result := ReturnEvent( FOnSetText )
- else if CompareText( string(key), 'OnValidate' ) = 0 then
- Result := ReturnEvent( FOnValidate )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyField.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckField then
- Exit;
- try
- if CompareText( string(key), 'Alignment' ) = 0 then
- begin
- FField.Alignment := TAlignment(PyObjectAsVariant( value ));
- Result := 0;
- end
- else if CompareText( string(key), 'AsBoolean' ) = 0 then
- begin
- FField.AsBoolean := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'AsDateTime' ) = 0 then
- begin
- FField.AsDateTime := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'AsFloat' ) = 0 then
- begin
- FField.AsFloat := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'AsInteger' ) = 0 then
- begin
- FField.AsInteger := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'AsString' ) = 0 then
- begin
- FField.AsString := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'CanModify' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'ConstraintErrorMessage' ) = 0 then
- begin
- FField.ConstraintErrorMessage := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'CurValue' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'CustomConstraint' ) = 0 then
- begin
- FField.CustomConstraint := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'DataSize' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'DataType' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'DefaultExpression' ) = 0 then
- begin
- FField.DefaultExpression := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'DisplayLabel' ) = 0 then
- begin
- FField.DisplayLabel := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'DisplayName' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'DisplayText' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'DisplayWidth' ) = 0 then
- begin
- FField.DisplayWidth := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'EditMask' ) = 0 then
- begin
- FField.EditMask := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'FieldKind' ) = 0 then
- begin
- FField.FieldKind := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'FieldName' ) = 0 then
- begin
- FField.FieldName:= PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'FieldNo' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'HasConstraints' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'ImportedConstraint' ) = 0 then
- begin
- FField.ImportedConstraint := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Index' ) = 0 then
- begin
- FField.Index := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'IsBlob' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'IsIndexField' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'IsNull' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'KeyFields' ) = 0 then
- begin
- FField.KeyFields := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Lookup' ) = 0 then
- begin
- FField.Lookup := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'LookupCache' ) = 0 then
- begin
- FField.LookupCache := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'LookupDataset' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'LookupKeyFields' ) = 0 then
- begin
- FField.LookupKeyFields := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'LookupList' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'LookupResultField' ) = 0 then
- begin
- FField.LookupResultField := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'NewValue' ) = 0 then
- begin
- FField.NewValue := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Offset' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'OldValue' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'Origin' ) = 0 then
- begin
- FField.Origin := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'ReadOnly' ) = 0 then
- begin
- FField.ReadOnly := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Required' ) = 0 then
- begin
- FField.Required := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Size' ) = 0 then
- begin
- FField.Size := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Text' ) = 0 then
- begin
- FField.Text := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'ValidChars' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'Value' ) = 0 then
- begin
- FField.Value := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Visible' ) = 0 then
- begin
- FField.Visible := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'OnChange' ) = 0 then
- begin
- SetEvent( FOnChange, Value, 'OnChange', 'TField' );
- if Assigned(FOnChange) then
- FField.OnChange := OnChange
- else
- FField.OnChange := nil;
- Result := 0;
- end
- else if CompareText( string(key), 'OnGetText' ) = 0 then
- begin
- SetEvent( FOnGetText, Value, 'OnGetText', 'TField' );
- if Assigned(FOnGetText) then
- FField.OnGetText := OnGetText
- else
- FField.OnGetText := nil;
- Result := 0;
- end
- else if CompareText( string(key), 'OnSetText' ) = 0 then
- begin
- SetEvent( FOnSetText, Value, 'OnSetText', 'TField' );
- if Assigned(FOnSetText) then
- FField.OnSetText := OnSetText
- else
- FField.OnSetText := nil;
- Result := 0;
- end
- else if CompareText( string(key), 'OnValidate' ) = 0 then
- begin
- SetEvent( FOnValidate, Value, 'OnValidate', 'TField' );
- if Assigned(FOnValidate) then
- FField.OnValidate := OnValidate
- else
- FField.OnValidate := nil;
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-function TPyField.Repr : PPyObject;
-begin
- Result := inherited Repr;
-end;
-
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyField.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'Clear', @TPyField.DoClear, 'TField.Clear() -> None' );
- AddMethod( 'FocusControl', @TPyField.DoFocusControl, 'TField.FocusControl() -> None' );
- AddMethod( 'IsValidChar', @TPyField.DoIsValidChar, 'TField.IsValidChar( InputChar : String ) -> True or False' );
- AddMethod( 'RefreshLookupList', @TPyField.DoRefreshLookupList, 'TField.RefreshLookupList() -> None' );
- end;
-end;
-
-// Methods of TPyField
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyField.CheckDataset : Boolean;
-begin
- if (FSharedObject = nil) or (FSharedObject.Data = nil) then
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_RuntimeError^, 'No Dataset defined !');
- end
- else
- Result := True;
-end;
-
-function TPyField.CheckField : Boolean;
-begin
- if not Assigned(FField) then
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_RuntimeError^, 'No field defined !');
- end
- else
- Result := True;
- Result := Result and CheckDataset;
-end;
-
-procedure TPyField.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'Alignment');
- AppendProp( List, 'AsBoolean');
- AppendProp( List, 'AsDateTime');
- AppendProp( List, 'AsFloat');
- AppendProp( List, 'AsInteger');
- AppendProp( List, 'AsString');
- AppendProp( List, 'CanModify');
- AppendProp( List, 'ConstraintErrorMessage');
- AppendProp( List, 'CurValue');
- AppendProp( List, 'CustomConstraint');
- AppendProp( List, 'DataSize');
- AppendProp( List, 'DataType');
- AppendProp( List, 'DefaultExpression');
- AppendProp( List, 'DisplayLabel');
- AppendProp( List, 'DisplayName');
- AppendProp( List, 'DisplayText');
- AppendProp( List, 'DisplayWidth');
- AppendProp( List, 'EditMask');
- AppendProp( List, 'FieldKind');
- AppendProp( List, 'FieldName');
- AppendProp( List, 'FieldNo');
- AppendProp( List, 'HasConstraints');
- AppendProp( List, 'ImportedConstraint');
- AppendProp( List, 'Index');
- AppendProp( List, 'IsBlob');
- AppendProp( List, 'IsIndexField');
- AppendProp( List, 'IsNull');
- AppendProp( List, 'KeyFields');
- AppendProp( List, 'Lookup');
- AppendProp( List, 'LookupCache');
- AppendProp( List, 'LookupDataset');
- AppendProp( List, 'LookupKeyFields');
- AppendProp( List, 'LookupList');
- AppendProp( List, 'LookupResultField');
- AppendProp( List, 'NewValue');
- AppendProp( List, 'Offset');
- AppendProp( List, 'OldValue');
- AppendProp( List, 'Origin');
- AppendProp( List, 'ReadOnly');
- AppendProp( List, 'Required');
- AppendProp( List, 'Size');
- AppendProp( List, 'Text');
- AppendProp( List, 'ValidChars');
- AppendProp( List, 'Value');
- AppendProp( List, 'Visible');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-function TPyField.DoClear( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // Do action
- if CheckField then
- begin
- FField.Clear;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyField.DoFocusControl( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // Do action
- if CheckField then
- begin
- FField.FocusControl;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyField.DoIsValidChar( args : PPyObject ) : PPyObject;
-var
- c : Char;
- s : PAnsiChar;
- str : String;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // Do action
- if CheckField then
- begin
- if PyArg_ParseTuple( args, 's:TField.IsValidChar',@s ) <> 0 then
- begin
- str := string(s);
- if Length(str) > 0 then
- c := str[1]
- else
- c := #0;
- Result := VariantAsPyObject( FField.IsValidChar( c ) )
- end
- else
- Result := nil;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyField.DoRefreshLookupList( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // Do action
- if CheckField then
- begin
- FField.RefreshLookupList;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-// Events
-////////////////
-procedure TPyField.OnChange( Sender : TField );
-begin
- IncRef;
- ExecuteEvent( FOnChange, [GetSelf] );
-end;
-
-procedure TPyField.OnGetText( Sender: TField; var Text: String; DisplayText: Boolean );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( Text ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnGetText, [GetSelf, v, DisplayText] );
- with PythonToDelphi(v) as TVarArg do
- Text := PyObjectAsVariant(FValue);
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyField.OnSetText( Sender : TField; const Text: String );
-begin
- IncRef;
- ExecuteEvent( FOnSetText, [GetSelf, Text] );
-end;
-
-procedure TPyField.OnValidate( Sender : TField );
-begin
- IncRef;
- ExecuteEvent( FOnValidate, [GetSelf] );
-end;
-
-constructor TPythonField.Create( AOwner : TComponent );
-begin
- inherited;
- Name := 'typeField';
- TypeName := 'TField';
- Module := gDBModule;
- TypeFlags := TypeFlags + [tpfBaseType];
- PyObjectClass := TPyField;
- with DocString do
- begin
- Add( 'The TField type implements the Delphi TField VCL Object inside Python.' );
- Add( 'The properties and methods are the same as in Delphi.' );
- end;
-end;
-
-{*********************************************************************
- * Implementation of TDataset *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyDataset.Create( APythonType : TPythonType );
-begin
- inherited;
- FSharedObject := TSharedObject.Create;
- FSharedObject.Owner := True;
-end;
-
-// Don't call the Create constructor of TPyDataset, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyDataset.Create will be automatically be called.
-
-constructor TPyDataset.CreateWith( PythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- //if PyArg_ParseTuple( args, 'ii:CreateTDataset',@x, @y ) = 0 then
- // exit;
- end;
-end;
-
-destructor TPyDataset.Destroy;
-begin
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterClose) ) then
- Dataset.AfterClose := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterOpen) ) then
- Dataset.AfterOpen := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterScroll) ) then
- Dataset.AfterScroll := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeClose) ) then
- Dataset.BeforeClose := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeOpen) ) then
- Dataset.BeforeOpen := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeScroll) ) then
- Dataset.BeforeScroll := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterCancel) ) then
- Dataset.AfterCancel := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterDelete) ) then
- Dataset.AfterDelete := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterEdit) ) then
- Dataset.AfterEdit := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterInsert) ) then
- Dataset.AfterInsert := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterPost) ) then
- Dataset.AfterPost := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeCancel) ) then
- Dataset.BeforeCancel := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeDelete) ) then
- Dataset.BeforeDelete := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeEdit) ) then
- Dataset.BeforeEdit := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeInsert) ) then
- Dataset.BeforeInsert := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforePost) ) then
- Dataset.BeforePost := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnCalcFields) ) then
- Dataset.OnCalcFields := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnDeleteError) ) then
- Dataset.OnDeleteError := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnEditError) ) then
- Dataset.OnEditError := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnFilterRecord) ) then
- Dataset.OnFilterRecord := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnNewRecord) ) then
- Dataset.OnNewRecord := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnPostError) ) then
- Dataset.OnPostError := nil;
- FSharedObject.FreeData;
- FSharedObject.DecRef;
- FSharedObject := nil;
- ClearEvent( FAfterClose );
- ClearEvent( FAfterOpen );
- ClearEvent( FAfterScroll );
- ClearEvent( FBeforeClose );
- ClearEvent( FBeforeOpen );
- ClearEvent( FBeforeScroll );
- ClearEvent( FAfterCancel );
- ClearEvent( FAfterDelete );
- ClearEvent( FAfterEdit );
- ClearEvent( FAfterInsert );
- ClearEvent( FAfterPost );
- ClearEvent( FBeforeCancel );
- ClearEvent( FBeforeDelete );
- ClearEvent( FBeforeEdit );
- ClearEvent( FBeforeInsert );
- ClearEvent( FBeforePost );
- ClearEvent( FOnCalcFields );
- ClearEvent( FOnDeleteError );
- ClearEvent( FOnEditError );
- ClearEvent( FOnFilterRecord );
- ClearEvent( FOnNewRecord );
- ClearEvent( FOnPostError );
- inherited;
-end;
-
-// Then we override the needed services
-
-function TPyDataset.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( string(key), 'Active' ) = 0 then
- Result := VariantAsPyObject( Dataset.Active )
- else if CompareText( string(key), 'BOF' ) = 0 then
- Result := VariantAsPyObject( Dataset.BOF )
- else if CompareText( string(key), 'CanModify' ) = 0 then
- Result := VariantAsPyObject( Dataset.CanModify )
- else if CompareText( string(key), 'EOF' ) = 0 then
- Result := VariantAsPyObject( Dataset.EOF )
- else if CompareText( string(key), 'FieldCount' ) = 0 then
- Result := VariantAsPyObject( Dataset.FieldCount )
- else if CompareText( string(key), 'Filter' ) = 0 then
- Result := VariantAsPyObject( Dataset.Filter )
- else if CompareText( string(key), 'Filtered' ) = 0 then
- Result := VariantAsPyObject( Dataset.Filtered )
- else if CompareText( string(key), 'Found' ) = 0 then
- Result := VariantAsPyObject( Dataset.Found )
- else if CompareText( string(key), 'Modified' ) = 0 then
- Result := VariantAsPyObject( Dataset.Modified )
- else if CompareText( string(key), 'RecNo' ) = 0 then
- Result := VariantAsPyObject( Dataset.RecNo )
- else if CompareText( string(key), 'RecordCount' ) = 0 then
- Result := VariantAsPyObject( Dataset.RecordCount )
- else if CompareText( string(key), 'RecordSize' ) = 0 then
- Result := VariantAsPyObject( Dataset.RecordSize )
- else if CompareText( string(key), 'State' ) = 0 then
- Result := VariantAsPyObject( Integer(Dataset.State) )
- else if CompareText( string(key), 'AfterClose' ) = 0 then
- Result := ReturnEvent( FAfterClose )
- else if CompareText( string(key), 'AfterOpen' ) = 0 then
- Result := ReturnEvent( FAfterOpen )
- else if CompareText( string(key), 'AfterScroll' ) = 0 then
- Result := ReturnEvent( FAfterScroll )
- else if CompareText( string(key), 'BeforeClose' ) = 0 then
- Result := ReturnEvent( FBeforeClose )
- else if CompareText( string(key), 'BeforeOpen' ) = 0 then
- Result := ReturnEvent( FBeforeOpen )
- else if CompareText( string(key), 'BeforeScroll' ) = 0 then
- Result := ReturnEvent( FBeforeScroll )
- else if CompareText( string(key), 'AfterCancel' ) = 0 then
- Result := ReturnEvent( FAfterCancel)
- else if CompareText( string(key), 'AfterDelete' ) = 0 then
- Result := ReturnEvent( FAfterDelete)
- else if CompareText( string(key), 'AfterEdit' ) = 0 then
- Result := ReturnEvent( FAfterEdit)
- else if CompareText( string(key), 'AfterInsert' ) = 0 then
- Result := ReturnEvent( FAfterInsert)
- else if CompareText( string(key), 'AfterPost' ) = 0 then
- Result := ReturnEvent( FAfterPost)
- else if CompareText( string(key), 'BeforeCancel' ) = 0 then
- Result := ReturnEvent( FBeforeCancel)
- else if CompareText( string(key), 'BeforeDelete' ) = 0 then
- Result := ReturnEvent( FBeforeDelete)
- else if CompareText( string(key), 'BeforeEdit' ) = 0 then
- Result := ReturnEvent( FBeforeEdit)
- else if CompareText( string(key), 'BeforeInsert' ) = 0 then
- Result := ReturnEvent( FBeforeInsert)
- else if CompareText( string(key), 'BeforePost' ) = 0 then
- Result := ReturnEvent( FBeforePost)
- else if CompareText( string(key), 'OnCalcFields' ) = 0 then
- Result := ReturnEvent( FOnCalcFields)
- else if CompareText( string(key), 'OnDeleteError' ) = 0 then
- Result := ReturnEvent( FOnDeleteError)
- else if CompareText( string(key), 'OnEditError' ) = 0 then
- Result := ReturnEvent( FOnEditError)
- else if CompareText( string(key), 'OnFilterRecord' ) = 0 then
- Result := ReturnEvent( FOnFilterRecord)
- else if CompareText( string(key), 'OnNewRecord' ) = 0 then
- Result := ReturnEvent( FOnNewRecord)
- else if CompareText( string(key), 'OnPostError' ) = 0 then
- Result := ReturnEvent( FOnPostError)
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( string(key), 'Active' ) = 0 then
- begin
- Dataset.Active := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'BOF' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'CanModify' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'EOF' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'FieldCount' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'Filter' ) = 0 then
- begin
- Dataset.Filter := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Filtered' ) = 0 then
- begin
- Dataset.Filtered := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Found' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'Modified' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'RecNo' ) = 0 then
- begin
- Dataset.RecNo := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'RecordCount' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'RecordSize' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'State' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'AfterClose' ) = 0 then
- begin
- SetEvent( FAfterClose, Value, 'AfterClose', 'TDataset' );
- Dataset.AfterClose := SetDatasetEvent( FAfterClose, AfterClose );
- Result := 0;
- end
- else if CompareText( string(key), 'AfterOpen' ) = 0 then
- begin
- SetEvent( FAfterOpen, Value, 'AfterOpen', 'TDataset' );
- Dataset.AfterOpen := SetDatasetEvent( FAfterOpen, AfterOpen );
- Result := 0;
- end
- else if CompareText( string(key), 'AfterScroll' ) = 0 then
- begin
- SetEvent( FAfterScroll, Value, 'AfterScroll', 'TDataset' );
- Dataset.AfterScroll := SetDatasetEvent( FAfterScroll, AfterScroll );
- Result := 0;
- end
- else if CompareText( string(key), 'BeforeClose' ) = 0 then
- begin
- SetEvent( FBeforeClose, Value, 'BeforeClose', 'TDataset' );
- Dataset.BeforeClose := SetDatasetEvent( FBeforeClose, BeforeClose );
- Result := 0;
- end
- else if CompareText( string(key), 'BeforeOpen' ) = 0 then
- begin
- SetEvent( FBeforeOpen, Value, 'BeforeOpen', 'TDataset' );
- Dataset.BeforeOpen := SetDatasetEvent( FBeforeOpen, BeforeOpen );
- Result := 0;
- end
- else if CompareText( string(key), 'BeforeScroll' ) = 0 then
- begin
- SetEvent( FBeforeScroll, Value, 'BeforeScroll', 'TDataset' );
- Dataset.BeforeScroll := SetDatasetEvent( FBeforeScroll, BeforeScroll );
- Result := 0;
- end
- else if CompareText( string(key), 'AfterCancel' ) = 0 then
- begin
- SetEvent( FAfterCancel, Value, 'AfterCancel', 'TDataset' );
- Dataset.AfterCancel := SetDatasetEvent( FAfterCancel, AfterCancel);
- Result := 0;
- end
- else if CompareText( string(key), 'AfterDelete' ) = 0 then
- begin
- SetEvent( FAfterDelete, Value, 'AfterDelete', 'TDataset' );
- Dataset.AfterDelete := SetDatasetEvent( FAfterDelete, AfterDelete);
- Result := 0;
- end
- else if CompareText( string(key), 'AfterEdit' ) = 0 then
- begin
- SetEvent( FAfterEdit, Value, 'AfterEdit', 'TDataset' );
- Dataset.AfterEdit := SetDatasetEvent( FAfterEdit, AfterEdit);
- Result := 0;
- end
- else if CompareText( string(key), 'AfterInsert' ) = 0 then
- begin
- SetEvent( FAfterInsert, Value, 'AfterInsert', 'TDataset' );
- Dataset.AfterInsert := SetDatasetEvent( FAfterInsert, AfterInsert);
- Result := 0;
- end
- else if CompareText( string(key), 'AfterPost' ) = 0 then
- begin
- SetEvent( FAfterPost, Value, 'AfterPost', 'TDataset' );
- Dataset.AfterPost := SetDatasetEvent( FAfterPost, AfterPost);
- Result := 0;
- end
- else if CompareText( string(key), 'BeforeCancel' ) = 0 then
- begin
- SetEvent( FBeforeCancel, Value, 'BeforeCancel', 'TDataset' );
- Dataset.BeforeCancel := SetDatasetEvent( FBeforeCancel, BeforeCancel);
- Result := 0;
- end
- else if CompareText( string(key), 'BeforeDelete' ) = 0 then
- begin
- SetEvent( FBeforeDelete, Value, 'BeforeDelete', 'TDataset' );
- Dataset.BeforeDelete := SetDatasetEvent( FBeforeDelete, BeforeDelete);
- Result := 0;
- end
- else if CompareText( string(key), 'BeforeEdit' ) = 0 then
- begin
- SetEvent( FBeforeEdit, Value, 'BeforeEdit', 'TDataset' );
- Dataset.BeforeEdit := SetDatasetEvent( FBeforeEdit, BeforeEdit);
- Result := 0;
- end
- else if CompareText( string(key), 'BeforeInsert' ) = 0 then
- begin
- SetEvent( FBeforeInsert, Value, 'BeforeInsert', 'TDataset' );
- Dataset.BeforeInsert := SetDatasetEvent( FBeforeInsert, BeforeInsert);
- Result := 0;
- end
- else if CompareText( string(key), 'BeforePost' ) = 0 then
- begin
- SetEvent( FBeforePost, Value, 'BeforePost', 'TDataset' );
- Dataset.BeforePost := SetDatasetEvent( FBeforePost, BeforePost);
- Result := 0;
- end
- else if CompareText( string(key), 'OnCalcFields' ) = 0 then
- begin
- SetEvent( FOnCalcFields, Value, 'OnCalcFields', 'TDataset' );
- Dataset.OnCalcFields := SetDatasetEvent( FOnCalcFields, OnCalcFields);
- Result := 0;
- end
- else if CompareText( string(key), 'OnDeleteError' ) = 0 then
- begin
- SetEvent( FOnDeleteError, Value, 'OnDeleteError', 'TDataset' );
- Dataset.OnDeleteError := SetDatasetErrorEvent( FOnDeleteError, OnDeleteError );
- Result := 0;
- end
- else if CompareText( string(key), 'OnEditError' ) = 0 then
- begin
- SetEvent( FOnEditError, Value, 'OnEditError', 'TDataset' );
- Dataset.OnEditError := SetDatasetErrorEvent( FOnEditError, OnEditError );
- Result := 0;
- end
- else if CompareText( string(key), 'OnFilterRecord' ) = 0 then
- begin
- SetEvent( FOnFilterRecord, Value, 'OnFilterRecord', 'TDataset' );
- if Assigned(FOnFilterRecord) then
- Dataset.OnFilterRecord := OnFilterRecord
- else
- Dataset.OnFilterRecord := nil;
- Result := 0;
- end
- else if CompareText( string(key), 'OnNewRecord' ) = 0 then
- begin
- SetEvent( FOnNewRecord, Value, 'OnNewRecord', 'TDataset' );
- Dataset.OnNewRecord := SetDatasetEvent( FOnNewRecord, OnNewRecord);
- Result := 0;
- end
- else if CompareText( string(key), 'OnPostError' ) = 0 then
- begin
- SetEvent( FOnPostError, Value, 'OnPostError', 'TDataset' );
- Dataset.OnPostError := SetDatasetErrorEvent( FOnPostError, OnPostError );
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-function TPyDataset.Repr : PPyObject;
-begin
- Result := inherited Repr;
-end;
-
-// Sequence services
-
-function TPyDataset.SqLength : Integer;
-begin
- if CheckDataset then
- Result := Dataset.RecordCount
- else
- Result := -1;
-end;
-
-function TPyDataset.SqItem( idx : Integer ) : PPyObject;
-begin
- if CheckDataset then
- begin
- // Check if empty
- if Dataset.RecordCount = 0 then
- begin
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString (PyExc_IndexError^, PAnsiChar('Table is empty'));
- Exit;
- end;
- // Check range
- if (idx < 0) or (idx+1 > Dataset.RecordCount) then
- begin
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString (PyExc_IndexError^, PAnsiChar(AnsiString(Format('Index %d out of range (%d,%d)',[idx, 0, Dataset.RecordCount-1]))));
- Exit;
- end;
- try
- Dataset.RecNo := idx+1;
- Result := FieldsAsTuple
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end
- else
- Result := nil;
-end;
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyDataset.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'Open', @TPyDataset.DoOpen, 'TDataset.Open() -> None' );
- AddMethod( 'Close', @TPyDataset.DoClose, 'TDataset.Close() -> None' );
- AddMethod( 'First', @TPyDataset.DoFirst, 'TDataset.First() -> None' );
- AddMethod( 'Last', @TPyDataset.DoLast, 'TDataset.Last() -> None' );
- AddMethod( 'Next', @TPyDataset.DoNext, 'TDataset.Next() -> None' );
- AddMethod( 'Prior', @TPyDataset.DoPrior, 'TDataset.Prior() -> None' );
- AddMethod( 'Edit', @TPyDataset.DoEdit, 'TDataset.Edit() -> None' );
- AddMethod( 'Insert', @TPyDataset.DoInsert, 'TDataset.Insert() -> None' );
- AddMethod( 'Append', @TPyDataset.DoAppend, 'TDataset.Append() -> None' );
- AddMethod( 'Post', @TPyDataset.DoPost, 'TDataset.Post() -> None' );
- AddMethod( 'Cancel', @TPyDataset.DoCancel, 'TDataset.Cancel() -> None' );
- AddMethod( 'DisableControls', @TPyDataset.DoDisableControls, 'TDataset.DisableControls() -> None' );
- AddMethod( 'EnableControls', @TPyDataset.DoEnableControls, 'TDataset.EnableControls() -> None' );
- AddMethod( 'Locate', @TPyDataset.DoLocate, 'TDataset.Locate( KeyFields : String, KeyValues : Object or Sequence, Options : TLocateOptions ) -> True or False' );
- AddMethod( 'Lookup', @TPyDataset.DoLookup, 'TDataset.Lookup( KeyFields : String, KeyValues : Object or Sequence, ResultFields : String ) -> a list containing all Result fields' );
- AddMethod( 'MoveBy', @TPyDataset.DoMoveBy, 'TDataset.MoveBy( Distance : Integer ) : Integer' );
- AddMethod( 'Refresh',@TPyDataset.DoRefresh,'TDataset.Refresh() -> None' );
- AddMethod( 'Fields', @TPyDataset.DoFields, 'TDataset.Fields( index : Integer ) -> TField' );
- AddMethod( 'FieldByName', @TPyDataset.DoFieldByName, 'TDataset.FieldByName( FieldName : String ) -> TField' );
- AddMethod( 'FindField', @TPyDataset.DoFindField, 'TDataset.FindField( FieldName : String ) -> TField' );
- AddMethod( 'FieldNamesAsTuple', @TPyDataset.DoFieldNamesAsTuple, 'TDataset.FieldNamesAsTuple() -> a tuple containing all field names' );
- AddMethod( 'FieldsAsTuple', @TPyDataset.DoFieldsAsTuple, 'TDataset.FieldsAsTuple() -> a tuple containing all TFields' );
- AddMethod( 'FieldsAsDict', @TPyDataset.DoFieldsAsDict, 'TDataset.FieldsAsDict() -> a dictionary containing all TFields, with FieldName as Key, and TField as Value' );
- end;
-end;
-
-// Methods of TPyDataset
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyDataset.CheckDataset : Boolean;
-begin
- if (FSharedObject = nil) or (FSharedObject.Data = nil) then
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_RuntimeError^, 'No Dataset defined !');
- end
- else
- Result := True;
-end;
-
-function TPyDataset.Dataset : TDataset;
-begin
- Result := FSharedObject.Data as TDataset;
-end;
-
-procedure TPyDataset.SetDataset( val : TDataset; owner : Boolean );
-begin
- FSharedObject.Data := val;
- FSharedObject.Owner := owner;
-end;
-
-function TPyDataset.FieldNamesAsTuple : PPyObject;
-var
- i : Integer;
-begin
- with GetPythonEngine do
- begin
- Result := PyTuple_New(Dataset.FieldCount);
- for i := 0 to Dataset.FieldCount - 1 do
- with Dataset.Fields[i] do
- PyTuple_SetItem( Result, i, VariantAsPyObject(Variant(FieldName)) );
- end;
-end;
-
-function TPyDataset.FieldsAsTuple : PPyObject;
-var
- i : Integer;
-begin
- with GetPythonEngine do
- begin
- Result := PyTuple_New(Dataset.FieldCount);
- for i := 0 to Dataset.FieldCount - 1 do
- with Dataset.Fields[i] do
- PyTuple_SetItem( Result, i, VariantAsPyObject( AsVariant ) );
- end;
-end;
-
-function TPyDataset.FieldsAsDict : PPyObject;
-var
- i : Integer;
- obj : PPyObject;
- _fieldName : PPyObject;
-begin
- with GetPythonEngine do
- begin
- Result := PyDict_New;
- for i := 0 to Dataset.FieldCount - 1 do
- with Dataset.Fields[i] do
- begin
- obj := VariantAsPyObject( AsVariant );
- _fieldName := VariantAsPyObject(Variant(FieldName));
- PyDict_SetItem( Result, _fieldName, obj );
- Py_XDecRef(obj);
- Py_XDecRef(_fieldName);
- end;
- end;
-end;
-
-function TPyDataset.Locate( const keyFields : String; keyValues, options : PPyObject ) : PPyObject;
-var
- rslt : Boolean;
- vvalues : Variant;
- opt : TLocateOptions;
-begin
- Result := nil;
- with GetPythonEngine do
- begin
- if PySequence_Check(options) = 0 then
- begin
- PyErr_SetString (PyExc_AttributeError^, 'Third argument of Locate must be a sequence.');
- Exit;
- end;
- // Prepare the locate options
- ListToSet( options, @opt, sizeof(opt) );
- // Create a variant containing the key values
- vvalues := PyObjectAsVariant( keyValues );
- // Execute the locate
- rslt := Dataset.Locate( keyFields, vvalues, opt );
- // Return its result
- Result := VariantAsPyObject( rslt );
- end;
-end;
-
-function TPyDataset.Lookup( const keyFields : String; keyValues : PPyObject; const resultFields : String ) : PPyObject;
-var
- rslt : Variant;
- vvalues : Variant;
-begin
- with GetPythonEngine do
- begin
- // Create a variant containing the key values
- vvalues := PyObjectAsVariant( keyValues );
- // Execute the lookup
- rslt := Dataset.Lookup( keyFields, vvalues, resultFields );
- // Return its result
- Result := VariantAsPyObject( rslt );
- end;
-end;
-
-procedure TPyDataset.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'Active');
- AppendProp( List, 'BOF');
- AppendProp( List, 'CanModify');
- AppendProp( List, 'EOF');
- AppendProp( List, 'FieldCount');
- AppendProp( List, 'Filter');
- AppendProp( List, 'Filtered');
- AppendProp( List, 'Found');
- AppendProp( List, 'Modified');
- AppendProp( List, 'RecNo');
- AppendProp( List, 'RecordCount');
- AppendProp( List, 'RecordSize');
- AppendProp( List, 'State');
- AppendProp( List, 'AfterClose');
- AppendProp( List, 'AfterOpen');
- AppendProp( List, 'AfterScroll');
- AppendProp( List, 'BeforeClose');
- AppendProp( List, 'BeforeOpen');
- AppendProp( List, 'BeforeScroll');
- AppendProp( List, 'AfterCancel');
- AppendProp( List, 'AfterDelete');
- AppendProp( List, 'AfterEdit');
- AppendProp( List, 'AfterInsert');
- AppendProp( List, 'AfterPost');
- AppendProp( List, 'BeforeCancel');
- AppendProp( List, 'BeforeDelete');
- AppendProp( List, 'BeforeEdit');
- AppendProp( List, 'BeforeInsert');
- AppendProp( List, 'BeforePost');
- AppendProp( List, 'OnCalcFields');
- AppendProp( List, 'OnDeleteError');
- AppendProp( List, 'OnEditError');
- AppendProp( List, 'OnFilterRecord');
- AppendProp( List, 'OnNewRecord');
- AppendProp( List, 'OnPostError');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-function TPyDataset.DoOpen( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Open;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoClose( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Close;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFirst( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.First;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoLast( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Last;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoNext( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Next;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoPrior( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Prior;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoEdit( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Edit;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoInsert( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Insert;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoAppend( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Append;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoPost( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Post;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoCancel( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Cancel;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoDisableControls( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.DisableControls;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoEnableControls( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.EnableControls;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoLocate( args : PPyObject ) : PPyObject;
-var
- keyFields : PAnsiChar;
- keyValues, options : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'sOO:TDataset.Locate',@keyFields, @keyValues, @options ) <> 0) then
- begin
- // Do action
- Result := Locate( String(keyFields), keyValues, options );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoLookup( args : PPyObject ) : PPyObject;
-var
- keyFields, resultFields : PAnsiChar;
- keyValues : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'sOs:TDataset.Lookup',@keyFields, @keyValues, @resultFields ) <> 0) then
- begin
- // Do action
- Result := Lookup( String(keyFields), keyValues, String(resultFields) );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-function TPyDataset.DoMoveBy( args : PPyObject ) : PPyObject;
-var
- dist, rslt : Integer;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'i:TDataset.MoveBy',@dist ) <> 0) then
- begin
- // Do action
- rslt := Dataset.MoveBy( dist );
- // Finally, we return nothing
- Result := PyInt_FromLong(rslt);
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoRefresh( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Refresh;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFields( args : PPyObject ) : PPyObject;
-var
- idx : Integer;
- F : TPyField;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // first we extract the arguments
- if CheckDataset and (PyArg_ParseTuple( args, 'i:TDataset.Fields',@idx ) <> 0) then
- begin
- if (idx >= 0) and (idx < Dataset.FieldCount) then
- begin
- Result := gFieldType.CreateInstance;
- F := PythonToDelphi(Result) as TPyField;
- F.FField := Dataset.Fields[idx];
- F.FSharedObject := FSharedObject;
- F.FSharedObject.IncRef;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Value out of range : %d', [idx]))));
- end;
- end
- else // the arguments were not right
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFieldByName( args : PPyObject ) : PPyObject;
-var
- s : PAnsiChar;
- fld : TField;
- F : TPyField;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // first we extract the arguments
- if CheckDataset and (PyArg_ParseTuple( args, 's:TDataset.FieldByName',@s ) <> 0) then
- begin
- fld := Dataset.FindField(String(s));
- if Assigned(fld) then
- begin
- Result := gFieldType.CreateInstance;
- F := PythonToDelphi(Result) as TPyField;
- F.FField := fld;
- F.FSharedObject := FSharedObject;
- F.FSharedObject.IncRef;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(AnsiString(Format('Unknown field "%s"', [String(s)]))));
- end;
- end
- else // the arguments were not right
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFindField( args : PPyObject ) : PPyObject;
-var
- s : PAnsiChar;
- fld : TField;
- F : TPyField;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // first we extract the arguments
- if CheckDataset and (PyArg_ParseTuple( args, 's:TDataset.FindField',@s ) <> 0) then
- begin
- fld := Dataset.FindField(String(s));
- if Assigned(fld) then
- begin
- Result := gFieldType.CreateInstance;
- F := PythonToDelphi(Result) as TPyField;
- F.FField := fld;
- F.FSharedObject := FSharedObject;
- F.FSharedObject.IncRef;
- end
- else
- begin
- Result := ReturnNone;
- end;
- end
- else // the arguments were not right
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFieldNamesAsTuple( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := FieldNamesAsTuple;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFieldsAsTuple( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := FieldsAsTuple;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFieldsAsDict( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := FieldsAsDict;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-// Events
-////////////////
-
-procedure TPyDataset.AfterClose( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterClose, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterOpen( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterOpen, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterScroll( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterScroll, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeClose( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeClose, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeOpen( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeOpen, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeScroll( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeScroll, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterCancel( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterCancel, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterDelete( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterDelete, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterEdit( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterEdit, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterInsert( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterInsert, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterPost( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterPost, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeCancel( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeCancel, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeDelete( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeDelete, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeEdit( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeEdit, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeInsert( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeInsert, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforePost( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforePost, [GetSelf] );
-end;
-
-procedure TPyDataset.OnCalcFields( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FOnCalcFields, [GetSelf] );
-end;
-
-procedure TPyDataset.OnDeleteError( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(Action) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnDeleteError, [GetSelf, ArrayToPyTuple([E.ClassName, E.Message]), v] );
- with PythonToDelphi(v) as TVarArg do
- Action := TDataAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyDataset.OnEditError( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(Action) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnEditError, [GetSelf, ArrayToPyTuple([E.ClassName, E.Message]), v] );
- with PythonToDelphi(v) as TVarArg do
- Action := TDataAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyDataset.OnFilterRecord( Dataset : TDataset; var Accept : Boolean );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( Accept ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnFilterRecord, [GetSelf, v] );
- with PythonToDelphi(v) as TVarArg do
- Accept := PyObjectAsVariant(FValue);
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyDataset.OnNewRecord( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FOnNewRecord, [GetSelf] );
-end;
-
-procedure TPyDataset.OnPostError( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(Action) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnPostError, [GetSelf, ArrayToPyTuple([E.ClassName, E.Message]), v] );
- with PythonToDelphi(v) as TVarArg do
- Action := TDataAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-constructor TPythonDataset.Create( AOwner : TComponent );
-begin
- inherited;
- Name := 'typeDataset';
- TypeName := 'TDataset';
- Services.Sequence := [ssLength, ssItem];
- Module := gDBModule;
- TypeFlags := TypeFlags + [tpfBaseType];
- PyObjectClass := TPyDataset;
- with DocString do
- begin
- Add( 'The TDataset type implements the Delphi TDataset VCL Object inside Python.' );
- Add( 'The properties and methods are the same as in Delphi.' );
- Add( 'A TDataset can not be instancied, because it''s a virtual class.' );
- Add( 'It''s used as an interface to any Dataset subclass.');
- end;
-end;
-
-
-{*********************************************************************
- * Implementation of TVarArg *
- *********************************************************************}
-
-// Constructors & Destructors
-constructor TVarArg.CreateWith( APythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- if PyTuple_Check(args) and (PyTuple_Size(args)>=1) then
- begin
- FValue := PyTuple_GetItem( args, 0 );
- Py_XIncRef(FValue);
- end;
- end;
-end;
-
-destructor TVarArg.Destroy;
-begin
- with GetPythonEngine do
- Py_XDecRef(FValue);
- inherited;
-end;
-
-
-// Basic services
-function TVarArg.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if CompareText( string(key), 'Value' ) = 0 then
- begin
- Result := FValue;
- if not Assigned(Result) then
- Result := Py_None;
- Py_XIncRef(Result);
- end
- else
- Result := inherited GetAttr(key);
- end;
-end;
-
-function TVarArg.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- with GetPythonEngine do
- begin
- if CompareText( string(key), 'Value' ) = 0 then
- begin
- Py_XDecRef(FValue);
- FValue := value;
- Py_XIncRef(FValue);
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- end;
-end;
-
-function TVarArg.Repr : PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString( PAnsiChar(AnsiString(PyObjectAsString(FValue))) );
-end;
-
-constructor TPythonVarArg.Create( AOwner : TComponent );
-begin
- inherited;
- Name := 'typeVarArg';
- TypeName := 'VarArg';
- Module := gDBModule;
- PyObjectClass := TVarArg;
- with DocString do
- begin
- Add( 'a VarArg object contains a single property Value,' );
- Add( 'which you can read and write in order to change' );
- Add( 'an argument in an Event.' );
- Add( 'if you try to print the VarArg, it will print the Value' );
- Add( 'property.' );
- end;
-end;
-
-{*********************************************************************
-* Global functions *
-*********************************************************************}
-
-procedure CreateComponents( AOwner : TComponent );
-begin
- if Assigned(gDBModule) then
- Exit;
- gDBModule := TPythonDB.Create(AOwner);
- gDatasetType := TPythonDataset.Create(AOwner);
- gFieldType := TPythonField.Create(AOwner);
- gVarArgType := TPythonVarArg.Create(AOwner);
-end;
-
-procedure SetEvent( var EventSlot : PPyObject; Event : PPyObject; const EventName, ClassName : String );
-begin
- with GetPythonEngine do
- begin
- if Assigned(Event) and not (Event = Py_None) then
- begin
- if PyFunction_Check(Event) or PyMethod_Check(Event) then
- begin
- EventSlot := Event;
- Py_IncRef(EventSlot);
- end
- else
- raise Exception.CreateFmt( 'Event %s of class %s needs a function or a method', [EventName, ClassName] );
- end
- else
- begin
- Py_XDecRef(EventSlot);
- EventSlot := nil;
- end;
- end;
-end;
-
-function SetDatasetEvent( EventSlot : PPyObject; dsEvent : TDataSetNotifyEvent ) : TDataSetNotifyEvent;
-begin
- if Assigned(EventSlot) then
- Result := dsEvent
- else
- Result := nil;
-end;
-
-function SetDatasetErrorEvent( EventSlot : PPyObject; dsEvent : TDataSetErrorEvent ) : TDataSetErrorEvent;
-begin
- if Assigned(EventSlot) then
- Result := dsEvent
- else
- Result := nil;
-end;
-
-procedure ClearEvent( var EventSlot : PPyObject );
-begin
- with GetPythonEngine do
- Py_XDecRef( EventSlot );
- EventSlot := nil;
-end;
-
-function ReturnEvent( Event : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if Assigned(Event) then
- begin
- Result := Event;
- Py_IncRef(Event);
- end
- else
- Result := ReturnNone;
- end;
-end;
-
-procedure ExecuteEvent( Event : PPyObject; Args : array of Const );
-var
- L : PPyObject;
- Result : PPyObject;
-begin
- Result := nil;
- if not Assigned(Event) then
- Exit;
- with GetPythonEngine do
- begin
- L := ArrayToPyTuple( Args );
- try
- Result := PyEval_CallObjectWithKeywords( Event, L, nil );
- finally
- Py_XDecRef(Result);
- Py_XDecRef(L);
- end;
- CheckError;
- end;
-end;
-
-function NewDataset( aDataset : TDataset; IsOwner : Boolean ) : PPyObject;
-begin
- if not Assigned(gDBModule) then
- begin
- CreateComponents(nil);
- gDBModule.Engine := GetPythonEngine;
- gDBModule.Initialize;
- gDatasetType.Engine := GetPythonEngine;
- gDatasetType.Initialize;
- gFieldType.Engine := GetPythonEngine;
- gFieldType.Initialize;
- gVarArgType.Engine := GetPythonEngine;
- gVarArgType.Initialize;
- end;
- Result := gDatasetType.CreateInstance;
- with PythonToDelphi(Result) as TPyDataset do
- begin
- FSharedObject.Owner := IsOwner;
- FSharedObject.Data := aDataset;
- end;
-end;
-
-end.
diff --git a/Components/Sources/VCL/pyDBTables.pas b/Components/Sources/VCL/pyDBTables.pas
deleted file mode 100644
index 8bab5b3..0000000
--- a/Components/Sources/VCL/pyDBTables.pas
+++ /dev/null
@@ -1,1746 +0,0 @@
-{$I Definition.Inc}
-
-unit pyDBTables;
-
-{-------------------------------------------------------------------------------
- $Header: /P4D/PythonForDelphi/Components/Sources/VCL/pyDBTables.pas 1 03-04-09 19:25 Morgan $
- Copyright � MMM Inc. 2003 - All Rights Reserved.
- ------------------------------------------------------------------------------
- Author: Morgan Martinet
-
- Description:
-
- ------------------------------------------------------------------------------
- $Log: /P4D/PythonForDelphi/Components/Sources/VCL/pyDBTables.pas $
- *
- * 1 03-04-09 19:25 Morgan
- * initial check-in
-
--------------------------------------------------------------------------------}
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- Variants, PythonEngine, StdCtrls, ExtCtrls, ComCtrls,
- DB, DBTables, pyDB;
-type
-
-{*********************************************************************
- * DBTables module *
- *********************************************************************}
- TPythonDBTables = class(TPythonModule)
- public
- constructor Create( AOwner : TComponent ); override;
- procedure Initialize; override;
- end;
-
-{*********************************************************************
- * Interface of TBDEDataset *
- *********************************************************************}
- TPyBDEDataset = class(TPyDataset)
- FOnUpdateError : PPyObject;
- FOnUpdateRecord : PPyObject;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- destructor Destroy; override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyDBDataset
- function BDEDataset : TBDEDataset;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
-
- // Events
- ////////////////
- procedure OnUpdateError( Dataset : TDataset; E: EDatabaseError; UpdateKind: TUpdateKind; var ua:TUpdateAction);
- procedure OnUpdateRecord( Dataset : TDataset; UpdateKind: TUpdateKind; var ua:TUpdateAction);
- end;
-
-
- {*********************************************************************
- * Interface of TDBDataset *
- *********************************************************************}
- TPyDBDataset = class(TPyBDEDataset)
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyDBDataset
- function DBDataset : TDBDataset;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- end;
-
- {*********************************************************************
- * Interface of TTable *
- *********************************************************************}
-
- TPyTable = class(TPyDBDataset)
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyTTable
- function Table : TTable;
- function SetRange( startValues, endValues : PPyObject ) : PPyObject;
- procedure AddIndex(const Name, Fields: string; Options: PPyObject);
- function GetIndexNames : PPyObject;
- procedure GotoCurrent( tbl : PPyObject );
- function FindKey( KeyValues : PPyObject ) : Boolean;
- procedure FindNearest( KeyValues : PPyObject );
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- function DoSetKey( args : PPyObject ) : PPyObject; cdecl;
- function DoSetRangeStart( args : PPyObject ) : PPyObject; cdecl;
- function DoSetRangeEnd( args : PPyObject ) : PPyObject; cdecl;
- function DoSetRange( args : PPyObject ) : PPyObject; cdecl;
- function DoEditKey( args : PPyObject ) : PPyObject; cdecl;
- function DoEditRangeStart( args : PPyObject ) : PPyObject; cdecl;
- function DoEditRangeEnd( args : PPyObject ) : PPyObject; cdecl;
- function DoApplyRange( args : PPyObject ) : PPyObject; cdecl;
- function DoCancelRange( args : PPyObject ) : PPyObject; cdecl;
- function DoLockTable( args : PPyObject ) : PPyObject; cdecl;
- function DoUnlockTable( args : PPyObject ) : PPyObject; cdecl;
- function DoAddIndex( args : PPyObject ) : PPyObject; cdecl;
- function DoCloseIndexFile( args : PPyObject ) : PPyObject; cdecl;
- function DoCreateTable( args : PPyObject ) : PPyObject; cdecl;
- function DoDeleteIndex( args : PPyObject ) : PPyObject; cdecl;
- function DoDeleteTable( args : PPyObject ) : PPyObject; cdecl;
- function DoEmptyTable( args : PPyObject ) : PPyObject; cdecl;
- function DoGetIndexNames( args : PPyObject ) : PPyObject; cdecl;
- function DoOpenIndexFile( args : PPyObject ) : PPyObject; cdecl;
- function DoRenameTable( args : PPyObject ) : PPyObject; cdecl;
- function DoGotoCurrent( args : PPyObject ) : PPyObject; cdecl;
- function DoGotoNearest( args : PPyObject ) : PPyObject; cdecl;
- function DoGotoKey( args : PPyObject ) : PPyObject; cdecl;
- function DoFindKey( args : PPyObject ) : PPyObject; cdecl;
- function DoFindNearest( args : PPyObject ) : PPyObject; cdecl;
- end;
-
- TPythonTable = class( TPythonType)
- public
- constructor Create( AOwner : TComponent ); override;
- end;
-
- {*********************************************************************
- * Interface of TQuery *
- *********************************************************************}
-
- TPyQuery = class(TPyDBDataset)
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyTTable
- function Query : TQuery;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- function DoPrepare( args : PPyObject ) : PPyObject; cdecl;
- function DoUnPrepare( args : PPyObject ) : PPyObject; cdecl;
- function DoExecSQL( args : PPyObject ) : PPyObject; cdecl;
- end;
-
- TPythonQuery = class( TPythonType)
- public
- constructor Create( AOwner : TComponent ); override;
- end;
-
- {*********************************************************************
- * Global functions *
- *********************************************************************}
- procedure CreateComponents( AOwner : TComponent );
-
- {********************************************************************
- * Global variables *
- *********************************************************************}
-var
- gDBTablesModule : TPythonModule;
- gTableType : TPythonType;
- gQueryType : TPythonType;
-
-implementation
-
-{*********************************************************************
- * DBTables module *
- *********************************************************************}
-
-constructor TPythonDBTables.Create( AOwner : TComponent );
-begin
- inherited;
- ModuleName := 'DBTables';
- Name := 'modDBTables';
- with DocString do
- begin
- Add( 'This module contains several Object Types that' );
- Add( 'will let you work with the Borland BDE and access' );
- Add( 'a database.' );
- Add( '' );
- Add( 'CreateTTable() -> creates a TTable instance' );
- Add( 'CreateTQuery() -> creates a TQuery instance' );
- end;
-end;
-
-procedure TPythonDBTables.Initialize;
-begin
- inherited;
- // Values for type TLockType
- SetVarFromVariant( 'ltReadLock', 0 );
- SetVarFromVariant( 'ltWriteLock', 1 );
- // Values for type TIndexOptions
- SetVarFromVariant( 'ixPrimary', 0 );
- SetVarFromVariant( 'ixUnique', 1 );
- SetVarFromVariant( 'ixDescending', 2 );
- SetVarFromVariant( 'ixCaseInsensitive', 3 );
- SetVarFromVariant( 'ixExpression', 4 );
- // Values for type TUpdateAction
- SetVarFromVariant( 'uaFail', 0 );
- SetVarFromVariant( 'uaAbort', 1 );
- SetVarFromVariant( 'uaSkip', 2 );
- SetVarFromVariant( 'uaRetry', 3 );
- SetVarFromVariant( 'uaApplied', 4 );
-end;
-
-{*********************************************************************
- * Implementation of TBDEDataset *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyBDEDataset.Create( APythonType : TPythonType );
-begin
- inherited;
-end;
-
-destructor TPyBDEDataset.Destroy;
-begin
- if EventBelongsToObject( TCallbackSplit(BDEDataset.OnUpdateError) ) then
- BDEDataset.OnUpdateError := nil;
- if EventBelongsToObject( TCallbackSplit(BDEDataset.OnUpdateRecord) ) then
- BDEDataset.OnUpdateRecord := nil;
- ClearEvent( FOnUpdateError );
- ClearEvent( FOnUpdateRecord );
- inherited;
-end;
-
-
-// Then we override the needed services
-
-function TPyBDEDataset.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( string(key), 'OnUpdateError' ) = 0 then
- Result := ReturnEvent( FOnUpdateError )
- else if CompareText( string(key), 'OnUpdateRecord' ) = 0 then
- Result := ReturnEvent( FOnUpdateRecord )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyBDEDataset.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( string(key), 'OnUpdateError' ) = 0 then
- begin
- SetEvent( FOnUpdateError, Value, 'OnUpdateError', 'TField' );
- if Assigned(FOnUpdateError) then
- BDEDataset.OnUpdateError := OnUpdateError
- else
- BDEDataset.OnUpdateError := nil;
- Result := 0;
- end
- else if CompareText( string(key), 'OnUpdateRecord' ) = 0 then
- begin
- SetEvent( FOnUpdateRecord, Value, 'OnUpdateRecord', 'TField' );
- if Assigned(FOnUpdateRecord) then
- BDEDataset.OnUpdateRecord := OnUpdateRecord
- else
- BDEDataset.OnUpdateRecord := nil;
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyBDEDataset.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- //AddMethod( 'First', @TPyDataset.DoFirst, 'TDataset.First' );
- end;
-end;
-
-// Methods of TPyBDEDataset
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyBDEDataset.BDEDataset : TBDEDataset;
-begin
- Result := Dataset as TBDEDataset;
-end;
-
-procedure TPyBDEDataset.AppendProperties( List : PPyObject );
-begin
- inherited;
- //AppendProp( List, '');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-// Events
-////////////////
-procedure TPyBDEDataset.OnUpdateError( Dataset : TDataset; E: EDatabaseError; UpdateKind: TUpdateKind; var ua:TUpdateAction);
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(ua) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnUpdateError, [GetSelf, ArrayToPyTuple([E.ClassName, E.Message]), Integer(UpdateKind), v] );
- with PythonToDelphi(v) as TVarArg do
- ua := TUpdateAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyBDEDataset.OnUpdateRecord( Dataset : TDataset; UpdateKind: TUpdateKind; var ua:TUpdateAction);
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(ua) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnUpdateError, [GetSelf, Integer(UpdateKind), v] );
- with PythonToDelphi(v) as TVarArg do
- ua := TUpdateAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-
-{*********************************************************************
- * Implementation of TDBDataset *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyDBDataset.Create( APythonType : TPythonType );
-begin
- inherited;
-end;
-
-
-
-// Then we override the needed services
-
-function TPyDBDataset.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( string(key), 'DatabaseName' ) = 0 then
- Result := VariantAsPyObject( DBDataset.DatabaseName )
- else if CompareText( string(key), 'SessionName' ) = 0 then
- Result := VariantAsPyObject( DBDataset.SessionName )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDBDataset.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( string(key), 'DatabaseName' ) = 0 then
- begin
- DBDataset.DatabaseName := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'SessionName' ) = 0 then
- begin
- DBDataset.SessionName := PyObjectAsVariant( value );
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyDBDataset.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- //AddMethod( 'First', @TPyDataset.DoFirst, 'TDataset.First' );
- end;
-end;
-
-// Methods of TPyDBDataset
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyDBDataset.DBDataset : TDBDataset;
-begin
- Result := Dataset as TDBDataset;
-end;
-
-procedure TPyDBDataset.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'DatabaseName');
- AppendProp( List, 'SessionName');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-
-{*********************************************************************
- * Implementation of TTable *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyTable.Create( APythonType : TPythonType );
-begin
- inherited;
- FSharedObject.Data := TTable.Create(APythonType);
-end;
-
-
-
-// Then we override the needed services
-
-function TPyTable.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( string(key), 'IndexName' ) = 0 then
- Result := VariantAsPyObject( Table.IndexName )
- else if CompareText( string(key), 'ReadOnly' ) = 0 then
- Result := VariantAsPyObject( Table.ReadOnly )
- else if CompareText( string(key), 'TableLevel' ) = 0 then
- Result := VariantAsPyObject( Table.TableLevel )
- else if CompareText( string(key), 'TableName' ) = 0 then
- Result := VariantAsPyObject( Table.TableName )
- else if CompareText( string(key), 'TableType' ) = 0 then
- Result := VariantAsPyObject( Integer(Table.TableType) )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( string(key), 'IndexName' ) = 0 then
- begin
- Table.IndexName := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'ReadOnly' ) = 0 then
- begin
- Table.ReadOnly := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'TableLevel' ) = 0 then
- begin
- Table.TableLevel := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'TableName' ) = 0 then
- begin
- Table.TableName := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'TableType' ) = 0 then
- begin
- Table.TableType := TTableType(PyObjectAsVariant( value ));
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyTable.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'SetKey', @TPyTable.DoSetKey, 'TTable.SetKey() -> None' );
- AddMethod( 'SetRangeStart', @TPyTable.DoSetRangeStart, 'TTable.SetRangeStart() -> None' );
- AddMethod( 'SetRangeEnd', @TPyTable.DoSetRangeEnd, 'TTable.SetRangeEnd() -> None' );
- AddMethod( 'SetRange', @TPyTable.DoSetRange, 'TTable.SetRange( sequence of RangeStart values, sequence of RangeEnd values ) -> None' );
- AddMethod( 'EditKey', @TPyTable.DoEditKey, 'TTable.EditKey() -> None' );
- AddMethod( 'EditRangeStart', @TPyTable.DoEditRangeStart, 'TTable.EditRangeStart() -> None' );
- AddMethod( 'EditRangeEnd', @TPyTable.DoEditRangeEnd, 'TTable.EditRangeEnd() -> None' );
- AddMethod( 'ApplyRange', @TPyTable.DoApplyRange, 'TTable.ApplyRange() -> None' );
- AddMethod( 'CancelRange', @TPyTable.DoCancelRange, 'TTable.CancelRange() -> None' );
- AddMethod( 'LockTable', @TPyTable.DoLockTable, 'TTable.LockTable( LockType : TLockType ) -> None' );
- AddMethod( 'UnlockTable', @TPyTable.DoUnlockTable, 'TTable.UnlockTable( LockType : TLockType ) -> None' );
- AddMethod( 'AddIndex', @TPyTable.DoAddIndex, 'TTable.AddIndex( Name : String, Fields : String, Options : TIndexOptions ) -> None' );
- AddMethod( 'CloseIndexFile', @TPyTable.DoCloseIndexFile, 'TTable.CloseIndexFile( IndexFileName : String ) -> None' );
- AddMethod( 'CreateTable', @TPyTable.DoCreateTable, 'TTable.CreateTable() -> None' );
- AddMethod( 'DeleteIndex', @TPyTable.DoDeleteIndex, 'TTable.DeleteIndex( Name : String ) -> None' );
- AddMethod( 'DeleteTable', @TPyTable.DoDeleteTable, 'TTable.DeleteTable() -> None' );
- AddMethod( 'EmptyTable', @TPyTable.DoEmptyTable, 'TTable.EmptyTable() -> None' );
- AddMethod( 'GetIndexNames', @TPyTable.DoGetIndexNames, 'TTable.GetIndexNames() -> list of Index Names' );
- AddMethod( 'OpenIndexFile', @TPyTable.DoOpenIndexFile, 'TTable.OpenIndexFile( IndexFileName : String ) -> None' );
- AddMethod( 'RenameTable', @TPyTable.DoRenameTable, 'TTable.RenameTable( NewName : String ) -> None' );
- AddMethod( 'GotoCurrent', @TPyTable.DoGotoCurrent, 'TTable.GotoCurrent( table : TTable ) -> None' );
- AddMethod( 'GotoNearest', @TPyTable.DoGotoNearest, 'TTable.GotoNearest() -> None' );
- AddMethod( 'GotoKey', @TPyTable.DoGotoKey, 'TTable.GotoKey() -> True or False' );
- AddMethod( 'FindKey', @TPyTable.DoFindKey, 'TTable.FindKey( KeyValues : Sequence ) -> True or False' );
- AddMethod( 'FindNearest', @TPyTable.DoFindNearest, 'TTable.FindNearest( KeyValues : Sequence ) -> None' );
- end;
-end;
-
-// Methods of TPyTable
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyTable.Table : TTable;
-begin
- Result := FSharedObject.Data as TTable;
-end;
-
-function TPyTable.SetRange( startValues, endValues : PPyObject ) : PPyObject;
-var
- i : Integer;
-begin
- Result := nil;
- with GetPythonEngine do
- begin
- if PySequence_Check(startValues) = 0 then
- begin
- PyErr_SetString (PyExc_AttributeError^, 'First argument of SetRange must be a sequence.');
- Exit;
- end;
- if PySequence_Check(endValues) = 0 then
- begin
- PyErr_SetString (PyExc_AttributeError^, 'Second argument of SetRange must be a sequence.');
- Exit;
- end;
- with Table do
- begin
- SetRangeStart;
- for i := 0 to PySequence_Length(startValues)-1 do
- begin
- IndexFields[i].Value := PyObjectAsVariant(PySequence_GetItem(startValues, i));
- end;
- SetRangeEnd;
- for i := 0 to PySequence_Length(endValues)-1 do
- begin
- IndexFields[i].Value := PyObjectAsVariant(PySequence_GetItem(endValues, i));
- end;
- ApplyRange;
- end;
- Result := ReturnNone;
- end;
-end;
-
-procedure TPyTable.AddIndex(const Name, Fields: string; Options: PPyObject);
-var
- opt : TIndexOptions;
-begin
- with GetPythonEngine do
- begin
- ListToSet( Options, @opt, sizeof(opt) );
- Table.AddIndex( Name, Fields, opt );
- end;
-end;
-
-function TPyTable.GetIndexNames : PPyObject;
-var
- L : TStringList;
-begin
- L := TStringList.Create;
- try
- Table.GetIndexNames( L );
- Result := GetPythonEngine.StringsToPyList( L );
- finally
- L.Free;
- end;
-end;
-
-procedure TPyTable.GotoCurrent( tbl : PPyObject );
-var
- obj : TPyObject;
-begin
- with GetPythonEngine do
- begin
- if IsDelphiObject( tbl ) then
- begin
- obj := PythonToDelphi(tbl);
- if obj is TPyTable then
- begin
- Table.GotoCurrent( TPyTable(obj).Table );
- end
- else
- raise EPythonError.Create( 'TTable.GotoCurrent: the Delphi Type class is not a TPyTable, or one of its descendants' );
- end
- else
- raise EPythonError.Create( 'TTable.GotoCurrent: need a TTable object as argument' );
- end;
-end;
-
-function TPyTable.FindKey( KeyValues : PPyObject ) : Boolean;
-var
- V : Variant;
- i : Integer;
-begin
- with GetPythonEngine do
- begin
- if PySequence_Check( KeyValues ) <> 0 then
- begin
- V := PyObjectAsVariant( KeyValues );
- Table.CheckBrowseMode;
- Table.SetKey;
- for i := 0 to VarArrayHighBound(V, 1) do
- Table.IndexFields[i].AsVariant := V[i];
- Result := Table.GotoKey;
- end
- else
- Result := False;
- end;
-end;
-
-procedure TPyTable.FindNearest( KeyValues : PPyObject );
-var
- V : Variant;
- i : Integer;
-begin
- with GetPythonEngine do
- begin
- if PySequence_Check( KeyValues ) <> 0 then
- begin
- V := PyObjectAsVariant( KeyValues );
- Table.CheckBrowseMode;
- Table.SetKey;
- for i := 0 to VarArrayHighBound(V, 1) do
- Table.IndexFields[i].AsVariant := V[i];
- Table.GotoNearest;
- end;
- end;
-end;
-
-procedure TPyTable.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'IndexName');
- AppendProp( List, 'ReadOnly');
- AppendProp( List, 'TableLevel');
- AppendProp( List, 'TableName');
- AppendProp( List, 'TableType');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-function TPyTable.DoSetKey( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.SetKey;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoSetRangeStart( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.SetRangeStart;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoSetRangeEnd( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.SetRangeEnd;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoSetRange( args : PPyObject ) : PPyObject; cdecl;
-var
- startValues, endValues : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'OO:TDataset.SetRange',@startValues, @endValues ) <> 0) then
- begin
- // Do action
- Result := SetRange( startValues, endValues );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoEditKey( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.EditKey;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoEditRangeStart( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.EditRangeStart;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoEditRangeEnd( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.EditRangeEnd;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoApplyRange( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.ApplyRange;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoCancelRange( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.CancelRange;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoLockTable( args : PPyObject ) : PPyObject; cdecl;
-var
- t : Integer;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'i:TTable.LockTable',@t ) <> 0) then
- begin
- // Do action
- Table.LockTable(TLockType(t));
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoUnlockTable( args : PPyObject ) : PPyObject; cdecl;
-var
- t : Integer;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'i:TTable.LockTable',@t ) <> 0) then
- begin
- // Do action
- Table.UnlockTable(TLockType(t));
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoAddIndex( args : PPyObject ) : PPyObject; cdecl;
-var
- aName, fields : PAnsiChar;
- options : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'ssO:TTable.AddIndex',@aName, @fields, @options ) <> 0) then
- begin
- // Do action
- AddIndex( string(aName), string(fields), options );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoCloseIndexFile( args : PPyObject ) : PPyObject; cdecl;
-var
- aName : PAnsiChar;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 's:TTable.CloseIndexFile',@aName ) <> 0) then
- begin
- // Do action
- Table.CloseIndexFile( string(aName) );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoCreateTable( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.CreateTable;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoDeleteIndex( args : PPyObject ) : PPyObject; cdecl;
-var
- aName : PAnsiChar;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 's:TTable.DeleteIndex',@aName ) <> 0) then
- begin
- // Do action
- Table.DeleteIndex( string(aName) );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoDeleteTable( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.DeleteTable;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoEmptyTable( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.EmptyTable;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoGetIndexNames( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := GetIndexNames;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoOpenIndexFile( args : PPyObject ) : PPyObject; cdecl;
-var
- aName : PAnsiChar;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 's:TTable.OpenIndexFile',@aName ) <> 0) then
- begin
- // Do action
- Table.OpenIndexFile( string(aName) );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoRenameTable( args : PPyObject ) : PPyObject; cdecl;
-var
- newName : PAnsiChar;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 's:TTable.RenameTable',@newName ) <> 0) then
- begin
- // Do action
- Table.RenameTable( string(newName) );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoGotoCurrent( args : PPyObject ) : PPyObject; cdecl;
-var
- tbl : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'O:TTable.GotoCurrent',@tbl ) <> 0) then
- begin
- // Do action
- GotoCurrent( tbl );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoGotoNearest( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.GotoNearest;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoGotoKey( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := VariantAsPyObject( Table.GotoKey );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoFindKey( args : PPyObject ) : PPyObject; cdecl;
-var
- KeyValues : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'O:TTable.FindKey',@KeyValues ) <> 0) then
- begin
- // Do action
- Result := VariantAsPyObject( FindKey( KeyValues ) );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoFindNearest( args : PPyObject ) : PPyObject; cdecl;
-var
- KeyValues : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'O:TTable.FindNearest',@KeyValues ) <> 0) then
- begin
- // Do action
- FindNearest(KeyValues);
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-constructor TPythonTable.Create( AOwner : TComponent );
-begin
- inherited;
- Name := 'typeTable';
- TypeName := 'TTable';
- Services.Sequence := [ssLength, ssItem];
- Module := gDBTablesModule;
- TypeFlags := TypeFlags + [tpfBaseType];
- PyObjectClass := TPyTable;
- with DocString do
- begin
- Add( 'The TTable type implements the Delphi TTable VCL Object inside Python.' );
- Add( 'The properties and methods are the same as in Delphi.' );
- end;
-end;
-
-{*********************************************************************
- * Implementation of TQuery *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyQuery.Create( APythonType : TPythonType );
-begin
- inherited;
- FSharedObject.Data := TQuery.Create(APythonType);
-end;
-
-
-
-// Then we override the needed services
-
-function TPyQuery.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( string(key), 'Constrained' ) = 0 then
- Result := VariantAsPyObject( Query.Constrained )
- else if CompareText( string(key), 'Local' ) = 0 then
- Result := VariantAsPyObject( Query.Local)
- else if CompareText( string(key), 'ParamCheck' ) = 0 then
- Result := VariantAsPyObject( Query.ParamCheck )
- else if CompareText( string(key), 'ParamCount' ) = 0 then
- Result := VariantAsPyObject( Query.ParamCount )
- else if CompareText( string(key), 'Prepared' ) = 0 then
- Result := VariantAsPyObject( Query.Prepared )
- else if CompareText( string(key), 'RequestLive' ) = 0 then
- Result := VariantAsPyObject( Query.RequestLive )
- else if CompareText( string(key), 'RowsAffected' ) = 0 then
- Result := VariantAsPyObject( Query.RowsAffected )
- else if CompareText( string(key), 'SQL' ) = 0 then
- Result := StringsToPyList( Query.SQL)
- else if CompareText( string(key), 'UniDirectional' ) = 0 then
- Result := VariantAsPyObject( Query.UniDirectional )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyQuery.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( string(key), 'Constrained' ) = 0 then
- begin
- Query.Constrained := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'Local' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'ParamCheck' ) = 0 then
- begin
- Query.ParamCheck := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'ParamCount' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'Prepared' ) = 0 then
- begin
- Query.Prepared := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'RequestLive' ) = 0 then
- begin
- Query.RequestLive := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( string(key), 'RowsAffected' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( string(key), 'SQL' ) = 0 then
- begin
- PyListToStrings( value, Query.SQL );
- Result := 0;
- end
- else if CompareText( string(key), 'UniDirectional' ) = 0 then
- begin
- Query.UniDirectional := PyObjectAsVariant( value );
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyQuery.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'Prepare', @TPyQuery.DoPrepare, 'TQuery.Prepare() -> None' );
- AddMethod( 'Unprepare', @TPyQuery.DoUnprepare, 'TQuery.Unprepare() -> None' );
- AddMethod( 'ExecSQL', @TPyQuery.DoExecSQL, 'TQuery.ExecSQL() -> None' );
- end;
-end;
-
-// Methods of TPyQuery
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyQuery.Query : TQuery;
-begin
- Result := FSharedObject.Data as TQuery;
-end;
-
-procedure TPyQuery.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'Constrained');
- AppendProp( List, 'Local');
- AppendProp( List, 'ParamCheck');
- AppendProp( List, 'ParamCount');
- AppendProp( List, 'Prepared');
- AppendProp( List, 'RequestLive');
- AppendProp( List, 'RowsAffected');
- AppendProp( List, 'SQL');
- AppendProp( List, 'UniDirectional');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-function TPyQuery.DoPrepare( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Query.Prepare;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyQuery.DoUnPrepare( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Query.UnPrepare;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyQuery.DoExecSQL( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Query.ExecSQL;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-constructor TPythonQuery.Create( AOwner : TComponent );
-begin
- inherited;
- Name := 'typeQuery';
- TypeName := 'TQuery';
- Services.Sequence := [ssLength, ssItem];
- Module := gDBTablesModule;
- PyObjectClass := TPyQuery;
- with DocString do
- begin
- Add( 'The TQuery type implements the Delphi TQuery VCL Object inside Python.' );
- Add( 'The properties and methods are the same as in Delphi.' );
- end;
-end;
-
-{*********************************************************************
-* Global functions *
-*********************************************************************}
-
-procedure CreateComponents( AOwner : TComponent );
-begin
- if Assigned(gDBTablesModule) then
- Exit;
- gDBTablesModule := TPythonDBTables.Create(AOwner);
- gTableType := TPythonTable.Create(AOwner);
- gQueryType := TPythonQuery.Create(AOwner);
-end;
-
-
-end.
diff --git a/DemoLazarus/proc_py.pas b/DemoLazarus/proc_py.pas
deleted file mode 100644
index 9f01237..0000000
--- a/DemoLazarus/proc_py.pas
+++ /dev/null
@@ -1,90 +0,0 @@
-unit proc_py;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
- SysUtils,
- PythonEngine;
-
-type
- TStringDecodeRecW = record
- SFrom, STo: WideString;
- end;
-
-procedure Py_SetSysPath(const Dirs: array of string; DoAdd: boolean);
-
-function SBegin(const s, sub: string): boolean;
-function SDecodeW(const S: WideString; const Decode: array of TStringDecodeRecW): WideString;
-function SWideStringToPythonString(const Str: Widestring): string;
-
-const
- cDefFixedFontName = {$ifdef windows} 'Consolas' {$else} {$ifdef linux} 'Ubuntu Mono' {$else} 'Monaco' {$endif} {$endif};
- cDefFixedFontSize = {$ifdef windows} 9 {$else} 11 {$endif};
-
- cDefVarFontName = {$ifdef windows} 'Tahoma' {$else} {$ifdef linux} 'Ubuntu' {$else} 'default' {$endif} {$endif};
- cDefVarFontSize = {$ifdef windows} 9 {$else} 10 {$endif};
-
-
-implementation
-
-function SDecodeW(const S: WideString; const Decode: array of TStringDecodeRecW): WideString;
-var
- i, j: Integer;
- DoDecode: Boolean;
-begin
- Result := '';
- i := 1;
- repeat
- if i > Length(S) then Break;
- DoDecode := False;
- for j := Low(Decode) to High(Decode) do
- with Decode[j] do
- if (SFrom <> '') and (SFrom = Copy(S, i, Length(SFrom))) then
- begin
- DoDecode := True;
- Result := Result + STo;
- Inc(i, Length(SFrom));
- Break
- end;
- if DoDecode then Continue;
- Result := Result + S[i];
- Inc(i);
- until False;
-end;
-
-function SWideStringToPythonString(const Str: Widestring): string;
-const
- Decode: array[0..0] of TStringDecodeRecW =
- ((SFrom: '"'; STo: '"+''"''+"'));
-begin
- Result:= UTF8Encode(SDecodeW(Str, Decode));
- Result:= 'r"'+Result+'"';
-end;
-
-function SBegin(const s, sub: string): boolean;
-begin
- Result:= Copy(s, 1, Length(sub))=sub;
-end;
-
-procedure Py_SetSysPath(const Dirs: array of string; DoAdd: boolean);
-var
- Str, Sign: string;
- i: Integer;
-begin
- Str:= '';
- for i:= 0 to Length(Dirs)-1 do
- Str:= Str + 'r"' + Dirs[i] + '"' + ',';
- if DoAdd then
- Sign:= '+='
- else
- Sign:= '=';
- Str:= Format('sys.path %s [%s]', [Sign, Str]);
- GetPythonEngine.ExecString(Str);
-end;
-
-
-
-end.
-
diff --git a/Demos/Demo01/Microsoft.VC90.CRT.manifest b/Demos/Demo01/Microsoft.VC90.CRT.manifest
deleted file mode 100644
index 7b2286f..0000000
--- a/Demos/Demo01/Microsoft.VC90.CRT.manifest
+++ /dev/null
@@ -1,15 +0,0 @@
-
-
-
-
-
-
-
-
-
diff --git a/Demos/Demo01/Project1.cfg b/Demos/Demo01/Project1.cfg
deleted file mode 100644
index 68ecf60..0000000
--- a/Demos/Demo01/Project1.cfg
+++ /dev/null
@@ -1,39 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J+
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
--w-UNSAFE_TYPE
--w-UNSAFE_CODE
--w-UNSAFE_CAST
diff --git a/Demos/Demo01/Project1.conf b/Demos/Demo01/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo01/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo01/Project1.dpr b/Demos/Demo01/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo01/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo01/Project1.dproj b/Demos/Demo01/Project1.dproj
deleted file mode 100644
index 8c2dbc1..0000000
--- a/Demos/Demo01/Project1.dproj
+++ /dev/null
@@ -1,134 +0,0 @@
-
-
- {CA67512A-3B3A-48FD-8952-5503337690C4}
- Project1.dpr
- Debug
- DCC32
- 13.4
- VCL
- True
- Win32
- 1
- Application
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- 1033
- Project1.exe
- 00400000
- x86
-
-
- Project1_Icon.ico
-
-
- true
- Project1_Icon.ico
- Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
- 1033
- $(BDS)\bin\default_app.manifest
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- False
- True
-
-
- 12
-
-
-
diff --git a/Demos/Demo01/Project1.exe.manifest b/Demos/Demo01/Project1.exe.manifest
deleted file mode 100644
index 7b2286f..0000000
--- a/Demos/Demo01/Project1.exe.manifest
+++ /dev/null
@@ -1,15 +0,0 @@
-
-
-
-
-
-
-
-
-
diff --git a/Demos/Demo01/Project1.kof b/Demos/Demo01/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo01/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo01/Project1.res b/Demos/Demo01/Project1.res
deleted file mode 100644
index 143fc52..0000000
Binary files a/Demos/Demo01/Project1.res and /dev/null differ
diff --git a/Demos/Demo01/Unit1.dfm b/Demos/Demo01/Unit1.dfm
deleted file mode 100644
index 964f6ad..0000000
Binary files a/Demos/Demo01/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo01/Unit1.pas b/Demos/Demo01/Unit1.pas
deleted file mode 100644
index 8eb7482..0000000
--- a/Demos/Demo01/Unit1.pas
+++ /dev/null
@@ -1,116 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure PythonEngine1SysPathInit(Sender: TObject;
- PathList: PPyObject);
- procedure PythonEngine1BeforeLoad(Sender: TObject);
- procedure FormShow(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-
-
-var
- Form1: TForm1;
-
-implementation
-
-{$IFDEF MSWINDOWS}
-{$R *.DFM}
-{$ENDIF}
-{$IFDEF LINUX}
-{$R *.xfm}
-{$ENDIF}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
- procedure TForm1.PythonEngine1SysPathInit(Sender: TObject;
- PathList: PPyObject);
- var
- folder1, folder2, folder3: PPyObject;
- begin
- with GetPythonEngine do
- begin
- folder1 := PyString_FromString(PChar(ExtractFilePath(ParamStr(0))+'Libs'));
- folder2 := PyString_FromString(PChar(ExtractFilePath(ParamStr(0))+'Lib'));
- folder3 := PyString_FromString(PChar(ExtractFilePath(ParamStr(0))+'DLLs'));
- PyList_Append(PathList, folder1); // or insert, or clear�
- PyList_Append(PathList, folder2); // or insert, or clear�
- PyList_Append(PathList, folder3); // or insert, or clear�
- Py_XDecRef(folder1);
- Py_XDecRef(folder2);
- Py_XDecRef(folder3);
- end;
- end;
-
-
-procedure TForm1.PythonEngine1BeforeLoad(Sender: TObject);
-begin
- with PythonEngine1 do
- begin
- DllPath:= ExtractFilePath(ParamStr(0));
- end;
-end;
-
-procedure TForm1.FormShow(Sender: TObject);
-var i:integer;
-begin
- for i:= 1 to 20 do memo2.lines.add(inttostr(i));
- memo2.Perform(EM_LINESCROLL, 0, Memo2.Lines.Count);
-end;
-
-end.
diff --git a/Demos/Demo01/Unit1.xfm b/Demos/Demo01/Unit1.xfm
deleted file mode 100644
index 215ff8d..0000000
Binary files a/Demos/Demo01/Unit1.xfm and /dev/null differ
diff --git a/Demos/Demo01/dcc32.cfg b/Demos/Demo01/dcc32.cfg
deleted file mode 100644
index 35dd81c..0000000
--- a/Demos/Demo01/dcc32.cfg
+++ /dev/null
@@ -1,2 +0,0 @@
--uc:\Components\Python4delphi\PythonForDelphi\Components\Sources\Core
--ic:\Components\Python4delphi\PythonForDelphi\Components\Sources\Core
diff --git a/Demos/Demo02/Project1.cfg b/Demos/Demo02/Project1.cfg
deleted file mode 100644
index 7195db0..0000000
--- a/Demos/Demo02/Project1.cfg
+++ /dev/null
@@ -1,36 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J+
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
diff --git a/Demos/Demo02/Project1.conf b/Demos/Demo02/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo02/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo02/Project1.dpr b/Demos/Demo02/Project1.dpr
deleted file mode 100644
index a5cbb5e..0000000
--- a/Demos/Demo02/Project1.dpr
+++ /dev/null
@@ -1,23 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo02/Project1.dproj b/Demos/Demo02/Project1.dproj
deleted file mode 100644
index fa1d28a..0000000
--- a/Demos/Demo02/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {C2FA2A8D-7DA4-4631-B05E-4C16A0FC8F3B}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo02/Project1.kof b/Demos/Demo02/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo02/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo02/Project1.res b/Demos/Demo02/Project1.res
deleted file mode 100644
index 55f8742..0000000
Binary files a/Demos/Demo02/Project1.res and /dev/null differ
diff --git a/Demos/Demo02/Unit1.dfm b/Demos/Demo02/Unit1.dfm
deleted file mode 100644
index 5fa0939..0000000
Binary files a/Demos/Demo02/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo02/Unit1.pas b/Demos/Demo02/Unit1.pas
deleted file mode 100644
index 4ade354..0000000
--- a/Demos/Demo02/Unit1.pas
+++ /dev/null
@@ -1,92 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo2: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo1: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-
-
-var
- Form1: TForm1;
-
-implementation
-
-{$IFDEF MSWINDOWS}
-{$R *.DFM}
-{$ENDIF}
-{$IFDEF LINUX}
-{$R *.xfm}
-{$ENDIF}
-
-procedure TForm1.Button1Click(Sender: TObject);
-var
- Result : PPyObject;
-begin
- with PythonEngine1 do
- begin
- Result := EvalStrings( Memo1.Lines );
- if Assigned(Result) then
- begin
- ShowMessage(Format('Eval: %s',[PyObjectAsString(Result)]));
- Py_DECREF(Result);
- end
- else
- ShowMessage('Could not evaluate the script');
- // Or you could simply use:
- // ShowMessage('Eval: ' + EvalStringsAsStr( Memo1.Lines ) );
- end;
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-end.
diff --git a/Demos/Demo02/Unit1.xfm b/Demos/Demo02/Unit1.xfm
deleted file mode 100644
index 52433e8..0000000
Binary files a/Demos/Demo02/Unit1.xfm and /dev/null differ
diff --git a/Demos/Demo02/bugreport.txt b/Demos/Demo02/bugreport.txt
deleted file mode 100644
index 13d85ba..0000000
--- a/Demos/Demo02/bugreport.txt
+++ /dev/null
@@ -1,290 +0,0 @@
-date/time : 2013-12-18, 17:22:13, 703ms
-computer name : HOMEAP
-user name : User
-registered owner : User / Home
-operating system : Windows XP Service Pack 3 build 2600
-system language : Russian
-system up time : 11 days 15 hours
-program up time : 30 seconds
-processors : 4x Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
-physical memory : 2764/3564 MB (free/total)
-free disk space : (C:) 47,13 GB
-display mode : 1280x1024, 32 bit
-process id : $83c
-allocated memory : 9,43 MB
-executable : Project1.exe
-exec. date/time : 2013-12-18 17:21
-compiled with : Delphi 7
-madExcept version : 4.0.6
-callstack crc : $caafbd6c, $e28fdfb8, $e28fdfb8
-exception number : 1
-exception class : EPySyntaxError
-exception message : exceptions.SyntaxError: invalid syntax (line 1, offset 5): 'print 'aaa''.
-
-main thread ($fc):
-004c55bf +51b Project1.exe PythonEngine 5405 +47 TPythonEngine.RaiseError
-004c7d52 +062 Project1.exe PythonEngine 6384 +12 TPythonEngine.CheckError
-004c499e +11a Project1.exe PythonEngine 5183 +27 TPythonEngine.Run_CommandAsObjectWithDict
-004c4874 +014 Project1.exe PythonEngine 5149 +1 TPythonEngine.Run_CommandAsObject
-004c4afa +03e Project1.exe PythonEngine 5201 +1 TPythonEngine.EvalStrings
-004ca4d8 +034 Project1.exe Unit1 60 +3 TForm1.Button1Click
-0049acb0 +064 Project1.exe Controls TControl.Click
-00493254 +01c Project1.exe StdCtrls TButton.Click
-00493348 +00c Project1.exe StdCtrls TButton.CNCommand
-0049ab18 +188 Project1.exe Controls TControl.WndProc
-0049da63 +157 Project1.exe Controls TWinControl.WndProc
-00493118 +06c Project1.exe StdCtrls TButtonControl.WndProc
-0049a8e8 +024 Project1.exe Controls TControl.Perform
-0049db9b +023 Project1.exe Controls DoControlMsg
-0049e1f3 +00b Project1.exe Controls TWinControl.WMCommand
-0049ab18 +188 Project1.exe Controls TControl.WndProc
-0049da63 +157 Project1.exe Controls TWinControl.WndProc
-0049d6e0 +02c Project1.exe Controls TWinControl.MainWndProc
-0047c224 +014 Project1.exe Classes StdWndProc
-7c90e470 +010 ntdll.dll KiUserCallbackDispatcher
-7e3792de +044 user32.dll SendMessageW
-7e37a993 +016 user32.dll CallWindowProcA
-0049db47 +0d7 Project1.exe Controls TWinControl.DefaultHandler
-0049b0b8 +010 Project1.exe Controls TControl.WMLButtonUp
-0049ab18 +188 Project1.exe Controls TControl.WndProc
-0049da63 +157 Project1.exe Controls TWinControl.WndProc
-00493118 +06c Project1.exe StdCtrls TButtonControl.WndProc
-0049d6e0 +02c Project1.exe Controls TWinControl.MainWndProc
-0047c224 +014 Project1.exe Classes StdWndProc
-7e3696c2 +00a user32.dll DispatchMessageA
-004b8caf +083 Project1.exe Forms TApplication.ProcessMessage
-004b8cce +00a Project1.exe Forms TApplication.HandleMessage
-004b8eee +096 Project1.exe Forms TApplication.Run
-004ca98b +03b Project1.exe Project1 27 +3 initialization
-
-modules:
-00400000 Project1.exe C:\Components\Python4delphi\PythonForDelphi\Demos\Demo02
-10000000 AM32-33707.dll 4.73.0.30530 C:\Program Files\Ad Muncher
-1e000000 python26.dll 2.6.6150.1013 C:\WIN_NEW\system32
-5b260000 uxtheme.dll 6.0.2900.5512 C:\WIN_NEW\system32
-5d5b0000 comctl32.dll 5.82.2900.6028 C:\WIN_NEW\system32
-71a80000 WS2HELP.dll 5.1.2600.5512 C:\WIN_NEW\system32
-71a90000 WS2_32.dll 5.1.2600.5512 C:\WIN_NEW\system32
-71ab0000 wsock32.dll 5.1.2600.5512 C:\WIN_NEW\system32
-746e0000 MSCTF.dll 5.1.2600.5512 C:\WIN_NEW\system32
-75310000 msctfime.ime 5.1.2600.5768 C:\WIN_NEW\system32
-76360000 IMM32.DLL 5.1.2600.5512 C:\WIN_NEW\system32
-76380000 comdlg32.dll 6.0.2900.5512 C:\WIN_NEW\system32
-77110000 oleaut32.dll 5.1.2600.6341 C:\WIN_NEW\system32
-773c0000 comctl32.dll 6.0.2900.6028 C:\WIN_NEW\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202
-774d0000 ole32.dll 5.1.2600.6168 C:\WIN_NEW\system32
-77910000 SETUPAPI.dll 5.1.2600.5512 C:\WIN_NEW\system32
-77bf0000 version.dll 5.1.2600.5512 C:\WIN_NEW\system32
-77c00000 msvcrt.dll 7.0.2600.5512 C:\WIN_NEW\system32
-77dc0000 advapi32.dll 5.1.2600.5755 C:\WIN_NEW\system32
-77e70000 RPCRT4.dll 5.1.2600.6022 C:\WIN_NEW\system32
-77f10000 GDI32.dll 5.1.2600.5698 C:\WIN_NEW\system32
-77f60000 SHLWAPI.dll 6.0.2900.5912 C:\WIN_NEW\system32
-77fe0000 Secur32.dll 5.1.2600.5834 C:\WIN_NEW\system32
-78520000 MSVCR90.dll 9.0.30729.6161 C:\WIN_NEW\WinSxS\x86_Microsoft.VC90.CRT_1fc8b3b9a1e18e3b_9.0.30729.6161_x-ww_31a54e43
-7c800000 kernel32.dll 5.1.2600.6293 C:\WIN_NEW\system32
-7c900000 ntdll.dll 5.1.2600.6055 C:\WIN_NEW\system32
-7c9c0000 shell32.dll 6.0.2900.6242 C:\WIN_NEW\system32
-7e360000 user32.dll 5.1.2600.5512 C:\WIN_NEW\system32
-
-processes:
-000 Idle 0 0
-004 System 0 0 normal
-5b8 smss.exe 0 0 normal C:\WIN_NEW\system32
-5f0 csrss.exe 0 0
-60c winlogon.exe 46 14 high C:\WIN_NEW\system32
-638 services.exe 4 2 normal C:\WIN_NEW\system32
-644 lsass.exe 4 2 normal C:\WIN_NEW\system32
-708 svchost.exe 4 1 normal C:\WIN_NEW\system32
-74c svchost.exe 0 0
-41c svchost.exe 11 37 normal C:\WIN_NEW\System32
-444 svchost.exe 4 1 normal C:\WIN_NEW\system32
-5c8 svchost.exe 0 0
-7ec svchost.exe 0 0
-118 spoolsv.exe 14 9 normal C:\WIN_NEW\system32
-2e8 Explorer.EXE 305 143 normal C:\WIN_NEW
-324 svchost.exe 0 0
-368 ekrn.exe 12 13 normal C:\Program Files\ESET\ESET Smart Security
-38c jqs.exe 4 2 idle C:\Program Files\Java\jre7\bin
-3d4 nvsvc32.exe 16 5 normal C:\WIN_NEW\system32
-464 daemonu.exe 0 0
-4b0 svchost.exe 4 2 normal C:\WIN_NEW\system32
-498 egui.exe 160 53 normal C:\Program Files\ESET\ESET Smart Security
-b58 AdMunch.exe 27 22 normal C:\Program Files\Ad Muncher
-360 ctfmon.exe 28 12 normal C:\WIN_NEW\system32
-3a4 QIPShot.exe 2315 187 normal C:\Documents and Settings\User\Local Settings\Application Data\QIP\QIP Shot
-484 DTLite.exe 182 55 normal C:\Program Files\DAEMON Tools Lite
-a0c AutoHotkey.exe 13 15 normal C:\Program Files\AutoHotkey
-bec wmiapsrv.exe 4 2 normal C:\WIN_NEW\system32\wbem
-f74 wscntfy.exe 20 8 normal C:\WIN_NEW\system32
-294 alg.exe 0 0
-840 YandexDisk.exe 59 37 normal C:\Program Files\Yandex\YandexDisk\bin
-abc YandexDiskStarter.exe 4 2 normal C:\Program Files\Yandex\YandexDisk\bin
-ca0 svchost.exe 4 1 normal C:\WIN_NEW\System32
-ab0 TGitCache.exe 11 9 normal C:\Program Files\TortoiseGit\bin
-6bc delphi32.exe 731 289 normal C:\Borland\Delphi7\Bin
-83c Project1.exe 76 51 normal C:\Components\Python4delphi\PythonForDelphi\Demos\Demo02
-
-hardware:
-+ DVD и CD-ROM дисководы
- - CD-ROM дисковод
- - DTSOFT Virtual CdRom Device
-+ IDE ATA/ATAPI контроллеры
- - Intel(R) 7 Series/C216 Chipset Family 2 port Serial ATA Storage Controller - 1E08 (driver 9.3.0.1008)
- - Intel(R) 7 Series/C216 Chipset Family 4 port Serial ATA Storage Controller - 1E00 (driver 9.3.0.1008)
- - Вторичный канал IDE
- - Вторичный канал IDE
- - Первичный канал IDE
- - Первичный канал IDE
-+ SCSI и RAID контроллеры
- - ARXSW0H2 IDE Controller
-+ Видеоадаптеры
- - NVIDIA GeForce GT 440 (driver 6.14.12.9573)
-+ Дисковые устройства
- - Hitachi HTS545032B9A300 USB Device
- - JetFlash TS1GJF110 USB Device
- - Дисковый накопитель
-+ Звуковые, видео и игровые устройства
- - NVIDIA High Definition Audio (driver 1.3.12.0)
- - NVIDIA High Definition Audio (driver 1.3.12.0)
- - NVIDIA High Definition Audio (driver 1.3.12.0)
- - NVIDIA High Definition Audio (driver 1.3.12.0)
- - Realtek High Definition Audio (driver 5.10.0.6554)
- - Аудио кодеки
- - Видео кодеки
- - Драйверы аудио (без PnP)
- - Устройства записи видео (без PnP)
- - Устройство управления
-+ Клавиатуры
- - Стандартная (101/102 клавиши) или клавиатура PS/2 Microsoft Natural
-+ Компьютер
- - Многопроцессорный компьютер с ACPI
-+ Контроллеры универсальной последовательной шины USB
- - Intel(R) 7 Series/C216 Chipset Family USB Enhanced Host Controller - 1E26 (driver 9.3.0.1011)
- - Intel(R) 7 Series/C216 Chipset Family USB Enhanced Host Controller - 1E2D (driver 9.3.0.1011)
- - Запоминающее устройство для USB
- - Запоминающее устройство для USB
- - Корневой USB концентратор
- - Корневой USB концентратор
- - Универсальный USB концентратор
- - Универсальный USB концентратор
-+ Мониторы
- - Модуль подключения монитора
-+ Мыши и иные указывающие устройства
- - HID-совместимая мышь
-+ Порты (COM и LPT)
- - Последовательный порт (COM1)
-+ Процессоры
- - Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
- - Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
- - Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
- - Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
-+ Сетевые платы
- - Atheros AR8151 PCI-E Gigabit Ethernet Controller (driver 2.0.4.4)
- - Atheros AR8151 PCI-E Gigabit Ethernet Controller - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - Atheros AR8151 PCI-E Gigabit Ethernet Controller - VirtualBox Bridged Networking Driver Miniport (driver 4.1.22.0)
- - Atheros AR8151 PCI-E Gigabit Ethernet Controller - Минипорт планировщика пакетов
- - D-Link DFE-520TX PCI Fast Ethernet Adapter - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - D-Link DFE-520TX PCI Fast Ethernet Adapter - VirtualBox Bridged Networking Driver Miniport (driver 4.1.22.0)
- - D-Link DFE-520TX PCI Fast Ethernet Adapter - Минипорт планировщика пакетов
- - NVIDIA nForce Networking Controller - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - NVIDIA nForce Networking Controller - VirtualBox Bridged Networking Driver Miniport (driver 4.1.22.0)
- - NVIDIA nForce Networking Controller - Минипорт планировщика пакетов
- - VirtualBox Host-Only Ethernet Adapter (driver 4.1.22.0)
- - VirtualBox Host-Only Ethernet Adapter - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - VirtualBox Host-Only Ethernet Adapter - Минипорт планировщика пакетов
- - Минипорт WAN (IP)
- - Минипорт WAN (IP) - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - Минипорт WAN (IP) - Минипорт планировщика пакетов
- - Минипорт WAN (L2TP)
- - Минипорт WAN (PPPoE)
- - Минипорт WAN (PPTP)
- - Прямой параллельный порт
-+ Системные устройства
- - 2nd Generation Intel(R) Core(TM) Processor Family DRAM Controller - 0100 (driver 9.2.0.1026)
- - CMOS и часы
- - DAEMON Tools Virtual Bus (driver 5.0.1.282)
- - Intel(R) 7 Series/C216 Chipset Family PCI Express Root Port 1 - 1E10 (driver 9.3.0.1011)
- - Intel(R) 7 Series/C216 Chipset Family PCI Express Root Port 3 - 1E14 (driver 9.3.0.1011)
- - Intel(R) 7 Series/C216 Chipset Family SMBus Host Controller - 1E22 (driver 9.3.0.1011)
- - Intel(R) 7 Series/C216 Chipset Family Universal Serial Bus (USB) Controller - 1E31 (driver 9.3.0.1018)
- - Intel(R) 82801 PCI мост - 244E
- - Intel(R) 82802 Firmware концентратор
- - Intel(R) B75 Express Chipset LPC Controller - 1E49 (driver 9.3.0.1011)
- - Microsoft ACPI-совместимая система
- - Xeon E3-1200/2nd Generation Intel(R) Core(TM) Processor Family PCI Express Root Port - 0101 (driver 9.2.0.1026)
- - Вентилятор ACPI
- - Вентилятор ACPI
- - Вентилятор ACPI
- - Вентилятор ACPI
- - Вентилятор ACPI
- - Высокоточный таймер событий
- - Диспетчер логических дисков
- - Диспетчер томов
- - Драйвер Microsoft System Management BIOS
- - Драйвер клавиатуры сервера терминалов
- - Драйвер мыши сервера терминалов
- - Драйвер шины Microsoft UAA для High Definition Audio
- - Драйвер шины Microsoft UAA для High Definition Audio
- - Кнопка включения питания ACPI
- - Кнопка фиксированной возможности ACPI
- - Контроллер прямого доступа к памяти
- - Перенаправитель устройства сервера терминалов
- - Перечислитель программных устройств Plug and Play
- - Порт чтения данных ISAPNP
- - Программируемый контроллер прерываний
- - Процессор числовых данных
- - Расширенная шина ввода/вывода
- - Ресурсы системной платы
- - Ресурсы системной платы
- - Ресурсы системной платы
- - Ресурсы системной платы
- - Ресурсы системной платы
- - Системная плата
- - Системный таймер
- - Термальная зона ACPI
- - Термальная зона ACPI
- - Устройство обновления микропрограмм
- - Шина PCI
-+ Устройства HID (Human Interface Devices)
- - HID-совместимое устройство
- - HID-совместимое устройство управления
- - USB HID-совместимое устройство
-
-stack dump:
-0012f4a0 c4 55 4c 00 de fa ed 0e - 01 00 00 00 07 00 00 00 .UL.............
-0012f4b0 b4 f4 12 00 c4 55 4c 00 - 8c 04 a2 00 00 00 00 00 .....UL.........
-0012f4c0 0c 60 a2 00 02 01 00 00 - f4 f4 12 00 d0 f4 12 00 .`..............
-0012f4d0 08 f5 12 00 18 3f 40 00 - f4 f4 12 00 00 00 00 00 .....?@.........
-0012f4e0 00 00 00 00 00 00 00 00 - f0 a3 fc 01 e0 68 1d 1e .............h..
-0012f4f0 0c 60 a2 00 4c f5 12 00 - 57 7d 4c 00 00 00 00 00 .`..L...W}L.....
-0012f500 00 00 00 00 a3 49 4c 00 - 14 f5 12 00 57 40 40 00 .....IL.....W@@.
-0012f510 4c f5 12 00 70 f5 12 00 - 18 3f 40 00 4c f5 12 00 L...p....?@.L...
-0012f520 02 01 00 00 2c 6e a2 00 - 0c 60 a2 00 00 00 00 00 ....,n...`......
-0012f530 90 33 fd 01 90 33 fd 01 - 10 da fc 01 00 00 00 00 .3...3..........
-0012f540 02 01 00 00 2c 6e a2 00 - 0c 60 a2 00 90 f5 12 00 ....,n...`......
-0012f550 79 48 4c 00 00 00 00 00 - 00 00 00 00 02 01 00 00 yHL.............
-0012f560 3c f7 12 00 40 4d a2 00 - 0c 60 a2 00 ff 4a 4c 00 <...@M...`...JL.
-0012f570 98 f5 12 00 18 3f 40 00 - 90 f5 12 00 18 2a a2 00 .....?@......*..
-0012f580 0c 60 a2 00 00 00 00 00 - 00 00 00 00 00 00 00 00 .`..............
-0012f590 c0 f5 12 00 dd a4 4c 00 - bc f8 12 00 18 3f 40 00 ......L......?@.
-0012f5a0 c0 f5 12 00 38 32 49 00 - ec 53 a2 00 00 00 00 00 ....82I..S......
-0012f5b0 be 86 36 7e 63 1b 01 58 - 00 00 00 00 38 32 49 00 ..6~c..X....82I.
-0012f5c0 00 f7 12 00 b6 ac 49 00 - ec 53 a2 00 59 32 49 00 ......I..S..Y2I.
-0012f5d0 3c f7 12 00 4d 33 49 00 - ec 53 a2 00 1b ab 49 00 <...M3I..S....I.
-
-disassembling:
-[...]
-004c55ae call -$5cf0b ($4686a8) ; SysUtils.Exception.Create
-004c55b3 mov ecx, [ebp-$14]
-004c55b6 mov edx, [ebp-$10]
-004c55b9 call -$9e2 ($4c4bdc) ; PythonEngine.DefineSyntaxError
-004c55be pop ecx
-004c55bf > call -$c15e0 ($403fe4) ; System.@RaiseExcept
-004c55c4 jmp loc_4c5cd0
-004c55c9 5406 mov eax, [ebp-4]
-004c55cc mov eax, [eax+$108]
-004c55d2 mov eax, [eax]
-004c55d4 push eax
-[...]
-
diff --git a/Demos/Demo03/Project1.conf b/Demos/Demo03/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo03/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo03/Project1.dpr b/Demos/Demo03/Project1.dpr
deleted file mode 100644
index a5cbb5e..0000000
--- a/Demos/Demo03/Project1.dpr
+++ /dev/null
@@ -1,23 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo03/Project1.dproj b/Demos/Demo03/Project1.dproj
deleted file mode 100644
index cd6e40a..0000000
--- a/Demos/Demo03/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {BA2F2117-1B8F-44C7-8610-DAB4F55DB2EC}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo03/Project1.kof b/Demos/Demo03/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo03/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo03/Project1.res b/Demos/Demo03/Project1.res
deleted file mode 100644
index 6008d58..0000000
Binary files a/Demos/Demo03/Project1.res and /dev/null differ
diff --git a/Demos/Demo03/Unit1.dfm b/Demos/Demo03/Unit1.dfm
deleted file mode 100644
index a6bb8e6..0000000
Binary files a/Demos/Demo03/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo03/Unit1.pas b/Demos/Demo03/Unit1.pas
deleted file mode 100644
index d7847ae..0000000
--- a/Demos/Demo03/Unit1.pas
+++ /dev/null
@@ -1,79 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls,
- ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonDelphiVar1: TPythonDelphiVar;
- Button4: TButton;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.Button4Click(Sender: TObject);
-begin
- ShowMessage( 'Value = ' + PythonDelphiVar1.ValueAsString );
-end;
-
-end.
diff --git a/Demos/Demo04/Project1.dpr b/Demos/Demo04/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo04/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo04/Project1.dproj b/Demos/Demo04/Project1.dproj
deleted file mode 100644
index a1b2994..0000000
--- a/Demos/Demo04/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {6F45452F-882D-4BBD-8AEA-872276E8B856}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo04/Project1.res b/Demos/Demo04/Project1.res
deleted file mode 100644
index fdf1db3..0000000
Binary files a/Demos/Demo04/Project1.res and /dev/null differ
diff --git a/Demos/Demo04/Unit1.dfm b/Demos/Demo04/Unit1.dfm
deleted file mode 100644
index 9dfab95..0000000
Binary files a/Demos/Demo04/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo04/Unit1.pas b/Demos/Demo04/Unit1.pas
deleted file mode 100644
index 37d113b..0000000
--- a/Demos/Demo04/Unit1.pas
+++ /dev/null
@@ -1,126 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonDelphiVar1: TPythonDelphiVar;
- Button4: TButton;
- Edit1: TEdit;
- Label1: TLabel;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- PythonDelphiVar2: TPythonDelphiVar;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure PythonDelphiVar1Change(Sender: TObject);
- procedure PythonDelphiVar1GetData(Sender: TObject; var Data: Variant);
- procedure PythonDelphiVar1SetData(Sender: TObject; Data: Variant);
- procedure PythonDelphiVar2ExtGetData(Sender: TObject;
- var Data: PPyObject);
- procedure PythonDelphiVar2ExtSetData(Sender: TObject; Data: PPyObject);
- private
- { D�clarations priv�es }
- FMyPythonObject : PPyObject;
- public
- { D�clarations publiques }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.Button4Click(Sender: TObject);
-begin
- ShowMessage( 'Value = ' + PythonDelphiVar1.ValueAsString );
-end;
-
-procedure TForm1.PythonDelphiVar1Change(Sender: TObject);
-begin
- with Sender as TPythonDelphiVar do
- ShowMessage( 'Var test changed: ' + ValueAsString );
-end;
-
-procedure TForm1.PythonDelphiVar1GetData(Sender: TObject;
- var Data: Variant);
-begin
- Data := Edit1.Text;
-end;
-
-procedure TForm1.PythonDelphiVar1SetData(Sender: TObject; Data: Variant);
-begin
- Edit1.Text := Data;
-end;
-
-procedure TForm1.PythonDelphiVar2ExtGetData(Sender: TObject;
- var Data: PPyObject);
-begin
- with GetPythonEngine do
- begin
- Data := FMyPythonObject;
- Py_XIncRef(Data); // This is very important
- end;
-end;
-
-procedure TForm1.PythonDelphiVar2ExtSetData(Sender: TObject;
- Data: PPyObject);
-begin
- with GetPythonEngine do
- begin
- Py_XDecRef(FMyPythonObject); // This is very important
- FMyPythonObject := Data;
- Py_XIncRef(FMyPythonObject); // This is very important
- end;
-end;
-
-end.
diff --git a/Demos/Demo05/Project1.cfg b/Demos/Demo05/Project1.cfg
deleted file mode 100644
index d89f68d..0000000
--- a/Demos/Demo05/Project1.cfg
+++ /dev/null
@@ -1,37 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J+
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
--DmadExcept
diff --git a/Demos/Demo05/Project1.dpr b/Demos/Demo05/Project1.dpr
deleted file mode 100644
index 7abbd57..0000000
--- a/Demos/Demo05/Project1.dpr
+++ /dev/null
@@ -1,25 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
- madExcept,
- madLinkDisAsm,
- madListHardware,
- madListProcesses,
- madListModules,
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo05/Project1.dproj b/Demos/Demo05/Project1.dproj
deleted file mode 100644
index 1a4f4a8..0000000
--- a/Demos/Demo05/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {38ABBD9D-A0AD-422F-959B-062CAB828F37}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo05/Project1.res b/Demos/Demo05/Project1.res
deleted file mode 100644
index 6008d58..0000000
Binary files a/Demos/Demo05/Project1.res and /dev/null differ
diff --git a/Demos/Demo05/Unit1.dfm b/Demos/Demo05/Unit1.dfm
deleted file mode 100644
index 07c01b8..0000000
Binary files a/Demos/Demo05/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo05/Unit1.pas b/Demos/Demo05/Unit1.pas
deleted file mode 100644
index 92ae42a..0000000
--- a/Demos/Demo05/Unit1.pas
+++ /dev/null
@@ -1,95 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- PythonModule1: TPythonModule;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure PythonModule1Initialization(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
- function spam_foo( self, args : PPyObject ) : PPyObject; cdecl;
-
-var
- Form1: TForm1;
-
-implementation
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-// Here's an example of functions defined for the module spam
-
-function spam_foo( self, args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- ShowMessage( 'args of foo: '+PyObjectAsString(args) );
- Result := ReturnNone;
- end;
-end;
-
-procedure TForm1.PythonModule1Initialization(Sender: TObject);
-begin
- // In a module initialization, we just need to add our
- // new methods
- with Sender as TPythonModule do
- begin
- AddMethod( 'foo', spam_foo, 'foo' );
- end;
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-end.
diff --git a/Demos/Demo06/Project1.cfg b/Demos/Demo06/Project1.cfg
deleted file mode 100644
index 8099b97..0000000
--- a/Demos/Demo06/Project1.cfg
+++ /dev/null
@@ -1,40 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
--DmadExcept
--w-UNSAFE_TYPE
--w-UNSAFE_CODE
--w-UNSAFE_CAST
diff --git a/Demos/Demo06/Project1.dpr b/Demos/Demo06/Project1.dpr
deleted file mode 100644
index 7abbd57..0000000
--- a/Demos/Demo06/Project1.dpr
+++ /dev/null
@@ -1,25 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
- madExcept,
- madLinkDisAsm,
- madListHardware,
- madListProcesses,
- madListModules,
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo06/Project1.dproj b/Demos/Demo06/Project1.dproj
deleted file mode 100644
index 7dc3bed..0000000
--- a/Demos/Demo06/Project1.dproj
+++ /dev/null
@@ -1,134 +0,0 @@
-
-
- {2E88E1AD-C1A3-403E-8AEE-28895B68FBF7}
- Project1.dpr
- Debug
- DCC32
- 13.4
- VCL
- True
- Win32
- 1
- Application
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- 1033
- Project1.exe
- 00400000
- x86
-
-
- Project1_Icon.ico
-
-
- true
- Project1_Icon.ico
- Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
- 1033
- $(BDS)\bin\default_app.manifest
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- False
- True
-
-
- 12
-
-
-
diff --git a/Demos/Demo06/Project1.res b/Demos/Demo06/Project1.res
deleted file mode 100644
index 143fc52..0000000
Binary files a/Demos/Demo06/Project1.res and /dev/null differ
diff --git a/Demos/Demo06/Unit1.dfm b/Demos/Demo06/Unit1.dfm
deleted file mode 100644
index 832fdbd..0000000
Binary files a/Demos/Demo06/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo06/Unit1.pas b/Demos/Demo06/Unit1.pas
deleted file mode 100644
index 759cba4..0000000
--- a/Demos/Demo06/Unit1.pas
+++ /dev/null
@@ -1,304 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- PythonType1: TPythonType;
- PythonModule1: TPythonModule;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonDelphiVar1: TPythonDelphiVar;
- Button4: TButton;
- Edit1: TEdit;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure PythonModule1Initialization(Sender: TObject);
- procedure PythonType1Initialization(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure PythonDelphiVar1Change(Sender: TObject);
- procedure PythonDelphiVar1GetData(Sender: TObject; var Data: Variant);
- procedure PythonDelphiVar1SetData(Sender: TObject; Data: Variant);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
- PyPointRec = record
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- po_x : Integer;
- po_y : Integer;
- end;
- PPyPoint = ^PyPointRec;
-
- function spam_foo( self, args : PPyObject ) : PPyObject; cdecl;
- function spam_CreatePoint( self, args : PPyObject ) : PPyObject; cdecl;
- function spam_getdouble( self, args : PPyObject ) : PPyObject; cdecl;
-
- procedure PyPoint_dealloc(obj : PPyObject); cdecl;
- function PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
- function PyPoint_setattrfunc(obj : PPyObject; key : PAnsiChar; value : PPyObject) : Integer; cdecl;
- function PyPoint_repr(obj : PPyObject) : PPyObject; cdecl;
-
-var
- Form1: TForm1;
-
-implementation
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-// Here's an example of functions defined for the module spam
-
-function spam_foo( self, args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- ShowMessage( 'args of foo: '+PyObjectAsString(args) );
- Result := ReturnNone;
- end;
-end;
-
-// This function is used to create a PyPoint instance
-function spam_CreatePoint( self, args : PPyObject ) : PPyObject; cdecl;
-var
- x, y : Integer;
- p : PPyPoint;
-begin
- with GetPythonEngine do
- begin
- // We want x and y values as argument
- if PyArg_ParseTuple( args, 'ii:CreatePoint',@x, @y) <> 0 then
- begin
- new(p);
- with p^ do
- begin
- ob_refcnt := 1;
- ob_type := TypeByName('Point');
- // or we could write, because it's quicker:
- // ob_type := Form1.PythonType1.TheTypePtr;
- po_x := x;
- po_y := y;
- end;
- Result := PPyObject(p);
- end
- else
- Result := nil;
- end;
-end;
-
-function spam_getdouble( self, args : PPyObject ) : PPyObject; cdecl;
-// you need to pass floating point numbers as doubles to Py_BuildValue
-Const
- x : double = 2.7172;
- y : double = 3.14159;
- z : double = 1.2e-12;
-begin
- with GetPythonEngine do
- begin
- Result := Py_BuildValue('(iiddid)',42,815,x,y,4711,z);
- end;
-end;
-
-procedure TForm1.PythonModule1Initialization(Sender: TObject);
-begin
- // In a module initialization, we just need to add our
- // new methods
- with Sender as TPythonModule do
- begin
- AddMethod( 'foo', spam_foo, 'foo' );
- AddMethod( 'CreatePoint', spam_CreatePoint,
- 'function CreatePoint'+LF+
- 'Args: x, y'+LF+
- 'Result: a new Point object' );
- AddMethod( 'getdouble', spam_getdouble, 'getdouble' );
- end;
-end;
-
-// Here's an example of a new type object.
-// That's more complex than a new module, but here's a
-// template that you can follow.
-
-// Here's the destructor of the object
-procedure PyPoint_dealloc(obj : PPyObject); cdecl;
-begin
- Dispose(obj);
-end;
-
-// Here's the read access to the attributes of an object.
-// In fact it is called each time you write:
-// object.value
-// object.method(args)
-function PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
-begin
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- // Check for attribute x
- if key = 'x' then
- Result := PyInt_FromLong( po_x )
- // Check for attribute y
- else if key = 'y' then
- Result := PyInt_FromLong( po_y )
- else
- begin
- // Else check for a method
- Result := Py_FindMethod( MethodsByName('PythonType1'), obj, key);
- // or we could write, because it's quicker:
- // Result := Py_FindMethod( Form1.PythonType1.MethodsData, obj, key);
- if not Assigned(Result) then
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
- end;
- end;
-end;
-
-// Here's the write access to the attributes of an object.
-// In fact it is called each time you write:
-// object.value = 1
-function PyPoint_setattrfunc(obj : PPyObject; key : PAnsiChar; value : PPyObject) : Integer; cdecl;
-begin
- Result := -1;
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- // Check for attribute x
- if key = 'x' then begin
- if PyInt_Check(value) then
- begin
- po_x := PyInt_AsLong(value);
- Result := 0;
- end
- else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Attribute "%s" needs an integer',[key])));
- // Check for attribute y
- end else if key = 'y' then begin
- if PyInt_Check(value) then
- begin
- po_y := PyInt_AsLong(value);
- Result := 0;
- end
- else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Attribute "%s" needs an integer',[key])));
- end else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
- end;
-end;
-
-// Here's how an object should be represented, when printed for instance.
-function PyPoint_repr(obj : PPyObject) : PPyObject; cdecl;
-begin
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- Result := PyString_FromString( PAnsiChar(Format('(%d, %d)',[po_x, po_y]) ) );
- end;
-end;
-
-// Here's a method of the object PyPoint
-function PyPoint_OffsetBy(self, args : PPyObject) : PPyObject; cdecl;
-var
- x, y : Integer;
-begin
- with GetPythonEngine, PPyPoint(self)^ do
- begin
- if PyArg_ParseTuple( args, 'ii:OffsetBy',@x, @y) <> 0 then
- begin
- Inc( po_x, x );
- Inc( po_y, y );
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-procedure TForm1.PythonType1Initialization(Sender: TObject);
-Var
- PyType : PyTypeObject;
-begin
- with (Sender as TPythonType) do
- begin
- // In the initialization of a new type, we must
- // define the attributes of this type
- PyType := TheType;
- with PyType do
- begin
- tp_basicsize := sizeof(PyPointRec);
- tp_dealloc := PyPoint_dealloc;
- tp_getattr := PyPoint_getattr;
- tp_setattr := PyPoint_setattrfunc;
- tp_repr := PyPoint_repr;
- tp_str := PyPoint_repr;
- end;
- TheType := PyType;
- // And then add the methods of the object, if needed
- AddMethod( 'OffsetBy', PyPoint_OffsetBy, 'OffsetBy(dx, dy)' );
- end;
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.Button4Click(Sender: TObject);
-begin
- ShowMessage( 'Value = ' + PythonDelphiVar1.ValueAsString );
-end;
-
-procedure TForm1.PythonDelphiVar1Change(Sender: TObject);
-begin
- with Sender as TPythonDelphiVar do
- ShowMessage( 'Var test changed: ' + ValueAsString );
-end;
-
-procedure TForm1.PythonDelphiVar1GetData(Sender: TObject;
- var Data: Variant);
-begin
- Data := Edit1.Text;
-end;
-
-procedure TForm1.PythonDelphiVar1SetData(Sender: TObject; Data: Variant);
-begin
- Edit1.Text := Data;
-end;
-
-end.
diff --git a/Demos/Demo07/Project1.cfg b/Demos/Demo07/Project1.cfg
deleted file mode 100644
index d89f68d..0000000
--- a/Demos/Demo07/Project1.cfg
+++ /dev/null
@@ -1,37 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J+
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
--DmadExcept
diff --git a/Demos/Demo07/Project1.conf b/Demos/Demo07/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo07/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo07/Project1.dpr b/Demos/Demo07/Project1.dpr
deleted file mode 100644
index 7abbd57..0000000
--- a/Demos/Demo07/Project1.dpr
+++ /dev/null
@@ -1,25 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
- madExcept,
- madLinkDisAsm,
- madListHardware,
- madListProcesses,
- madListModules,
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo07/Project1.dproj b/Demos/Demo07/Project1.dproj
deleted file mode 100644
index 7a373b7..0000000
--- a/Demos/Demo07/Project1.dproj
+++ /dev/null
@@ -1,134 +0,0 @@
-
-
- {241C5DB1-E30A-4305-9F0A-4B7DD00FAD59}
- Project1.dpr
- Debug
- DCC32
- 13.4
- VCL
- True
- Win32
- 1
- Application
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- 1033
- Project1.exe
- 00400000
- x86
-
-
- Project1_Icon1.ico
-
-
- true
- Project1_Icon1.ico
- Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
- 1033
- $(BDS)\bin\default_app.manifest
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- False
- True
-
-
- 12
-
-
-
diff --git a/Demos/Demo07/Project1.kof b/Demos/Demo07/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo07/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo07/Project1.res b/Demos/Demo07/Project1.res
deleted file mode 100644
index 143fc52..0000000
Binary files a/Demos/Demo07/Project1.res and /dev/null differ
diff --git a/Demos/Demo07/Unit1.dfm b/Demos/Demo07/Unit1.dfm
deleted file mode 100644
index 4f725eb..0000000
Binary files a/Demos/Demo07/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo07/Unit1.pas b/Demos/Demo07/Unit1.pas
deleted file mode 100644
index 1d28e38..0000000
--- a/Demos/Demo07/Unit1.pas
+++ /dev/null
@@ -1,342 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- PythonType1: TPythonType;
- PythonModule1: TPythonModule;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonDelphiVar1: TPythonDelphiVar;
- Button4: TButton;
- Edit1: TEdit;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure PythonModule1Initialization(Sender: TObject);
- procedure PythonType1Initialization(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure PythonDelphiVar1Change(Sender: TObject);
- procedure PythonDelphiVar1GetData(Sender: TObject; var Data: Variant);
- procedure PythonDelphiVar1SetData(Sender: TObject; Data: Variant);
- private
- { D�clarations priv�es }
- function spam_foo( pself, args : PPyObject ) : PPyObject; cdecl;
- function spam_CreatePoint( pself, args : PPyObject ) : PPyObject; cdecl;
- function spam_getdouble( pself, args : PPyObject ) : PPyObject; cdecl;
- function spam_getdouble2( pself, args : PPyObject ) : PPyObject; cdecl;
- public
- { D�clarations publiques }
- end;
-
- PyPointRec = record
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- po_x : Integer;
- po_y : Integer;
- end;
- PPyPoint = ^PyPointRec;
-
- procedure PyPoint_dealloc(obj : PPyObject); cdecl;
- function PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
- function PyPoint_setattrfunc(obj : PPyObject; key : PAnsiChar; value : PPyObject) : Integer; cdecl;
- function PyPoint_repr(obj : PPyObject) : PPyObject; cdecl;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-// Here's an example of functions defined for the module spam
-
-function TForm1.spam_foo( pself, args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- ShowMessage( 'args of foo: '+PyObjectAsString(args) );
- ShowMessage( 'Form''s caption = ' + Caption );
- Result := ReturnNone;
- end;
-end;
-
-// This function is used to create a PyPoint instance
-function TForm1.spam_CreatePoint( pself, args : PPyObject ) : PPyObject; cdecl;
-var
- x, y : Integer;
- p : PPyPoint;
-begin
- with GetPythonEngine do
- begin
- // We want x and y values as argument
- if PyArg_ParseTuple( args, 'ii:CreatePoint',@x, @y) <> 0 then
- begin
- new(p);
- with p^ do
- begin
- ob_refcnt := 1;
- ob_type := TypeByName('Point');
- // or we could write, because it's quicker:
- // ob_type := Form1.PythonType1.TheTypePtr;
- po_x := x;
- po_y := y;
- end;
- Result := PPyObject(p);
- end
- else
- Result := nil;
- end;
-end;
-
-function TForm1.spam_getdouble( pself, args : PPyObject ) : PPyObject; cdecl;
-// you need to pass floating point numbers as doubles to Py_BuildValue
-Const
- d1 : double = 2.7172;
- d2 : double = 3.14159;
- d3 : double = 1.2e-12;
-var x: Currency;
- y: Double;
- s: PAnsiChar;
- i: integer;
-begin
- with GetPythonEngine do
- begin
- self.PythonGUIInputOutput1.write('Hello, World!'+LF);
- x := 13.5;
- y := 42.0;
- i := 42;
- s := 'Hallo';
- Result := Py_BuildValue('(sddiiddid)',s,x,y,i,815,d1,d2,4711,d3);
- end;
-end;
-
-function TForm1.spam_getdouble2( pself, args : PPyObject ) : PPyObject; cdecl;
-var x: Currency;
- y: Double;
- s: PAnsiChar;
- i: integer;
-begin
- // this is the same function as the previous one,
- // except it uses ArrayToPyTuple
- with GetPythonEngine do
- begin
- self.PythonGUIInputOutput1.write('Hello, World!'+LF);
- x := 13.5;
- y := 42.0;
- i := 42;
- s := 'Hallo';
- Result := ArrayToPyTuple( [ s,x,y,i,815,2.7172,3.14159,4711,1.2e-12, PyInt_FromLong(333) ] );
- end;
-end;
-
-procedure TForm1.PythonModule1Initialization(Sender: TObject);
-begin
- // In a module initialization, we just need to add our
- // new methods
- with Sender as TPythonModule do
- begin
- AddDelphiMethod( 'foo',
- spam_foo,
- 'foo' );
- AddDelphiMethod( 'CreatePoint',
- spam_CreatePoint,
- 'function CreatePoint'+LF+
- 'Args: x, y'+LF+
- 'Result: a new Point object' );
- AddDelphiMethod( 'getdouble',
- spam_getdouble,
- 'getdouble' );
- AddDelphiMethod( 'getdouble2',
- spam_getdouble2,
- 'getdouble2' );
- end;
-end;
-
-// Here's an example of a new type object.
-// That's more complex than a new module, but here's a
-// template that you can follow.
-
-// Here's the destructor of the object
-procedure PyPoint_dealloc(obj : PPyObject); cdecl;
-begin
- Dispose(obj);
-end;
-
-// Here's the read access to the attributes of an object.
-// In fact it is called each time you write:
-// object.value
-// object.method(args)
-function PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
-begin
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- // Check for attribute x
- if key = 'x' then
- Result := PyInt_FromLong( po_x )
- // Check for attribute y
- else if key = 'y' then
- Result := PyInt_FromLong( po_y )
- else
- begin
- // Else check for a method
- Result := Py_FindMethod( MethodsByName('PythonType1'), obj, key);
- // or we could write, because it's quicker:
- // Result := Py_FindMethod( Form1.PythonType1.MethodsData, obj, key);
- if not Assigned(Result) then
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
- end;
- end;
-end;
-
-// Here's the write access to the attributes of an object.
-// In fact it is called each time you write:
-// object.value = 1
-function PyPoint_setattrfunc(obj : PPyObject; key : PAnsiChar; value : PPyObject) : Integer; cdecl;
-begin
- Result := -1;
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- // Check for attribute x
- if key = 'x' then begin
- if PyInt_Check(value) then
- begin
- po_x := PyInt_AsLong(value);
- Result := 0;
- end
- else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Attribute "%s" needs an integer',[key])));
- // Check for attribute y
- end else if key = 'y' then begin
- if PyInt_Check(value) then
- begin
- po_y := PyInt_AsLong(value);
- Result := 0;
- end
- else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Attribute "%s" needs an integer',[key])));
- end else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
- end;
-end;
-
-// Here's how an object should be represented, when printed for instance.
-function PyPoint_repr(obj : PPyObject) : PPyObject; cdecl;
-begin
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- Result := PyString_FromString( PAnsiChar(Format('(%d, %d)',[po_x, po_y]) ) );
- end;
-end;
-
-// Here's a method of the object PyPoint
-function PyPoint_OffsetBy(self, args : PPyObject) : PPyObject; cdecl;
-var
- x, y : Integer;
-begin
- with GetPythonEngine, PPyPoint(self)^ do
- begin
- if PyArg_ParseTuple( args, 'ii:OffsetBy',@x, @y) <> 0 then
- begin
- Inc( po_x, x );
- Inc( po_y, y );
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-procedure TForm1.PythonType1Initialization(Sender: TObject);
-Var
- PyType : PyTypeObject;
-begin
- with (Sender as TPythonType) do
- begin
- // In the initialization of a new type, we must
- // define the attributes of this type
- PyType := TheType;
- with PyType do
- begin
- tp_basicsize := sizeof(PyPointRec);
- tp_dealloc := PyPoint_dealloc;
- tp_getattr := PyPoint_getattr;
- tp_setattr := PyPoint_setattrfunc;
- tp_repr := PyPoint_repr;
- tp_str := PyPoint_repr;
- end;
- TheType := PyType;
- // And then add the methods of the object, if needed
- AddMethod( 'OffsetBy', PyPoint_OffsetBy, 'OffsetBy(dx, dy)' );
- end;
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.Button4Click(Sender: TObject);
-begin
- ShowMessage( 'Value = ' + PythonDelphiVar1.ValueAsString );
-end;
-
-procedure TForm1.PythonDelphiVar1Change(Sender: TObject);
-begin
- with Sender as TPythonDelphiVar do
- ShowMessage( 'Var test changed: ' + ValueAsString );
-end;
-
-procedure TForm1.PythonDelphiVar1GetData(Sender: TObject;
- var Data: Variant);
-begin
- Data := Edit1.Text;
-end;
-
-procedure TForm1.PythonDelphiVar1SetData(Sender: TObject; Data: Variant);
-begin
- Edit1.Text := Data;
-end;
-
-end.
diff --git a/Demos/Demo07/test.py b/Demos/Demo07/test.py
deleted file mode 100644
index 2cb5775..0000000
--- a/Demos/Demo07/test.py
+++ /dev/null
@@ -1,13 +0,0 @@
-import sys
-print "Win version:", sys.winver
-import spam
-print spam.foo('hello world', 1)
-p = spam.CreatePoint( 10, 25 )
-print "Point:", p
-p.x = 58
-print p.x, p
-p.OffsetBy( 5, 5 )
-print p
-print "Current value of var test is: ", test
-test.Value = "New value set by Python"
-print spam.getdouble()
\ No newline at end of file
diff --git a/Demos/Demo08/Project1.cfg b/Demos/Demo08/Project1.cfg
deleted file mode 100644
index b105d8e..0000000
--- a/Demos/Demo08/Project1.cfg
+++ /dev/null
@@ -1,41 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J+
--$K-
--$L+
--$M-
--$N+
--$O-
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
--U"c:\borland\delphi7\Lib\Debug"
--O"c:\borland\delphi7\Lib\Debug"
--I"c:\borland\delphi7\Lib\Debug"
--R"c:\borland\delphi7\Lib\Debug"
--DmadExcept
diff --git a/Demos/Demo08/Project1.conf b/Demos/Demo08/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo08/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo08/Project1.dpr b/Demos/Demo08/Project1.dpr
deleted file mode 100644
index 7abbd57..0000000
--- a/Demos/Demo08/Project1.dpr
+++ /dev/null
@@ -1,25 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
- madExcept,
- madLinkDisAsm,
- madListHardware,
- madListProcesses,
- madListModules,
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo08/Project1.dproj b/Demos/Demo08/Project1.dproj
deleted file mode 100644
index f3fe018..0000000
--- a/Demos/Demo08/Project1.dproj
+++ /dev/null
@@ -1,134 +0,0 @@
-
-
- {237903A4-03D0-4047-A134-AAF207C6AC42}
- Project1.dpr
- Debug
- DCC32
- 13.4
- VCL
- True
- Win32
- 1
- Application
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- 1033
- Project1.exe
- 00400000
- x86
-
-
- Project1_Icon.ico
-
-
- true
- Project1_Icon.ico
- Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
- 1033
- $(BDS)\bin\default_app.manifest
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- False
- True
-
-
- 12
-
-
-
diff --git a/Demos/Demo08/Project1.kof b/Demos/Demo08/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo08/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo08/Project1.res b/Demos/Demo08/Project1.res
deleted file mode 100644
index 6a1fa40..0000000
Binary files a/Demos/Demo08/Project1.res and /dev/null differ
diff --git a/Demos/Demo08/Unit1.dfm b/Demos/Demo08/Unit1.dfm
deleted file mode 100644
index a28b1f9..0000000
Binary files a/Demos/Demo08/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo08/Unit1.pas b/Demos/Demo08/Unit1.pas
deleted file mode 100644
index 0ddd715..0000000
--- a/Demos/Demo08/Unit1.pas
+++ /dev/null
@@ -1,278 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, ComCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- Splitter1: TSplitter;
- Memo1: TMemo;
- PythonEngine1: TPythonEngine;
- PythonModule1: TPythonModule;
- PythonType1: TPythonType;
- Panel1: TPanel;
- Button1: TButton;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure PythonType1Initialization(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
- // This is a Delphi class implementing a new Python type
- // it must derive from TPyObject or one of its descendants.
- // Then it must override some methods, like the constructors,
- // the RegisterMethods and the type services' virtual methods.
- TPyPoint = class(TPyObject)
- x, y : Integer;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
- function RichCompare( obj : PPyObject; Op : TRichComparisonOpcode) : PPyObject; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyPoint
- procedure OffsetBy( dx, dy : Integer );
-
- // Interface methods
- function DoOffsetBy( args : PPyObject ) : PPyObject; cdecl;
- function DoRaiseError( args : PPyObject ) : PPyObject; cdecl;
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-// First, we need to initialize the property PyObjectClass with
-// the class of our Type object
-procedure TForm1.PythonType1Initialization(Sender: TObject);
-begin
- PythonType1.PyObjectClass := TPyPoint;
-end;
-
-// We override the constructors
-
-constructor TPyPoint.Create( APythonType : TPythonType );
-begin
- inherited;
- x := 0;
- y := 0;
-end;
-
-// Don't call the Create constructor of TPyPoint, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyPoint.Create will be automatically be called.
-
-constructor TPyPoint.CreateWith( PythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- if PyArg_ParseTuple( args, 'ii:CreatePoint',@x, @y ) = 0 then
- exit;
- end;
-end;
-
-// Then we override the needed services
-
-function TPyPoint.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if key = 'x' then
- Result := VariantAsPyObject( x )
- // Or Result := PyInt_FromLong( x )
- else if key = 'y' then
- Result := PyInt_FromLong( y )
- // or Result := PyInt_FromLong( y )
- else
- Result := inherited GetAttr(key);
- end;
-end;
-
-function TPyPoint.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := 0;
- with GetPythonEngine do
- begin
- if key = 'x' then
- begin
- if PyArg_Parse( value, 'i:Point.SetAttr', @x ) = 0 then
- Result := -1;
- end
- else if key = 'y' then
- begin
- if PyArg_Parse( value, 'i:Point.SetAttr', @y ) = 0 then
- Result := -1;
- end
- else
- Result := inherited SetAttr(key, value);
- end;
-end;
-
-function TPyPoint.Repr : PPyObject;
-begin
- with GetPythonEngine do
- Result := VariantAsPyObject(Format('(%d, %d)',[x, y]));
- // or Result := PyString_FromString( PAnsiChar(Format('(%d, %d)',[x, y])) );
-end;
-
-function TPyPoint.RichCompare( obj : PPyObject; Op : TRichComparisonOpcode) : PPyObject;
-begin
- with GetPythonEngine do
- Result := PyInt_FromLong(1); // Return True by default, just for testing the API.
-end;
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyPoint.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'OffsetBy', @TPyPoint.DoOffsetBy, 'Point.OffsetBy( dx, dy )' );
- AddMethod( 'RaiseError', @TPyPoint.DoRaiseError, 'Point.RaiseError()' );
- end;
-end;
-
-// Methods of TPyPoint
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-procedure TPyPoint.OffsetBy( dx, dy : Integer );
-begin
- Inc( x, dx );
- Inc( y, dy );
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-function TPyPoint.DoOffsetBy( args : PPyObject ) : PPyObject;
-var
- dx, dy : Integer;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- // first we extract the arguments
- if PyArg_ParseTuple( args, 'ii:Point.Offset',@dx, @dy ) <> 0 then
- begin
- // if it's ok, then we call the method that does the job
- // with the correct arguments
- OffsetBy( dx, dy );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else // the arguments were not right
- Result := nil;
- end;
-end;
-
-// Here's an example of how you can raise errors defined
-// in the module linked to our type.
-function TPyPoint.DoRaiseError( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- // This is a simple call:
- //GetModule.RaiseError( 'PointError', 'this is an example of raising an error !' );
- // This is an advanced call:
- // We provide the instance vars as a dictionary, so that we can intercept the
- // error with "except" and extract informations from the error object.
- // ArrayToPyDict needs a list of pairs: varName (string), varValue (anything)
- GetModule.RaiseErrorObj( 'EBadPoint', 'this is an example of raising an error !',
- ArrayToPyDict( ['a', 1, 'b', 2, 'c', 3] ) );
- Result := nil;
- end;
-end;
-
-/////////////////////////////////////////////////
-
-
-procedure TForm1.Button1Click(Sender: TObject);
-var
- DelphiPoint : TPyPoint;
- p : PPyObject;
-begin
- // Here's how you can create/read Python vars from Delphi with
- // Delphi/Python objects.
-
- // You should ask to the TPythonType to create an instance of its type
- // because it will do some initialization. You can use CreateInstanceWith
- // if you want to transmit some Python arguments.
- // We receive a Python object pointer
- p := PythonType1.CreateInstance;
- // Then we cast the python object to the right delphi type
- DelphiPoint := TPyPoint( PythonToDelphi(p) );
- // We do some changes on the delphi object
- DelphiPoint.X:=10;
- DelphiPoint.Y:=20;
- // Add variable "myPoint" in the module "spam".
- // So you'll access to the var in the module called spam with:
- // import spam
- // print spam.myPoint
- PythonModule1.SetVar( 'myPoint', p );
- PythonEngine1.Py_DecRef(p);
- {
- Of course, if you want to retrieve a Python var from a module,
- just use the PythonModule1.GetVar or PythonModule1.GetVarAsVariant
- Example:
- p := PythonModule1.GetVar('myPoint');
- if Assigned(p) then
- begin
- DelphiPoint := PythonToDelphi(p) as TPyPoint;
- ...
- Py_XDecRef(p);
- end;
-
- end; }
- // Excecute the script
- PythonEngine1.ExecStrings( memo1.Lines );
- // Add the following line at the end of the script:
- // print spam.myPoint
-
- // Note, that you must not free the delphi point yourself.
- // Instead use the GetPythonEngine.Py_XDECREF(obj) method,
- // because the object may be used by another Python object.
-end;
-
-end.
diff --git a/Demos/Demo09/Project1.conf b/Demos/Demo09/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo09/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo09/Project1.dpr b/Demos/Demo09/Project1.dpr
deleted file mode 100644
index a5cbb5e..0000000
--- a/Demos/Demo09/Project1.dpr
+++ /dev/null
@@ -1,23 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo09/Project1.dproj b/Demos/Demo09/Project1.dproj
deleted file mode 100644
index 9b7f97a..0000000
--- a/Demos/Demo09/Project1.dproj
+++ /dev/null
@@ -1,100 +0,0 @@
-
-
- {A9EE3C80-927A-458F-83F8-5388BD57BAF3}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo09/Project1.kof b/Demos/Demo09/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo09/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo09/Project1.res b/Demos/Demo09/Project1.res
deleted file mode 100644
index f928fd9..0000000
Binary files a/Demos/Demo09/Project1.res and /dev/null differ
diff --git a/Demos/Demo09/Unit1.dfm b/Demos/Demo09/Unit1.dfm
deleted file mode 100644
index 00fdb70..0000000
--- a/Demos/Demo09/Unit1.dfm
+++ /dev/null
@@ -1,87 +0,0 @@
-object Form1: TForm1
- Left = 204
- Top = 124
- Width = 544
- Height = 375
- VertScrollBar.Range = 170
- ActiveControl = Button1
- Caption = 'Form1'
- Color = clWindow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- OldCreateOrder = True
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter1: TSplitter
- Left = 0
- Top = 129
- Width = 528
- Height = 3
- Cursor = crVSplit
- Align = alTop
- ExplicitWidth = 536
- end
- object Memo1: TMemo
- Left = 0
- Top = 132
- Width = 528
- Height = 164
- Align = alClient
- Lines.Strings = (
- 'import sys'
- 'print (sys.version_info)'
- 'import demodll'
- 'print (dir(demodll))'
- 'print (demodll.add( 2, 2 ))')
- TabOrder = 1
- end
- object Panel1: TPanel
- Left = 0
- Top = 296
- Width = 528
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- ParentBackground = False
- TabOrder = 0
- object Button1: TButton
- Left = 8
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Execute'
- TabOrder = 0
- OnClick = Button1Click
- end
- end
- object Memo2: TMemo
- Left = 0
- Top = 0
- Width = 528
- Height = 129
- Align = alTop
- Lines.Strings = (
- '')
- TabOrder = 2
- end
- object PythonEngine1: TPythonEngine
- DllName = 'python32.dll'
- APIVersion = 1013
- RegVersion = '3.2'
- UseLastKnownVersion = False
- IO = PythonGUIInputOutput1
- Left = 16
- Top = 16
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- UnicodeIO = True
- RawOutput = False
- Output = Memo2
- Left = 56
- Top = 16
- end
-end
diff --git a/Demos/Demo09/Unit1.pas b/Demos/Demo09/Unit1.pas
deleted file mode 100644
index 32cdace..0000000
--- a/Demos/Demo09/Unit1.pas
+++ /dev/null
@@ -1,47 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, ComCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- Splitter1: TSplitter;
- Memo1: TMemo;
- PythonEngine1: TPythonEngine;
- Panel1: TPanel;
- Button1: TButton;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( memo1.Lines );
-end;
-
-
-end.
diff --git a/Demos/Demo09/demodll.conf b/Demos/Demo09/demodll.conf
deleted file mode 100644
index bb7b125..0000000
--- a/Demos/Demo09/demodll.conf
+++ /dev/null
@@ -1,34 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--vn
--vr
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo09/demodll.dpr b/Demos/Demo09/demodll.dpr
deleted file mode 100644
index 9cbcfd7..0000000
--- a/Demos/Demo09/demodll.dpr
+++ /dev/null
@@ -1,25 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-library demodll;
-
-{$I Definition.Inc}
-
-uses
- SysUtils,
- Classes,
- module in 'module.pas';
-
-exports
- initdemodll,
- PyInit_demodll;
-{$IFDEF MSWINDOWS}
-{$E pyd}
-{$ENDIF}
-{$IFDEF LINUX}
-{$SONAME 'demodll'}
-
-{$ENDIF}
-
-begin
-end.
diff --git a/Demos/Demo09/demodll.dproj b/Demos/Demo09/demodll.dproj
deleted file mode 100644
index 9912da8..0000000
--- a/Demos/Demo09/demodll.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {FFF278A4-CBAE-4C3F-B542-8C88A2EFDA53}
- demodll.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- demodll.pyd
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- true
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- demodll.dpr
-
-
- False
- True
- False
- C:\Delphi\progs32\Python\P4D\PythonForDelphi\Demos\Demo09\Project1.exe
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo09/demodll.kof b/Demos/Demo09/demodll.kof
deleted file mode 100644
index 44affd6..0000000
--- a/Demos/Demo09/demodll.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=1
-RemoteSymbols=1
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=baseclx:visualclx:visualdbclx:dataclx:netdataclx:netclx:indy:Python_kylix
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo09/module.pas b/Demos/Demo09/module.pas
deleted file mode 100644
index db607c5..0000000
--- a/Demos/Demo09/module.pas
+++ /dev/null
@@ -1,74 +0,0 @@
-unit module;
-
-interface
-uses PythonEngine;
-
-// for python 2.x
-procedure initdemodll; cdecl;
-// for python 3.x
-function PyInit_demodll : PPyObject; cdecl;
-
-var
- gEngine : TPythonEngine;
- gModule : TPythonModule;
-
-implementation
-
-function Add( Self, Args : PPyObject ) : PPyObject; far; cdecl;
-var
- a, b : Integer;
-begin
- with GetPythonEngine do
- begin
- if PyArg_ParseTuple( args, 'ii:Add',@a, @b ) <> 0 then
- begin
- Result := PyInt_FromLong( a + b );
- end
- else
- Result := nil;
- end;
-end;
-
-procedure initdemodll;
-begin
- try
- gEngine := TPythonEngine.Create(nil);
- gEngine.AutoFinalize := False;
- gEngine.LoadDll;
- gModule := TPythonModule.Create(nil);
- gModule.Engine := gEngine;
- gModule.ModuleName := 'demodll';
- gModule.AddMethod( 'add', @Add, 'add(a,b) -> a+b' );
- gModule.Initialize;
- except
- end;
-end;
-
-function PyInit_demodll : PPyObject;
-begin
- Result := nil;
- try
- gEngine := TPythonEngine.Create(nil);
- gEngine.AutoFinalize := False;
- gEngine.UseLastKnownVersion := False;
- gEngine.RegVersion := '3.2'; //<-- Use the same version as the python 3.x your main program uses
- gEngine.APIVersion := 1013;
- gEngine.DllName := 'python32.dll';
- gEngine.LoadDll;
- gModule := TPythonModule.Create(nil);
- gModule.Engine := gEngine;
- gModule.ModuleName := 'demodll';
- gModule.AddMethod( 'add', @Add, 'add(a,b) -> a+b' );
- gModule.Initialize;
- Result := gModule.Module;
- except
- end;
-end;
-
-initialization
-finalization
- gEngine.Free;
- gModule.Free;
-end.
-
-
diff --git a/Demos/Demo10/Demo10.dpr b/Demos/Demo10/Demo10.dpr
deleted file mode 100644
index 642afff..0000000
--- a/Demos/Demo10/Demo10.dpr
+++ /dev/null
@@ -1,15 +0,0 @@
-program Demo10;
-
-uses
- Forms,
- fmMain in 'fmMain.pas' {Main},
- pyDBTables in 'pyDBTables.pas',
- pyDB in 'pyDB.pas';
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TMain, Main);
- Application.Run;
-end.
diff --git a/Demos/Demo10/Demo10.dproj b/Demos/Demo10/Demo10.dproj
deleted file mode 100644
index 2c5dab1..0000000
--- a/Demos/Demo10/Demo10.dproj
+++ /dev/null
@@ -1,107 +0,0 @@
-
-
- {1D701B96-D47C-4AD0-BE2E-830C95586BC9}
- Demo10.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Demo10.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Demo10.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1032
- 1253
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- Microsoft Office 2000 Sample Automation Server Wrapper Components
- Microsoft Office XP Sample Automation Server Wrapper Components
-
-
-
- 12
-
-
diff --git a/Demos/Demo10/Demo10.res b/Demos/Demo10/Demo10.res
deleted file mode 100644
index cfdbb79..0000000
Binary files a/Demos/Demo10/Demo10.res and /dev/null differ
diff --git a/Demos/Demo10/Example1.py b/Demos/Demo10/Example1.py
deleted file mode 100644
index da916cd..0000000
--- a/Demos/Demo10/Example1.py
+++ /dev/null
@@ -1,66 +0,0 @@
-import DBTables
-True = 1
-False = 0
-
-# Create and open the table
-T = DBTables.CreateTTable()
-T.DatabaseName = "DBDemos"
-T.TableName = "customer.db"
-T.Active = True #or use T.Open()
-
-# Display columns
-print "Columns: ", T.FieldNamesAsTuple()
-
-LastInvoiceDate = T.FieldByName("LastInvoiceDate")
-
-# For each record of the table
-T.First()
-while not T.EOF:
- # Get all the fields in a list
- A = []
- for i in xrange( T.FieldCount ):
- A.append( T.Fields(i).Value )
- # Print the current record number and the list
- print "Rec.", T.RecNo, ":", A
- # Edit record
- T.Edit()
- T.FieldByName("TaxRate").Value = 2.5
- # Increments date by one day
- D = LastInvoiceDate.Value
- if D[2] < 28:
- D2 = D[:2]+(D[2]+1,)+D[3:] # this is tuple arithmetic !
- else:
- D2 = D[:2]+(1,)+D[3:] # this is tuple arithmetic !
- LastInvoiceDate.Value = D2
- T.Post()
- # Get next record
- T.Next()
-
-# Print some fields by their names
-F = T.FieldByName("Company")
-print F, F.FieldName, "=", F.Value
-
-# Use the TFields and print the list of companies
-T.First()
-while not T.EOF:
- print F.AsString
- T.Next()
-
-# Print the fields as a dictionary
-D = T.FieldsAsDict()
-print D
-print D["Company"]
-
-T.Close()
-T.TableName = "Dummy.db"
-try:
- T.Open()
-except DBTables.DBError:
- print "could not open table ", T.TableName
-
-#delete fields
-del F
-del LastInvoiceDate
-
-# delete the table
-del T
diff --git a/Demos/Demo10/Example2.py b/Demos/Demo10/Example2.py
deleted file mode 100644
index 6aad1ce..0000000
--- a/Demos/Demo10/Example2.py
+++ /dev/null
@@ -1,87 +0,0 @@
-import DBTables
-True = 1
-False = 0
-
-# Get the TTable object associated to
-# the delphi table displayed on right
-# It is done when you click on Execute
-T = DBTables.T
-
-# Display columns
-print "Columns: "
-for i in T.FieldNamesAsTuple():
- print " ", i
-
-T.CancelRange()
-# For each record of the table
-for i in T:
- print "Rec.", T.RecNo, ":", i
-
-# Print some fields by their names
-print T.FieldByName("Company")
-
-# check state
-if not T.State in [DBTables.dsEdit, DBTables.dsInsert]:
- print "Table is not edited"
-
-# access the table like an array
-print T[10] # Row 11
-print T[10] [1] # second field of row 11
-
-# locate a record
-if T.Locate( "City;State", ["Largo","FL"], [] ):
- print "Found rec:", T.RecNo
-if T.Locate( "Company", "BLUE SPORTS", [DBTables.loCaseInsensitive] ):
- print "Found rec:", T.RecNo
-if T.Locate( "Company", "ISLAND", [DBTables.loCaseInsensitive, DBTables.loPartialKey] ):
- print "Found rec:", T.RecNo
-
-# lookup a record
-print T.Lookup( "City;State", ["Largo","FL"], "CustNo;Company" )
-
-# define a range
-print "-----------------------------------------------------------"
-print "Indexes:", T.GetIndexNames()
-T.IndexName = "ByCompany"
-T.SetRange( ["Unisco"], ["Unisco"] )
-for i in T:
- print "Rec.", T.RecNo, ":", i
-T.CancelRange()
-
-print "-----------------------------------------------------------"
-# Find a record
-if T.FindKey( ['Unisco'] ):
- print "Unisco found !"
-else:
- print "Could not find Unisco !"
-
-# Find the nearest record
-T.FindNearest( ['Ocean'] )
-print "Find nearest Ocean :", T.FieldsAsTuple()
-
-# Print all doc strings of an instance's methods
-def PrintDocOf( inst ):
- print "--------------------- Type ", type(inst).__name__, "---------------------"
- if type(inst).__doc__:
- print type(inst).__doc__
- print "Methods:"
- for i in inst.__methods__:
- doc = getattr(inst, i).__doc__
- if doc:
- print " ", doc
- print
- print "Properties:"
- for i in inst.__properties__:
- print " ", i
-print "-----------------------------------------------------------"
-print "Documentation:"
-print
-print "Module DBTables:"
-print DBTables.__doc__
-PrintDocOf(T)
-print "-----------------------------------------------------------"
-print "Property values of", T
-for i in T.__members__: # or T.__properties__
- print i, "=", getattr(T, i)
-
-
diff --git a/Demos/Demo10/Example3.py b/Demos/Demo10/Example3.py
deleted file mode 100644
index 6705964..0000000
--- a/Demos/Demo10/Example3.py
+++ /dev/null
@@ -1,38 +0,0 @@
-import DBTables
-True = 1
-False = 0
-
-# Get the TTable object created by Delphi
-# and connected to a Delphi Datasource
-# It is done when you click on Execute
-T = DBTables.T
-# Select and open a table
-T.DatabaseName = "DBDemos"
-T.TableName = "customer.db"
-T.Open()
-
-# Display columns
-print "Columns: "
-for i in T.FieldNamesAsTuple():
- print " ", i
-
-# For each record of the table
-T.First()
-while not T.EOF:
- # Get all the fields in a tuple
- A = T.FieldsAsTuple()
- # Print the current record number and the tuple
- print "Rec.", T.RecNo, ":", A
- # Get next record
- T.Next()
-
-# Print some fields by their names
-print T.FieldByName("Company")
-
-# check state
-if not T.State in [DBTables.dsEdit, DBTables.dsInsert]:
- print "Table is not edited"
-
-# clean up
-del T
-del DBTables.T
diff --git a/Demos/Demo10/Example4.py b/Demos/Demo10/Example4.py
deleted file mode 100644
index 00ca6f9..0000000
--- a/Demos/Demo10/Example4.py
+++ /dev/null
@@ -1,39 +0,0 @@
-import DBTables
-True = 1
-False = 0
-
-# Create and open the table
-T = DBTables.CreateTQuery()
-T.DatabaseName = "DBDemos"
-T.SQL = [
- "SELECT *",
- " FROM customer.db"
- ]
-T.Open()
-
-# Display columns
-print "Columns: ", T.FieldNamesAsTuple()
-
-# For each record of the table
-T.First()
-while not T.EOF:
- # Get all the fields in a list
- A = []
- for i in xrange( T.FieldCount ):
- A.append( T.Fields(i).AsString )
- # Print the current record number and the list
- print "Rec.", T.RecNo, ":", A
- # Get next record
- T.Next()
-
-# Print some fields by their names
-print T.FieldByName("Company")
-
-# Print the fields as a dictionary
-D = T.FieldsAsDict()
-print D
-print D["Company"]
-
-# delete the table
-del T
-
diff --git a/Demos/Demo10/Example5.py b/Demos/Demo10/Example5.py
deleted file mode 100644
index d35af83..0000000
--- a/Demos/Demo10/Example5.py
+++ /dev/null
@@ -1,112 +0,0 @@
-import DBTables
-import pyio
-
-True = 1
-False = 0
-
-# Misc
-def DisplayTypesStats(*args):
- for i in apply(pyio.GetTypesStats, args): # Requested types
- #for i in pyio.GetTypesStats('TTable', 'TField'): # Only the types TTable and TField
- print "--------------------------------------------------------------------------------"
- print "TYPE ", i[0]
- print " Instance count :", i[1]
- print " Create Hits :", i[2]
- print " Delete Hits :", i[3]
- print "--------------------------------------------------------------------------------"
-
-# Event functions
-
-def AfterScroll(Dataset):
- print "---------> Scrolled to rec #"+str(Dataset.RecNo)+" <--------------"
-
-# Event methods
-
-# WARNING :
-# ---------
-# if you store the TTable in your C instance, and if you use events,
-# you must be aware of the reference counting mechanism, and its
-# failure on circular references:
-# c = C(): c refcount = 1
-# c.T = CreateTTable(): c.T refcount = 1
-# c.T.OnAfterOpen = c.OnAfterOpen: c refcount = 2
-# del c: c refcount = 1 and you loose any reference on your c instance
-# which still contains a TTable.
-# so if you want to avoid the leaking, then you must clear the events
-# before you delete the instance:
-# c.T.OnAfterOpen = None: c refcount = 1
-# del c: c refcount = 0 -> c is deleted
-#
-# Try to use try..finally constructs, in order to avoid
-# the leaking if an exception is raised before you can free the
-# resources.
-#
-# Don't forget to close the TTable, if you want to get the Before/After
-# close events, because when destroying a TTable, we first clear all
-# events. But that's the case with the Delphi behaviour too.
-
-class C:
- def __init__(Self):
- # Create and open the table
- Self.T = DBTables.CreateTTable()
- Self.T.DatabaseName = "DBDemos"
- Self.T.TableName = "customer.db"
- Self.T.AfterScroll = AfterScroll # a global function
- Self.T.BeforeOpen = Self.BeforeOpen # a method of the c instance of class C
- Self.T.AfterOpen = Self.AfterOpen # a method of the c instance of class C
- Self.T.BeforeClose = Self.BeforeClose # a method of the c instance of class C
- Self.T.AfterClose = Self.AfterClose # a method of the c instance of class C
- Self.T.OnFilterRecord = Self.OnFilterRecord # a method of the c instance of class C
- Self.T.Filtered = True
- Self.T.Open()
-
- def __del__(Self):
- print "c instance deleted"
-
- def Free(Self):
- Self.T.Close()
- del Self.T
-
- def BeforeOpen(Self, Dataset):
- Self.Name = Dataset.DatabaseName + ":" + Dataset.TableName
- print "Before Open of ", Self.Name
-
- def AfterOpen(Self, Dataset):
- print "After Open of ", Self.Name
-
- def BeforeClose(Self, Dataset):
- print "Before close of ", Self.Name
-
- def AfterClose(Self, Dataset):
- print "After Close of ", Self.Name
-
- def OnFilterRecord(Self, Dataset, Accept):
- # Accept is var argument in Delphi, but in Python you can't
- # change a function's argument. So we use a special object
- # TVarArg which contains a single property : Value
- Accept.Value = Dataset.FieldByName("Company").AsString > "E"
- if not Accept.Value:
- print "$$$$$ Rejected record:", Dataset.FieldsAsTuple()
-
-DisplayTypesStats()
-c = C()
-DisplayTypesStats()
-
-# don't use a "for i in c.T" expression with a filtered table,
-# because the BDE will filter the whole table for each movement,
-# in order to get the RecordCount.
-
-try:
- c.T.First()
- while not c.T.EOF:
- print c.T.FieldsAsTuple()
- c.T.Next()
-
-finally:
- c.Free()
- del c
-
-DisplayTypesStats()
-#DisplayTypesStats('TField', 'TTable')
-
-
diff --git a/Demos/Demo10/Example6.py b/Demos/Demo10/Example6.py
deleted file mode 100644
index 44b3901..0000000
--- a/Demos/Demo10/Example6.py
+++ /dev/null
@@ -1,90 +0,0 @@
-import DBTables
-True = 1
-False = 0
-
-# Here's how you can use a Proxy class
-# in order to inherit from any Python object
-# like our TTable or TQuery !
-
-class Proxy:
- def __init__(Self, Object):
- Self.__object__ = Object
-
- def __getattr__(Self, Key):
- return getattr(Self.__dict__['__object__'], Key)
-
- def __setattr__(Self, Key, Value):
- if Key == "__object__":
- Self.__dict__[Key] = Value
- elif hasattr(Self.__object__, Key):
- return setattr(Self.__object__, Key, Value)
- else:
- Self.__dict__[Key] = Value
-
- def __len__(Self):
- return len(Self.__object__)
-
- def __getitem__(Self, Item):
- return Self.__object__[Item]
-
-class TMyQuery(Proxy):
- def __init__(Self):
- Proxy.__init__(Self, DBTables.CreateTQuery() )
-
-class TMySubQuery(TMyQuery):
- def First(Self):
- print "First requested on Query"
- Self.__object__.First()
-
-
-# Create and open the table
-T = TMySubQuery()
-T.DatabaseName = "DBDemos"
-T.SQL = [
- "SELECT *",
- " FROM customer.db"
- ]
-T.Open()
-
-# Display columns
-print "Columns: ", T.FieldNamesAsTuple()
-
-# Test of method override
-T.Last()
-print "RecNo =", T.RecNo
-T.First()
-print "RecNo =", T.RecNo
-
-# For each record of the table
-T.First()
-while not T.EOF:
- # Get all the fields in a list
- A = []
- for i in xrange( T.FieldCount ):
- A.append( T.Fields(i).AsString )
- # Print the current record number and the list
- print "Rec.", T.RecNo, ":", A
- # Get next record
- T.Next()
-
-# Print some fields by their names
-print T.FieldByName("Company")
-
-# Print the fields as a dictionary
-D = T.FieldsAsDict()
-print D["Company"]
-
-# Iterate our class
-print T
-for i in T:
- print i
-
-print T
-
-# Define new instance vars
-T.Test1 = 3
-print T.Test1, T.DatabaseName
-
-# delete the table
-del T
-
diff --git a/Demos/Demo10/fmMain.dfm b/Demos/Demo10/fmMain.dfm
deleted file mode 100644
index d01089b..0000000
Binary files a/Demos/Demo10/fmMain.dfm and /dev/null differ
diff --git a/Demos/Demo10/fmMain.pas b/Demos/Demo10/fmMain.pas
deleted file mode 100644
index ad8930e..0000000
--- a/Demos/Demo10/fmMain.pas
+++ /dev/null
@@ -1,312 +0,0 @@
-unit fmMain;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- ComCtrls, ExtCtrls, StdCtrls, PythonEngine, PythonGUIInputOutput, Db,
- DBTables, Grids, DBGrids;
-
-type
- TMain = class(TForm)
- RichEdit1: TRichEdit;
- PageControl1: TPageControl;
- Splitter1: TSplitter;
- TabSheet1: TTabSheet;
- TabSheet2: TTabSheet;
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo1: TMemo;
- Button1: TButton;
- typeTable: TPythonType;
- modDB: TPythonModule;
- Table1: TTable;
- Memo2: TMemo;
- Panel1: TPanel;
- DBGrid1: TDBGrid;
- Button2: TButton;
- DataSource1: TDataSource;
- TabSheet3: TTabSheet;
- Table1CustNo: TFloatField;
- Table1Company: TStringField;
- Table1Addr1: TStringField;
- Table1Addr2: TStringField;
- Table1City: TStringField;
- Table1State: TStringField;
- Table1Zip: TStringField;
- Table1Country: TStringField;
- Table1Phone: TStringField;
- Table1FAX: TStringField;
- Table1TaxRate: TFloatField;
- Table1Contact: TStringField;
- Table1LastInvoiceDate: TDateTimeField;
- Table1Demo: TStringField;
- Label1: TLabel;
- typeQuery: TPythonType;
- TabSheet4: TTabSheet;
- TabSheet5: TTabSheet;
- Memo4: TMemo;
- Splitter2: TSplitter;
- Panel2: TPanel;
- Button3: TButton;
- Label2: TLabel;
- Splitter3: TSplitter;
- Memo3: TMemo;
- Splitter4: TSplitter;
- Panel3: TPanel;
- Button4: TButton;
- DBGrid2: TDBGrid;
- DataSource2: TDataSource;
- typeField: TPythonType;
- TreeView1: TTreeView;
- TabSheet6: TTabSheet;
- Label3: TLabel;
- Memo5: TMemo;
- Panel4: TPanel;
- Button5: TButton;
- Splitter5: TSplitter;
- typeVarArg: TPythonType;
- TabSheet7: TTabSheet;
- Label4: TLabel;
- Memo6: TMemo;
- Splitter6: TSplitter;
- Panel5: TPanel;
- Button6: TButton;
- procedure Button1Click(Sender: TObject);
- procedure typeTableInitialization(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Table1CalcFields(DataSet: TDataSet);
- procedure typeQueryInitialization(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure typeFieldInitialization(Sender: TObject);
- procedure modDBAfterInitialization(Sender: TObject);
- procedure modDBInitialization(Sender: TObject);
- procedure Button5Click(Sender: TObject);
- procedure typeVarArgInitialization(Sender: TObject);
- procedure Button6Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-var
- Main: TMain;
-
-implementation
-uses pyDB, pyDBTables;
-{$R *.DFM}
-
-procedure TMain.Button1Click(Sender: TObject);
-begin
- with PythonEngine1 do
- ExecStrings( Memo1.Lines );
-end;
-
-procedure TMain.typeTableInitialization(Sender: TObject);
-begin
- with Sender as TPythonType do
- begin
- PyObjectClass := TPyTable;
- end;
-end;
-
-procedure TMain.Button2Click(Sender: TObject);
-var
- tbl : TPyTable;
- obj : PPyObject;
-begin
- // Instantiate a new Python object TPyTable
- obj := typeTable.CreateInstance;
- tbl := PythonToDelphi(obj) as TPyTable;
- // Attach our Delphi table to the Python object
- tbl.SetDataset( Table1, False );
- with GetPythonEngine do
- begin
- // Define a new variable "T" in the DB module
- modDB.SetVar( 'T', obj );
- Py_XDecRef(obj);
- // Excecute the script
- ExecStrings( memo2.Lines );
- end;
-end;
-
-procedure TMain.Table1CalcFields(DataSet: TDataSet);
-begin
- Dataset.FieldByName('Demo').AsString := Dataset.FieldByName('State').AsString + ' - ' +
- Dataset.FieldByName('Zip').AsString;
-end;
-
-procedure TMain.typeQueryInitialization(Sender: TObject);
-begin
- with Sender as TPythonType do
- begin
- PyObjectClass := TPyQuery;
- end;
-end;
-
-procedure TMain.Button3Click(Sender: TObject);
-begin
- with PythonEngine1 do
- ExecStrings( Memo4.Lines );
-end;
-
-procedure TMain.Button4Click(Sender: TObject);
-var
- tbl : TPyTable;
- obj : PPyObject;
-begin
- // Instantiate a new Python object TPyTable
- obj := typeTable.CreateInstance;
- tbl := PythonToDelphi(obj) as TPyTable;
- // connect the Datasource2 to the Python TTable
- Datasource2.Dataset := tbl.Table;
- with GetPythonEngine do
- begin
- // Define a new variable "T" in the DB module
- modDB.SetVar( 'T', obj );
- Py_XDecRef(obj);
- // Excecute the script
- ExecStrings( memo3.Lines );
- end;
-end;
-
-procedure TMain.FormCreate(Sender: TObject);
-begin
- Memo1.Lines.LoadFromFile( 'Example1.py' );
- Memo2.Lines.LoadFromFile( 'Example2.py' );
- Memo3.Lines.LoadFromFile( 'Example3.py' );
- Memo4.Lines.LoadFromFile( 'Example4.py' );
- Memo5.Lines.LoadFromFile( 'Example5.py' );
- Memo6.Lines.LoadFromFile( 'Example6.py' );
- PageControl1.ActivePage := TabSheet1;
-end;
-
-procedure TMain.typeFieldInitialization(Sender: TObject);
-begin
- with Sender as TPythonType do
- begin
- PyObjectClass := TPyField;
- end;
- gFieldType := Sender as TPythonType;
-end;
-
-procedure TMain.modDBAfterInitialization(Sender: TObject);
-begin
- with Sender as TPythonModule do
- begin
- // Values for type TTableType
- SetVarFromVariant( 'ttDefault', 0 );
- SetVarFromVariant( 'ttParadox', 1 );
- SetVarFromVariant( 'ttDBase', 2 );
- SetVarFromVariant( 'ttASCII', 3 );
- // Values for type TDatasetState
- SetVarFromVariant( 'dsInactive', 0 );
- SetVarFromVariant( 'dsBrowse', 1 );
- SetVarFromVariant( 'dsEdit', 2 );
- SetVarFromVariant( 'dsInsert', 3 );
- SetVarFromVariant( 'dsSetKey', 4 );
- SetVarFromVariant( 'dsCalcFields', 5 );
- SetVarFromVariant( 'dsFilter', 6 );
- SetVarFromVariant( 'dsNewValue', 7 );
- SetVarFromVariant( 'dsOldValue', 8 );
- SetVarFromVariant( 'dsCurValue', 9 );
- // Values for type TFieldType
- SetVarFromVariant( 'ftUnknown', 0 );
- SetVarFromVariant( 'ftString', 1 );
- SetVarFromVariant( 'ftSmallint', 2 );
- SetVarFromVariant( 'ftInteger', 3 );
- SetVarFromVariant( 'ftWord', 4 );
- SetVarFromVariant( 'ftBoolean', 5 );
- SetVarFromVariant( 'ftFloat', 6 );
- SetVarFromVariant( 'ftCurrency', 7 );
- SetVarFromVariant( 'ftBCD', 8 );
- SetVarFromVariant( 'ftDate', 9 );
- SetVarFromVariant( 'ftTime', 10 );
- SetVarFromVariant( 'ftDateTime', 11 );
- SetVarFromVariant( 'ftBytes', 12 );
- SetVarFromVariant( 'ftVarBytes', 13 );
- SetVarFromVariant( 'ftAutoInc', 14 );
- SetVarFromVariant( 'ftBlob', 15 );
- SetVarFromVariant( 'ftMemo', 16 );
- SetVarFromVariant( 'ftGraphic', 17 );
- SetVarFromVariant( 'ftFmtMemo', 18 );
- SetVarFromVariant( 'ftParadoxOle', 19 );
- SetVarFromVariant( 'ftDBaseOle', 20 );
- SetVarFromVariant( 'ftTypedBinary', 21 );
- SetVarFromVariant( 'ftCursor', 22 );
- // Values for type TFieldKind
- SetVarFromVariant( 'fkData', 0 );
- SetVarFromVariant( 'fkCalculated', 1 );
- SetVarFromVariant( 'fkLookup', 2 );
- SetVarFromVariant( 'fkInternalCalc', 3 );
- // Values for type TLocateOption
- SetVarFromVariant( 'loCaseInsensitive', 0 );
- SetVarFromVariant( 'loPartialKey', 1 );
- // Values for type TLockType
- SetVarFromVariant( 'ltReadLock', 0 );
- SetVarFromVariant( 'ltWriteLock', 1 );
- // Values for type TIndexOptions
- SetVarFromVariant( 'ixPrimary', 0 );
- SetVarFromVariant( 'ixUnique', 1 );
- SetVarFromVariant( 'ixDescending', 2 );
- SetVarFromVariant( 'ixCaseInsensitive', 3 );
- SetVarFromVariant( 'ixExpression', 4 );
- // Values for type TDataAction
- SetVarFromVariant( 'daFail', 0 );
- SetVarFromVariant( 'daAbort', 1 );
- SetVarFromVariant( 'daRetry', 2 );
- // Values for type TUpdateKind
- SetVarFromVariant( 'ukModify', 0 );
- SetVarFromVariant( 'ukInsert', 1 );
- SetVarFromVariant( 'ukDelete', 2 );
- // Values for type TUpdateAction
- SetVarFromVariant( 'uaFail', 0 );
- SetVarFromVariant( 'uaAbort', 1 );
- SetVarFromVariant( 'uaSkip', 2 );
- SetVarFromVariant( 'uaRetry', 3 );
- SetVarFromVariant( 'uaApplied', 4 );
- end;
-end;
-
-procedure TMain.modDBInitialization(Sender: TObject);
-begin
- with Sender as TPythonModule do
- begin
- with DocString do
- begin
- Add( 'This module contains several Object Types that' );
- Add( 'will let you work with the Borland BDE and access' );
- Add( 'a database.' );
- Add( '' );
- Add( 'CreateTTable() -> creates a TTable instance' );
- Add( 'CreateTQuery() -> creates a TQuery instance' );
- end;
- end;
-end;
-
-procedure TMain.Button5Click(Sender: TObject);
-begin
- with PythonEngine1 do
- ExecStrings( Memo5.Lines );
-end;
-
-procedure TMain.typeVarArgInitialization(Sender: TObject);
-begin
- with Sender as TPythonType do
- begin
- PyObjectClass := TVarArg;
- end;
- gVarArgType := Sender as TPythonType;
-end;
-
-procedure TMain.Button6Click(Sender: TObject);
-begin
- with PythonEngine1 do
- ExecStrings( Memo6.Lines );
-end;
-
-end.
-
diff --git a/Demos/Demo10/pyDB.pas b/Demos/Demo10/pyDB.pas
deleted file mode 100644
index 2b3fff4..0000000
--- a/Demos/Demo10/pyDB.pas
+++ /dev/null
@@ -1,2712 +0,0 @@
-unit pyDB;
-
-interface
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- PythonEngine, StdCtrls, ExtCtrls, ComCtrls, DB;
-type
- TCallBackSplit = record
- method: Pointer;
- self: TObject;
- end;
-
-{*********************************************************************
- * Shared object *
- *********************************************************************}
-
- TSharedObject = class
- protected
- FRefCount : Integer;
- FData : TObject;
- FOwner : Boolean;
-
- procedure DoDecRef;
- procedure SetData( value : TObject );
-
- public
- constructor Create;
- constructor CreateWith( value : TObject; isOwner : Boolean );
- destructor Destroy; override;
-
- procedure IncRef;
- procedure DecRef;
- procedure FreeData;
-
- property Data : TObject read FData write SetData;
- property Owner : Boolean read FOwner write FOwner;
- end;
-
- {*********************************************************************
- * Interface of TCommon *
- *********************************************************************}
-
- TCommon = class(TPyObject)
- function GetProperties : PPyObject;
- procedure AppendProperties( List : PPyObject ); virtual;
- procedure AppendProp( List : PPyObject; const prop : String );
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- procedure RaiseDBError( E : Exception );
- function EventBelongsToObject( Event : TCallbackSplit ) : Boolean;
- end;
-
- {*********************************************************************
- * Interface of TField *
- *********************************************************************}
- // This is a Delphi class implementing a new Python type
- // it must derive from TPyObject or one of its descendants.
- // Then it must override some methods, like the constructors,
- // the RegisterMethods and the type services' virtual methods.
- TPyField = class(TCommon)
- FSharedObject : TSharedObject;
- FField : TField;
- FOnChange : PPyObject;
- FOnGetText : PPyObject;
- FOnSetText : PPyObject;
- FOnValidate : PPyObject;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyField
- function CheckDataset : Boolean;
- function CheckField : Boolean;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- function DoClear( args : PPyObject ) : PPyObject; cdecl;
- function DoFocusControl( args : PPyObject ) : PPyObject; cdecl;
- function DoIsValidChar( args : PPyObject ) : PPyObject; cdecl;
- function DoRefreshLookupList( args : PPyObject ) : PPyObject; cdecl;
-
- // Events
- ////////////////
- procedure OnChange( Sender : TField );
- procedure OnGetText( Sender: TField; var Text: String; DisplayText: Boolean );
- procedure OnSetText( Sender : TField; const Text: String );
- procedure OnValidate( Sender : TField );
- end;
-
-{*********************************************************************
- * Interface of TDataset *
- *********************************************************************}
-
-
- // This is a Delphi class implementing a new Python type
- // it must derive from TPyObject or one of its descendants.
- // Then it must override some methods, like the constructors,
- // the RegisterMethods and the type services' virtual methods.
- TPyDataset = class(TCommon)
- FSharedObject : TSharedObject;
- // Python functions or methods for each event
- FAfterClose : PPyObject;
- FAfterOpen : PPyObject;
- FAfterScroll : PPyObject;
- FBeforeClose : PPyObject;
- FBeforeOpen : PPyObject;
- FBeforeScroll : PPyObject;
- FAfterCancel : PPyObject;
- FAfterDelete : PPyObject;
- FAfterEdit : PPyObject;
- FAfterInsert : PPyObject;
- FAfterPost : PPyObject;
- FBeforeCancel : PPyObject;
- FBeforeDelete : PPyObject;
- FBeforeEdit : PPyObject;
- FBeforeInsert : PPyObject;
- FBeforePost : PPyObject;
- FOnCalcFields : PPyObject;
- FOnDeleteError : PPyObject;
- FOnEditError : PPyObject;
- FOnFilterRecord : PPyObject;
- FOnNewRecord : PPyObject;
- FOnPostError : PPyObject;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- // Sequence services
- function SqLength : Integer; override;
- function SqItem( idx : Integer ) : PPyObject; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyDataset
- function CheckDataset : Boolean;
- function Dataset : TDataset;
- procedure SetDataset( val : TDataset; owner : Boolean );
- function FieldNamesAsTuple : PPyObject;
- function FieldsAsTuple : PPyObject;
- function FieldsAsDict : PPyObject;
- function Locate( const keyFields : String; keyValues, options : PPyObject ) : PPyObject;
- function Lookup( const keyFields : String; keyValues : PPyObject; const resultFields : String ) : PPyObject;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- function DoOpen( args : PPyObject ) : PPyObject; cdecl;
- function DoClose( args : PPyObject ) : PPyObject; cdecl;
- function DoFirst( args : PPyObject ) : PPyObject; cdecl;
- function DoLast( args : PPyObject ) : PPyObject; cdecl;
- function DoNext( args : PPyObject ) : PPyObject; cdecl;
- function DoPrior( args : PPyObject ) : PPyObject; cdecl;
- function DoEdit( args : PPyObject ) : PPyObject; cdecl;
- function DoInsert( args : PPyObject ) : PPyObject; cdecl;
- function DoAppend( args : PPyObject ) : PPyObject; cdecl;
- function DoPost( args : PPyObject ) : PPyObject; cdecl;
- function DoCancel( args : PPyObject ) : PPyObject; cdecl;
- function DoDisableControls( args : PPyObject ) : PPyObject; cdecl;
- function DoEnableControls( args : PPyObject ) : PPyObject; cdecl;
- function DoLocate( args : PPyObject ) : PPyObject; cdecl;
- function DoLookup( args : PPyObject ) : PPyObject; cdecl;
- function DoMoveBy( args : PPyObject ) : PPyObject; cdecl;
- function DoRefresh( args : PPyObject ) : PPyObject; cdecl;
- function DoFields( args : PPyObject ) : PPyObject; cdecl;
- function DoFieldByName( args : PPyObject ) : PPyObject; cdecl;
- function DoFindField( args : PPyObject ) : PPyObject; cdecl;
- function DoFieldNamesAsTuple( args : PPyObject ) : PPyObject; cdecl;
- function DoFieldsAsTuple( args : PPyObject ) : PPyObject; cdecl;
- function DoFieldsAsDict( args : PPyObject ) : PPyObject; cdecl;
-
- // Events
- ////////////////
- procedure AfterClose( Dataset : TDataset );
- procedure AfterOpen( Dataset : TDataset );
- procedure AfterScroll( Dataset : TDataset );
- procedure BeforeClose( Dataset : TDataset );
- procedure BeforeOpen( Dataset : TDataset );
- procedure BeforeScroll( Dataset : TDataset );
- procedure AfterCancel ( Dataset : TDataset );
- procedure AfterDelete ( Dataset : TDataset );
- procedure AfterEdit ( Dataset : TDataset );
- procedure AfterInsert ( Dataset : TDataset );
- procedure AfterPost ( Dataset : TDataset );
- procedure BeforeCancel ( Dataset : TDataset );
- procedure BeforeDelete ( Dataset : TDataset );
- procedure BeforeEdit ( Dataset : TDataset );
- procedure BeforeInsert ( Dataset : TDataset );
- procedure BeforePost ( Dataset : TDataset );
- procedure OnCalcFields ( Dataset : TDataset );
- procedure OnDeleteError ( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
- procedure OnEditError ( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
- procedure OnFilterRecord ( Dataset : TDataset; var Accept : Boolean );
- procedure OnNewRecord ( Dataset : TDataset );
- procedure OnPostError ( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
- end;
-
- {*********************************************************************
- * Interface of TVarArg *
- *********************************************************************}
-
- TVarArg = class(TPyObject)
- FValue : PPyObject;
-
- // Constructors & Destructors
- constructor CreateWith( APythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
- end;
-
- {*********************************************************************
- * Global functions *
- *********************************************************************}
- procedure Initialize( Owner : TEngineClient );
- procedure SetEvent( var EventSlot : PPyObject; Event : PPyObject; const EventName, ClassName : String );
- function SetDatasetEvent( EventSlot : PPyObject; dsEvent : TDataSetNotifyEvent ) : TDataSetNotifyEvent;
- function SetDatasetErrorEvent( EventSlot : PPyObject; dsEvent : TDataSetErrorEvent ) : TDataSetErrorEvent;
- procedure ClearEvent( var EventSlot : PPyObject );
- function ReturnEvent( Event : PPyObject ) : PPyObject;
- procedure ExecuteEvent( Event : PPyObject; Args : array of Const );
-
- {********************************************************************
- * Global variables *
- *********************************************************************}
-var
- gFieldType : TPythonType;
- gVarArgType : TPythonType;
-
-implementation
-
-{*********************************************************************
- * Shared object *
- *********************************************************************}
-
-procedure TSharedObject.DoDecRef;
-begin
- if FRefCount > 0 then
- Dec(FRefCount);
- if (FRefCount = 0) then
- FreeData;
-end;
-
-procedure TSharedObject.SetData( value : TObject );
-begin
- DoDecRef;
- FRefCount := 0;
- FData := value;
- IncRef;
-end;
-
-constructor TSharedObject.Create;
-begin
- inherited;
- Owner := True;
-end;
-
-constructor TSharedObject.CreateWith( value : TObject; isOwner : Boolean );
-begin
- inherited;
- Data := value;
- Owner := isOwner;
-end;
-
-destructor TSharedObject.Destroy;
-begin
- FreeData;
- inherited;
-end;
-
-procedure TSharedObject.IncRef;
-begin
- Inc(FRefCount);
-end;
-
-procedure TSharedObject.DecRef;
-begin
- if not Assigned(Self) then
- Exit;
- DoDecRef;
- if (FRefCount = 0) then
- Free;
-end;
-
-procedure TSharedObject.FreeData;
-begin
- if Owner and Assigned(FData) then
- FData.Free;
- FData := nil;
-end;
-
-{*********************************************************************
- * TCommon *
- *********************************************************************}
-
-function TCommon.GetProperties : PPyObject;
-begin
- with GetPythonEngine do
- begin
- Result := PyList_New(0);
- AppendProperties( Result );
- PyList_Sort(Result);
- end;
-end;
-
-procedure TCommon.AppendProperties( List : PPyObject );
-begin
- // Override this method in the subclasses and add your
- // properties to the list
-end;
-
-procedure TCommon.AppendProp( List : PPyObject; const prop : String );
-var
- obj : PPyObject;
-begin
- with GetPythonEngine do
- begin
- obj := PyString_FromString(PAnsiChar(prop));
- PyList_Append( List, obj );
- Py_XDecRef(obj);
- end;
-end;
-
-function TCommon.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- try
- if (CompareText( key, '__properties__' ) = 0) or
- (CompareText( key, '__members__' ) = 0) then
- Result := GetProperties
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
-end;
-
-procedure TCommon.RaiseDBError( E : Exception );
-begin
- if GetModule <> nil then
- GetModule.RaiseError( 'DBError', E.Message );
-end;
-
-function TCommon.EventBelongsToObject( Event : TCallbackSplit ) : Boolean;
-begin
- Result := Event.Self = Self;
-end;
-
-{*********************************************************************
- * TField *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyField.Create( APythonType : TPythonType );
-begin
- inherited;
-end;
-
-// Don't call the Create constructor of TPyField, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyDataset.Create will be automatically be called.
-
-constructor TPyField.CreateWith( PythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- //if PyArg_ParseTuple( args, 'ii:CreateTDataset',@x, @y ) = 0 then
- // exit;
- end;
-end;
-
-destructor TPyField.Destroy;
-begin
- if Assigned(FField) then
- begin
- if EventBelongsToObject( TCallbackSplit(FField.OnChange) ) then
- FField.OnChange := nil;
- if EventBelongsToObject( TCallbackSplit(FField.OnGetText) ) then
- FField.OnGetText := nil;
- if EventBelongsToObject( TCallbackSplit(FField.OnSetText) ) then
- FField.OnSetText := nil;
- if EventBelongsToObject( TCallbackSplit(FField.OnValidate) ) then
- FField.OnValidate := nil;
- end;
- FSharedObject.DecRef;
- FSharedObject := nil;
- FField := nil;
- ClearEvent( FOnChange );
- ClearEvent( FOnGetText );
- ClearEvent( FOnSetText );
- ClearEvent( FOnValidate );
- inherited;
-end;
-
-// Then we override the needed services
-
-function TPyField.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckField then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( key, 'Alignment' ) = 0 then
- Result := VariantAsPyObject( Integer(FField.Alignment) )
- else if CompareText( key, 'AsBoolean' ) = 0 then
- Result := VariantAsPyObject( FField.AsBoolean )
- else if CompareText( key, 'AsDateTime' ) = 0 then
- Result := VariantAsPyObject( FField.AsDateTime )
- else if CompareText( key, 'AsFloat' ) = 0 then
- Result := VariantAsPyObject( FField.AsFloat )
- else if CompareText( key, 'AsInteger' ) = 0 then
- Result := VariantAsPyObject( FField.AsInteger )
- else if CompareText( key, 'AsString' ) = 0 then
- Result := VariantAsPyObject( FField.AsString )
- else if CompareText( key, 'CanModify' ) = 0 then
- Result := VariantAsPyObject( FField.CanModify )
- else if CompareText( key, 'ConstraintErrorMessage' ) = 0 then
- Result := VariantAsPyObject( FField.ConstraintErrorMessage )
- else if CompareText( key, 'CurValue' ) = 0 then
- Result := VariantAsPyObject( FField.CurValue )
- else if CompareText( key, 'CustomConstraint' ) = 0 then
- Result := VariantAsPyObject( FField.CustomConstraint )
- else if CompareText( key, 'DataSize' ) = 0 then
- Result := VariantAsPyObject( FField.DataSize )
- else if CompareText( key, 'DataType' ) = 0 then
- Result := VariantAsPyObject( FField.DataType )
- else if CompareText( key, 'DefaultExpression' ) = 0 then
- Result := VariantAsPyObject( FField.DefaultExpression )
- else if CompareText( key, 'DisplayLabel' ) = 0 then
- Result := VariantAsPyObject( FField.DisplayLabel )
- else if CompareText( key, 'DisplayName' ) = 0 then
- Result := VariantAsPyObject( FField.DisplayName )
- else if CompareText( key, 'DisplayText' ) = 0 then
- Result := VariantAsPyObject( FField.DisplayText )
- else if CompareText( key, 'DisplayWidth' ) = 0 then
- Result := VariantAsPyObject( FField.DisplayWidth )
- else if CompareText( key, 'EditMask' ) = 0 then
- Result := VariantAsPyObject( FField.EditMask )
- else if CompareText( key, 'FieldKind' ) = 0 then
- Result := VariantAsPyObject( FField.FieldKind )
- else if CompareText( key, 'FieldName' ) = 0 then
- Result := VariantAsPyObject( FField.FieldName)
- else if CompareText( key, 'FieldNo' ) = 0 then
- Result := VariantAsPyObject( FField.FieldNo )
- else if CompareText( key, 'HasConstraints' ) = 0 then
- Result := VariantAsPyObject( FField.HasConstraints )
- else if CompareText( key, 'ImportedConstraint' ) = 0 then
- Result := VariantAsPyObject( FField.ImportedConstraint )
- else if CompareText( key, 'Index' ) = 0 then
- Result := VariantAsPyObject( FField.Index )
- else if CompareText( key, 'IsBlob' ) = 0 then
- Result := VariantAsPyObject( FField.IsBlob)
- else if CompareText( key, 'IsIndexField' ) = 0 then
- Result := VariantAsPyObject( FField.IsIndexField )
- else if CompareText( key, 'IsNull' ) = 0 then
- Result := VariantAsPyObject( FField.IsNull )
- else if CompareText( key, 'KeyFields' ) = 0 then
- Result := VariantAsPyObject( FField.KeyFields )
- else if CompareText( key, 'Lookup' ) = 0 then
- Result := VariantAsPyObject( FField.Lookup )
- else if CompareText( key, 'LookupCache' ) = 0 then
- Result := VariantAsPyObject( FField.LookupCache )
- else if CompareText( key, 'LookupDataset' ) = 0 then
- Result := ReturnNone
- else if CompareText( key, 'LookupKeyFields' ) = 0 then
- Result := VariantAsPyObject( FField.LookupKeyFields )
- else if CompareText( key, 'LookupList' ) = 0 then
- Result := ReturnNone
- else if CompareText( key, 'LookupResultField' ) = 0 then
- Result := VariantAsPyObject( FField.LookupResultField )
- else if CompareText( key, 'NewValue' ) = 0 then
- Result := VariantAsPyObject( FField.NewValue )
- else if CompareText( key, 'Offset' ) = 0 then
- Result := VariantAsPyObject( FField.Offset )
- else if CompareText( key, 'OldValue' ) = 0 then
- Result := VariantAsPyObject( FField.OldValue )
- else if CompareText( key, 'Origin' ) = 0 then
- Result := VariantAsPyObject( FField.Origin )
- else if CompareText( key, 'ReadOnly' ) = 0 then
- Result := VariantAsPyObject( FField.ReadOnly )
- else if CompareText( key, 'Required' ) = 0 then
- Result := VariantAsPyObject( FField.Required )
- else if CompareText( key, 'Size' ) = 0 then
- Result := VariantAsPyObject( FField.Size )
- else if CompareText( key, 'Text' ) = 0 then
- Result := VariantAsPyObject( FField.Text )
- else if CompareText( key, 'ValidChars' ) = 0 then
- Result := ReturnNone
- else if CompareText( key, 'Value' ) = 0 then
- Result := VariantAsPyObject( FField.Value )
- else if CompareText( key, 'Visible' ) = 0 then
- Result := VariantAsPyObject( FField.Visible )
- else if CompareText( key, 'OnChange' ) = 0 then
- Result := ReturnEvent( FOnChange )
- else if CompareText( key, 'OnGetText' ) = 0 then
- Result := ReturnEvent( FOnGetText )
- else if CompareText( key, 'OnSetText' ) = 0 then
- Result := ReturnEvent( FOnSetText )
- else if CompareText( key, 'OnValidate' ) = 0 then
- Result := ReturnEvent( FOnValidate )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyField.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckField then
- Exit;
- try
- if CompareText( key, 'Alignment' ) = 0 then
- begin
- FField.Alignment := TAlignment(PyObjectAsVariant( value ));
- Result := 0;
- end
- else if CompareText( key, 'AsBoolean' ) = 0 then
- begin
- FField.AsBoolean := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'AsDateTime' ) = 0 then
- begin
- FField.AsDateTime := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'AsFloat' ) = 0 then
- begin
- FField.AsFloat := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'AsInteger' ) = 0 then
- begin
- FField.AsInteger := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'AsString' ) = 0 then
- begin
- FField.AsString := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'CanModify' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'ConstraintErrorMessage' ) = 0 then
- begin
- FField.ConstraintErrorMessage := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'CurValue' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'CustomConstraint' ) = 0 then
- begin
- FField.CustomConstraint := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'DataSize' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'DataType' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'DefaultExpression' ) = 0 then
- begin
- FField.DefaultExpression := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'DisplayLabel' ) = 0 then
- begin
- FField.DisplayLabel := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'DisplayName' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'DisplayText' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'DisplayWidth' ) = 0 then
- begin
- FField.DisplayWidth := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'EditMask' ) = 0 then
- begin
- FField.EditMask := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'FieldKind' ) = 0 then
- begin
- FField.FieldKind := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'FieldName' ) = 0 then
- begin
- FField.FieldName:= PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'FieldNo' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'HasConstraints' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'ImportedConstraint' ) = 0 then
- begin
- FField.ImportedConstraint := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Index' ) = 0 then
- begin
- FField.Index := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'IsBlob' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'IsIndexField' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'IsNull' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'KeyFields' ) = 0 then
- begin
- FField.KeyFields := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Lookup' ) = 0 then
- begin
- FField.Lookup := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'LookupCache' ) = 0 then
- begin
- FField.LookupCache := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'LookupDataset' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'LookupKeyFields' ) = 0 then
- begin
- FField.LookupKeyFields := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'LookupList' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'LookupResultField' ) = 0 then
- begin
- FField.LookupResultField := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'NewValue' ) = 0 then
- begin
- FField.NewValue := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Offset' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'OldValue' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'Origin' ) = 0 then
- begin
- FField.Origin := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'ReadOnly' ) = 0 then
- begin
- FField.ReadOnly := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Required' ) = 0 then
- begin
- FField.Required := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Size' ) = 0 then
- begin
- FField.Size := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Text' ) = 0 then
- begin
- FField.Text := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'ValidChars' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'Value' ) = 0 then
- begin
- FField.Value := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Visible' ) = 0 then
- begin
- FField.Visible := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'OnChange' ) = 0 then
- begin
- SetEvent( FOnChange, Value, 'OnChange', 'TField' );
- if Assigned(FOnChange) then
- FField.OnChange := OnChange
- else
- FField.OnChange := nil;
- Result := 0;
- end
- else if CompareText( key, 'OnGetText' ) = 0 then
- begin
- SetEvent( FOnGetText, Value, 'OnGetText', 'TField' );
- if Assigned(FOnGetText) then
- FField.OnGetText := OnGetText
- else
- FField.OnGetText := nil;
- Result := 0;
- end
- else if CompareText( key, 'OnSetText' ) = 0 then
- begin
- SetEvent( FOnSetText, Value, 'OnSetText', 'TField' );
- if Assigned(FOnSetText) then
- FField.OnSetText := OnSetText
- else
- FField.OnSetText := nil;
- Result := 0;
- end
- else if CompareText( key, 'OnValidate' ) = 0 then
- begin
- SetEvent( FOnValidate, Value, 'OnValidate', 'TField' );
- if Assigned(FOnValidate) then
- FField.OnValidate := OnValidate
- else
- FField.OnValidate := nil;
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-function TPyField.Repr : PPyObject;
-begin
- Result := inherited Repr;
-end;
-
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyField.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'Clear', @TPyField.DoClear, 'TField.Clear() -> None' );
- AddMethod( 'FocusControl', @TPyField.DoFocusControl, 'TField.FocusControl() -> None' );
- AddMethod( 'IsValidChar', @TPyField.DoIsValidChar, 'TField.IsValidChar( InputChar : String ) -> True or False' );
- AddMethod( 'RefreshLookupList', @TPyField.DoRefreshLookupList, 'TField.RefreshLookupList() -> None' );
- end;
-end;
-
-// Methods of TPyField
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyField.CheckDataset : Boolean;
-begin
- if (FSharedObject = nil) or (FSharedObject.Data = nil) then
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_RuntimeError^, 'No Dataset defined !');
- end
- else
- Result := True;
-end;
-
-function TPyField.CheckField : Boolean;
-begin
- if not Assigned(FField) then
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_RuntimeError^, 'No field defined !');
- end
- else
- Result := True;
- Result := Result and CheckDataset;
-end;
-
-procedure TPyField.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'Alignment');
- AppendProp( List, 'AsBoolean');
- AppendProp( List, 'AsDateTime');
- AppendProp( List, 'AsFloat');
- AppendProp( List, 'AsInteger');
- AppendProp( List, 'AsString');
- AppendProp( List, 'CanModify');
- AppendProp( List, 'ConstraintErrorMessage');
- AppendProp( List, 'CurValue');
- AppendProp( List, 'CustomConstraint');
- AppendProp( List, 'DataSize');
- AppendProp( List, 'DataType');
- AppendProp( List, 'DefaultExpression');
- AppendProp( List, 'DisplayLabel');
- AppendProp( List, 'DisplayName');
- AppendProp( List, 'DisplayText');
- AppendProp( List, 'DisplayWidth');
- AppendProp( List, 'EditMask');
- AppendProp( List, 'FieldKind');
- AppendProp( List, 'FieldName');
- AppendProp( List, 'FieldNo');
- AppendProp( List, 'HasConstraints');
- AppendProp( List, 'ImportedConstraint');
- AppendProp( List, 'Index');
- AppendProp( List, 'IsBlob');
- AppendProp( List, 'IsIndexField');
- AppendProp( List, 'IsNull');
- AppendProp( List, 'KeyFields');
- AppendProp( List, 'Lookup');
- AppendProp( List, 'LookupCache');
- AppendProp( List, 'LookupDataset');
- AppendProp( List, 'LookupKeyFields');
- AppendProp( List, 'LookupList');
- AppendProp( List, 'LookupResultField');
- AppendProp( List, 'NewValue');
- AppendProp( List, 'Offset');
- AppendProp( List, 'OldValue');
- AppendProp( List, 'Origin');
- AppendProp( List, 'ReadOnly');
- AppendProp( List, 'Required');
- AppendProp( List, 'Size');
- AppendProp( List, 'Text');
- AppendProp( List, 'ValidChars');
- AppendProp( List, 'Value');
- AppendProp( List, 'Visible');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-function TPyField.DoClear( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // Do action
- if CheckField then
- begin
- FField.Clear;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyField.DoFocusControl( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // Do action
- if CheckField then
- begin
- FField.FocusControl;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyField.DoIsValidChar( args : PPyObject ) : PPyObject;
-var
- c : Char;
- s : PAnsiChar;
- str : String;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // Do action
- if CheckField then
- begin
- if PyArg_ParseTuple( args, 's:TField.IsValidChar',@s ) <> 0 then
- begin
- str := s;
- if Length(str) > 0 then
- c := str[1]
- else
- c := #0;
- Result := VariantAsPyObject( FField.IsValidChar( c ) )
- end
- else
- Result := nil;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyField.DoRefreshLookupList( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // Do action
- if CheckField then
- begin
- FField.RefreshLookupList;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-// Events
-////////////////
-procedure TPyField.OnChange( Sender : TField );
-begin
- IncRef;
- ExecuteEvent( FOnChange, [GetSelf] );
-end;
-
-procedure TPyField.OnGetText( Sender: TField; var Text: String; DisplayText: Boolean );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( Text ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnGetText, [GetSelf, v, DisplayText] );
- with PythonToDelphi(v) as TVarArg do
- Text := PyObjectAsVariant(FValue);
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyField.OnSetText( Sender : TField; const Text: String );
-begin
- IncRef;
- ExecuteEvent( FOnSetText, [GetSelf, Text] );
-end;
-
-procedure TPyField.OnValidate( Sender : TField );
-begin
- IncRef;
- ExecuteEvent( FOnValidate, [GetSelf] );
-end;
-
-
-{*********************************************************************
- * Implementation of TDataset *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyDataset.Create( APythonType : TPythonType );
-begin
- inherited;
- FSharedObject := TSharedObject.Create;
- FSharedObject.Owner := True;
-end;
-
-// Don't call the Create constructor of TPyDataset, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyDataset.Create will be automatically be called.
-
-constructor TPyDataset.CreateWith( PythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- //if PyArg_ParseTuple( args, 'ii:CreateTDataset',@x, @y ) = 0 then
- // exit;
- end;
-end;
-
-destructor TPyDataset.Destroy;
-begin
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterClose) ) then
- Dataset.AfterClose := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterOpen) ) then
- Dataset.AfterOpen := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterScroll) ) then
- Dataset.AfterScroll := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeClose) ) then
- Dataset.BeforeClose := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeOpen) ) then
- Dataset.BeforeOpen := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeScroll) ) then
- Dataset.BeforeScroll := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterCancel) ) then
- Dataset.AfterCancel := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterDelete) ) then
- Dataset.AfterDelete := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterEdit) ) then
- Dataset.AfterEdit := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterInsert) ) then
- Dataset.AfterInsert := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.AfterPost) ) then
- Dataset.AfterPost := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeCancel) ) then
- Dataset.BeforeCancel := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeDelete) ) then
- Dataset.BeforeDelete := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeEdit) ) then
- Dataset.BeforeEdit := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforeInsert) ) then
- Dataset.BeforeInsert := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.BeforePost) ) then
- Dataset.BeforePost := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnCalcFields) ) then
- Dataset.OnCalcFields := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnDeleteError) ) then
- Dataset.OnDeleteError := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnEditError) ) then
- Dataset.OnEditError := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnFilterRecord) ) then
- Dataset.OnFilterRecord := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnNewRecord) ) then
- Dataset.OnNewRecord := nil;
- if EventBelongsToObject( TCallbackSplit(Dataset.OnPostError) ) then
- Dataset.OnPostError := nil;
- FSharedObject.FreeData;
- FSharedObject.DecRef;
- FSharedObject := nil;
- ClearEvent( FAfterClose );
- ClearEvent( FAfterOpen );
- ClearEvent( FAfterScroll );
- ClearEvent( FBeforeClose );
- ClearEvent( FBeforeOpen );
- ClearEvent( FBeforeScroll );
- ClearEvent( FAfterCancel );
- ClearEvent( FAfterDelete );
- ClearEvent( FAfterEdit );
- ClearEvent( FAfterInsert );
- ClearEvent( FAfterPost );
- ClearEvent( FBeforeCancel );
- ClearEvent( FBeforeDelete );
- ClearEvent( FBeforeEdit );
- ClearEvent( FBeforeInsert );
- ClearEvent( FBeforePost );
- ClearEvent( FOnCalcFields );
- ClearEvent( FOnDeleteError );
- ClearEvent( FOnEditError );
- ClearEvent( FOnFilterRecord );
- ClearEvent( FOnNewRecord );
- ClearEvent( FOnPostError );
- inherited;
-end;
-
-// Then we override the needed services
-
-function TPyDataset.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( key, 'Active' ) = 0 then
- Result := VariantAsPyObject( Dataset.Active )
- else if CompareText( key, 'BOF' ) = 0 then
- Result := VariantAsPyObject( Dataset.BOF )
- else if CompareText( key, 'CanModify' ) = 0 then
- Result := VariantAsPyObject( Dataset.CanModify )
- else if CompareText( key, 'EOF' ) = 0 then
- Result := VariantAsPyObject( Dataset.EOF )
- else if CompareText( key, 'FieldCount' ) = 0 then
- Result := VariantAsPyObject( Dataset.FieldCount )
- else if CompareText( key, 'Filter' ) = 0 then
- Result := VariantAsPyObject( Dataset.Filter )
- else if CompareText( key, 'Filtered' ) = 0 then
- Result := VariantAsPyObject( Dataset.Filtered )
- else if CompareText( key, 'Found' ) = 0 then
- Result := VariantAsPyObject( Dataset.Found )
- else if CompareText( key, 'Modified' ) = 0 then
- Result := VariantAsPyObject( Dataset.Modified )
- else if CompareText( key, 'RecNo' ) = 0 then
- Result := VariantAsPyObject( Dataset.RecNo )
- else if CompareText( key, 'RecordCount' ) = 0 then
- Result := VariantAsPyObject( Dataset.RecordCount )
- else if CompareText( key, 'RecordSize' ) = 0 then
- Result := VariantAsPyObject( Dataset.RecordSize )
- else if CompareText( key, 'State' ) = 0 then
- Result := VariantAsPyObject( Integer(Dataset.State) )
- else if CompareText( key, 'AfterClose' ) = 0 then
- Result := ReturnEvent( FAfterClose )
- else if CompareText( key, 'AfterOpen' ) = 0 then
- Result := ReturnEvent( FAfterOpen )
- else if CompareText( key, 'AfterScroll' ) = 0 then
- Result := ReturnEvent( FAfterScroll )
- else if CompareText( key, 'BeforeClose' ) = 0 then
- Result := ReturnEvent( FBeforeClose )
- else if CompareText( key, 'BeforeOpen' ) = 0 then
- Result := ReturnEvent( FBeforeOpen )
- else if CompareText( key, 'BeforeScroll' ) = 0 then
- Result := ReturnEvent( FBeforeScroll )
- else if CompareText( key, 'AfterCancel' ) = 0 then
- Result := ReturnEvent( FAfterCancel)
- else if CompareText( key, 'AfterDelete' ) = 0 then
- Result := ReturnEvent( FAfterDelete)
- else if CompareText( key, 'AfterEdit' ) = 0 then
- Result := ReturnEvent( FAfterEdit)
- else if CompareText( key, 'AfterInsert' ) = 0 then
- Result := ReturnEvent( FAfterInsert)
- else if CompareText( key, 'AfterPost' ) = 0 then
- Result := ReturnEvent( FAfterPost)
- else if CompareText( key, 'BeforeCancel' ) = 0 then
- Result := ReturnEvent( FBeforeCancel)
- else if CompareText( key, 'BeforeDelete' ) = 0 then
- Result := ReturnEvent( FBeforeDelete)
- else if CompareText( key, 'BeforeEdit' ) = 0 then
- Result := ReturnEvent( FBeforeEdit)
- else if CompareText( key, 'BeforeInsert' ) = 0 then
- Result := ReturnEvent( FBeforeInsert)
- else if CompareText( key, 'BeforePost' ) = 0 then
- Result := ReturnEvent( FBeforePost)
- else if CompareText( key, 'OnCalcFields' ) = 0 then
- Result := ReturnEvent( FOnCalcFields)
- else if CompareText( key, 'OnDeleteError' ) = 0 then
- Result := ReturnEvent( FOnDeleteError)
- else if CompareText( key, 'OnEditError' ) = 0 then
- Result := ReturnEvent( FOnEditError)
- else if CompareText( key, 'OnFilterRecord' ) = 0 then
- Result := ReturnEvent( FOnFilterRecord)
- else if CompareText( key, 'OnNewRecord' ) = 0 then
- Result := ReturnEvent( FOnNewRecord)
- else if CompareText( key, 'OnPostError' ) = 0 then
- Result := ReturnEvent( FOnPostError)
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( key, 'Active' ) = 0 then
- begin
- Dataset.Active := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'BOF' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'CanModify' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'EOF' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'FieldCount' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'Filter' ) = 0 then
- begin
- Dataset.Filter := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Filtered' ) = 0 then
- begin
- Dataset.Filtered := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Found' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'Modified' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'RecNo' ) = 0 then
- begin
- Dataset.RecNo := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'RecordCount' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'RecordSize' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'State' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'AfterClose' ) = 0 then
- begin
- SetEvent( FAfterClose, Value, 'AfterClose', 'TDataset' );
- Dataset.AfterClose := SetDatasetEvent( FAfterClose, AfterClose );
- Result := 0;
- end
- else if CompareText( key, 'AfterOpen' ) = 0 then
- begin
- SetEvent( FAfterOpen, Value, 'AfterOpen', 'TDataset' );
- Dataset.AfterOpen := SetDatasetEvent( FAfterOpen, AfterOpen );
- Result := 0;
- end
- else if CompareText( key, 'AfterScroll' ) = 0 then
- begin
- SetEvent( FAfterScroll, Value, 'AfterScroll', 'TDataset' );
- Dataset.AfterScroll := SetDatasetEvent( FAfterScroll, AfterScroll );
- Result := 0;
- end
- else if CompareText( key, 'BeforeClose' ) = 0 then
- begin
- SetEvent( FBeforeClose, Value, 'BeforeClose', 'TDataset' );
- Dataset.BeforeClose := SetDatasetEvent( FBeforeClose, BeforeClose );
- Result := 0;
- end
- else if CompareText( key, 'BeforeOpen' ) = 0 then
- begin
- SetEvent( FBeforeOpen, Value, 'BeforeOpen', 'TDataset' );
- Dataset.BeforeOpen := SetDatasetEvent( FBeforeOpen, BeforeOpen );
- Result := 0;
- end
- else if CompareText( key, 'BeforeScroll' ) = 0 then
- begin
- SetEvent( FBeforeScroll, Value, 'BeforeScroll', 'TDataset' );
- Dataset.BeforeScroll := SetDatasetEvent( FBeforeScroll, BeforeScroll );
- Result := 0;
- end
- else if CompareText( key, 'AfterCancel' ) = 0 then
- begin
- SetEvent( FAfterCancel, Value, 'AfterCancel', 'TDataset' );
- Dataset.AfterCancel := SetDatasetEvent( FAfterCancel, AfterCancel);
- Result := 0;
- end
- else if CompareText( key, 'AfterDelete' ) = 0 then
- begin
- SetEvent( FAfterDelete, Value, 'AfterDelete', 'TDataset' );
- Dataset.AfterDelete := SetDatasetEvent( FAfterDelete, AfterDelete);
- Result := 0;
- end
- else if CompareText( key, 'AfterEdit' ) = 0 then
- begin
- SetEvent( FAfterEdit, Value, 'AfterEdit', 'TDataset' );
- Dataset.AfterEdit := SetDatasetEvent( FAfterEdit, AfterEdit);
- Result := 0;
- end
- else if CompareText( key, 'AfterInsert' ) = 0 then
- begin
- SetEvent( FAfterInsert, Value, 'AfterInsert', 'TDataset' );
- Dataset.AfterInsert := SetDatasetEvent( FAfterInsert, AfterInsert);
- Result := 0;
- end
- else if CompareText( key, 'AfterPost' ) = 0 then
- begin
- SetEvent( FAfterPost, Value, 'AfterPost', 'TDataset' );
- Dataset.AfterPost := SetDatasetEvent( FAfterPost, AfterPost);
- Result := 0;
- end
- else if CompareText( key, 'BeforeCancel' ) = 0 then
- begin
- SetEvent( FBeforeCancel, Value, 'BeforeCancel', 'TDataset' );
- Dataset.BeforeCancel := SetDatasetEvent( FBeforeCancel, BeforeCancel);
- Result := 0;
- end
- else if CompareText( key, 'BeforeDelete' ) = 0 then
- begin
- SetEvent( FBeforeDelete, Value, 'BeforeDelete', 'TDataset' );
- Dataset.BeforeDelete := SetDatasetEvent( FBeforeDelete, BeforeDelete);
- Result := 0;
- end
- else if CompareText( key, 'BeforeEdit' ) = 0 then
- begin
- SetEvent( FBeforeEdit, Value, 'BeforeEdit', 'TDataset' );
- Dataset.BeforeEdit := SetDatasetEvent( FBeforeEdit, BeforeEdit);
- Result := 0;
- end
- else if CompareText( key, 'BeforeInsert' ) = 0 then
- begin
- SetEvent( FBeforeInsert, Value, 'BeforeInsert', 'TDataset' );
- Dataset.BeforeInsert := SetDatasetEvent( FBeforeInsert, BeforeInsert);
- Result := 0;
- end
- else if CompareText( key, 'BeforePost' ) = 0 then
- begin
- SetEvent( FBeforePost, Value, 'BeforePost', 'TDataset' );
- Dataset.BeforePost := SetDatasetEvent( FBeforePost, BeforePost);
- Result := 0;
- end
- else if CompareText( key, 'OnCalcFields' ) = 0 then
- begin
- SetEvent( FOnCalcFields, Value, 'OnCalcFields', 'TDataset' );
- Dataset.OnCalcFields := SetDatasetEvent( FOnCalcFields, OnCalcFields);
- Result := 0;
- end
- else if CompareText( key, 'OnDeleteError' ) = 0 then
- begin
- SetEvent( FOnDeleteError, Value, 'OnDeleteError', 'TDataset' );
- Dataset.OnDeleteError := SetDatasetErrorEvent( FOnDeleteError, OnDeleteError );
- Result := 0;
- end
- else if CompareText( key, 'OnEditError' ) = 0 then
- begin
- SetEvent( FOnEditError, Value, 'OnEditError', 'TDataset' );
- Dataset.OnEditError := SetDatasetErrorEvent( FOnEditError, OnEditError );
- Result := 0;
- end
- else if CompareText( key, 'OnFilterRecord' ) = 0 then
- begin
- SetEvent( FOnFilterRecord, Value, 'OnFilterRecord', 'TDataset' );
- if Assigned(FOnFilterRecord) then
- Dataset.OnFilterRecord := OnFilterRecord
- else
- Dataset.OnFilterRecord := nil;
- Result := 0;
- end
- else if CompareText( key, 'OnNewRecord' ) = 0 then
- begin
- SetEvent( FOnNewRecord, Value, 'OnNewRecord', 'TDataset' );
- Dataset.OnNewRecord := SetDatasetEvent( FOnNewRecord, OnNewRecord);
- Result := 0;
- end
- else if CompareText( key, 'OnPostError' ) = 0 then
- begin
- SetEvent( FOnPostError, Value, 'OnPostError', 'TDataset' );
- Dataset.OnPostError := SetDatasetErrorEvent( FOnPostError, OnPostError );
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-function TPyDataset.Repr : PPyObject;
-begin
- Result := inherited Repr;
-end;
-
-// Sequence services
-
-function TPyDataset.SqLength : Integer;
-begin
- if CheckDataset then
- Result := Dataset.RecordCount
- else
- Result := -1;
-end;
-
-function TPyDataset.SqItem( idx : Integer ) : PPyObject;
-begin
- if CheckDataset then
- begin
- // Check if empty
- if Dataset.RecordCount = 0 then
- begin
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString (PyExc_IndexError^, PAnsiChar('Table is empty'));
- Exit;
- end;
- // Check range
- if (idx < 0) or (idx+1 > Dataset.RecordCount) then
- begin
- Result := nil;
- with GetPythonEngine do
- PyErr_SetString (PyExc_IndexError^, PAnsiChar(Format('Index %d out of range (%d,%d)',[idx, 0, Dataset.RecordCount-1])));
- Exit;
- end;
- try
- Dataset.RecNo := idx+1;
- Result := FieldsAsTuple
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end
- else
- Result := nil;
-end;
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyDataset.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'Open', @TPyDataset.DoOpen, 'TDataset.Open() -> None' );
- AddMethod( 'Close', @TPyDataset.DoClose, 'TDataset.Close() -> None' );
- AddMethod( 'First', @TPyDataset.DoFirst, 'TDataset.First() -> None' );
- AddMethod( 'Last', @TPyDataset.DoLast, 'TDataset.Last() -> None' );
- AddMethod( 'Next', @TPyDataset.DoNext, 'TDataset.Next() -> None' );
- AddMethod( 'Prior', @TPyDataset.DoPrior, 'TDataset.Prior() -> None' );
- AddMethod( 'Edit', @TPyDataset.DoEdit, 'TDataset.Edit() -> None' );
- AddMethod( 'Insert', @TPyDataset.DoInsert, 'TDataset.Insert() -> None' );
- AddMethod( 'Append', @TPyDataset.DoAppend, 'TDataset.Append() -> None' );
- AddMethod( 'Post', @TPyDataset.DoPost, 'TDataset.Post() -> None' );
- AddMethod( 'Cancel', @TPyDataset.DoCancel, 'TDataset.Cancel() -> None' );
- AddMethod( 'DisableControls', @TPyDataset.DoDisableControls, 'TDataset.DisableControls() -> None' );
- AddMethod( 'EnableControls', @TPyDataset.DoEnableControls, 'TDataset.EnableControls() -> None' );
- AddMethod( 'Locate', @TPyDataset.DoLocate, 'TDataset.Locate( KeyFields : String, KeyValues : Object or Sequence, Options : TLocateOptions ) -> True or False' );
- AddMethod( 'Lookup', @TPyDataset.DoLookup, 'TDataset.Lookup( KeyFields : String, KeyValues : Object or Sequence, ResultFields : String ) -> a list containing all Result fields' );
- AddMethod( 'MoveBy', @TPyDataset.DoMoveBy, 'TDataset.MoveBy( Distance : Integer ) : Integer' );
- AddMethod( 'Refresh',@TPyDataset.DoRefresh,'TDataset.Refresh() -> None' );
- AddMethod( 'Fields', @TPyDataset.DoFields, 'TDataset.Fields( index : Integer ) -> TField' );
- AddMethod( 'FieldByName', @TPyDataset.DoFieldByName, 'TDataset.FieldByName( FieldName : String ) -> TField' );
- AddMethod( 'FindField', @TPyDataset.DoFindField, 'TDataset.FindField( FieldName : String ) -> TField' );
- AddMethod( 'FieldNamesAsTuple', @TPyDataset.DoFieldNamesAsTuple, 'TDataset.FieldNamesAsTuple() -> a tuple containing all field names' );
- AddMethod( 'FieldsAsTuple', @TPyDataset.DoFieldsAsTuple, 'TDataset.FieldsAsTuple() -> a tuple containing all TFields' );
- AddMethod( 'FieldsAsDict', @TPyDataset.DoFieldsAsDict, 'TDataset.FieldsAsDict() -> a dictionary containing all TFields, with FieldName as Key, and TField as Value' );
- end;
-end;
-
-// Methods of TPyDataset
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyDataset.CheckDataset : Boolean;
-begin
- if (FSharedObject = nil) or (FSharedObject.Data = nil) then
- begin
- Result := False;
- with GetPythonEngine do
- PyErr_SetString (PyExc_RuntimeError^, 'No Dataset defined !');
- end
- else
- Result := True;
-end;
-
-function TPyDataset.Dataset : TDataset;
-begin
- Result := FSharedObject.Data as TDataset;
-end;
-
-procedure TPyDataset.SetDataset( val : TDataset; owner : Boolean );
-begin
- FSharedObject.Data := val;
- FSharedObject.Owner := owner;
-end;
-
-function TPyDataset.FieldNamesAsTuple : PPyObject;
-var
- i : Integer;
-begin
- with GetPythonEngine do
- begin
- Result := PyTuple_New(Dataset.FieldCount);
- for i := 0 to Dataset.FieldCount - 1 do
- with Dataset.Fields[i] do
- PyTuple_SetItem( Result, i, PyString_FromString( PAnsiChar(FieldName) ) );
- end;
-end;
-
-function TPyDataset.FieldsAsTuple : PPyObject;
-var
- i : Integer;
-begin
- with GetPythonEngine do
- begin
- Result := PyTuple_New(Dataset.FieldCount);
- for i := 0 to Dataset.FieldCount - 1 do
- with Dataset.Fields[i] do
- PyTuple_SetItem( Result, i, VariantAsPyObject( AsVariant ) );
- end;
-end;
-
-function TPyDataset.FieldsAsDict : PPyObject;
-var
- i : Integer;
- obj : PPyObject;
-begin
- with GetPythonEngine do
- begin
- Result := PyDict_New;
- for i := 0 to Dataset.FieldCount - 1 do
- with Dataset.Fields[i] do
- begin
- obj := VariantAsPyObject( AsVariant );
- PyDict_SetItemString( Result, PAnsiChar(FieldName), obj );
- Py_XDecRef(obj);
- end;
- end;
-end;
-
-function TPyDataset.Locate( const keyFields : String; keyValues, options : PPyObject ) : PPyObject;
-var
- rslt : Boolean;
- vvalues : Variant;
- opt : TLocateOptions;
-begin
- Result := nil;
- with GetPythonEngine do
- begin
- if PySequence_Check(options) = 0 then
- begin
- PyErr_SetString (PyExc_AttributeError^, 'Third argument of Locate must be a sequence.');
- Exit;
- end;
- // Prepare the locate options
- ListToSet( options, @opt, sizeof(opt) );
- // Create a variant containing the key values
- vvalues := PyObjectAsVariant( keyValues );
- // Execute the locate
- rslt := Dataset.Locate( keyFields, vvalues, opt );
- // Return its result
- Result := VariantAsPyObject( rslt );
- end;
-end;
-
-function TPyDataset.Lookup( const keyFields : String; keyValues : PPyObject; const resultFields : String ) : PPyObject;
-var
- rslt : Variant;
- vvalues : Variant;
-begin
- with GetPythonEngine do
- begin
- // Create a variant containing the key values
- vvalues := PyObjectAsVariant( keyValues );
- // Execute the lookup
- rslt := Dataset.Lookup( keyFields, vvalues, resultFields );
- // Return its result
- Result := VariantAsPyObject( rslt );
- end;
-end;
-
-procedure TPyDataset.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'Active');
- AppendProp( List, 'BOF');
- AppendProp( List, 'CanModify');
- AppendProp( List, 'EOF');
- AppendProp( List, 'FieldCount');
- AppendProp( List, 'Filter');
- AppendProp( List, 'Filtered');
- AppendProp( List, 'Found');
- AppendProp( List, 'Modified');
- AppendProp( List, 'RecNo');
- AppendProp( List, 'RecordCount');
- AppendProp( List, 'RecordSize');
- AppendProp( List, 'State');
- AppendProp( List, 'AfterClose');
- AppendProp( List, 'AfterOpen');
- AppendProp( List, 'AfterScroll');
- AppendProp( List, 'BeforeClose');
- AppendProp( List, 'BeforeOpen');
- AppendProp( List, 'BeforeScroll');
- AppendProp( List, 'AfterCancel');
- AppendProp( List, 'AfterDelete');
- AppendProp( List, 'AfterEdit');
- AppendProp( List, 'AfterInsert');
- AppendProp( List, 'AfterPost');
- AppendProp( List, 'BeforeCancel');
- AppendProp( List, 'BeforeDelete');
- AppendProp( List, 'BeforeEdit');
- AppendProp( List, 'BeforeInsert');
- AppendProp( List, 'BeforePost');
- AppendProp( List, 'OnCalcFields');
- AppendProp( List, 'OnDeleteError');
- AppendProp( List, 'OnEditError');
- AppendProp( List, 'OnFilterRecord');
- AppendProp( List, 'OnNewRecord');
- AppendProp( List, 'OnPostError');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-function TPyDataset.DoOpen( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Open;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoClose( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Close;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFirst( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.First;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoLast( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Last;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoNext( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Next;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoPrior( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Prior;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoEdit( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Edit;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoInsert( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Insert;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoAppend( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Append;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoPost( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Post;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoCancel( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Cancel;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoDisableControls( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.DisableControls;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoEnableControls( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.EnableControls;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoLocate( args : PPyObject ) : PPyObject;
-var
- keyFields : PAnsiChar;
- keyValues, options : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'sOO:TDataset.Locate',@keyFields, @keyValues, @options ) <> 0) then
- begin
- // Do action
- Result := Locate( String(keyFields), keyValues, options );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoLookup( args : PPyObject ) : PPyObject;
-var
- keyFields, resultFields : PAnsiChar;
- keyValues : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'sOs:TDataset.Lookup',@keyFields, @keyValues, @resultFields ) <> 0) then
- begin
- // Do action
- Result := Lookup( String(keyFields), keyValues, String(resultFields) );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-function TPyDataset.DoMoveBy( args : PPyObject ) : PPyObject;
-var
- dist, rslt : Integer;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'i:TDataset.MoveBy',@dist ) <> 0) then
- begin
- // Do action
- rslt := Dataset.MoveBy( dist );
- // Finally, we return nothing
- Result := PyInt_FromLong(rslt);
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoRefresh( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Dataset.Refresh;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFields( args : PPyObject ) : PPyObject;
-var
- idx : Integer;
- F : TPyField;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // first we extract the arguments
- if CheckDataset and (PyArg_ParseTuple( args, 'i:TDataset.Fields',@idx ) <> 0) then
- begin
- if (idx >= 0) and (idx < Dataset.FieldCount) then
- begin
- Result := gFieldType.CreateInstance;
- F := PythonToDelphi(Result) as TPyField;
- F.FField := Dataset.Fields[idx];
- F.FSharedObject := FSharedObject;
- F.FSharedObject.IncRef;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Value out of range : %d', [idx])));
- end;
- end
- else // the arguments were not right
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFieldByName( args : PPyObject ) : PPyObject;
-var
- s : PAnsiChar;
- fld : TField;
- F : TPyField;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // first we extract the arguments
- if CheckDataset and (PyArg_ParseTuple( args, 's:TDataset.FieldByName',@s ) <> 0) then
- begin
- fld := Dataset.FindField(String(s));
- if Assigned(fld) then
- begin
- Result := gFieldType.CreateInstance;
- F := PythonToDelphi(Result) as TPyField;
- F.FField := fld;
- F.FSharedObject := FSharedObject;
- F.FSharedObject.IncRef;
- end
- else
- begin
- Result := nil;
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown field "%s"', [String(s)])));
- end;
- end
- else // the arguments were not right
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFindField( args : PPyObject ) : PPyObject;
-var
- s : PAnsiChar;
- fld : TField;
- F : TPyField;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- // first we extract the arguments
- if CheckDataset and (PyArg_ParseTuple( args, 's:TDataset.FindField',@s ) <> 0) then
- begin
- fld := Dataset.FindField(String(s));
- if Assigned(fld) then
- begin
- Result := gFieldType.CreateInstance;
- F := PythonToDelphi(Result) as TPyField;
- F.FField := fld;
- F.FSharedObject := FSharedObject;
- F.FSharedObject.IncRef;
- end
- else
- begin
- Result := ReturnNone;
- end;
- end
- else // the arguments were not right
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFieldNamesAsTuple( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := FieldNamesAsTuple;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFieldsAsTuple( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := FieldsAsTuple;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDataset.DoFieldsAsDict( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := FieldsAsDict;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-// Events
-////////////////
-
-procedure TPyDataset.AfterClose( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterClose, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterOpen( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterOpen, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterScroll( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterScroll, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeClose( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeClose, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeOpen( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeOpen, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeScroll( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeScroll, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterCancel( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterCancel, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterDelete( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterDelete, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterEdit( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterEdit, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterInsert( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterInsert, [GetSelf] );
-end;
-
-procedure TPyDataset.AfterPost( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FAfterPost, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeCancel( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeCancel, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeDelete( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeDelete, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeEdit( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeEdit, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforeInsert( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforeInsert, [GetSelf] );
-end;
-
-procedure TPyDataset.BeforePost( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FBeforePost, [GetSelf] );
-end;
-
-procedure TPyDataset.OnCalcFields( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FOnCalcFields, [GetSelf] );
-end;
-
-procedure TPyDataset.OnDeleteError( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(Action) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnDeleteError, [GetSelf, ArrayToPyTuple([E.ClassName, E.Message]), v] );
- with PythonToDelphi(v) as TVarArg do
- Action := TDataAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyDataset.OnEditError( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(Action) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnEditError, [GetSelf, ArrayToPyTuple([E.ClassName, E.Message]), v] );
- with PythonToDelphi(v) as TVarArg do
- Action := TDataAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyDataset.OnFilterRecord( Dataset : TDataset; var Accept : Boolean );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( Accept ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnFilterRecord, [GetSelf, v] );
- with PythonToDelphi(v) as TVarArg do
- Accept := PyObjectAsVariant(FValue);
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyDataset.OnNewRecord( Dataset : TDataset );
-begin
- IncRef;
- ExecuteEvent( FOnNewRecord, [GetSelf] );
-end;
-
-procedure TPyDataset.OnPostError( Dataset : TDataset; E: EDatabaseError; var Action: TDataAction );
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(Action) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnPostError, [GetSelf, ArrayToPyTuple([E.ClassName, E.Message]), v] );
- with PythonToDelphi(v) as TVarArg do
- Action := TDataAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-
-{*********************************************************************
- * Implementation of TVarArg *
- *********************************************************************}
-
-// Constructors & Destructors
-constructor TVarArg.CreateWith( APythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- if PyTuple_Check(args) and (PyTuple_Size(args)>=1) then
- begin
- FValue := PyTuple_GetItem( args, 0 );
- Py_XIncRef(FValue);
- end;
- end;
-end;
-
-destructor TVarArg.Destroy;
-begin
- with GetPythonEngine do
- Py_XDecRef(FValue);
- inherited;
-end;
-
-
-// Basic services
-function TVarArg.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if CompareText( key, 'Value' ) = 0 then
- begin
- Result := FValue;
- if not Assigned(Result) then
- Result := Py_None;
- Py_XIncRef(Result);
- end
- else
- Result := inherited GetAttr(key);
- end;
-end;
-
-function TVarArg.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- with GetPythonEngine do
- begin
- if CompareText( key, 'Value' ) = 0 then
- begin
- Py_XDecRef(FValue);
- FValue := value;
- Py_XIncRef(FValue);
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- end;
-end;
-
-function TVarArg.Repr : PPyObject;
-begin
- with GetPythonEngine do
- Result := PyString_FromString( PAnsiChar(PyObjectAsString(FValue)) );
-end;
-
-{*********************************************************************
-* Global functions *
-*********************************************************************}
-
-var
- Initialized : Boolean = False;
-procedure Initialize( Owner : TEngineClient );
-begin
- if pyDB.Initialized then
- Exit;
- pyDB.Initialized := True;
-end;
-
-procedure SetEvent( var EventSlot : PPyObject; Event : PPyObject; const EventName, ClassName : String );
-begin
- with GetPythonEngine do
- begin
- if Assigned(Event) and not (Event = Py_None) then
- begin
- if PyFunction_Check(Event) or PyMethod_Check(Event) then
- begin
- EventSlot := Event;
- Py_IncRef(EventSlot);
- end
- else
- raise Exception.CreateFmt( 'Event %s of class %s needs a function or a method', [EventName, ClassName] );
- end
- else
- begin
- Py_XDecRef(EventSlot);
- EventSlot := nil;
- end;
- end;
-end;
-
-function SetDatasetEvent( EventSlot : PPyObject; dsEvent : TDataSetNotifyEvent ) : TDataSetNotifyEvent;
-begin
- if Assigned(EventSlot) then
- Result := dsEvent
- else
- Result := nil;
-end;
-
-function SetDatasetErrorEvent( EventSlot : PPyObject; dsEvent : TDataSetErrorEvent ) : TDataSetErrorEvent;
-begin
- if Assigned(EventSlot) then
- Result := dsEvent
- else
- Result := nil;
-end;
-
-procedure ClearEvent( var EventSlot : PPyObject );
-begin
- with GetPythonEngine do
- Py_XDecRef( EventSlot );
- EventSlot := nil;
-end;
-
-function ReturnEvent( Event : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if Assigned(Event) then
- begin
- Result := Event;
- Py_IncRef(Event);
- end
- else
- Result := ReturnNone;
- end;
-end;
-
-procedure ExecuteEvent( Event : PPyObject; Args : array of Const );
-var
- L : PPyObject;
- Result : PPyObject;
-begin
- Result := nil;
- if not Assigned(Event) then
- Exit;
- with GetPythonEngine do
- begin
- L := ArrayToPyTuple( Args );
- try
- Result := PyEval_CallObjectWithKeywords( Event, L, nil );
- finally
- Py_XDecRef(Result);
- Py_XDecRef(L);
- end;
- CheckError;
- end;
-end;
-
-
-end.
diff --git a/Demos/Demo10/pyDBTables.pas b/Demos/Demo10/pyDBTables.pas
deleted file mode 100644
index b708f50..0000000
--- a/Demos/Demo10/pyDBTables.pas
+++ /dev/null
@@ -1,1639 +0,0 @@
-unit pyDBTables;
-
-interface
-
-{$I Definition.Inc}
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- Variants, PythonEngine, StdCtrls, ExtCtrls, ComCtrls,
- DB, DBTables, pyDB;
-type
-
-{*********************************************************************
- * Interface of TBDEDataset *
- *********************************************************************}
- TPyBDEDataset = class(TPyDataset)
- FOnUpdateError : PPyObject;
- FOnUpdateRecord : PPyObject;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- destructor Destroy; override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyDBDataset
- function BDEDataset : TBDEDataset;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
-
- // Events
- ////////////////
- procedure OnUpdateError( Dataset : TDataset; E: EDatabaseError; UpdateKind: TUpdateKind; var ua:TUpdateAction);
- procedure OnUpdateRecord( Dataset : TDataset; UpdateKind: TUpdateKind; var ua:TUpdateAction);
- end;
-
-
- {*********************************************************************
- * Interface of TDBDataset *
- *********************************************************************}
- TPyDBDataset = class(TPyBDEDataset)
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyDBDataset
- function DBDataset : TDBDataset;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- end;
-
- {*********************************************************************
- * Interface of TTable *
- *********************************************************************}
-
- TPyTable = class(TPyDBDataset)
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyTTable
- function Table : TTable;
- function SetRange( startValues, endValues : PPyObject ) : PPyObject;
- procedure AddIndex(const Name, Fields: string; Options: PPyObject);
- function GetIndexNames : PPyObject;
- procedure GotoCurrent( tbl : PPyObject );
- function FindKey( KeyValues : PPyObject ) : Boolean;
- procedure FindNearest( KeyValues : PPyObject );
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- function DoSetKey( args : PPyObject ) : PPyObject; cdecl;
- function DoSetRangeStart( args : PPyObject ) : PPyObject; cdecl;
- function DoSetRangeEnd( args : PPyObject ) : PPyObject; cdecl;
- function DoSetRange( args : PPyObject ) : PPyObject; cdecl;
- function DoEditKey( args : PPyObject ) : PPyObject; cdecl;
- function DoEditRangeStart( args : PPyObject ) : PPyObject; cdecl;
- function DoEditRangeEnd( args : PPyObject ) : PPyObject; cdecl;
- function DoApplyRange( args : PPyObject ) : PPyObject; cdecl;
- function DoCancelRange( args : PPyObject ) : PPyObject; cdecl;
- function DoLockTable( args : PPyObject ) : PPyObject; cdecl;
- function DoUnlockTable( args : PPyObject ) : PPyObject; cdecl;
- function DoAddIndex( args : PPyObject ) : PPyObject; cdecl;
- function DoCloseIndexFile( args : PPyObject ) : PPyObject; cdecl;
- function DoCreateTable( args : PPyObject ) : PPyObject; cdecl;
- function DoDeleteIndex( args : PPyObject ) : PPyObject; cdecl;
- function DoDeleteTable( args : PPyObject ) : PPyObject; cdecl;
- function DoEmptyTable( args : PPyObject ) : PPyObject; cdecl;
- function DoGetIndexNames( args : PPyObject ) : PPyObject; cdecl;
- function DoOpenIndexFile( args : PPyObject ) : PPyObject; cdecl;
- function DoRenameTable( args : PPyObject ) : PPyObject; cdecl;
- function DoGotoCurrent( args : PPyObject ) : PPyObject; cdecl;
- function DoGotoNearest( args : PPyObject ) : PPyObject; cdecl;
- function DoGotoKey( args : PPyObject ) : PPyObject; cdecl;
- function DoFindKey( args : PPyObject ) : PPyObject; cdecl;
- function DoFindNearest( args : PPyObject ) : PPyObject; cdecl;
- end;
-
- {*********************************************************************
- * Interface of TQuery *
- *********************************************************************}
-
- TPyQuery = class(TPyDBDataset)
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyTTable
- function Query : TQuery;
- procedure AppendProperties( List : PPyObject ); override;
-
- // Interface methods
- function DoPrepare( args : PPyObject ) : PPyObject; cdecl;
- function DoUnPrepare( args : PPyObject ) : PPyObject; cdecl;
- function DoExecSQL( args : PPyObject ) : PPyObject; cdecl;
- end;
-
- {*********************************************************************
- * Global functions *
- *********************************************************************}
- procedure Initialize( Owner : TEngineClient );
-
- {********************************************************************
- * Global variables *
- *********************************************************************}
-//var
-
-implementation
-
-{*********************************************************************
- * Implementation of TBDEDataset *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyBDEDataset.Create( APythonType : TPythonType );
-begin
- inherited;
-end;
-
-destructor TPyBDEDataset.Destroy;
-begin
- if EventBelongsToObject( TCallbackSplit(BDEDataset.OnUpdateError) ) then
- BDEDataset.OnUpdateError := nil;
- if EventBelongsToObject( TCallbackSplit(BDEDataset.OnUpdateRecord) ) then
- BDEDataset.OnUpdateRecord := nil;
- ClearEvent( FOnUpdateError );
- ClearEvent( FOnUpdateRecord );
- inherited;
-end;
-
-
-// Then we override the needed services
-
-function TPyBDEDataset.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( key, 'OnUpdateError' ) = 0 then
- Result := ReturnEvent( FOnUpdateError )
- else if CompareText( key, 'OnUpdateRecord' ) = 0 then
- Result := ReturnEvent( FOnUpdateRecord )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyBDEDataset.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( key, 'OnUpdateError' ) = 0 then
- begin
- SetEvent( FOnUpdateError, Value, 'OnUpdateError', 'TField' );
- if Assigned(FOnUpdateError) then
- BDEDataset.OnUpdateError := OnUpdateError
- else
- BDEDataset.OnUpdateError := nil;
- Result := 0;
- end
- else if CompareText( key, 'OnUpdateRecord' ) = 0 then
- begin
- SetEvent( FOnUpdateRecord, Value, 'OnUpdateRecord', 'TField' );
- if Assigned(FOnUpdateRecord) then
- BDEDataset.OnUpdateRecord := OnUpdateRecord
- else
- BDEDataset.OnUpdateRecord := nil;
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyBDEDataset.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- //AddMethod( 'First', @TPyDataset.DoFirst, 'TDataset.First' );
- end;
-end;
-
-// Methods of TPyBDEDataset
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyBDEDataset.BDEDataset : TBDEDataset;
-begin
- Result := Dataset as TBDEDataset;
-end;
-
-procedure TPyBDEDataset.AppendProperties( List : PPyObject );
-begin
- inherited;
- //AppendProp( List, '');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-// Events
-////////////////
-
-procedure TPyBDEDataset.OnUpdateError( Dataset : TDataset; E: EDatabaseError; UpdateKind: TUpdateKind; var ua:TUpdateAction);
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(ua) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnUpdateError, [GetSelf, ArrayToPyTuple([E.ClassName, E.Message]), Integer(UpdateKind), v] );
- with PythonToDelphi(v) as TVarArg do
- ua := TUpdateAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-procedure TPyBDEDataset.OnUpdateRecord( Dataset : TDataset; UpdateKind: TUpdateKind; var ua:TUpdateAction);
-var
- v : PPyObject;
-begin
- IncRef;
- with GetPythonEngine do
- begin
- v := gVarArgType.CreateInstanceWith( VariantAsPyObject( NativeInt(ua) ) );
- Py_XIncRef(v);
- try
- ExecuteEvent( FOnUpdateError, [GetSelf, Integer(UpdateKind), v] );
- with PythonToDelphi(v) as TVarArg do
- ua := TUpdateAction(NativeInt(PyObjectAsVariant(FValue)));
- finally
- Py_XDecRef(v);
- end;
- end;
-end;
-
-
-{*********************************************************************
- * Implementation of TDBDataset *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyDBDataset.Create( APythonType : TPythonType );
-begin
- inherited;
-end;
-
-
-
-// Then we override the needed services
-
-function TPyDBDataset.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( key, 'DatabaseName' ) = 0 then
- Result := VariantAsPyObject( DBDataset.DatabaseName )
- else if CompareText( key, 'SessionName' ) = 0 then
- Result := VariantAsPyObject( DBDataset.SessionName )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyDBDataset.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( key, 'DatabaseName' ) = 0 then
- begin
- DBDataset.DatabaseName := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'SessionName' ) = 0 then
- begin
- DBDataset.SessionName := PyObjectAsVariant( value );
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyDBDataset.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- //AddMethod( 'First', @TPyDataset.DoFirst, 'TDataset.First' );
- end;
-end;
-
-// Methods of TPyDBDataset
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyDBDataset.DBDataset : TDBDataset;
-begin
- Result := Dataset as TDBDataset;
-end;
-
-procedure TPyDBDataset.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'DatabaseName');
- AppendProp( List, 'SessionName');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-
-{*********************************************************************
- * Implementation of TTable *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyTable.Create( APythonType : TPythonType );
-begin
- inherited;
- FSharedObject.Data := TTable.Create(APythonType);
-end;
-
-
-
-// Then we override the needed services
-
-function TPyTable.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( key, 'IndexName' ) = 0 then
- Result := VariantAsPyObject( Table.IndexName )
- else if CompareText( key, 'ReadOnly' ) = 0 then
- Result := VariantAsPyObject( Table.ReadOnly )
- else if CompareText( key, 'TableLevel' ) = 0 then
- Result := VariantAsPyObject( Table.TableLevel )
- else if CompareText( key, 'TableName' ) = 0 then
- Result := VariantAsPyObject( Table.TableName )
- else if CompareText( key, 'TableType' ) = 0 then
- Result := VariantAsPyObject( Integer(Table.TableType) )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( key, 'IndexName' ) = 0 then
- begin
- Table.IndexName := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'ReadOnly' ) = 0 then
- begin
- Table.ReadOnly := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'TableLevel' ) = 0 then
- begin
- Table.TableLevel := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'TableName' ) = 0 then
- begin
- Table.TableName := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'TableType' ) = 0 then
- begin
- Table.TableType := TTableType(PyObjectAsVariant( value ));
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyTable.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'SetKey', @TPyTable.DoSetKey, 'TTable.SetKey() -> None' );
- AddMethod( 'SetRangeStart', @TPyTable.DoSetRangeStart, 'TTable.SetRangeStart() -> None' );
- AddMethod( 'SetRangeEnd', @TPyTable.DoSetRangeEnd, 'TTable.SetRangeEnd() -> None' );
- AddMethod( 'SetRange', @TPyTable.DoSetRange, 'TTable.SetRange( sequence of RangeStart values, sequence of RangeEnd values ) -> None' );
- AddMethod( 'EditKey', @TPyTable.DoEditKey, 'TTable.EditKey() -> None' );
- AddMethod( 'EditRangeStart', @TPyTable.DoEditRangeStart, 'TTable.EditRangeStart() -> None' );
- AddMethod( 'EditRangeEnd', @TPyTable.DoEditRangeEnd, 'TTable.EditRangeEnd() -> None' );
- AddMethod( 'ApplyRange', @TPyTable.DoApplyRange, 'TTable.ApplyRange() -> None' );
- AddMethod( 'CancelRange', @TPyTable.DoCancelRange, 'TTable.CancelRange() -> None' );
- AddMethod( 'LockTable', @TPyTable.DoLockTable, 'TTable.LockTable( LockType : TLockType ) -> None' );
- AddMethod( 'UnlockTable', @TPyTable.DoUnlockTable, 'TTable.UnlockTable( LockType : TLockType ) -> None' );
- AddMethod( 'AddIndex', @TPyTable.DoAddIndex, 'TTable.AddIndex( Name : String, Fields : String, Options : TIndexOptions ) -> None' );
- AddMethod( 'CloseIndexFile', @TPyTable.DoCloseIndexFile, 'TTable.CloseIndexFile( IndexFileName : String ) -> None' );
- AddMethod( 'CreateTable', @TPyTable.DoCreateTable, 'TTable.CreateTable() -> None' );
- AddMethod( 'DeleteIndex', @TPyTable.DoDeleteIndex, 'TTable.DeleteIndex( Name : String ) -> None' );
- AddMethod( 'DeleteTable', @TPyTable.DoDeleteTable, 'TTable.DeleteTable() -> None' );
- AddMethod( 'EmptyTable', @TPyTable.DoEmptyTable, 'TTable.EmptyTable() -> None' );
- AddMethod( 'GetIndexNames', @TPyTable.DoGetIndexNames, 'TTable.GetIndexNames() -> list of Index Names' );
- AddMethod( 'OpenIndexFile', @TPyTable.DoOpenIndexFile, 'TTable.OpenIndexFile( IndexFileName : String ) -> None' );
- AddMethod( 'RenameTable', @TPyTable.DoRenameTable, 'TTable.RenameTable( NewName : String ) -> None' );
- AddMethod( 'GotoCurrent', @TPyTable.DoGotoCurrent, 'TTable.GotoCurrent( table : TTable ) -> None' );
- AddMethod( 'GotoNearest', @TPyTable.DoGotoNearest, 'TTable.GotoNearest() -> None' );
- AddMethod( 'GotoKey', @TPyTable.DoGotoKey, 'TTable.GotoKey() -> True or False' );
- AddMethod( 'FindKey', @TPyTable.DoFindKey, 'TTable.FindKey( KeyValues : Sequence ) -> True or False' );
- AddMethod( 'FindNearest', @TPyTable.DoFindNearest, 'TTable.FindNearest( KeyValues : Sequence ) -> None' );
- end;
-end;
-
-// Methods of TPyTable
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyTable.Table : TTable;
-begin
- Result := FSharedObject.Data as TTable;
-end;
-
-function TPyTable.SetRange( startValues, endValues : PPyObject ) : PPyObject;
-var
- i : Integer;
-begin
- Result := nil;
- with GetPythonEngine do
- begin
- if PySequence_Check(startValues) = 0 then
- begin
- PyErr_SetString (PyExc_AttributeError^, 'First argument of SetRange must be a sequence.');
- Exit;
- end;
- if PySequence_Check(endValues) = 0 then
- begin
- PyErr_SetString (PyExc_AttributeError^, 'Second argument of SetRange must be a sequence.');
- Exit;
- end;
- with Table do
- begin
- SetRangeStart;
- for i := 0 to PySequence_Length(startValues)-1 do
- begin
- IndexFields[i].Value := PyObjectAsVariant(PySequence_GetItem(startValues, i));
- end;
- SetRangeEnd;
- for i := 0 to PySequence_Length(endValues)-1 do
- begin
- IndexFields[i].Value := PyObjectAsVariant(PySequence_GetItem(endValues, i));
- end;
- ApplyRange;
- end;
- Result := ReturnNone;
- end;
-end;
-
-procedure TPyTable.AddIndex(const Name, Fields: string; Options: PPyObject);
-var
- opt : TIndexOptions;
-begin
- with GetPythonEngine do
- begin
- ListToSet( Options, @opt, sizeof(opt) );
- Table.AddIndex( Name, Fields, opt );
- end;
-end;
-
-function TPyTable.GetIndexNames : PPyObject;
-var
- L : TStringList;
-begin
- L := TStringList.Create;
- try
- Table.GetIndexNames( L );
- Result := GetPythonEngine.StringsToPyList( L );
- finally
- L.Free;
- end;
-end;
-
-procedure TPyTable.GotoCurrent( tbl : PPyObject );
-var
- obj : TPyObject;
-begin
- with GetPythonEngine do
- begin
- if IsDelphiObject( tbl ) then
- begin
- obj := PythonToDelphi(tbl);
- if obj is TPyTable then
- begin
- Table.GotoCurrent( TPyTable(obj).Table );
- end
- else
- raise EPythonError.Create( 'TTable.GotoCurrent: the Delphi Type class is not a TPyTable, or one of its descendants' );
- end
- else
- raise EPythonError.Create( 'TTable.GotoCurrent: need a TTable object as argument' );
- end;
-end;
-
-function TPyTable.FindKey( KeyValues : PPyObject ) : Boolean;
-var
- V : Variant;
- i : Integer;
-begin
- with GetPythonEngine do
- begin
- if PySequence_Check( KeyValues ) <> 0 then
- begin
- V := PyObjectAsVariant( KeyValues );
- Table.CheckBrowseMode;
- Table.SetKey;
- for i := 0 to VarArrayHighBound(V, 1) do
- Table.IndexFields[i].AsVariant := V[i];
- Result := Table.GotoKey;
- end
- else
- Result := False;
- end;
-end;
-
-procedure TPyTable.FindNearest( KeyValues : PPyObject );
-var
- V : Variant;
- i : Integer;
-begin
- with GetPythonEngine do
- begin
- if PySequence_Check( KeyValues ) <> 0 then
- begin
- V := PyObjectAsVariant( KeyValues );
- Table.CheckBrowseMode;
- Table.SetKey;
- for i := 0 to VarArrayHighBound(V, 1) do
- Table.IndexFields[i].AsVariant := V[i];
- Table.GotoNearest;
- end;
- end;
-end;
-
-procedure TPyTable.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'IndexName');
- AppendProp( List, 'ReadOnly');
- AppendProp( List, 'TableLevel');
- AppendProp( List, 'TableName');
- AppendProp( List, 'TableType');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-function TPyTable.DoSetKey( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.SetKey;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoSetRangeStart( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.SetRangeStart;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoSetRangeEnd( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.SetRangeEnd;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoSetRange( args : PPyObject ) : PPyObject; cdecl;
-var
- startValues, endValues : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'OO:TDataset.SetRange',@startValues, @endValues ) <> 0) then
- begin
- // Do action
- Result := SetRange( startValues, endValues );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoEditKey( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.EditKey;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoEditRangeStart( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.EditRangeStart;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoEditRangeEnd( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.EditRangeEnd;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoApplyRange( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.ApplyRange;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoCancelRange( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.CancelRange;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoLockTable( args : PPyObject ) : PPyObject; cdecl;
-var
- t : Integer;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'i:TTable.LockTable',@t ) <> 0) then
- begin
- // Do action
- Table.LockTable(TLockType(t));
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoUnlockTable( args : PPyObject ) : PPyObject; cdecl;
-var
- t : Integer;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'i:TTable.LockTable',@t ) <> 0) then
- begin
- // Do action
- Table.UnlockTable(TLockType(t));
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoAddIndex( args : PPyObject ) : PPyObject; cdecl;
-var
- aName, fields : PAnsiChar;
- options : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'ssO:TTable.AddIndex',@aName, @fields, @options ) <> 0) then
- begin
- // Do action
- AddIndex( aName, fields, options );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoCloseIndexFile( args : PPyObject ) : PPyObject; cdecl;
-var
- aName : PAnsiChar;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 's:TTable.CloseIndexFile',@aName ) <> 0) then
- begin
- // Do action
- Table.CloseIndexFile( aName );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoCreateTable( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.CreateTable;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoDeleteIndex( args : PPyObject ) : PPyObject; cdecl;
-var
- aName : PAnsiChar;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 's:TTable.DeleteIndex',@aName ) <> 0) then
- begin
- // Do action
- Table.DeleteIndex( aName );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoDeleteTable( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.DeleteTable;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoEmptyTable( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.EmptyTable;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoGetIndexNames( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := GetIndexNames;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoOpenIndexFile( args : PPyObject ) : PPyObject; cdecl;
-var
- aName : PAnsiChar;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 's:TTable.OpenIndexFile',@aName ) <> 0) then
- begin
- // Do action
- Table.OpenIndexFile( aName );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoRenameTable( args : PPyObject ) : PPyObject; cdecl;
-var
- newName : PAnsiChar;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 's:TTable.RenameTable',@newName ) <> 0) then
- begin
- // Do action
- Table.RenameTable( newName );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoGotoCurrent( args : PPyObject ) : PPyObject; cdecl;
-var
- tbl : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'O:TTable.GotoCurrent',@tbl ) <> 0) then
- begin
- // Do action
- GotoCurrent( tbl );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoGotoNearest( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Table.GotoNearest;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoGotoKey( args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Result := VariantAsPyObject( Table.GotoKey );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoFindKey( args : PPyObject ) : PPyObject; cdecl;
-var
- KeyValues : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'O:TTable.FindKey',@KeyValues ) <> 0) then
- begin
- // Do action
- Result := VariantAsPyObject( FindKey( KeyValues ) );
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyTable.DoFindNearest( args : PPyObject ) : PPyObject; cdecl;
-var
- KeyValues : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset and (PyArg_ParseTuple( args, 'O:TTable.FindNearest',@KeyValues ) <> 0) then
- begin
- // Do action
- FindNearest(KeyValues);
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-
-{*********************************************************************
- * Implementation of TQuery *
- *********************************************************************}
-
-// We override the constructors
-
-constructor TPyQuery.Create( APythonType : TPythonType );
-begin
- inherited;
- FSharedObject.Data := TQuery.Create(APythonType);
-end;
-
-
-
-// Then we override the needed services
-
-function TPyQuery.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if not CheckDataset then
- begin
- Result := nil;
- Exit;
- end;
- try
- if CompareText( key, 'Constrained' ) = 0 then
- Result := VariantAsPyObject( Query.Constrained )
- else if CompareText( key, 'Local' ) = 0 then
- Result := VariantAsPyObject( Query.Local)
- else if CompareText( key, 'ParamCheck' ) = 0 then
- Result := VariantAsPyObject( Query.ParamCheck )
- else if CompareText( key, 'ParamCount' ) = 0 then
- Result := VariantAsPyObject( Query.ParamCount )
- else if CompareText( key, 'Prepared' ) = 0 then
- Result := VariantAsPyObject( Query.Prepared )
- else if CompareText( key, 'RequestLive' ) = 0 then
- Result := VariantAsPyObject( Query.RequestLive )
- else if CompareText( key, 'RowsAffected' ) = 0 then
- Result := VariantAsPyObject( Query.RowsAffected )
- else if CompareText( key, 'SQL' ) = 0 then
- Result := StringsToPyList( Query.SQL)
- else if CompareText( key, 'UniDirectional' ) = 0 then
- Result := VariantAsPyObject( Query.UniDirectional )
- else
- Result := inherited GetAttr(key);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyQuery.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := -1;
- with GetPythonEngine do
- begin
- if not CheckDataset then
- Exit;
- try
- if CompareText( key, 'Constrained' ) = 0 then
- begin
- Query.Constrained := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'Local' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'ParamCheck' ) = 0 then
- begin
- Query.ParamCheck := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'ParamCount' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'Prepared' ) = 0 then
- begin
- Query.Prepared := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'RequestLive' ) = 0 then
- begin
- Query.RequestLive := PyObjectAsVariant( value );
- Result := 0;
- end
- else if CompareText( key, 'RowsAffected' ) = 0 then
- begin
- Result := 0;
- end
- else if CompareText( key, 'SQL' ) = 0 then
- begin
- PyListToStrings( value, Query.SQL );
- Result := 0;
- end
- else if CompareText( key, 'UniDirectional' ) = 0 then
- begin
- Query.UniDirectional := PyObjectAsVariant( value );
- Result := 0;
- end
- else
- Result := inherited SetAttr(key, value);
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := -1;
- end;
- end;
- end;
-end;
-
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyQuery.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'Prepare', @TPyQuery.DoPrepare, 'TQuery.Prepare() -> None' );
- AddMethod( 'Unprepare', @TPyQuery.DoUnprepare, 'TQuery.Unprepare() -> None' );
- AddMethod( 'ExecSQL', @TPyQuery.DoExecSQL, 'TQuery.ExecSQL() -> None' );
- end;
-end;
-
-// Methods of TPyQuery
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-function TPyQuery.Query : TQuery;
-begin
- Result := FSharedObject.Data as TQuery;
-end;
-
-procedure TPyQuery.AppendProperties( List : PPyObject );
-begin
- inherited;
- AppendProp( List, 'Constrained');
- AppendProp( List, 'Local');
- AppendProp( List, 'ParamCheck');
- AppendProp( List, 'ParamCount');
- AppendProp( List, 'Prepared');
- AppendProp( List, 'RequestLive');
- AppendProp( List, 'RowsAffected');
- AppendProp( List, 'SQL');
- AppendProp( List, 'UniDirectional');
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-function TPyQuery.DoPrepare( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Query.Prepare;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyQuery.DoUnPrepare( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Query.UnPrepare;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-function TPyQuery.DoExecSQL( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- try
- if CheckDataset then
- begin
- // Do action
- Query.ExecSQL;
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else
- Result := nil;
- except // Remap Delphi exception to a Python exception
- on E : Exception do
- begin
- RaiseDBError( E );
- Result := nil;
- end;
- end;
- end;
-end;
-
-{*********************************************************************
-* Global functions *
-*********************************************************************}
-
-var
- Initialized : Boolean = False;
-procedure Initialize( Owner : TEngineClient );
-begin
- if pyDBTables.Initialized then
- Exit;
- pyDBTables.Initialized := True;
-end;
-
-
-end.
diff --git a/Demos/Demo11/SortThds.pas b/Demos/Demo11/SortThds.pas
deleted file mode 100644
index e9ea620..0000000
--- a/Demos/Demo11/SortThds.pas
+++ /dev/null
@@ -1,146 +0,0 @@
-unit SortThds;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes,
-{$IFDEF MSWINDOWS}
- Graphics, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QGraphics, QExtCtrls,
-{$ENDIF}
- PythonEngine;
-
-type
-
-{ TSortThread }
-
- PSortArray = ^TSortArray;
- TSortArray = array[0..MaxInt div SizeOf(Integer) - 1] of Integer;
-
- TSortThread = class(TPythonThread)
- private
- FModule: TPythonModule;
- FScript: TStrings;
- FBox: TPaintBox;
- FSortArray: PSortArray;
- FSize: Integer;
- FI, FJ: Integer;
- fpyfuncname: string;
-
- procedure DoVisualSwap;
- function getvalue(i: integer): integer;
- protected
- procedure ExecuteWithPython; override;
- public
- property value[i: integer]: integer read getvalue; default;
-
- constructor Create( ainterp: PPyInterpreterState; script: TStrings;
- module: TPythonModule; apyfuncname: string;
- Box: TPaintBox; var SortArray: array of Integer);
-
- procedure VisualSwap(I, J: Integer);
- end;
-
-procedure PaintLine(Canvas: TCanvas; I, Len: Integer);
-
-implementation
-
-procedure PaintLine(Canvas: TCanvas; I, Len: Integer);
-begin
- Canvas.PolyLine([Point(0, I * 2 + 1), Point(Len, I * 2 + 1)]);
-end;
-
-{ TSortThread }
-
-constructor TSortThread.Create( ainterp: PPyInterpreterState; script: TStrings;
- module: TPythonModule; apyfuncname: string;
- Box: TPaintBox; var SortArray: array of Integer);
-begin
- fpyfuncname := apyfuncname;
- fScript := script;
- FModule := module;
- FBox := Box;
- FSortArray := @SortArray;
- FSize := High(SortArray) - Low(SortArray) + 1;
- FreeOnTerminate := True;
- InterpreterState := ainterp;
- inherited Create(False);
-end;
-
-{ Since DoVisualSwap uses a VCL component (i.e., the TPaintBox) it should never
- be called directly by this thread. DoVisualSwap should be called by passing
- it to the Synchronize method which causes DoVisualSwap to be executed by the
- main VCL thread, avoiding multi-thread conflicts. See VisualSwap for an
- example of calling Synchronize. }
-
-procedure TSortThread.DoVisualSwap;
-type
- pinteger = ^integer;
-var t: integer;
- pi,pj: pinteger;
-begin
- with FBox do
- begin
- Canvas.Pen.Color := clBtnFace;
- pi := @(FSortArray^[FI]);
- pj := @(FSortArray^[FJ]);
- PaintLine(Canvas, FI, pi^);
- PaintLine(Canvas, FJ, pj^);
- Canvas.Pen.Color := clRed;
- PaintLine(Canvas, FI, pj^);
- PaintLine(Canvas, FJ, pi^);
-
- t := pi^;
- pi^ := pj^;
- pj^ := t;
- end;
-end;
-
-{ VisusalSwap is a wrapper on DoVisualSwap making it easier to use. The
- parameters are copied to instance variables so they are accessable
- by the main VCL thread when it executes DoVisualSwap }
-
-procedure TSortThread.VisualSwap(I, J: Integer);
-begin
- Py_BEGIN_ALLOW_THREADS;
- if Terminated then
- raise EPythonError.Create( 'Pythonthread terminated');
- FI := I;
- FJ := J;
- Synchronize(DoVisualSwap);
- Py_END_ALLOW_THREADS;
-end;
-
-{ The Execute method is called when the thread starts }
-
-procedure TSortThread.ExecuteWithPython;
-var pyfunc: PPyObject;
-begin
- with GetPythonEngine do
- begin
- if Assigned(FModule) and (ThreadExecMode = emNewInterpreter) then
- FModule.InitializeForNewInterpreter;
- if Assigned(fScript) then
- ExecStrings(fScript);
- pyfunc := FindFunction( ExecModule, fpyfuncname);
- if Assigned(pyfunc) then
- try
- EvalFunction(pyfunc,[NativeInt(self),0,FSize]);
- finally
- Py_DecRef(pyfunc);
- end;
- end;
-end;
-
-function TSortThread.getvalue(i: integer): integer;
-begin
- if Terminated then
- raise EPythonError.Create( 'Pythonthread terminated');
- Result := FSortArray^[i];
-end;
-
-end.
diff --git a/Demos/Demo11/ThSort.dfm b/Demos/Demo11/ThSort.dfm
deleted file mode 100644
index 19bcd53..0000000
Binary files a/Demos/Demo11/ThSort.dfm and /dev/null differ
diff --git a/Demos/Demo11/ThSort.pas b/Demos/Demo11/ThSort.pas
deleted file mode 100644
index 419d4a1..0000000
--- a/Demos/Demo11/ThSort.pas
+++ /dev/null
@@ -1,236 +0,0 @@
-unit ThSort;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- ExtCtrls, StdCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine;
-
-type
- TThreadSortForm = class(TForm)
- StartBtn: TButton;
- BubbleSortBox: TPaintBox;
- SelectionSortBox: TPaintBox;
- QuickSortBox: TPaintBox;
- Label1: TLabel;
- Bevel1: TBevel;
- Bevel2: TBevel;
- Bevel3: TBevel;
- Label2: TLabel;
- Label3: TLabel;
- PythonMemo: TMemo;
- PythonEngine1: TPythonEngine;
- Start2Btn: TButton;
- LoadBtn: TButton;
- PythonDialog: TOpenDialog;
- SaveDialog: TSaveDialog;
- SaveBtn: TButton;
- SortModule: TPythonModule;
- procedure BubbleSortBoxPaint(Sender: TObject);
- procedure SelectionSortBoxPaint(Sender: TObject);
- procedure QuickSortBoxPaint(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure StartBtnClick(Sender: TObject);
- procedure Start2BtnClick(Sender: TObject);
- procedure LoadBtnClick(Sender: TObject);
- procedure SaveBtnClick(Sender: TObject);
- procedure SortModuleInitialization(Sender: TObject);
- procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- private
- OwnThreadState: PPyThreadState;
- ThreadsRunning: Integer;
- procedure RandomizeArrays;
- procedure ThreadDone(Sender: TObject);
- procedure InitThreads(interp: PPyInterpreterState; script: TStrings);
-
- function SortModule_GetValue( pself, args : PPyObject ) : PPyObject; cdecl;
- function SortModule_Swap( pself, args : PPyObject ) : PPyObject; cdecl;
- public
- procedure PaintArray(Box: TPaintBox; const A: array of Integer);
- end;
-
-var
- ThreadSortForm: TThreadSortForm;
-
-implementation
-
-uses SortThds;
-
-{$R *.dfm}
-
-type
- PSortArray = ^TSortArray;
- TSortArray = array[0..176] of Integer;
-
-var
- ArraysRandom: Boolean;
- BubbleSortArray, SelectionSortArray, QuickSortArray: TSortArray;
-
-{ TThreadSortForm }
-
-procedure TThreadSortForm.PaintArray(Box: TPaintBox; const A: array of Integer);
-var
- I: Integer;
-begin
- with Box do
- begin
- Canvas.Pen.Color := clRed;
- for I := Low(A) to High(A) do PaintLine(Canvas, I, A[I]);
- end;
-end;
-
-procedure TThreadSortForm.BubbleSortBoxPaint(Sender: TObject);
-begin
- PaintArray(BubbleSortBox, BubbleSortArray);
-end;
-
-procedure TThreadSortForm.SelectionSortBoxPaint(Sender: TObject);
-begin
- PaintArray(SelectionSortBox, SelectionSortArray);
-end;
-
-procedure TThreadSortForm.QuickSortBoxPaint(Sender: TObject);
-begin
- PaintArray(QuickSortBox, QuickSortArray);
-end;
-
-procedure TThreadSortForm.FormCreate(Sender: TObject);
-begin
- RandomizeArrays;
-end;
-
-procedure TThreadSortForm.InitThreads(interp: PPyInterpreterState; script: TStrings);
-begin
- RandomizeArrays;
- ThreadsRunning := 3;
- with GetPythonEngine do
- begin
- OwnThreadState := PyThreadState_Get;
- PyEval_ReleaseThread(OwnThreadState);
-
- with TSortThread.Create( interp, script, SortModule, 'SortFunc1',
- BubbleSortBox, BubbleSortArray) do
- OnTerminate := ThreadDone;
- with TSortThread.Create( interp, script, SortModule, 'SortFunc2',
- SelectionSortBox, SelectionSortArray) do
- OnTerminate := ThreadDone;
- with TSortThread.Create( interp, script, SortModule, 'SortFunc3',
- QuickSortBox, QuickSortArray) do
- OnTerminate := ThreadDone;
- end;
-
- StartBtn.Enabled := False;
- Start2Btn.Enabled := False;
-end;
-
-procedure TThreadSortForm.Start2BtnClick(Sender: TObject);
-begin
- with GetPythonEngine do
- begin
- ExecStrings(PythonMemo.Lines);
- self.InitThreads(PyThreadState_Get.interp,nil);
- end;
-end;
-
-procedure TThreadSortForm.StartBtnClick(Sender: TObject);
-begin
- InitThreads(nil,PythonMemo.Lines);
-//PythonEngine1.ExecStrings(PythonMemo.Lines);
-end;
-
-procedure TThreadSortForm.LoadBtnClick(Sender: TObject);
-begin
- with PythonDialog do if Execute then
- PythonMemo.Lines.LoadFromFile(FileName);
-end;
-
-procedure TThreadSortForm.SaveBtnClick(Sender: TObject);
-begin
- with SaveDialog do if Execute then
- PythonMemo.Lines.SaveToFile(FileName);
-end;
-
-procedure TThreadSortForm.RandomizeArrays;
-var
- I: Integer;
-begin
- if not ArraysRandom then
- begin
- Randomize;
- for I := Low(BubbleSortArray) to High(BubbleSortArray) do
- BubbleSortArray[I] := Random(170);
- SelectionSortArray := BubbleSortArray;
- QuickSortArray := BubbleSortArray;
- ArraysRandom := True;
- Repaint;
- end;
-end;
-
-procedure TThreadSortForm.ThreadDone(Sender: TObject);
-begin
- Dec(ThreadsRunning);
- if ThreadsRunning = 0 then
- begin
- GetPythonEngine.PyEval_AcquireThread(OwnThreadState);
- StartBtn.Enabled := True;
- Start2Btn.Enabled := True;
- ArraysRandom := False;
- end;
-end;
-
-function TThreadSortForm.SortModule_GetValue( pself, args : PPyObject ) : PPyObject; cdecl;
-var psort,index: integer;
-begin
- with GetPythonEngine do
- begin
- if PyArg_ParseTuple( args, 'ii',@psort, @index) <> 0 then
- begin
- Result := PyInt_FromLong(TSortThread(psort)[index]);
- end else
- Result := nil;
- end;
-end;
-
-function TThreadSortForm.SortModule_Swap( pself, args : PPyObject ) : PPyObject; cdecl;
-var psort,i,j: integer;
-begin
- with GetPythonEngine do
- begin
- if PyArg_ParseTuple( args, 'iii',@psort, @i, @j) <> 0 then
- begin
- TSortThread(psort).VisualSwap(i,j);
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-procedure TThreadSortForm.SortModuleInitialization(Sender: TObject);
-begin
- with Sender as TPythonModule do
- begin
- AddDelphiMethod( 'getvalue',
- SortModule_GetValue,
- 'GetValue(handle,index)' );
- AddDelphiMethod( 'swap',
- SortModule_Swap,
- 'swap(handle,index1,index2)');
- end;
-end;
-
-procedure TThreadSortForm.FormCloseQuery(Sender: TObject;
- var CanClose: Boolean);
-begin
- CanClose := ThreadsRunning = 0;
-end;
-
-end.
diff --git a/Demos/Demo11/ThrdDemo.cfg b/Demos/Demo11/ThrdDemo.cfg
deleted file mode 100644
index c073890..0000000
--- a/Demos/Demo11/ThrdDemo.cfg
+++ /dev/null
@@ -1,37 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
--DmadExcept
diff --git a/Demos/Demo11/ThrdDemo.dpr b/Demos/Demo11/ThrdDemo.dpr
deleted file mode 100644
index 81c407d..0000000
--- a/Demos/Demo11/ThrdDemo.dpr
+++ /dev/null
@@ -1,28 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-program ThrdDemo;
-
-{$I Definition.Inc}
-
-uses
- madExcept,
- madLinkDisAsm,
- madListHardware,
- madListProcesses,
- madListModules,
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- ThSort in 'ThSort.pas' {ThreadSortForm},
- SortThds in 'SortThds.pas';
-
-{$R *.res}
-
-begin
- Application.CreateForm(TThreadSortForm, ThreadSortForm);
- Application.Run;
-end.
diff --git a/Demos/Demo11/ThrdDemo.dproj b/Demos/Demo11/ThrdDemo.dproj
deleted file mode 100644
index 74c3d38..0000000
--- a/Demos/Demo11/ThrdDemo.dproj
+++ /dev/null
@@ -1,102 +0,0 @@
-
-
- {FA5D85B3-B6D3-47F9-A4F9-482E5482F142}
- ThrdDemo.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- ThrdDemo.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- ThrdDemo.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo11/ThrdDemo.res b/Demos/Demo11/ThrdDemo.res
deleted file mode 100644
index 8d706e2..0000000
Binary files a/Demos/Demo11/ThrdDemo.res and /dev/null differ
diff --git a/Demos/Demo11/test.py b/Demos/Demo11/test.py
deleted file mode 100644
index a52c520..0000000
--- a/Demos/Demo11/test.py
+++ /dev/null
@@ -1,33 +0,0 @@
-from SortModule import getvalue,swap
-
-def SortFunc1(handle, low, high):
- for i in range(low, high):
- for j in range(low+1,high):
- if getvalue(handle,j-1) > getvalue(handle,j):
- swap(handle,j-1,j)
-
-def SortFunc2(handle,low,high):
- for i in range(low,high-1):
- for j in range(i+1,high):
- if getvalue(handle,i) > getvalue(handle,j):
- swap(handle,i,j)
-
-def SortFunc3(handle,low,high):
- Lo = low
- Hi = high-1
- Mid = getvalue(handle,(Lo+Hi) / 2)
- while 1:
- while getvalue(handle,Lo) < Mid:
- Lo = Lo + 1
- while getvalue(handle,Hi) > Mid:
- Hi = Hi - 1
- if Lo <= Hi:
- swap(handle,Lo,Hi)
- Lo = Lo + 1
- Hi = Hi - 1
- if Lo > Hi:
- break
- if Hi > low:
- SortFunc3(handle,low,Hi+1)
- if Lo < high-1:
- SortFunc3(handle,Lo,high)
diff --git a/Demos/Demo13/Demo13.dpr b/Demos/Demo13/Demo13.dpr
deleted file mode 100644
index f732346..0000000
--- a/Demos/Demo13/Demo13.dpr
+++ /dev/null
@@ -1,16 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-program Demo13;
-
-uses
- Forms,
- fmMain in 'fmMain.pas' {Main};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TMain, Main);
- Application.Run;
-end.
diff --git a/Demos/Demo13/Demo13.dproj b/Demos/Demo13/Demo13.dproj
deleted file mode 100644
index 935dabf..0000000
--- a/Demos/Demo13/Demo13.dproj
+++ /dev/null
@@ -1,104 +0,0 @@
-
-
- {31F0DC69-484B-425F-A59F-C06840DF2EFC}
- Demo13.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Demo13.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Demo13.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1032
- 1253
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- Microsoft Office 2000 Sample Automation Server Wrapper Components
- Microsoft Office XP Sample Automation Server Wrapper Components
-
-
-
- 12
-
-
diff --git a/Demos/Demo13/Demo13.res b/Demos/Demo13/Demo13.res
deleted file mode 100644
index cfdbb79..0000000
Binary files a/Demos/Demo13/Demo13.res and /dev/null differ
diff --git a/Demos/Demo13/Example1.py b/Demos/Demo13/Example1.py
deleted file mode 100644
index 8ead9bf..0000000
--- a/Demos/Demo13/Example1.py
+++ /dev/null
@@ -1,67 +0,0 @@
-import DB
-import DBTables
-True = 1
-False = 0
-
-# Create and open the table
-T = DBTables.CreateTTable()
-T.DatabaseName = "DBDemos"
-T.TableName = "customer.db"
-T.Active = True #or use T.Open()
-
-# Display columns
-print "Columns: ", T.FieldNamesAsTuple()
-
-LastInvoiceDate = T.FieldByName("LastInvoiceDate")
-
-# For each record of the table
-T.First()
-while not T.EOF:
- # Get all the fields in a list
- A = []
- for i in xrange( T.FieldCount ):
- A.append( T.Fields(i).Value )
- # Print the current record number and the list
- print "Rec.", T.RecNo, ":", A
- # Edit record
- T.Edit()
- T.FieldByName("TaxRate").Value = 2.5
- # Increments date by one day
- D = LastInvoiceDate.Value
- if D[2] < 28:
- D2 = D[:2]+(D[2]+1,)+D[3:] # this is tuple arithmetic !
- else:
- D2 = D[:2]+(1,)+D[3:] # this is tuple arithmetic !
- LastInvoiceDate.Value = D2
- T.Post()
- # Get next record
- T.Next()
-
-# Print some fields by their names
-F = T.FieldByName("Company")
-print F, F.FieldName, "=", F.Value
-
-# Use the TFields and print the list of companies
-T.First()
-while not T.EOF:
- print F.AsString
- T.Next()
-
-# Print the fields as a dictionary
-D = T.FieldsAsDict()
-print D
-print D["Company"]
-
-T.Close()
-T.TableName = "Dummy.db"
-try:
- T.Open()
-except DB.DBError:
- print "could not open table ", T.TableName
-
-#delete fields
-del F
-del LastInvoiceDate
-
-# delete the table
-del T
diff --git a/Demos/Demo13/Example2.py b/Demos/Demo13/Example2.py
deleted file mode 100644
index b3caa1b..0000000
--- a/Demos/Demo13/Example2.py
+++ /dev/null
@@ -1,89 +0,0 @@
-import DB
-import DBTables
-True = 1
-False = 0
-
-# Get the TTable object associated to
-# the delphi table displayed on right
-# It is done when you click on Execute
-T = DBTables.T
-
-# Display columns
-print "Columns: "
-for i in T.FieldNamesAsTuple():
- print " ", i
-
-T.CancelRange()
-# For each record of the table
-for i in T:
- print "Rec.", T.RecNo, ":", i
-
-# Print some fields by their names
-print T.FieldByName("Company")
-
-# check state
-if not T.State in [DB.dsEdit, DB.dsInsert]:
- print "Table is not edited"
-
-# access the table like an array
-print T[10] # Row 11
-print T[10] [1] # second field of row 11
-
-# locate a record
-if T.Locate( "City;State", ["Largo","FL"], [] ):
- print "Found rec:", T.RecNo
-if T.Locate( "Company", "BLUE SPORTS", [DB.loCaseInsensitive] ):
- print "Found rec:", T.RecNo
-if T.Locate( "Company", "ISLAND", [DB.loCaseInsensitive, DB.loPartialKey] ):
- print "Found rec:", T.RecNo
-
-# lookup a record
-print T.Lookup( "City;State", ["Largo","FL"], "CustNo;Company" )
-
-# define a range
-print "-----------------------------------------------------------"
-print "Indexes:", T.GetIndexNames()
-T.IndexName = "ByCompany"
-T.SetRange( ["Unisco"], ["Unisco"] )
-for i in T:
- print "Rec.", T.RecNo, ":", i
-T.CancelRange()
-
-print "-----------------------------------------------------------"
-# Find a record
-if T.FindKey( ['Unisco'] ):
- print "Unisco found !"
-else:
- print "Could not find Unisco !"
-
-# Find the nearest record
-T.FindNearest( ['Ocean'] )
-print "Find nearest Ocean :", T.FieldsAsTuple()
-
-# Print all doc strings of an instance's methods
-def PrintDocOf( inst ):
- print "--------------------- Type ", type(inst).__name__, "---------------------"
- if type(inst).__doc__:
- print type(inst).__doc__
- print "Methods:"
- for i in dir(inst):
- print inst
- doc = getattr(inst, i).__doc__
- if doc:
- print " ", doc
- print
- print "Properties:"
- for i in inst.__properties__:
- print " ", i
-print "-----------------------------------------------------------"
-print "Documentation:"
-print
-print "Module DBTables:"
-print DBTables.__doc__
-PrintDocOf(T)
-print "-----------------------------------------------------------"
-print "Property values of", T
-for i in T.__members__: # or T.__properties__
- print i, "=", getattr(T, i)
-
-
diff --git a/Demos/Demo13/Example3.py b/Demos/Demo13/Example3.py
deleted file mode 100644
index 55e48b5..0000000
--- a/Demos/Demo13/Example3.py
+++ /dev/null
@@ -1,39 +0,0 @@
-import DB
-import DBTables
-True = 1
-False = 0
-
-# Get the TTable object created by Delphi
-# and connected to a Delphi Datasource
-# It is done when you click on Execute
-T = DBTables.T
-# Select and open a table
-T.DatabaseName = "DBDemos"
-T.TableName = "customer.db"
-T.Open()
-
-# Display columns
-print "Columns: "
-for i in T.FieldNamesAsTuple():
- print " ", i
-
-# For each record of the table
-T.First()
-while not T.EOF:
- # Get all the fields in a tuple
- A = T.FieldsAsTuple()
- # Print the current record number and the tuple
- print "Rec.", T.RecNo, ":", A
- # Get next record
- T.Next()
-
-# Print some fields by their names
-print T.FieldByName("Company")
-
-# check state
-if not T.State in [DB.dsEdit, DB.dsInsert]:
- print "Table is not edited"
-
-# clean up
-del T
-del DBTables.T
diff --git a/Demos/Demo13/Example4.py b/Demos/Demo13/Example4.py
deleted file mode 100644
index 3030668..0000000
--- a/Demos/Demo13/Example4.py
+++ /dev/null
@@ -1,40 +0,0 @@
-import DB
-import DBTables
-True = 1
-False = 0
-
-# Create and open the table
-T = DBTables.CreateTQuery()
-T.DatabaseName = "DBDemos"
-T.SQL = [
- "SELECT *",
- " FROM customer.db"
- ]
-T.Open()
-
-# Display columns
-print "Columns: ", T.FieldNamesAsTuple()
-
-# For each record of the table
-T.First()
-while not T.EOF:
- # Get all the fields in a list
- A = []
- for i in xrange( T.FieldCount ):
- A.append( T.Fields(i).AsString )
- # Print the current record number and the list
- print "Rec.", T.RecNo, ":", A
- # Get next record
- T.Next()
-
-# Print some fields by their names
-print T.FieldByName("Company")
-
-# Print the fields as a dictionary
-D = T.FieldsAsDict()
-print D
-print D["Company"]
-
-# delete the table
-del T
-
diff --git a/Demos/Demo13/Example5.py b/Demos/Demo13/Example5.py
deleted file mode 100644
index 0267567..0000000
--- a/Demos/Demo13/Example5.py
+++ /dev/null
@@ -1,113 +0,0 @@
-import DB
-import DBTables
-import pyio
-
-True = 1
-False = 0
-
-# Misc
-def DisplayTypesStats(*args):
- for i in apply(pyio.GetTypesStats, args): # Requested types
- #for i in pyio.GetTypesStats('TTable', 'TField'): # Only the types TTable and TField
- print "--------------------------------------------------------------------------------"
- print "TYPE ", i[0]
- print " Instance count :", i[1]
- print " Create Hits :", i[2]
- print " Delete Hits :", i[3]
- print "--------------------------------------------------------------------------------"
-
-# Event functions
-
-def AfterScroll(Dataset):
- print "---------> Scrolled to rec #"+str(Dataset.RecNo)+" <--------------"
-
-# Event methods
-
-# WARNING :
-# ---------
-# if you store the TTable in your C instance, and if you use events,
-# you must be aware of the reference counting mechanism, and its
-# failure on circular references:
-# c = C(): c refcount = 1
-# c.T = CreateTTable(): c.T refcount = 1
-# c.T.OnAfterOpen = c.OnAfterOpen: c refcount = 2
-# del c: c refcount = 1 and you loose any reference on your c instance
-# which still contains a TTable.
-# so if you want to avoid the leaking, then you must clear the events
-# before you delete the instance:
-# c.T.OnAfterOpen = None: c refcount = 1
-# del c: c refcount = 0 -> c is deleted
-#
-# Try to use try..finally constructs, in order to avoid
-# the leaking if an exception is raised before you can free the
-# resources.
-#
-# Don't forget to close the TTable, if you want to get the Before/After
-# close events, because when destroying a TTable, we first clear all
-# events. But that's the case with the Delphi behaviour too.
-
-class C:
- def __init__(Self):
- # Create and open the table
- Self.T = DBTables.CreateTTable()
- Self.T.DatabaseName = "DBDemos"
- Self.T.TableName = "customer.db"
- Self.T.AfterScroll = AfterScroll # a global function
- Self.T.BeforeOpen = Self.BeforeOpen # a method of the c instance of class C
- Self.T.AfterOpen = Self.AfterOpen # a method of the c instance of class C
- Self.T.BeforeClose = Self.BeforeClose # a method of the c instance of class C
- Self.T.AfterClose = Self.AfterClose # a method of the c instance of class C
- Self.T.OnFilterRecord = Self.OnFilterRecord # a method of the c instance of class C
- Self.T.Filtered = True
- Self.T.Open()
-
- def __del__(Self):
- print "c instance deleted"
-
- def Free(Self):
- Self.T.Close()
- del Self.T
-
- def BeforeOpen(Self, Dataset):
- Self.Name = Dataset.DatabaseName + ":" + Dataset.TableName
- print "Before Open of ", Self.Name
-
- def AfterOpen(Self, Dataset):
- print "After Open of ", Self.Name
-
- def BeforeClose(Self, Dataset):
- print "Before close of ", Self.Name
-
- def AfterClose(Self, Dataset):
- print "After Close of ", Self.Name
-
- def OnFilterRecord(Self, Dataset, Accept):
- # Accept is var argument in Delphi, but in Python you can't
- # change a function's argument. So we use a special object
- # TVarArg which contains a single property : Value
- Accept.Value = Dataset.FieldByName("Company").AsString > "E"
- if not Accept.Value:
- print "$$$$$ Rejected record:", Dataset.FieldsAsTuple()
-
-DisplayTypesStats()
-c = C()
-DisplayTypesStats()
-
-# don't use a "for i in c.T" expression with a filtered table,
-# because the BDE will filter the whole table for each movement,
-# in order to get the RecordCount.
-
-try:
- c.T.First()
- while not c.T.EOF:
- print c.T.FieldsAsTuple()
- c.T.Next()
-
-finally:
- c.Free()
- del c
-
-DisplayTypesStats()
-#DisplayTypesStats('TField', 'TTable')
-
-
diff --git a/Demos/Demo13/Example6.py b/Demos/Demo13/Example6.py
deleted file mode 100644
index d7ca6db..0000000
--- a/Demos/Demo13/Example6.py
+++ /dev/null
@@ -1,91 +0,0 @@
-import DB
-import DBTables
-True = 1
-False = 0
-
-# Here's how you can use a Proxy class
-# in order to inherit from any Python object
-# like our TTable or TQuery !
-
-class Proxy:
- def __init__(Self, Object):
- Self.__object__ = Object
-
- def __getattr__(Self, Key):
- return getattr(Self.__dict__['__object__'], Key)
-
- def __setattr__(Self, Key, Value):
- if Key == "__object__":
- Self.__dict__[Key] = Value
- elif hasattr(Self.__object__, Key):
- return setattr(Self.__object__, Key, Value)
- else:
- Self.__dict__[Key] = Value
-
- def __len__(Self):
- return len(Self.__object__)
-
- def __getitem__(Self, Item):
- return Self.__object__[Item]
-
-class TMyQuery(Proxy):
- def __init__(Self):
- Proxy.__init__(Self, DBTables.CreateTQuery() )
-
-class TMySubQuery(TMyQuery):
- def First(Self):
- print "First requested on Query"
- Self.__object__.First()
-
-
-# Create and open the table
-T = TMySubQuery()
-T.DatabaseName = "DBDemos"
-T.SQL = [
- "SELECT *",
- " FROM customer.db"
- ]
-T.Open()
-
-# Display columns
-print "Columns: ", T.FieldNamesAsTuple()
-
-# Test of method override
-T.Last()
-print "RecNo =", T.RecNo
-T.First()
-print "RecNo =", T.RecNo
-
-# For each record of the table
-T.First()
-while not T.EOF:
- # Get all the fields in a list
- A = []
- for i in xrange( T.FieldCount ):
- A.append( T.Fields(i).AsString )
- # Print the current record number and the list
- print "Rec.", T.RecNo, ":", A
- # Get next record
- T.Next()
-
-# Print some fields by their names
-print T.FieldByName("Company")
-
-# Print the fields as a dictionary
-D = T.FieldsAsDict()
-print D["Company"]
-
-# Iterate our class
-print T
-for i in T:
- print i
-
-print T
-
-# Define new instance vars
-T.Test1 = 3
-print T.Test1, T.DatabaseName
-
-# delete the table
-del T
-
diff --git a/Demos/Demo13/fmMain.dfm b/Demos/Demo13/fmMain.dfm
deleted file mode 100644
index ac23396..0000000
Binary files a/Demos/Demo13/fmMain.dfm and /dev/null differ
diff --git a/Demos/Demo13/fmMain.pas b/Demos/Demo13/fmMain.pas
deleted file mode 100644
index ab798b5..0000000
--- a/Demos/Demo13/fmMain.pas
+++ /dev/null
@@ -1,174 +0,0 @@
-unit fmMain;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- ComCtrls, ExtCtrls, StdCtrls, PythonEngine, PythonGUIInputOutput, Db,
- DBTables, Grids, DBGrids, PythonDatabase;
-
-type
- TMain = class(TForm)
- RichEdit1: TRichEdit;
- PageControl1: TPageControl;
- Splitter1: TSplitter;
- TabSheet1: TTabSheet;
- TabSheet2: TTabSheet;
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo1: TMemo;
- Button1: TButton;
- Table1: TTable;
- Memo2: TMemo;
- Panel1: TPanel;
- DBGrid1: TDBGrid;
- Button2: TButton;
- DataSource1: TDataSource;
- TabSheet3: TTabSheet;
- Table1CustNo: TFloatField;
- Table1Company: TStringField;
- Table1Addr1: TStringField;
- Table1Addr2: TStringField;
- Table1City: TStringField;
- Table1State: TStringField;
- Table1Zip: TStringField;
- Table1Country: TStringField;
- Table1Phone: TStringField;
- Table1FAX: TStringField;
- Table1TaxRate: TFloatField;
- Table1Contact: TStringField;
- Table1LastInvoiceDate: TDateTimeField;
- Table1Demo: TStringField;
- Label1: TLabel;
- TabSheet4: TTabSheet;
- TabSheet5: TTabSheet;
- Memo4: TMemo;
- Splitter2: TSplitter;
- Panel2: TPanel;
- Button3: TButton;
- Label2: TLabel;
- Splitter3: TSplitter;
- Memo3: TMemo;
- Splitter4: TSplitter;
- Panel3: TPanel;
- Button4: TButton;
- DBGrid2: TDBGrid;
- DataSource2: TDataSource;
- TreeView1: TTreeView;
- TabSheet6: TTabSheet;
- Label3: TLabel;
- Memo5: TMemo;
- Panel4: TPanel;
- Button5: TButton;
- Splitter5: TSplitter;
- PythonDatabase1: TPythonDatabase;
- TabSheet7: TTabSheet;
- Memo6: TMemo;
- Splitter6: TSplitter;
- Panel5: TPanel;
- Button6: TButton;
- Label4: TLabel;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Table1CalcFields(DataSet: TDataSet);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure Button5Click(Sender: TObject);
- procedure Button6Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-var
- Main: TMain;
-
-implementation
-uses pyDB, pyDBTables;
-{$R *.DFM}
-
-procedure TMain.Button1Click(Sender: TObject);
-begin
- with PythonEngine1 do
- ExecStrings( Memo1.Lines );
-end;
-
-procedure TMain.Button2Click(Sender: TObject);
-var
- tbl : TPyTable;
- obj : PPyObject;
-begin
- // Instantiate a new Python object TPyTable
- obj := gTableType.CreateInstance;
- tbl := PythonToDelphi(obj) as TPyTable;
- // Attach our Delphi table to the Python object
- tbl.SetDataset( Table1, False );
- with GetPythonEngine do
- begin
- // Define a new variable "T" in the DB module
- gDBTablesModule.SetVar( 'T', obj );
- Py_XDecRef(obj);
- // Excecute the script
- ExecStrings( memo2.Lines );
- end;
-end;
-
-procedure TMain.Table1CalcFields(DataSet: TDataSet);
-begin
- Dataset.FieldByName('Demo').AsString := Dataset.FieldByName('State').AsString + ' - ' +
- Dataset.FieldByName('Zip').AsString;
-end;
-
-procedure TMain.Button3Click(Sender: TObject);
-begin
- with PythonEngine1 do
- ExecStrings( Memo4.Lines );
-end;
-
-procedure TMain.Button4Click(Sender: TObject);
-var
- tbl : TPyTable;
- obj : PPyObject;
-begin
- // Instantiate a new Python object TPyTable
- obj := gTableType.CreateInstance;
- tbl := PythonToDelphi(obj) as TPyTable;
- // connect the Datasource2 to the Python TTable
- Datasource2.Dataset := tbl.Table;
- with GetPythonEngine do
- begin
- // Define a new variable "T" in the DB module
- gDBTablesModule.SetVar( 'T', obj );
- Py_XDecRef(obj);
- // Excecute the script
- ExecStrings( memo3.Lines );
- end;
-end;
-
-procedure TMain.FormCreate(Sender: TObject);
-begin
- Memo1.Lines.LoadFromFile( 'Example1.py' );
- Memo2.Lines.LoadFromFile( 'Example2.py' );
- Memo3.Lines.LoadFromFile( 'Example3.py' );
- Memo4.Lines.LoadFromFile( 'Example4.py' );
- Memo5.Lines.LoadFromFile( 'Example5.py' );
- Memo6.Lines.LoadFromFile( 'Example6.py' );
- PageControl1.ActivePage := TabSheet1;
-end;
-
-procedure TMain.Button5Click(Sender: TObject);
-begin
- with PythonEngine1 do
- ExecStrings( Memo5.Lines );
-end;
-
-procedure TMain.Button6Click(Sender: TObject);
-begin
- with PythonEngine1 do
- ExecStrings( Memo6.Lines );
-end;
-
-end.
-
diff --git a/Demos/Demo14/Project1.dpr b/Demos/Demo14/Project1.dpr
deleted file mode 100644
index 513a1dd..0000000
--- a/Demos/Demo14/Project1.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program Project1;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo14/Project1.res b/Demos/Demo14/Project1.res
deleted file mode 100644
index 10ba0ac..0000000
Binary files a/Demos/Demo14/Project1.res and /dev/null differ
diff --git a/Demos/Demo14/Unit1.dfm b/Demos/Demo14/Unit1.dfm
deleted file mode 100644
index 4a3f8e6..0000000
Binary files a/Demos/Demo14/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo14/Unit1.pas b/Demos/Demo14/Unit1.pas
deleted file mode 100644
index f1f1e8a..0000000
--- a/Demos/Demo14/Unit1.pas
+++ /dev/null
@@ -1,38 +0,0 @@
-unit Unit1;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- PythonEngine, StdCtrls, ExtCtrls, ComCtrls, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- Splitter1: TSplitter;
- Memo1: TMemo;
- PythonEngine1: TPythonEngine;
- Panel1: TPanel;
- Button1: TButton;
- RichEdit1: TRichEdit;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- procedure Button1Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.DFM}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( memo1.Lines );
-end;
-
-
-end.
diff --git a/Demos/Demo14/bugreport.txt b/Demos/Demo14/bugreport.txt
deleted file mode 100644
index 30dc065..0000000
--- a/Demos/Demo14/bugreport.txt
+++ /dev/null
@@ -1,293 +0,0 @@
-date/time : 2013-12-23, 04:10:53, 203ms
-computer name : HOMEAP
-user name : User
-registered owner : User / Home
-operating system : Windows XP Service Pack 3 build 2600
-system language : Russian
-system up time : 2 days
-program up time : 12 seconds
-processors : 4x Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
-physical memory : 2826/3564 MB (free/total)
-free disk space : (C:) 46,75 GB
-display mode : 1280x1024, 32 bit
-process id : $ae0
-allocated memory : 9,28 MB
-executable : Project1.exe
-exec. date/time : 2013-12-23 04:10
-compiled with : Delphi 7
-madExcept version : 4.0.6
-callstack crc : $e0187a56, $611c29a4, $611c29a4
-exception number : 1
-exception class : EPyImportError
-exception message : exceptions.ImportError: No module named database.
-
-main thread ($adc):
-004c4d3a +196 Project1.exe PythonEngine 5377 +19 TPythonEngine.RaiseError
-004c7852 +062 Project1.exe PythonEngine 6384 +12 TPythonEngine.CheckError
-004c4512 +11a Project1.exe PythonEngine 5183 +27 TPythonEngine.Run_CommandAsObjectWithDict
-004c43e8 +014 Project1.exe PythonEngine 5149 +1 TPythonEngine.Run_CommandAsObject
-004c45f8 +03c Project1.exe PythonEngine 5196 +1 TPythonEngine.ExecStrings
-004c9f46 +012 Project1.exe Unit1 34 +0 TForm1.Button1Click
-0049a7ec +064 Project1.exe Controls TControl.Click
-00492d90 +01c Project1.exe StdCtrls TButton.Click
-00492e84 +00c Project1.exe StdCtrls TButton.CNCommand
-0049a654 +188 Project1.exe Controls TControl.WndProc
-0049d59f +157 Project1.exe Controls TWinControl.WndProc
-00492c54 +06c Project1.exe StdCtrls TButtonControl.WndProc
-0049a424 +024 Project1.exe Controls TControl.Perform
-0049d6d7 +023 Project1.exe Controls DoControlMsg
-0049dd2f +00b Project1.exe Controls TWinControl.WMCommand
-0049a654 +188 Project1.exe Controls TControl.WndProc
-0049d59f +157 Project1.exe Controls TWinControl.WndProc
-0047bfe0 +014 Project1.exe Classes StdWndProc
-0049d21c +02c Project1.exe Controls TWinControl.MainWndProc
-0047bfe0 +014 Project1.exe Classes StdWndProc
-7c90e470 +010 ntdll.dll KiUserCallbackDispatcher
-7e3792de +044 user32.dll SendMessageW
-7e37a993 +016 user32.dll CallWindowProcA
-0049d683 +0d7 Project1.exe Controls TWinControl.DefaultHandler
-0049abf4 +010 Project1.exe Controls TControl.WMLButtonUp
-0049a654 +188 Project1.exe Controls TControl.WndProc
-0049d59f +157 Project1.exe Controls TWinControl.WndProc
-00492c54 +06c Project1.exe StdCtrls TButtonControl.WndProc
-0049d21c +02c Project1.exe Controls TWinControl.MainWndProc
-0047bfe0 +014 Project1.exe Classes StdWndProc
-7e3696c2 +00a user32.dll DispatchMessageA
-004b880b +083 Project1.exe Forms TApplication.ProcessMessage
-004b8842 +00a Project1.exe Forms TApplication.HandleMessage
-004b8a62 +096 Project1.exe Forms TApplication.Run
-004ca26f +03b Project1.exe Project1 17 +3 initialization
-
-modules:
-00400000 Project1.exe C:\Components\Python4delphi\PythonForDelphi\Demos\Demo14
-10000000 AM32-33707.dll 4.73.0.30530 C:\Program Files\Ad Muncher
-1e000000 python26.dll 2.6.6150.1013 C:\WIN_NEW\system32
-5b260000 uxtheme.dll 6.0.2900.5512 C:\WIN_NEW\system32
-5d5b0000 comctl32.dll 5.82.2900.6028 C:\WIN_NEW\system32
-71a80000 WS2HELP.dll 5.1.2600.5512 C:\WIN_NEW\system32
-71a90000 WS2_32.dll 5.1.2600.5512 C:\WIN_NEW\system32
-71ab0000 wsock32.dll 5.1.2600.5512 C:\WIN_NEW\system32
-72fc0000 winspool.drv 5.1.2600.5512 C:\WIN_NEW\system32
-732a0000 RICHED32.DLL 5.1.2600.0 C:\WIN_NEW\system32
-746e0000 MSCTF.dll 5.1.2600.5512 C:\WIN_NEW\system32
-74df0000 RICHED20.dll 5.30.23.1230 C:\WIN_NEW\system32
-75310000 msctfime.ime 5.1.2600.5768 C:\WIN_NEW\system32
-76360000 IMM32.DLL 5.1.2600.5512 C:\WIN_NEW\system32
-76380000 comdlg32.dll 6.0.2900.5512 C:\WIN_NEW\system32
-77110000 oleaut32.dll 5.1.2600.6341 C:\WIN_NEW\system32
-773c0000 comctl32.dll 6.0.2900.6028 C:\WIN_NEW\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202
-774d0000 ole32.dll 5.1.2600.6168 C:\WIN_NEW\system32
-77910000 SETUPAPI.dll 5.1.2600.5512 C:\WIN_NEW\system32
-77bf0000 version.dll 5.1.2600.5512 C:\WIN_NEW\system32
-77c00000 msvcrt.dll 7.0.2600.5512 C:\WIN_NEW\system32
-77dc0000 advapi32.dll 5.1.2600.5755 C:\WIN_NEW\system32
-77e70000 RPCRT4.dll 5.1.2600.6022 C:\WIN_NEW\system32
-77f10000 GDI32.dll 5.1.2600.5698 C:\WIN_NEW\system32
-77f60000 SHLWAPI.dll 6.0.2900.5912 C:\WIN_NEW\system32
-77fe0000 Secur32.dll 5.1.2600.5834 C:\WIN_NEW\system32
-78520000 MSVCR90.dll 9.0.30729.6161 C:\WIN_NEW\WinSxS\x86_Microsoft.VC90.CRT_1fc8b3b9a1e18e3b_9.0.30729.6161_x-ww_31a54e43
-7c800000 kernel32.dll 5.1.2600.6293 C:\WIN_NEW\system32
-7c900000 ntdll.dll 5.1.2600.6055 C:\WIN_NEW\system32
-7c9c0000 shell32.dll 6.0.2900.6242 C:\WIN_NEW\system32
-7e360000 user32.dll 5.1.2600.5512 C:\WIN_NEW\system32
-
-processes:
-000 Idle 0 0
-004 System 0 0 normal
-584 smss.exe 0 0 normal C:\WIN_NEW\system32
-5e4 csrss.exe 0 0
-600 winlogon.exe 46 14 high C:\WIN_NEW\system32
-62c services.exe 4 2 normal C:\WIN_NEW\system32
-638 lsass.exe 4 3 normal C:\WIN_NEW\system32
-6fc svchost.exe 4 1 normal C:\WIN_NEW\system32
-740 svchost.exe 0 0
-410 svchost.exe 11 37 normal C:\WIN_NEW\System32
-438 svchost.exe 4 1 normal C:\WIN_NEW\system32
-5cc svchost.exe 0 0
-7e0 svchost.exe 0 0
-144 spoolsv.exe 13 8 normal C:\WIN_NEW\system32
-2e4 Explorer.EXE 308 139 normal C:\WIN_NEW
-31c svchost.exe 0 0
-35c ekrn.exe 12 13 normal C:\Program Files\ESET\ESET Smart Security
-390 jqs.exe 4 2 idle C:\Program Files\Java\jre7\bin
-3cc nvsvc32.exe 16 5 normal C:\WIN_NEW\system32
-590 daemonu.exe 0 0
-3a4 svchost.exe 4 2 normal C:\WIN_NEW\system32
-4d8 RunDLL32.exe 50 7 normal C:\WIN_NEW\system32
-51c egui.exe 149 50 normal C:\Program Files\ESET\ESET Smart Security
-3f8 AdMunch.exe 27 21 normal C:\Program Files\Ad Muncher
-c08 ctfmon.exe 28 12 normal C:\WIN_NEW\system32
-c18 DTLite.exe 182 55 normal C:\Program Files\DAEMON Tools Lite
-1d4 AutoHotkey.exe 13 15 normal C:\Program Files\AutoHotkey
-924 wmiapsrv.exe 4 2 normal C:\WIN_NEW\system32\wbem
-cc8 wscntfy.exe 20 8 normal C:\WIN_NEW\system32
-fac alg.exe 0 0
-ea0 QIPShot.exe 1833 194 normal C:\Documents and Settings\User\Local Settings\Application Data\QIP\QIP Shot
-d38 YandexDisk.exe 50 39 normal C:\Program Files\Yandex\YandexDisk\bin
-118 YandexDiskStarter.exe 4 2 normal C:\Program Files\Yandex\YandexDisk\bin
-088 delphi32.exe 747 302 normal C:\Borland\Delphi7\Bin
-ae0 Project1.exe 83 53 normal C:\Components\Python4delphi\PythonForDelphi\Demos\Demo14
-
-hardware:
-+ DVD и CD-ROM дисководы
- - CD-ROM дисковод
- - DTSOFT Virtual CdRom Device
-+ IDE ATA/ATAPI контроллеры
- - Intel(R) 7 Series/C216 Chipset Family 2 port Serial ATA Storage Controller - 1E08 (driver 9.3.0.1008)
- - Intel(R) 7 Series/C216 Chipset Family 4 port Serial ATA Storage Controller - 1E00 (driver 9.3.0.1008)
- - Вторичный канал IDE
- - Вторичный канал IDE
- - Первичный канал IDE
- - Первичный канал IDE
-+ SCSI и RAID контроллеры
- - ARXSW0H2 IDE Controller
-+ Видеоадаптеры
- - NVIDIA GeForce GT 440 (driver 6.14.12.9573)
-+ Дисковые устройства
- - Hitachi HTS545032B9A300 USB Device
- - JetFlash TS1GJF110 USB Device
- - Дисковый накопитель
-+ Звуковые, видео и игровые устройства
- - NVIDIA High Definition Audio (driver 1.3.12.0)
- - NVIDIA High Definition Audio (driver 1.3.12.0)
- - NVIDIA High Definition Audio (driver 1.3.12.0)
- - NVIDIA High Definition Audio (driver 1.3.12.0)
- - Realtek High Definition Audio (driver 5.10.0.6554)
- - Аудио кодеки
- - Видео кодеки
- - Драйверы аудио (без PnP)
- - Устройства записи видео (без PnP)
- - Устройство управления
-+ Клавиатуры
- - Стандартная (101/102 клавиши) или клавиатура PS/2 Microsoft Natural
-+ Компьютер
- - Многопроцессорный компьютер с ACPI
-+ Контроллеры универсальной последовательной шины USB
- - Intel(R) 7 Series/C216 Chipset Family USB Enhanced Host Controller - 1E26 (driver 9.3.0.1011)
- - Intel(R) 7 Series/C216 Chipset Family USB Enhanced Host Controller - 1E2D (driver 9.3.0.1011)
- - Запоминающее устройство для USB
- - Запоминающее устройство для USB
- - Корневой USB концентратор
- - Корневой USB концентратор
- - Универсальный USB концентратор
- - Универсальный USB концентратор
-+ Мониторы
- - Модуль подключения монитора
-+ Мыши и иные указывающие устройства
- - HID-совместимая мышь
-+ Порты (COM и LPT)
- - Последовательный порт (COM1)
-+ Процессоры
- - Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
- - Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
- - Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
- - Intel(R) Core(TM) i3-2120 CPU @ 3.30GHz
-+ Сетевые платы
- - Atheros AR8151 PCI-E Gigabit Ethernet Controller (driver 2.0.4.4)
- - Atheros AR8151 PCI-E Gigabit Ethernet Controller - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - Atheros AR8151 PCI-E Gigabit Ethernet Controller - VirtualBox Bridged Networking Driver Miniport (driver 4.1.22.0)
- - Atheros AR8151 PCI-E Gigabit Ethernet Controller - Минипорт планировщика пакетов
- - D-Link DFE-520TX PCI Fast Ethernet Adapter - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - D-Link DFE-520TX PCI Fast Ethernet Adapter - VirtualBox Bridged Networking Driver Miniport (driver 4.1.22.0)
- - D-Link DFE-520TX PCI Fast Ethernet Adapter - Минипорт планировщика пакетов
- - NVIDIA nForce Networking Controller - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - NVIDIA nForce Networking Controller - VirtualBox Bridged Networking Driver Miniport (driver 4.1.22.0)
- - NVIDIA nForce Networking Controller - Минипорт планировщика пакетов
- - VirtualBox Host-Only Ethernet Adapter (driver 4.1.22.0)
- - VirtualBox Host-Only Ethernet Adapter - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - VirtualBox Host-Only Ethernet Adapter - Минипорт планировщика пакетов
- - Минипорт WAN (IP)
- - Минипорт WAN (IP) - Eset Personal Firewall Miniport (driver 6.0.308.0)
- - Минипорт WAN (IP) - Минипорт планировщика пакетов
- - Минипорт WAN (L2TP)
- - Минипорт WAN (PPPoE)
- - Минипорт WAN (PPTP)
- - Прямой параллельный порт
-+ Системные устройства
- - 2nd Generation Intel(R) Core(TM) Processor Family DRAM Controller - 0100 (driver 9.2.0.1026)
- - CMOS и часы
- - DAEMON Tools Virtual Bus (driver 5.0.1.282)
- - Intel(R) 7 Series/C216 Chipset Family PCI Express Root Port 1 - 1E10 (driver 9.3.0.1011)
- - Intel(R) 7 Series/C216 Chipset Family PCI Express Root Port 3 - 1E14 (driver 9.3.0.1011)
- - Intel(R) 7 Series/C216 Chipset Family SMBus Host Controller - 1E22 (driver 9.3.0.1011)
- - Intel(R) 7 Series/C216 Chipset Family Universal Serial Bus (USB) Controller - 1E31 (driver 9.3.0.1018)
- - Intel(R) 82801 PCI мост - 244E
- - Intel(R) 82802 Firmware концентратор
- - Intel(R) B75 Express Chipset LPC Controller - 1E49 (driver 9.3.0.1011)
- - Microsoft ACPI-совместимая система
- - Xeon E3-1200/2nd Generation Intel(R) Core(TM) Processor Family PCI Express Root Port - 0101 (driver 9.2.0.1026)
- - Вентилятор ACPI
- - Вентилятор ACPI
- - Вентилятор ACPI
- - Вентилятор ACPI
- - Вентилятор ACPI
- - Высокоточный таймер событий
- - Диспетчер логических дисков
- - Диспетчер томов
- - Драйвер Microsoft System Management BIOS
- - Драйвер клавиатуры сервера терминалов
- - Драйвер мыши сервера терминалов
- - Драйвер шины Microsoft UAA для High Definition Audio
- - Драйвер шины Microsoft UAA для High Definition Audio
- - Кнопка включения питания ACPI
- - Кнопка фиксированной возможности ACPI
- - Контроллер прямого доступа к памяти
- - Перенаправитель устройства сервера терминалов
- - Перечислитель программных устройств Plug and Play
- - Порт чтения данных ISAPNP
- - Программируемый контроллер прерываний
- - Процессор числовых данных
- - Расширенная шина ввода/вывода
- - Ресурсы системной платы
- - Ресурсы системной платы
- - Ресурсы системной платы
- - Ресурсы системной платы
- - Ресурсы системной платы
- - Системная плата
- - Системный таймер
- - Термальная зона ACPI
- - Термальная зона ACPI
- - Устройство обновления микропрограмм
- - Шина PCI
-+ Устройства HID (Human Interface Devices)
- - HID-совместимое устройство
- - HID-совместимое устройство управления
- - USB HID-совместимое устройство
-
-stack dump:
-0012f4d0 3f 4d 4c 00 de fa ed 0e - 01 00 00 00 07 00 00 00 ?ML.............
-0012f4e0 e4 f4 12 00 3f 4d 4c 00 - b0 6e a2 00 00 00 00 00 ....?ML..n......
-0012f4f0 d0 5b a2 00 01 01 00 00 - 24 f5 12 00 00 f5 12 00 .[......$.......
-0012f500 38 f5 12 00 dc 3e 40 00 - 24 f5 12 00 00 00 00 00 8....>@.$.......
-0012f510 00 00 00 00 00 00 00 00 - 10 c2 fe 01 88 5e 1d 1e .............^..
-0012f520 d0 5b a2 00 7c f5 12 00 - 57 78 4c 00 00 00 00 00 .[..|...WxL.....
-0012f530 00 00 00 00 17 45 4c 00 - 44 f5 12 00 1b 40 40 00 .....EL.D....@@.
-0012f540 7c f5 12 00 a0 f5 12 00 - dc 3e 40 00 7c f5 12 00 |........>@.|...
-0012f550 01 01 00 00 48 6a a2 00 - d0 5b a2 00 00 00 00 00 ....Hj...[......
-0012f560 90 33 fe 01 90 33 fe 01 - 10 da fd 01 00 00 00 00 .3...3..........
-0012f570 01 01 00 00 48 6a a2 00 - d0 5b a2 00 bc f5 12 00 ....Hj...[......
-0012f580 ed 43 4c 00 00 00 00 00 - 00 00 00 00 01 01 00 00 .CL.............
-0012f590 3c f7 12 00 74 41 a2 00 - d0 5b a2 00 fd 45 4c 00 <...tA...[...EL.
-0012f5a0 bc f8 12 00 dc 3e 40 00 - bc f5 12 00 74 2d 49 00 .....>@.....t-I.
-0012f5b0 88 53 a2 00 00 00 00 00 - 00 00 00 00 00 f7 12 00 .S..............
-0012f5c0 4b 9f 4c 00 f2 a7 49 00 - 88 53 a2 00 95 2d 49 00 K.L...I..S...-I.
-0012f5d0 3c f7 12 00 89 2e 49 00 - 88 53 a2 00 57 a6 49 00 <.....I..S..W.I.
-0012f5e0 3c f7 12 00 3c f7 12 00 - 88 53 a2 00 e4 f6 12 00 <...<....S......
-0012f5f0 0d 53 37 7e 10 f6 12 00 - 20 00 00 00 08 f6 12 00 .S7~.... .......
-0012f600 d8 99 37 7e 19 13 10 df - 80 18 01 7a 01 00 00 00 ..7~.......z....
-
-disassembling:
-[...]
-004c4d25 mov eax, [$4babc0]
-004c4d2a call -$5c74b ($4685e4) ; SysUtils.Exception.Create
-004c4d2f mov ecx, [ebp-$14]
-004c4d32 mov edx, [ebp-$10]
-004c4d35 call -$70a ($4c4630) ; PythonEngine.Define
-004c4d3a > call -$c0d97 ($403fa8) ; System.@RaiseExcept
-004c4d3f jmp loc_4c57d0
-004c4d44 5379 mov eax, [ebp-4]
-004c4d47 mov eax, [eax+$14c]
-004c4d4d mov eax, [eax]
-004c4d4f push eax
-[...]
-
diff --git a/Demos/Demo14/database.dpr b/Demos/Demo14/database.dpr
deleted file mode 100644
index 3fe316f..0000000
--- a/Demos/Demo14/database.dpr
+++ /dev/null
@@ -1,24 +0,0 @@
-library database;
-
-{ Remarque importante � propos de la gestion m�moire des DLL : ShareMem doit
- �tre la premi�re unit� dans la clause USES de votre biblioth�que,
- ET dans la clause USES de votre projet (s�lectionnez Voir-Source du projet)
- si vos DLLs exportent des proc�dures ou des fonctions passant en param�tre
- des cha�nes ou des r�sultats de fonction.
- Ceci s'applique � toutes les cha�nes pass�es par ou � vos DLLs - m�mes celles
- qui sont imbriqu�es dans des enregistrements ou des classes. ShareMem est
- l'unit� d'interface au gestionnaire de m�moire partag�e DELPHIMM.DLL, qui
- doit �tre d�ploy� avec vos propres DLLs. Pour �viter l'emploi de DELPHIMM.DLL,
- passez vos cha�nes en utilisant des param�tres PAnsiChar ou ShortString. }
-
-uses
- SysUtils,
- Classes,
- module in 'module.pas';
-
-exports
- initdatabase;
-{$E pyd}
-
-begin
-end.
diff --git a/Demos/Demo14/database.res b/Demos/Demo14/database.res
deleted file mode 100644
index d1f138d..0000000
Binary files a/Demos/Demo14/database.res and /dev/null differ
diff --git a/Demos/Demo14/module.pas b/Demos/Demo14/module.pas
deleted file mode 100644
index 953d1fd..0000000
--- a/Demos/Demo14/module.pas
+++ /dev/null
@@ -1,36 +0,0 @@
-unit module;
-
-interface
-uses Windows,Dialogs,PythonEngine, PythonDatabase;
-
-procedure initdatabase; cdecl;
-
-var
- gEngine : TPythonEngine;
- gModule : TPythonModule;
- gDB : TPythonDatabase;
-
-implementation
-
-procedure initdatabase;
-begin
- try
- gEngine := TPythonEngine.Create(nil);
- gEngine.AutoFinalize := False;
- gDB := TPythonDatabase.Create(nil);
- gDB.Engine := gEngine;
- gModule := TPythonModule.Create(nil);
- gModule.Engine := gEngine;
- gModule.ModuleName := 'database';
- gEngine.LoadDll;
- except
- end;
-end;
-
-initialization
-finalization
- gEngine.Free;
- gModule.Free;
-end.
-
-
diff --git a/Demos/Demo15/Project1.dpr b/Demos/Demo15/Project1.dpr
deleted file mode 100644
index 513a1dd..0000000
--- a/Demos/Demo15/Project1.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program Project1;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo15/Project1.res b/Demos/Demo15/Project1.res
deleted file mode 100644
index 6008d58..0000000
Binary files a/Demos/Demo15/Project1.res and /dev/null differ
diff --git a/Demos/Demo15/Unit1.dfm b/Demos/Demo15/Unit1.dfm
deleted file mode 100644
index 29616f7..0000000
Binary files a/Demos/Demo15/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo15/Unit1.pas b/Demos/Demo15/Unit1.pas
deleted file mode 100644
index 5d26c6e..0000000
--- a/Demos/Demo15/Unit1.pas
+++ /dev/null
@@ -1,157 +0,0 @@
-unit Unit1;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- PythonEngine, StdCtrls, ComCtrls, ExtCtrls, PythonGUIInputOutput, Db,
- DBTables, Grids, DBGrids;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Panel1: TPanel;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Panel2: TPanel;
- Panel3: TPanel;
- RichEdit1: TRichEdit;
- Splitter1: TSplitter;
- Memo1: TMemo;
- DBGrid1: TDBGrid;
- Table1: TTable;
- DataSource1: TDataSource;
- PythonModule1: TPythonModule;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure PythonModule1AfterInitialization(Sender: TObject);
- procedure PythonModule1Initialization(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
- function CreateTable( const DBName, TblName : String ) : TDataset;
- function DoCreateTable( Self, Args : PPyObject ) : PPyObject; cdecl; // Don't forget the cdecl keyword !!!
-
-
-var
- Form1: TForm1;
-
-implementation
-uses pyDB;
-{$R *.DFM}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.PythonModule1AfterInitialization(Sender: TObject);
-var
- ds : TDataset;
- obj : PPyObject;
-begin
- // The table is created while Python initializes our modules.
- // But we could do it just before the ExecStrings method.
- with Sender as TPythonModule do
- begin
- // Create our TDataset subclass
- ds := CreateTable( 'DBDemos', 'Animals.dbf' );
- // Use it in the Datasource of the DBGrid
- Datasource1.Dataset := ds;
- // Create a Python object that will let your script access your table
- obj := NewDataset(ds, True);
- // Put the Python object in a module var called 'Dataset'
- // To access this var in your script, import the module and prefix the var name with
- // the module name:
- // import MyModule
- // print MyModule.Dataset.Active
- PythonModule1.SetVar( 'Dataset', obj );
- // Don't forget to decrement the object, because SetVar has incremented it,
- // in order to acquire property.
- GetPythonEngine.Py_XDecRef(obj);
- end;
-end;
-
-
-
-procedure TForm1.PythonModule1Initialization(Sender: TObject);
-begin
- // Here we register our new module functions
- with Sender as TPythonModule do
- AddMethod( 'CreateTable', DoCreateTable, 'CreateTable( DBName, TbleName ) -> Dataset' );
-end;
-
-function CreateTable( const DBName, TblName : String ) : TDataset;
-var
- ds : TTable;
-begin
- // Note that here we use a simple TTable, but replace the TTable with anything that
- // inherits from a TDataset.
- ds := TTable.Create(nil);
- ds.DatabaseName := DBName;
- ds.TableName := TblName;
- ds.Active := True;
- Result := ds;
-end;
-
-{
- This function will let your Python script create its own instances of your
- TDataset subclass !
-}
-function DoCreateTable( Self, Args : PPyObject ) : PPyObject; cdecl;
-var
- DBName, TblName : PAnsiChar;
- ds : TDataset;
-begin
- with GetPythonEngine do
- begin
- // Extract our arguments
- if PyArg_ParseTuple( args, 'ss:CreateTable',@DBName, @TblName ) <> 0 then
- begin
- try
- // Try to create our dataset
- ds := CreateTable( DBName, TblName );
- // Create our Python wrapper
- Result := NewDataset( ds, True );
- except
- on E : Exception do
- begin
- if Assigned(gDBModule) then
- gDBModule.RaiseError( 'DBError', E.Message );
- Result := nil;
- end;
- end;
- end
- else // the arguments were not right
- Result := nil;
- end;
-end;
-
-end.
diff --git a/Demos/Demo16/Example1/Project1.dpr b/Demos/Demo16/Example1/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo16/Example1/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo16/Example1/Project1.dproj b/Demos/Demo16/Example1/Project1.dproj
deleted file mode 100644
index a621894..0000000
--- a/Demos/Demo16/Example1/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {FEB76A6C-3FF0-423D-AA7F-BA28CE5A6B63}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo16/Example1/Project1.res b/Demos/Demo16/Example1/Project1.res
deleted file mode 100644
index d1f138d..0000000
Binary files a/Demos/Demo16/Example1/Project1.res and /dev/null differ
diff --git a/Demos/Demo16/Example1/Unit1.dfm b/Demos/Demo16/Example1/Unit1.dfm
deleted file mode 100644
index 04f92ed..0000000
Binary files a/Demos/Demo16/Example1/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo16/Example1/Unit1.pas b/Demos/Demo16/Example1/Unit1.pas
deleted file mode 100644
index 4b044c0..0000000
--- a/Demos/Demo16/Example1/Unit1.pas
+++ /dev/null
@@ -1,142 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, ComCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- Splitter1: TSplitter;
- Panel2: TPanel;
- Splitter2: TSplitter;
- Memo1: TMemo;
- GroupBox1: TGroupBox;
- Button1: TButton;
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- PythonDelphiVar1: TPythonDelphiVar;
- edName: TEdit;
- cbInformatician: TCheckBox;
- rgSex: TRadioGroup;
- cbPythonUser: TCheckBox;
- cbTitle: TComboBox;
- Label1: TLabel;
- Label2: TLabel;
- edAge: TEdit;
- Label3: TLabel;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure PythonDelphiVar1ExtGetData(Sender: TObject;
- var Data: PPyObject);
- procedure PythonDelphiVar1ExtSetData(Sender: TObject; Data: PPyObject);
- procedure PythonDelphiVar1Change(Sender: TObject);
- private
- { D�clarations priv�es }
- FProperties : PPyObject;
-
- function CreateProperties : PPyObject;
- procedure UpdateProperties( props : PPyObject );
- public
- { D�clarations publiques }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- with GetPythonEngine do
- begin
- // Detach from previous object
- Py_XDecRef(FProperties);
- // Create new object
- FProperties := CreateProperties;
- // Execute script
- ExecStrings( Memo1.Lines );
- end;
-end;
-
-procedure TForm1.PythonDelphiVar1ExtGetData(Sender: TObject;
- var Data: PPyObject);
-begin
- with GetPythonEngine do
- begin
- // Return our object
- Data := FProperties;
- // Don't forget to increment it, otherwise we would loose property !
- Py_XIncRef(Data);
- end;
-end;
-
-procedure TForm1.PythonDelphiVar1ExtSetData(Sender: TObject;
- Data: PPyObject);
-begin
- with GetPythonEngine do
- begin
- // Check if the transmitted object is a dictionary
- if not PyDict_Check(Data) then
- Exit;
- // Acquire property to the transmitted object
- Py_XIncRef(Data);
- // Release property of our previous object
- Py_XDecRef(FProperties);
- // Assisgn transmitted object
- FProperties := Data;
- end;
-end;
-
-function TForm1.CreateProperties : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // Create new dictionary
- Result := PyDict_New();
- // Assign key/values
- PyDict_SetItemString( Result, 'Title', VariantAsPyObject(cbTitle.Text) );
- PyDict_SetItemString( Result, 'Name', VariantAsPyObject(edName.Text) );
- PyDict_SetItemString( Result, 'Informatician', VariantAsPyObject(cbInformatician.Checked) );
- PyDict_SetItemString( Result, 'PythonUser', VariantAsPyObject(cbPythonUser.Checked) );
- PyDict_SetItemString( Result, 'Age', VariantAsPyObject(StrToIntDef(edAge.Text, 0)) );
- PyDict_SetItemString( Result, 'Sex', VariantAsPyObject(rgSex.ItemIndex) );
- end;
-end;
-
-procedure TForm1.UpdateProperties( props : PPyObject );
-begin
- with GetPythonEngine do
- begin
- // Check if the transmitted object is a dictionary
- if not PyDict_Check(props) then
- Exit;
- // Extract our key/values
- cbTitle.Text := PyObjectAsVariant( PyDict_GetItemString(props, 'Title') );
- edName.Text := PyObjectAsVariant( PyDict_GetItemString(props, 'Name') );
- cbInformatician.Checked := PyObjectAsVariant( PyDict_GetItemString(props, 'Informatician') );
- cbPythonUser.Checked := PyObjectAsVariant( PyDict_GetItemString(props, 'PythonUser') );
- edAge.Text := PyObjectAsVariant( PyDict_GetItemString(props, 'Age') );
- rgSex.ItemIndex := PyObjectAsVariant( PyDict_GetItemString(props, 'Sex') );
- end;
-end;
-
-procedure TForm1.PythonDelphiVar1Change(Sender: TObject);
-begin
- UpdateProperties( FProperties );
-end;
-
-end.
diff --git a/Demos/Demo16/Example2/Project1.dpr b/Demos/Demo16/Example2/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo16/Example2/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo16/Example2/Project1.dproj b/Demos/Demo16/Example2/Project1.dproj
deleted file mode 100644
index e4ca94d..0000000
--- a/Demos/Demo16/Example2/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {3B870EA7-EAEB-434F-8C0D-2800B09DC00C}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo16/Example2/Project1.res b/Demos/Demo16/Example2/Project1.res
deleted file mode 100644
index d1f138d..0000000
Binary files a/Demos/Demo16/Example2/Project1.res and /dev/null differ
diff --git a/Demos/Demo16/Example2/Unit1.dfm b/Demos/Demo16/Example2/Unit1.dfm
deleted file mode 100644
index 76671a7..0000000
Binary files a/Demos/Demo16/Example2/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo16/Example2/Unit1.pas b/Demos/Demo16/Example2/Unit1.pas
deleted file mode 100644
index 45b9565..0000000
--- a/Demos/Demo16/Example2/Unit1.pas
+++ /dev/null
@@ -1,169 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- Panel1: TPanel;
- Splitter1: TSplitter;
- Panel2: TPanel;
- Splitter2: TSplitter;
- Memo1: TMemo;
- GroupBox1: TGroupBox;
- Button1: TButton;
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- edName: TEdit;
- cbInformatician: TCheckBox;
- rgSex: TRadioGroup;
- cbPythonUser: TCheckBox;
- cbTitle: TComboBox;
- Label1: TLabel;
- Label2: TLabel;
- edAge: TEdit;
- Label3: TLabel;
- PythonModule1: TPythonModule;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure PythonModule1Initialization(Sender: TObject);
- private
- { D�clarations priv�es }
-
- function GetProperty(pSelf, Args : PPyObject) : PPyObject; cdecl;
- function SetProperty(pSelf, Args : PPyObject) : PPyObject; cdecl;
- function GetPropertyList(pSelf, Args : PPyObject) : PPyObject; cdecl;
- public
- { D�clarations publiques }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- with GetPythonEngine do
- begin
- // Execute script
- ExecStrings( Memo1.Lines );
- end;
-end;
-
-procedure TForm1.PythonModule1Initialization(Sender: TObject);
-begin
- with Sender as TPythonModule do
- begin
- AddDelphiMethod( 'GetProperty', GetProperty, 'GetProperty(PropName) -> PropValue' );
- AddDelphiMethod( 'SetProperty', SetProperty, 'SetProperty(PropName, PropValue) -> None' );
- AddDelphiMethod( 'GetPropertyList', GetPropertyList, 'GetPropertyList() -> List of property names' );
- end;
-end;
-
-function TForm1.GetProperty(pSelf, Args : PPyObject) : PPyObject; cdecl;
-var
- key : PAnsiChar;
-begin
- with GetPythonEngine do
- if PyArg_ParseTuple( args, 's:GetProperty',@key ) <> 0 then
- begin
- if key = 'Title' then
- Result := VariantAsPyObject(cbTitle.Text)
- else if key = 'Name' then
- Result := VariantAsPyObject(edName.Text)
- else if key = 'Informatician' then
- Result := VariantAsPyObject(cbInformatician.Checked)
- else if key = 'PythonUser' then
- Result := VariantAsPyObject(cbPythonUser.Checked)
- else if key = 'Age' then
- Result := VariantAsPyObject(edAge.Text)
- else if key = 'Sex' then
- Result := VariantAsPyObject(rgSex.ItemIndex)
- else
- begin
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown property "%s"', [key])));
- Result := nil;
- end;
- end
- else
- Result := nil;
-end;
-
-function TForm1.SetProperty(pSelf, Args : PPyObject) : PPyObject; cdecl;
-var
- key : PAnsiChar;
- value : PPyObject;
-begin
- with GetPythonEngine do
- if PyArg_ParseTuple( args, 'sO:SetProperty',@key, @value ) <> 0 then
- begin
- if key = 'Title' then
- begin
- cbTitle.Text := PyObjectAsVariant( value );
- Result := ReturnNone;
- end
- else if key = 'Name' then
- begin
- edName.Text := PyObjectAsVariant( value );
- Result := ReturnNone;
- end
- else if key = 'Informatician' then
- begin
- cbInformatician.Checked := PyObjectAsVariant( value );
- Result := ReturnNone;
- end
- else if key = 'PythonUser' then
- begin
- cbPythonUser.Checked := PyObjectAsVariant( value );
- Result := ReturnNone;
- end
- else if key = 'Age' then
- begin
- edAge.Text := PyObjectAsVariant( value );
- Result := ReturnNone;
- end
- else if key = 'Sex' then
- begin
- rgSex.ItemIndex := PyObjectAsVariant( value );
- Result := ReturnNone;
- end
- else
- begin
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown property "%s"', [key])));
- Result := nil;
- end;
- end
- else
- Result := nil;
-end;
-
-function TForm1.GetPropertyList(pSelf, Args : PPyObject) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- Result := PyList_New(6);
- PyList_SetItem(Result, 0, PyString_FromString('Title'));
- PyList_SetItem(Result, 1, PyString_FromString('Name'));
- PyList_SetItem(Result, 2, PyString_FromString('Informatician'));
- PyList_SetItem(Result, 3, PyString_FromString('PythonUser'));
- PyList_SetItem(Result, 4, PyString_FromString('Age'));
- PyList_SetItem(Result, 5, PyString_FromString('Sex'));
- end;
-end;
-
-end.
diff --git a/Demos/Demo17/Project1.cfg b/Demos/Demo17/Project1.cfg
deleted file mode 100644
index c073890..0000000
--- a/Demos/Demo17/Project1.cfg
+++ /dev/null
@@ -1,37 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
--DmadExcept
diff --git a/Demos/Demo17/Project1.dpr b/Demos/Demo17/Project1.dpr
deleted file mode 100644
index 7abbd57..0000000
--- a/Demos/Demo17/Project1.dpr
+++ /dev/null
@@ -1,25 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
- madExcept,
- madLinkDisAsm,
- madListHardware,
- madListProcesses,
- madListModules,
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo17/Project1.dproj b/Demos/Demo17/Project1.dproj
deleted file mode 100644
index 346ba85..0000000
--- a/Demos/Demo17/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {45B70068-605E-4FFB-B78E-2045071FD5FA}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo17/Project1.res b/Demos/Demo17/Project1.res
deleted file mode 100644
index cfdbb79..0000000
Binary files a/Demos/Demo17/Project1.res and /dev/null differ
diff --git a/Demos/Demo17/Unit1.dfm b/Demos/Demo17/Unit1.dfm
deleted file mode 100644
index 96d2d09..0000000
Binary files a/Demos/Demo17/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo17/Unit1.pas b/Demos/Demo17/Unit1.pas
deleted file mode 100644
index 7cec141..0000000
--- a/Demos/Demo17/Unit1.pas
+++ /dev/null
@@ -1,119 +0,0 @@
-unit Unit1;
-
-interface
-
-{$I Definition.Inc}
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- Variants, PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- PythonModule1: TPythonModule;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-
-
-var
- Form1: TForm1;
-
-implementation
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-
- procedure DisplayArrayVar( V : Variant );
- var
- i, j : Integer;
- item : Variant;
- s : String;
- begin
- Memo2.Lines.Add('Displaying a variant array generated from a Python sequence:');
- for i := VarArrayLowBound( V, 1 ) to VarArrayHighBound( V, 1 ) do
- begin
- item := V[i];
- for j := VarArrayLowBound( item, 1 ) to VarArrayHighBound( item, 1 ) do
- begin
- s := item[j];
- Memo2.Lines.Add(Format('(%d, %d) = %s',[i, j, s]));
- end;
- end;
- end;
-
-var
- ComArray : Variant;
-begin
- {
- ComArray := VarArrayCreate([0, 3, 0, 2], varVariant);
- ComArray[0, 0] := 1;
- ComArray[0, 1] := 1.1;
- ComArray[0, 2] := 'a';
- ComArray[1, 0] := 2;
- ComArray[1, 1] := 2.2;
- ComArray[1, 2] := 'b';
- ComArray[2, 0] := 3;
- ComArray[2, 1] := 3.3;
- ComArray[2, 2] := 'c';
- ComArray[3, 0] := 4;
- ComArray[3, 1] := 4.4;
- ComArray[3, 2] := 'd';
- }
- ComArray:= VarArrayCreate([0, 2, 0, 1], varInteger);
- ComArray[0, 0]:= 0;
- ComArray[0, 1]:= 1;
- ComArray[1, 0]:= 100;
- ComArray[1, 1]:= 101;
- ComArray[2, 0]:= 200;
- ComArray[2, 1]:= 201;
-
- PythonModule1.SetVarFromVariant( 'L', ComArray );
- PythonEngine1.ExecStrings(Memo1.Lines);
- DisplayArrayVar( PythonModule1.GetVarAsVariant( 'L' ) );
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-end.
diff --git a/Demos/Demo18/Project1.bpr b/Demos/Demo18/Project1.bpr
deleted file mode 100644
index 9cef704..0000000
--- a/Demos/Demo18/Project1.bpr
+++ /dev/null
@@ -1,172 +0,0 @@
-# ---------------------------------------------------------------------------
-!if !$d(BCB)
-BCB = $(MAKEDIR)\..
-!endif
-
-# ---------------------------------------------------------------------------
-# SECTION EDI
-# ---------------------------------------------------------------------------
-# La section suivante du Makefile du projet est g�r�e par l'EDI de BCB.
-# Il est recommand� d'utiliser l'EDI pour modifier les valeurs de cette
-# section.
-# ---------------------------------------------------------------------------
-
-VERSION = BCB.03
-# ---------------------------------------------------------------------------
-PROJECT = Project1.exe
-OBJFILES = Project1.obj
-RESFILES =
-RESDEPEN = $(RESFILES)
-LIBFILES = ..\..\Components\py21.lib
-LIBRARIES =
-SPARELIBS =
-PACKAGES = VCLX35.bpi VCL35.bpi
-DEFFILE =
-# ---------------------------------------------------------------------------
-PATHCPP = .;
-PATHASM = .;
-PATHPAS = .;
-PATHRC = .;
-DEBUGLIBPATH = $(BCB)\lib\debug
-RELEASELIBPATH = $(BCB)\lib\release
-# ---------------------------------------------------------------------------
-CFLAG1 = -Od -w -r- -k -y -v -vi- -c -tWC
-CFLAG2 = -D_NO_VCL -I$(BCB)\include;..\..\Components\Include
-CFLAG3 = -Tkh30000
-PFLAGS = -D_NO_VCL -U$(BCB)\lib;$(DEBUGLIBPATH) \
- -I$(BCB)\include;..\..\Components\Include -$Y -$W -$O- -v -JPHN -M
-RFLAGS = -D_NO_VCL -i$(BCB)\include;..\..\Components\Include
-AFLAGS = /i$(BCB)\include /i..\..\Components\Include /d_NO_VCL /mx /w2 /zd
-LFLAGS = -L$(BCB)\lib;$(DEBUGLIBPATH) -ap -Tpe -x -Gn -v
-IFLAGS =
-# ---------------------------------------------------------------------------
-ALLOBJ = c0x32.obj $(OBJFILES)
-ALLRES = $(RESFILES)
-ALLLIB = $(LIBFILES) import32.lib cw32mt.lib
-# ---------------------------------------------------------------------------
-!ifdef IDEOPTIONS
-
-[Version Info]
-IncludeVerInfo=0
-AutoIncBuild=0
-MajorVer=1
-MinorVer=0
-Release=0
-Build=0
-Debug=0
-PreRelease=0
-Special=0
-Private=0
-DLL=0
-Locale=1036
-CodePage=1252
-
-[Version Info Keys]
-CompanyName=
-FileDescription=Executable (Console)
-FileVersion=1.0.0.0
-InternalName=
-LegalCopyright=
-LegalTrademarks=
-OriginalFilename=
-ProductName=
-ProductVersion=1.0.0.0
-Comments=
-
-[HistoryLists\hlIncludePath]
-Count=3
-Item0=$(BCB)\include;..\..\Components\Include
-Item1=$(BCB)\include;..\..\Include
-Item2=$(BCB)\include;d:\Python-1.5.2\Include;d:\Python-1.5.2\Pc
-
-[HistoryLists\hlLibraryPath]
-Count=1
-Item0=$(BCB)\lib
-
-[HistoryLists\hlConditionals]
-Count=1
-Item0=_NO_VCL
-
-[Debugging]
-DebugSourceDirs=
-
-[Parameters]
-RunParams=
-HostApplication=
-
-!endif
-
-# ---------------------------------------------------------------------------
-# SECTION MAKE
-# ---------------------------------------------------------------------------
-# Cette section du fichier projet n'est pas utilis�e par l'EDI de BCB. Elle est destin�e
-# � la construction � partir de la ligne de commande en utilisant l'utilitaire MAKE.
-# ---------------------------------------------------------------------------
-
-.autodepend
-# ---------------------------------------------------------------------------
-!if !$d(BCC32)
-BCC32 = bcc32
-!endif
-
-!if !$d(DCC32)
-DCC32 = dcc32
-!endif
-
-!if !$d(TASM32)
-TASM32 = tasm32
-!endif
-
-!if !$d(LINKER)
-LINKER = ilink32
-!endif
-
-!if !$d(BRCC32)
-BRCC32 = brcc32
-!endif
-# ---------------------------------------------------------------------------
-!if $d(PATHCPP)
-.PATH.CPP = $(PATHCPP)
-.PATH.C = $(PATHCPP)
-!endif
-
-!if $d(PATHPAS)
-.PATH.PAS = $(PATHPAS)
-!endif
-
-!if $d(PATHASM)
-.PATH.ASM = $(PATHASM)
-!endif
-
-!if $d(PATHRC)
-.PATH.RC = $(PATHRC)
-!endif
-# ---------------------------------------------------------------------------
-$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
- $(BCB)\BIN\$(LINKER) @&&!
- $(LFLAGS) +
- $(ALLOBJ), +
- $(PROJECT),, +
- $(ALLLIB), +
- $(DEFFILE), +
- $(ALLRES)
-!
-# ---------------------------------------------------------------------------
-.pas.hpp:
- $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
-
-.pas.obj:
- $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
-
-.cpp.obj:
- $(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
-
-.c.obj:
- $(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
-
-.asm.obj:
- $(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
-
-.rc.res:
- $(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
-# ---------------------------------------------------------------------------
diff --git a/Demos/Demo18/Project1.cpp b/Demos/Demo18/Project1.cpp
deleted file mode 100644
index 12893ec..0000000
--- a/Demos/Demo18/Project1.cpp
+++ /dev/null
@@ -1,47 +0,0 @@
-
-#pragma hdrstop
-#include
-#include
-USELIB("..\..\Components\py21.lib");
-//---------------------------------------------------------------------------
-using namespace Py;
-
-//---------------------------------------------------------------------------
-#pragma argsused
-
-int ExecString( char * str )
-{
- PyObject *m, *d;
- m = PyImport_AddModule("__main__");
- if ( ! m )
- return -1;
- d = PyModule_GetDict(m);
- PyObject * Result = PyRun_String(str, Py_file_input, d, d);
- Py_DECREF(Result);
- Py_FlushLine();
- if ( PyErr_Occurred() )
- PyErr_Print();
- if ( Result )
- return 0;
- else
- return -1;
-}
-
-
-int main(int argc, char **argv)
-{
- Py_SetProgramName(argv[0]);
- // Init Python
- Py_Initialize();
- // Execute a script from a string
- //if ( ExecString("for i in range(100):\n print 'Line #',i\n") )
- if ( PyRun_SimpleString("for i in range(100):\n print 'Line #',i\n") )
- fprintf(stderr, "Could not execute script !\n");
- // Print some Python informations
- fprintf(stderr, "Python %s on %s\n%s\n",
- Py_GetVersion(), Py_GetPlatform(), Py_GetCopyright());
- // Finalize Python
- Py_Finalize();
- // Terminate
- return 0;
-}
diff --git a/Demos/Demo18/Project1.res b/Demos/Demo18/Project1.res
deleted file mode 100644
index 7a54c4c..0000000
Binary files a/Demos/Demo18/Project1.res and /dev/null differ
diff --git a/Demos/Demo19/Project1.bpr b/Demos/Demo19/Project1.bpr
deleted file mode 100644
index 5f77506..0000000
--- a/Demos/Demo19/Project1.bpr
+++ /dev/null
@@ -1,186 +0,0 @@
-# ---------------------------------------------------------------------------
-!if !$d(BCB)
-BCB = $(MAKEDIR)\..
-!endif
-
-# ---------------------------------------------------------------------------
-# SECTION EDI
-# ---------------------------------------------------------------------------
-# La section suivante du Makefile du projet est g�r�e par l'EDI de BCB.
-# Il est recommand� d'utiliser l'EDI pour modifier les valeurs de cette
-# section.
-# ---------------------------------------------------------------------------
-
-VERSION = BCB.03
-# ---------------------------------------------------------------------------
-PROJECT = Project1.exe
-OBJFILES = Project1.obj Unit1.obj
-RESFILES = Project1.res
-DEFFILE =
-RESDEPEN = $(RESFILES) Unit1.dfm
-LIBFILES =
-LIBRARIES =
-SPARELIBS = VCL35.lib
-PACKAGES = VCLX35.bpi VCL35.bpi
-# ---------------------------------------------------------------------------
-PATHCPP = .;
-PATHASM = .;
-PATHPAS = .;
-PATHRC = .;
-DEBUGLIBPATH = $(BCB)\lib\debug
-RELEASELIBPATH = $(BCB)\lib\release
-# ---------------------------------------------------------------------------
-CFLAG1 = -Od -Hc -w -Ve -r- -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tW
-CFLAG2 = -D_RTLDLL \
- -I$(BCB)\include;$(BCB)\include\vcl;..\..\Components\Sources\Core;..\..\Components\Sources\Vcl \
- -H=$(BCB)\lib\vcl35.csm
-CFLAG3 = -Tkh30000
-PFLAGS = -D_RTLDLL \
- -U$(BCB)\lib\obj;$(BCB)\lib;..\..\Components;..\..\Components\Sources\Core;"e:\program files\PythonForDelphi\Components\Sources\Vcl";$(RELEASELIBPATH) \
- -I$(BCB)\include;$(BCB)\include\vcl;..\..\Components\Sources\Core;..\..\Components\Sources\Vcl \
- -$Y -$W -$O- -v -JPHN -M
-RFLAGS = -D_RTLDLL \
- -i$(BCB)\include;$(BCB)\include\vcl;..\..\Components\Sources\Core;..\..\Components\Sources\Vcl
-AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\Components\Sources\Core \
- /i..\..\Components\Sources\Vcl /d_RTLDLL /mx /w2 /zd
-LFLAGS = -L$(BCB)\lib\obj;$(BCB)\lib;..\..\Components;..\..\Components\Sources\Core;"e:\program files\PythonForDelphi\Components\Sources\Vcl";$(RELEASELIBPATH) \
- -aa -Tpe -x -Gn -v
-IFLAGS =
-# ---------------------------------------------------------------------------
-ALLOBJ = c0w32.obj sysinit.obj $(OBJFILES)
-ALLRES = $(RESFILES)
-ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
-# ---------------------------------------------------------------------------
-!ifdef IDEOPTIONS
-
-[Version Info]
-IncludeVerInfo=0
-AutoIncBuild=0
-MajorVer=1
-MinorVer=0
-Release=0
-Build=0
-Debug=0
-PreRelease=0
-Special=0
-Private=0
-DLL=0
-Locale=1036
-CodePage=1252
-
-[Version Info Keys]
-CompanyName=
-FileDescription=
-FileVersion=1.0.0.0
-InternalName=
-LegalCopyright=
-LegalTrademarks=
-OriginalFilename=
-ProductName=
-ProductVersion=1.0.0.0
-Comments=
-
-[HistoryLists\hlIncludePath]
-Count=2
-Item0=$(BCB)\include;$(BCB)\include\vcl;..\..\Components\Sources\Core;..\..\Components\Sources\Vcl
-Item1=$(BCB)\include;$(BCB)\include\vcl;e:\program files\PythonForDelphi\Components\Sources\Core;e:\program files\PythonForDelphi\Components\Sources\Vcl
-
-[HistoryLists\hlLibraryPath]
-Count=4
-Item0=$(BCB)\lib\obj;$(BCB)\lib;..\..\Components;..\..\Components\Sources\Core;e:\program files\PythonForDelphi\Components\Sources\Vcl
-Item1=$(BCB)\lib\obj;$(BCB)\lib;e:\program files\PythonForDelphi\Components;e:\program files\PythonForDelphi\Components\Sources\Core;e:\program files\PythonForDelphi\Components\Sources\Vcl
-Item2=$(BCB)\lib\obj;$(BCB)\lib;e:\program files\PythonForDelphi\Components;;e:\program files\PythonForDelphi\Components\Sources\Core;e:\program files\PythonForDelphi\Components\Sources\Vcl
-Item3=$(BCB)\lib\obj;$(BCB)\lib;e:\program files\PythonForDelphi\Components
-
-[HistoryLists\hlDebugSourcePath]
-Count=1
-Item0=$(BCB)\source\vcl
-
-[HistoryLists\hlConditionals]
-Count=2
-Item0=_RTLDLL
-Item1=_RTLDLL;USEPACKAGES
-
-[Debugging]
-DebugSourceDirs=$(BCB)\source\vcl
-
-[Parameters]
-RunParams=
-HostApplication=
-
-!endif
-
-# ---------------------------------------------------------------------------
-# SECTION MAKE
-# ---------------------------------------------------------------------------
-# Cette section du fichier projet n'est pas utilis�e par l'EDI de BCB. Elle est destin�e
-# � la construction � partir de la ligne de commande en utilisant l'utilitaire MAKE.
-# ---------------------------------------------------------------------------
-
-.autodepend
-# ---------------------------------------------------------------------------
-!if !$d(BCC32)
-BCC32 = bcc32
-!endif
-
-!if !$d(DCC32)
-DCC32 = dcc32
-!endif
-
-!if !$d(TASM32)
-TASM32 = tasm32
-!endif
-
-!if !$d(LINKER)
-LINKER = ilink32
-!endif
-
-!if !$d(BRCC32)
-BRCC32 = brcc32
-!endif
-# ---------------------------------------------------------------------------
-!if $d(PATHCPP)
-.PATH.CPP = $(PATHCPP)
-.PATH.C = $(PATHCPP)
-!endif
-
-!if $d(PATHPAS)
-.PATH.PAS = $(PATHPAS)
-!endif
-
-!if $d(PATHASM)
-.PATH.ASM = $(PATHASM)
-!endif
-
-!if $d(PATHRC)
-.PATH.RC = $(PATHRC)
-!endif
-# ---------------------------------------------------------------------------
-$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
- $(BCB)\BIN\$(LINKER) @&&!
- $(LFLAGS) +
- $(ALLOBJ), +
- $(PROJECT),, +
- $(ALLLIB), +
- $(DEFFILE), +
- $(ALLRES)
-!
-# ---------------------------------------------------------------------------
-.pas.hpp:
- $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
-
-.pas.obj:
- $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
-
-.cpp.obj:
- $(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
-
-.c.obj:
- $(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
-
-.asm.obj:
- $(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
-
-.rc.res:
- $(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
-# ---------------------------------------------------------------------------
diff --git a/Demos/Demo19/Project1.cpp b/Demos/Demo19/Project1.cpp
deleted file mode 100644
index ee17a36..0000000
--- a/Demos/Demo19/Project1.cpp
+++ /dev/null
@@ -1,21 +0,0 @@
-//---------------------------------------------------------------------------
-#include
-#pragma hdrstop
-USERES("Project1.res");
-USEFORM("Unit1.cpp", Form1);
-//---------------------------------------------------------------------------
-WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
-{
- try
- {
- Application->Initialize();
- Application->CreateForm(__classid(TForm1), &Form1);
- Application->Run();
- }
- catch (Exception &exception)
- {
- Application->ShowException(&exception);
- }
- return 0;
-}
-//---------------------------------------------------------------------------
diff --git a/Demos/Demo19/Project1.res b/Demos/Demo19/Project1.res
deleted file mode 100644
index 5245a96..0000000
Binary files a/Demos/Demo19/Project1.res and /dev/null differ
diff --git a/Demos/Demo19/Unit1.cpp b/Demos/Demo19/Unit1.cpp
deleted file mode 100644
index da8c9ab..0000000
--- a/Demos/Demo19/Unit1.cpp
+++ /dev/null
@@ -1,51 +0,0 @@
-//---------------------------------------------------------------------------
-#include
-#pragma hdrstop
-
-#include "Unit1.h"
-//---------------------------------------------------------------------------
-#pragma package(smart_init)
-#pragma link "PythonEngine"
-#pragma link "PythonGUIInputOutput"
-#pragma resource "*.dfm"
-TForm1 *Form1;
-//---------------------------------------------------------------------------
-__fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
-{
-}
-//---------------------------------------------------------------------------
-
-void __fastcall TForm1::Button1Click(TObject *Sender)
-{
- PythonEngine1->ExecStrings( Memo1->Lines );
-}
-//---------------------------------------------------------------------------
-
-void __fastcall TForm1::Button2Click(TObject *Sender)
-{
- if ( OpenDialog1->Execute() )
- Memo1->Lines->LoadFromFile( OpenDialog1->FileName );
-}
-//---------------------------------------------------------------------------
-
-void __fastcall TForm1::Button3Click(TObject *Sender)
-{
- if ( SaveDialog1->Execute() )
- Memo1->Lines->SaveToFile( SaveDialog1->FileName );
-}
-//---------------------------------------------------------------------------
-PPyObject spam_foo( PPyObject self, PPyObject args )
-{
- // normally, you would use the function PyArg_ParseTuple for
- // parsing the given arguments.
- TPythonEngine * eng = GetPythonEngine();
- ShowMessage( "args of foo: "+eng->PyObjectAsString(args) );
- return eng->ReturnNone();
-}
-
-void __fastcall TForm1::PythonModule1Initialization(TObject *Sender)
-{
- PythonModule1->AddMethod( "foo", spam_foo, "foo" );
-}
-//---------------------------------------------------------------------------
diff --git a/Demos/Demo19/Unit1.dfm b/Demos/Demo19/Unit1.dfm
deleted file mode 100644
index 2c4cd6f..0000000
Binary files a/Demos/Demo19/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo19/Unit1.h b/Demos/Demo19/Unit1.h
deleted file mode 100644
index 6cd774b..0000000
--- a/Demos/Demo19/Unit1.h
+++ /dev/null
@@ -1,40 +0,0 @@
-//---------------------------------------------------------------------------
-#ifndef Unit1H
-#define Unit1H
-//---------------------------------------------------------------------------
-#include
-#include
-#include
-#include
-#include "PythonEngine.hpp"
-#include "PythonGUIInputOutput.hpp"
-#include
-#include
-//---------------------------------------------------------------------------
-class TForm1 : public TForm
-{
-__published: // Composants g�r�s par l'EDI
- TMemo *Memo1;
- TPanel *Panel1;
- TButton *Button1;
- TButton *Button2;
- TButton *Button3;
- TPythonEngine *PythonEngine1;
- TPythonModule *PythonModule1;
- TOpenDialog *OpenDialog1;
- TSaveDialog *SaveDialog1;
- TPythonGUIInputOutput *PythonGUIInputOutput1;
- TMemo *Memo2;
- TSplitter *Splitter1;
- void __fastcall Button1Click(TObject *Sender);
- void __fastcall Button2Click(TObject *Sender);
- void __fastcall Button3Click(TObject *Sender);
- void __fastcall PythonModule1Initialization(TObject *Sender);
-private: // D�clarations de l'utilisateur
-public: // D�clarations de l'utilisateur
- __fastcall TForm1(TComponent* Owner);
-};
-//---------------------------------------------------------------------------
-extern PACKAGE TForm1 *Form1;
-//---------------------------------------------------------------------------
-#endif
diff --git a/Demos/Demo20/Project1.bpr b/Demos/Demo20/Project1.bpr
deleted file mode 100644
index 322c44c..0000000
--- a/Demos/Demo20/Project1.bpr
+++ /dev/null
@@ -1,188 +0,0 @@
-# ---------------------------------------------------------------------------
-!if !$d(BCB)
-BCB = $(MAKEDIR)\..
-!endif
-
-# ---------------------------------------------------------------------------
-# SECTION EDI
-# ---------------------------------------------------------------------------
-# La section suivante du Makefile du projet est g�r�e par l'EDI de BCB.
-# Il est recommand� d'utiliser l'EDI pour modifier les valeurs de cette
-# section.
-# ---------------------------------------------------------------------------
-
-VERSION = BCB.03
-# ---------------------------------------------------------------------------
-PROJECT = Project1.exe
-OBJFILES = Project1.obj Unit1.obj
-RESFILES = Project1.res
-DEFFILE =
-RESDEPEN = $(RESFILES) Unit1.dfm
-LIBFILES = py21.lib
-LIBRARIES =
-SPARELIBS = VCL35.lib
-PACKAGES = VCLX35.bpi VCL35.bpi
-# ---------------------------------------------------------------------------
-PATHCPP = .;
-PATHASM = .;
-PATHPAS = .;
-PATHRC = .;
-DEBUGLIBPATH = $(BCB)\lib\debug
-RELEASELIBPATH = $(BCB)\lib\release
-# ---------------------------------------------------------------------------
-CFLAG1 = -Od -Hc -w -Ve -r- -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tW
-CFLAG2 = -D_RTLDLL;USEPACKAGES \
- -I$(BCB)\include;$(BCB)\include\vcl;..\..\components\sources\core;..\..\components\sources\vcl;..\..\Components\Include \
- -H=$(BCB)\lib\vcl35.csm
-CFLAG3 = -Tkh30000
-PFLAGS = -D_RTLDLL;USEPACKAGES \
- -U$(BCB)\lib\obj;$(BCB)\lib;..\..\components\sources\core;..\..\components\sources\vcl;$(RELEASELIBPATH) \
- -I$(BCB)\include;$(BCB)\include\vcl;..\..\components\sources\core;..\..\components\sources\vcl;..\..\Components\Include \
- -$Y -$W -$O- -v -JPHN -M
-RFLAGS = -D_RTLDLL;USEPACKAGES \
- -i$(BCB)\include;$(BCB)\include\vcl;..\..\components\sources\core;..\..\components\sources\vcl;..\..\Components\Include
-AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\components\sources\core \
- /i..\..\components\sources\vcl /i..\..\Components\Include /d_RTLDLL \
- /dUSEPACKAGES /mx /w2 /zd
-LFLAGS = -L$(BCB)\lib\obj;$(BCB)\lib;..\..\components\sources\core;..\..\components\sources\vcl;$(RELEASELIBPATH) \
- -aa -Tpe -x -Gn -v
-IFLAGS =
-# ---------------------------------------------------------------------------
-ALLOBJ = c0w32.obj $(PACKAGES) sysinit.obj $(OBJFILES)
-ALLRES = $(RESFILES)
-ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
-# ---------------------------------------------------------------------------
-!ifdef IDEOPTIONS
-
-[Version Info]
-IncludeVerInfo=0
-AutoIncBuild=0
-MajorVer=1
-MinorVer=0
-Release=0
-Build=0
-Debug=0
-PreRelease=0
-Special=0
-Private=0
-DLL=0
-Locale=1036
-CodePage=1252
-
-[Version Info Keys]
-CompanyName=
-FileDescription=
-FileVersion=1.0.0.0
-InternalName=
-LegalCopyright=
-LegalTrademarks=
-OriginalFilename=
-ProductName=
-ProductVersion=1.0.0.0
-Comments=
-
-[HistoryLists\hlIncludePath]
-Count=3
-Item0=$(BCB)\include;$(BCB)\include\vcl;..\..\components\sources\core;..\..\components\sources\vcl;..\..\Components\Include
-Item1=$(BCB)\include;$(BCB)\include\vcl;e:\program files\pythonfordelphi\components\sources\core;e:\program files\pythonfordelphi\components\sources\vcl;D:\Python-1.5.2\Include;D:\Python-1.5.2\PC
-Item2=$(BCB)\include;$(BCB)\include\vcl;e:\program files\pythonfordelphi\components\sources\core;e:\program files\pythonfordelphi\components\sources\vcl
-
-[HistoryLists\hlLibraryPath]
-Count=3
-Item0=$(BCB)\lib\obj;$(BCB)\lib;..\..\components\sources\core;..\..\components\sources\vcl
-Item1=e:\program files\pythonfordelphi\components\sources\core;$(BCB)\lib\obj;$(BCB)\lib;e:\program files\pythonfordelphi\components\sources\vcl
-Item2=$(BCB)\lib\obj;$(BCB)\lib;e:\program files\pythonfordelphi\components\sources\core;e:\program files\pythonfordelphi\components\sources\vcl
-
-[HistoryLists\hlDebugSourcePath]
-Count=1
-Item0=$(BCB)\source\vcl
-
-[HistoryLists\hlConditionals]
-Count=3
-Item0=_RTLDLL;USEPACKAGES
-Item1=_RTLDLL
-Item2=_RTLDLL;NO_IMPLICIT_NAMESPACE_USE
-
-[Debugging]
-DebugSourceDirs=$(BCB)\source\vcl
-
-[Parameters]
-RunParams=
-HostApplication=
-
-!endif
-
-# ---------------------------------------------------------------------------
-# SECTION MAKE
-# ---------------------------------------------------------------------------
-# Cette section du fichier projet n'est pas utilis�e par l'EDI de BCB. Elle est destin�e
-# � la construction � partir de la ligne de commande en utilisant l'utilitaire MAKE.
-# ---------------------------------------------------------------------------
-
-.autodepend
-# ---------------------------------------------------------------------------
-!if !$d(BCC32)
-BCC32 = bcc32
-!endif
-
-!if !$d(DCC32)
-DCC32 = dcc32
-!endif
-
-!if !$d(TASM32)
-TASM32 = tasm32
-!endif
-
-!if !$d(LINKER)
-LINKER = ilink32
-!endif
-
-!if !$d(BRCC32)
-BRCC32 = brcc32
-!endif
-# ---------------------------------------------------------------------------
-!if $d(PATHCPP)
-.PATH.CPP = $(PATHCPP)
-.PATH.C = $(PATHCPP)
-!endif
-
-!if $d(PATHPAS)
-.PATH.PAS = $(PATHPAS)
-!endif
-
-!if $d(PATHASM)
-.PATH.ASM = $(PATHASM)
-!endif
-
-!if $d(PATHRC)
-.PATH.RC = $(PATHRC)
-!endif
-# ---------------------------------------------------------------------------
-$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
- $(BCB)\BIN\$(LINKER) @&&!
- $(LFLAGS) +
- $(ALLOBJ), +
- $(PROJECT),, +
- $(ALLLIB), +
- $(DEFFILE), +
- $(ALLRES)
-!
-# ---------------------------------------------------------------------------
-.pas.hpp:
- $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
-
-.pas.obj:
- $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
-
-.cpp.obj:
- $(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
-
-.c.obj:
- $(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
-
-.asm.obj:
- $(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
-
-.rc.res:
- $(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
-# ---------------------------------------------------------------------------
diff --git a/Demos/Demo20/Project1.cpp b/Demos/Demo20/Project1.cpp
deleted file mode 100644
index c090264..0000000
--- a/Demos/Demo20/Project1.cpp
+++ /dev/null
@@ -1,22 +0,0 @@
-//---------------------------------------------------------------------------
-#include
-#pragma hdrstop
-USERES("Project1.res");
-USEFORM("Unit1.cpp", Form1);
-USELIB("py21.lib");
-//---------------------------------------------------------------------------
-WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
-{
- try
- {
- Application->Initialize();
- Application->CreateForm(__classid(TForm1), &Form1);
- Application->Run();
- }
- catch (Exception &exception)
- {
- Application->ShowException(&exception);
- }
- return 0;
-}
-//---------------------------------------------------------------------------
diff --git a/Demos/Demo20/Project1.res b/Demos/Demo20/Project1.res
deleted file mode 100644
index 5245a96..0000000
Binary files a/Demos/Demo20/Project1.res and /dev/null differ
diff --git a/Demos/Demo20/Unit1.cpp b/Demos/Demo20/Unit1.cpp
deleted file mode 100644
index 37d9157..0000000
--- a/Demos/Demo20/Unit1.cpp
+++ /dev/null
@@ -1,154 +0,0 @@
-//---------------------------------------------------------------------------
-#include
-#pragma hdrstop
-
-#include "Unit1.h"
-#include
-//---------------------------------------------------------------------------
-#pragma package(smart_init)
-#pragma link "PythonEngine"
-#pragma link "PythonGUIInputOutput"
-#pragma resource "*.dfm"
-TForm1 *Form1;
-
-//---------------------------------------------------------------------------
-// New Python type Point
-//
-// Constructors & Destructors
-
-// We override the constructors
-__fastcall TPyPoint::TPyPoint( TPythonType* APythonType )
- : TPyObject(APythonType)
-{
- x = 0;
- y = 0;
-}
-
-// Don't call the Create constructor of TPyPoint, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyPoint.Create will be automatically be called.
-__fastcall TPyPoint::TPyPoint( TPythonType* APythonType, PPyObject args )
- : TPyObject(APythonType, args)
-{
- if (! Py::PyArg_ParseTuple( (Py::PyObject *)args, "ii:CreatePoint", &x, &y ))
- return;
-}
-
-// Type services
-////////////////
-
-// Basic services
-PPyObject __fastcall TPyPoint::GetAttr(char * key)
-{
- TPythonEngine* eng = GetPythonEngine();
- if ( strcmp(key, "x") == 0 )
- return eng->VariantAsPyObject( x );
- // Or return eng->PyInt_FromLong( x );
- else if ( strcmp(key, "y" ) == 0 )
- return eng->VariantAsPyObject( y );
- // or return PyInt_FromLong( y );
- else
- return inherited::GetAttr(key);
-}
-
-int __fastcall TPyPoint::SetAttr(char * key, PPyObject value)
-{
- Py::PyObject * val = (Py::PyObject *)value;
- if ( strcmp(key, "x") == 0 ) {
- if ( Py::PyArg_Parse( val, "i:Point.SetAttr", &x ) )
- return 0;
- else
- return -1;
- } else if ( strcmp(key, "y") == 0 ) {
- if ( Py::PyArg_Parse( val, "i:Point.SetAttr", &y ) )
- return 0;
- else
- return -1;
- } else
- return inherited::SetAttr(key, value);
-}
-
-PPyObject __fastcall TPyPoint::Repr(void)
-{
- TPythonEngine* eng = GetPythonEngine();
- return eng->VariantAsPyObject(Format("(%d, %d)",ARRAYOFCONST((x, y))));
- // or return eng->PyString_FromString( (char *)Format("(%d, %d)", ARRAYOFCONST((x, y))) );
-}
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-PPyObject __cdecl DoOffsetBy( PPyObject self, PPyObject args )
-{
- TPyPoint * p = (TPyPoint *)PythonToDelphi(self);
- int dx, dy;
- if (! Py::PyArg_ParseTuple( (Py::PyObject *)args, "ii:OffsetBy", &dx, &dy ))
- return NULL;
- p->OffsetBy(dx, dy);
- TPythonEngine* eng = GetPythonEngine();
- return eng->ReturnNone();
-}
-
-PPyObject __cdecl DoRaiseError( PPyObject self, PPyObject args )
-{
- TPyPoint * p = (TPyPoint *)PythonToDelphi(self);
- p->RaiseError();
- return NULL; // we return NULL because RaiseError raised a Python error.
-}
-
-// Class method for registering the type interface methods
-void __fastcall TPyPoint::RegisterMethods(TPythonType* PythonType)
-{
- inherited::RegisterMethods(PythonType);
- PythonType->AddMethod( "OffsetBy", DoOffsetBy, "Point.OffsetBy( dx, dy )" );
- PythonType->AddMethod( "RaiseError", DoRaiseError, "Point.RaiseError()" );
-}
-
-// Methods of TPyPoint
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-void TPyPoint::OffsetBy( int dx, int dy )
-{
- x += dx;
- y += dy;
-}
-
-// Here's an example of how you can raise errors defined
-// in the module linked to our type.
-void TPyPoint::RaiseError(void)
-{
- TPythonEngine* eng = GetPythonEngine();
- // This is a simple call:
- // GetModule->RaiseError( "PointError", "this is an example of raising an error !" );
- // This is an advanced call:
- // We provide the instance vars as a dictionary, so that we can intercept the
- // error with "except" and extract informations from the error object.
- // ArrayToPyDict needs a list of pairs: varName (string), varValue (anything)
- GetModule()->RaiseErrorObj( "EBadPoint", "this is an example of raising an error !",
- eng->ArrayToPyDict( ARRAYOFCONST(("a", 1, "b", 2, "c", 3)) ) );
-}
-
-//---------------------------------------------------------------------------
-__fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
-{
-}
-//---------------------------------------------------------------------------
-void __fastcall TForm1::Button1Click(TObject *Sender)
-{
- PythonEngine1->ExecStrings( Memo2->Lines );
-}
-//---------------------------------------------------------------------------
-// We need to initialize the property PyObjectClass with
-// the class of our Type object
-void __fastcall TForm1::PythonType1Initialization(TObject *Sender)
-{
- PythonType1->PyObjectClass = __classid(TPyPoint);
-}
-//---------------------------------------------------------------------------
diff --git a/Demos/Demo20/Unit1.dfm b/Demos/Demo20/Unit1.dfm
deleted file mode 100644
index c6a7a20..0000000
Binary files a/Demos/Demo20/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo20/Unit1.h b/Demos/Demo20/Unit1.h
deleted file mode 100644
index ad34ca9..0000000
--- a/Demos/Demo20/Unit1.h
+++ /dev/null
@@ -1,62 +0,0 @@
-//---------------------------------------------------------------------------
-#ifndef Unit1H
-#define Unit1H
-//---------------------------------------------------------------------------
-#include
-#include
-#include
-#include
-#include "PythonEngine.hpp"
-#include "PythonGUIInputOutput.hpp"
-#include
-//---------------------------------------------------------------------------
-// New Python type Point
-class TPyPoint : public TPyObject
-{
-public:
- typedef TPyObject inherited;
-
- int x, y;
-
- // Constructors & Destructors
- __fastcall TPyPoint( TPythonType* APythonType );
- __fastcall TPyPoint( TPythonType* APythonType, PPyObject args );
-
- // Type services
- ////////////////
-
- // Basic services
- 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(TPythonType* PythonType);
-
- // Methods of TPyPoint
- void OffsetBy( int dx, int dy );
- void RaiseError(void);
-
-};
-//---------------------------------------------------------------------------
-class TForm1 : public TForm
-{
-__published: // Composants g�r�s par l'EDI
- TPythonEngine *PythonEngine1;
- TPythonGUIInputOutput *PythonGUIInputOutput1;
- TMemo *Memo1;
- TSplitter *Splitter1;
- TMemo *Memo2;
- TPanel *Panel1;
- TButton *Button1;
- TPythonModule *PythonModule1;
- TPythonType *PythonType1;
- void __fastcall Button1Click(TObject *Sender);
- void __fastcall PythonType1Initialization(TObject *Sender);
-private: // D�clarations de l'utilisateur
-public: // D�clarations de l'utilisateur
- __fastcall TForm1(TComponent* Owner);
-};
-//---------------------------------------------------------------------------
-extern PACKAGE TForm1 *Form1;
-//---------------------------------------------------------------------------
-#endif
diff --git a/Demos/Demo21/Project1.dpr b/Demos/Demo21/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo21/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo21/Project1.dproj b/Demos/Demo21/Project1.dproj
deleted file mode 100644
index 14f1c23..0000000
--- a/Demos/Demo21/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {8A0913B4-35C9-4DDA-A98A-02C28A91C049}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo21/Project1.res b/Demos/Demo21/Project1.res
deleted file mode 100644
index cfdbb79..0000000
Binary files a/Demos/Demo21/Project1.res and /dev/null differ
diff --git a/Demos/Demo21/Unit1.dfm b/Demos/Demo21/Unit1.dfm
deleted file mode 100644
index 63eee8e..0000000
Binary files a/Demos/Demo21/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo21/Unit1.pas b/Demos/Demo21/Unit1.pas
deleted file mode 100644
index d70d956..0000000
--- a/Demos/Demo21/Unit1.pas
+++ /dev/null
@@ -1,221 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- PythonModule1: TPythonModule;
- PythonType1: TPythonType;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure PythonModule1Events0Execute(Sender: TObject; PSelf,
- Args: PPyObject; var Result: PPyObject);
- procedure PythonType1Initialization(Sender: TObject);
- procedure PythonType1Events0Execute(Sender: TObject; PSelf,
- Args: PPyObject; var Result: PPyObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
- // This is a Delphi class implementing a new Python type
- // it must derive from TPyObject or one of its descendants.
- // Then it must override some methods, like the constructors,
- // the RegisterMethods and the type services' virtual methods.
- TPyPoint = class(TPyObject)
- x, y : Integer;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- // Methods of TPyPoint
- procedure OffsetBy( dx, dy : Integer );
- end;
-
-
-var
- Form1: TForm1;
-
-implementation
-{$R *.dfm}
-
-// We override the constructors
-
-constructor TPyPoint.Create( APythonType : TPythonType );
-begin
- inherited;
- x := 0;
- y := 0;
-end;
-
-// Don't call the Create constructor of TPyPoint, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyPoint.Create will be automatically be called.
-
-constructor TPyPoint.CreateWith( PythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- if PyArg_ParseTuple( args, 'ii:CreatePoint',@x, @y ) = 0 then
- exit;
- end;
-end;
-
-// Then we override the needed services
-
-function TPyPoint.GetAttr(key : PAnsiChar) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- if key = 'x' then
- Result := VariantAsPyObject( x )
- // Or Result := PyInt_FromLong( x )
- else if key = 'y' then
- Result := PyInt_FromLong( y )
- // or Result := PyInt_FromLong( y )
- else
- Result := inherited GetAttr(key);
- end;
-end;
-
-function TPyPoint.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
-begin
- Result := 0;
- with GetPythonEngine do
- begin
- if key = 'x' then
- begin
- if PyArg_Parse( value, 'i:Point.SetAttr', @x ) = 0 then
- Result := -1;
- end
- else if key = 'y' then
- begin
- if PyArg_Parse( value, 'i:Point.SetAttr', @y ) = 0 then
- Result := -1;
- end
- else
- Result := inherited SetAttr(key, value);
- end;
-end;
-
-function TPyPoint.Repr : PPyObject;
-begin
- with GetPythonEngine do
- Result := VariantAsPyObject(Format('(%d, %d)',[x, y]));
- // or Result := PyString_FromString( PAnsiChar(Format('(%d, %d)',[x, y])) );
-end;
-
-// Methods of TPyPoint
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-procedure TPyPoint.OffsetBy( dx, dy : Integer );
-begin
- Inc( x, dx );
- Inc( y, dy );
-end;
-
-/////////////////////////////////////////////////
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.PythonModule1Events0Execute(Sender: TObject; PSelf,
- Args: PPyObject; var Result: PPyObject);
-begin
- with GetPythonEngine do
- begin
- Result := PyString_FromString('Hello world !');
- end;
-end;
-
-procedure TForm1.PythonType1Initialization(Sender: TObject);
-begin
- PythonType1.PyObjectClass := TPyPoint;
-end;
-
-procedure TForm1.PythonType1Events0Execute(Sender: TObject; PSelf,
- Args: PPyObject; var Result: PPyObject);
-var
- dx, dy : Integer;
- Instance : TPyPoint;
-begin
- with GetPythonEngine do
- begin
- // Convert the PSelf Python object to a Delphi instance pointer.
- Instance := TPyPoint(PythonToDelphi(PSelf));
- // first we extract the arguments
- if PyArg_ParseTuple( args, 'ii:Point.Offset',@dx, @dy ) <> 0 then
- begin
- // if it's ok, then we call the method that does the job
- // with the correct arguments
- Instance.OffsetBy( dx, dy );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else // the arguments were not right
- Result := nil;
- end;
-end;
-
-end.
diff --git a/Demos/Demo22/Project1.dpr b/Demos/Demo22/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo22/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo22/Project1.dproj b/Demos/Demo22/Project1.dproj
deleted file mode 100644
index 5014433..0000000
--- a/Demos/Demo22/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {17D5A3A6-4820-4D9C-BD8A-71D8B83709A0}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo22/Project1.res b/Demos/Demo22/Project1.res
deleted file mode 100644
index cfdbb79..0000000
Binary files a/Demos/Demo22/Project1.res and /dev/null differ
diff --git a/Demos/Demo22/Unit1.dfm b/Demos/Demo22/Unit1.dfm
deleted file mode 100644
index 7019efe..0000000
Binary files a/Demos/Demo22/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo22/Unit1.pas b/Demos/Demo22/Unit1.pas
deleted file mode 100644
index 63ebae4..0000000
--- a/Demos/Demo22/Unit1.pas
+++ /dev/null
@@ -1,75 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-
-
-var
- Form1: TForm1;
-
-implementation
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
- PythonEngine1.Finalize;
-end;
-
-end.
diff --git a/Demos/Demo23/Project1.cfg b/Demos/Demo23/Project1.cfg
deleted file mode 100644
index c34231c..0000000
--- a/Demos/Demo23/Project1.cfg
+++ /dev/null
@@ -1,35 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J+
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--LE"c:\borland\delphi7\Projects\Bpl"
--LN"c:\borland\delphi7\Projects\Bpl"
diff --git a/Demos/Demo23/Project1.dpr b/Demos/Demo23/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo23/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo23/Project1.dproj b/Demos/Demo23/Project1.dproj
deleted file mode 100644
index 071d003..0000000
--- a/Demos/Demo23/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {C077A77D-C4BE-486B-A654-6605F805E4FE}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo23/Project1.res b/Demos/Demo23/Project1.res
deleted file mode 100644
index cfdbb79..0000000
Binary files a/Demos/Demo23/Project1.res and /dev/null differ
diff --git a/Demos/Demo23/Unit1.dfm b/Demos/Demo23/Unit1.dfm
deleted file mode 100644
index f050c40..0000000
Binary files a/Demos/Demo23/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo23/Unit1.pas b/Demos/Demo23/Unit1.pas
deleted file mode 100644
index 61a68ae..0000000
--- a/Demos/Demo23/Unit1.pas
+++ /dev/null
@@ -1,89 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonInputOutput1: TPythonInputOutput;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- procedure PythonInputOutput1SendData(Sender: TObject;
- const Data: String);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-
-
-var
- Form1: TForm1;
-
-implementation
-{$R *.dfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
- PythonEngine1.Finalize;
-end;
-
-procedure TForm1.PythonInputOutput1SendData(Sender: TObject;
- const Data: String);
-begin
-{$IFDEF MSWINDOWS}
- OutputDebugString( PAnsiChar(Data) );
-{$ENDIF}
-{$IFDEF LINUX}
- WriteLn( ErrOutput, Data );
-{$ENDIF}
-end;
-
-end.
diff --git a/Demos/Demo25/MyModule.py b/Demos/Demo25/MyModule.py
deleted file mode 100644
index 9d69bb3..0000000
--- a/Demos/Demo25/MyModule.py
+++ /dev/null
@@ -1,2 +0,0 @@
-def Add(a, b):
- return a + b
diff --git a/Demos/Demo25/VarPythUnitTest.bdsproj b/Demos/Demo25/VarPythUnitTest.bdsproj
deleted file mode 100644
index 8a06609..0000000
--- a/Demos/Demo25/VarPythUnitTest.bdsproj
+++ /dev/null
@@ -1,170 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
- VarPythUnitTest.dpr
-
-
- 7.0
-
-
- 8
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 0
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- True
- True
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-
- False
-
- True
- False
- False
- True
- False
- False
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- False
- False
- False
- True
- True
- True
- True
- True
- True
-
-
-
- 0
- 0
- False
- 1
- False
- False
- False
- 16384
- 1048576
- 4194304
-
-
-
-
-
-
-
- $(DELPHI)\Lib\Debug
- vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;dbexpress;dbxcds;indy;dclOffice2k;dxcomnd6;EQTLD6;dxEdtrD6;ECQDBCD6;EQDBTLD6;EQGridD6;dxGrEdD6;dxExELD6;dxELibD6;dxBarD6;dxBarDBNavD6;dxBarExtItemsD6;dxBarExtDBItemsD6;dxsbD6;dxDBEdD6;dxInsD6;dxExRwD6;dxmdsd6;dxorgcD6;dxdborD6;dxPageControlD6;Python_d6;PythonVCL_d6
-
-
- False
-
-
-
-
-
- False
-
-
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
diff --git a/Demos/Demo25/VarPythUnitTest.conf b/Demos/Demo25/VarPythUnitTest.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo25/VarPythUnitTest.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo25/VarPythUnitTest.dpr b/Demos/Demo25/VarPythUnitTest.dpr
deleted file mode 100644
index 27bc8ca..0000000
--- a/Demos/Demo25/VarPythUnitTest.dpr
+++ /dev/null
@@ -1,22 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-program VarPythUnitTest;
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- fmMain in 'fmMain.pas' {TMain};
-
-{$R *.res}
-
-begin
- ReportMemoryLeaksOnShutdown := True;
- Application.Initialize;
- Application.CreateForm(TMain, Main);
- Application.Run;
-end.
diff --git a/Demos/Demo25/VarPythUnitTest.dproj b/Demos/Demo25/VarPythUnitTest.dproj
deleted file mode 100644
index 35e03e5..0000000
--- a/Demos/Demo25/VarPythUnitTest.dproj
+++ /dev/null
@@ -1,136 +0,0 @@
-
-
- {F6960501-E313-4232-96B9-EA62FB351D5E}
- VarPythUnitTest.dpr
- Debug
- DCC32
- 13.4
- VCL
- True
- Win64
- 3
- Application
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Cfg_2
- true
- true
-
-
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- 1033
- VarPythUnitTest.exe
- 00400000
- x86
-
-
- Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
- true
- $(BDS)\bin\default_app.manifest
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
- None
-
-
-
- MainSource
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- VarPythUnitTest.dpr
-
-
- False
- True
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- Microsoft Office 2000 Sample Automation Server Wrapper Components
- Microsoft Office XP Sample Automation Server Wrapper Components
-
-
-
- True
- True
-
-
- 12
-
-
-
diff --git a/Demos/Demo25/VarPythUnitTest.kof b/Demos/Demo25/VarPythUnitTest.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo25/VarPythUnitTest.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo25/VarPythUnitTest.res b/Demos/Demo25/VarPythUnitTest.res
deleted file mode 100644
index 15f1ffe..0000000
Binary files a/Demos/Demo25/VarPythUnitTest.res and /dev/null differ
diff --git a/Demos/Demo25/fmMain.dfm b/Demos/Demo25/fmMain.dfm
deleted file mode 100644
index 969796b..0000000
--- a/Demos/Demo25/fmMain.dfm
+++ /dev/null
@@ -1,290 +0,0 @@
-object Main: TMain
- Left = 153
- Top = 148
- Width = 769
- Height = 561
- VertScrollBar.Range = 356
- ActiveControl = Memo1
- Caption = 'VarPyth unit tests'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- OldCreateOrder = True
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter1: TSplitter
- Left = 0
- Top = 249
- Width = 753
- Height = 5
- Cursor = crVSplit
- Align = alTop
- ExplicitWidth = 761
- end
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 753
- Height = 249
- Align = alTop
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 421
- Width = 753
- Height = 102
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object Label1: TLabel
- Left = 616
- Top = 59
- Width = 24
- Height = 13
- Caption = 'times'
- end
- object ProgressBar1: TProgressBar
- Left = 0
- Top = 86
- Width = 753
- Height = 16
- Align = alBottom
- TabOrder = 15
- Visible = False
- end
- object btnExecuteScript: TButton
- Left = 8
- Top = 8
- Width = 89
- Height = 25
- Caption = 'E&xecute Script'
- TabOrder = 0
- OnClick = btnExecuteScriptClick
- end
- object btnTestIntegers: TButton
- Left = 128
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Integers'
- TabOrder = 1
- OnClick = btnTestIntegersClick
- end
- object btnTestFloats: TButton
- Left = 216
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Floats'
- TabOrder = 2
- OnClick = btnTestFloatsClick
- end
- object btnTestSequences: TButton
- Left = 392
- Top = 8
- Width = 89
- Height = 25
- Caption = 'Test Sequences'
- TabOrder = 3
- OnClick = btnTestSequencesClick
- end
- object btnTestMappings: TButton
- Left = 488
- Top = 8
- Width = 89
- Height = 25
- Caption = 'Test Mappings'
- TabOrder = 4
- OnClick = btnTestMappingsClick
- end
- object btnTestObjects: TButton
- Left = 664
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Objects'
- TabOrder = 5
- OnClick = btnTestObjectsClick
- end
- object btnTestStrings: TButton
- Left = 304
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Strings'
- TabOrder = 6
- OnClick = btnTestStringsClick
- end
- object cbIntegers: TCheckBox
- Left = 128
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 7
- end
- object cbFloats: TCheckBox
- Left = 216
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 8
- end
- object cbStrings: TCheckBox
- Left = 304
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 9
- end
- object cbSequences: TCheckBox
- Left = 392
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 10
- end
- object cbMappings: TCheckBox
- Left = 488
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 11
- end
- object cbObjects: TCheckBox
- Left = 664
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 12
- end
- object btnRunSelectedTests: TButton
- Left = 128
- Top = 56
- Width = 121
- Height = 25
- Caption = 'Run selected tests once'
- TabOrder = 13
- OnClick = btnRunSelectedTestsClick
- end
- object edtTestCount: TEdit
- Left = 568
- Top = 56
- Width = 41
- Height = 21
- TabOrder = 14
- Text = '1000'
- end
- object btnRunNTimes: TButton
- Left = 400
- Top = 56
- Width = 163
- Height = 25
- Caption = 'Run selected tests n times'
- TabOrder = 16
- OnClick = btnRunNTimesClick
- end
- object btnTestDates: TButton
- Left = 584
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Dates'
- TabOrder = 18
- OnClick = btnTestDatesClick
- end
- object cbDates: TCheckBox
- Left = 584
- Top = 33
- Width = 77
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 17
- end
- end
- object Memo2: TMemo
- Left = 0
- Top = 254
- Width = 753
- Height = 167
- Align = alClient
- Lines.Strings = (
- 'class XYZ(object):'
- ' pass'
- ''
- 'class Foo:'
- ' def __init__(Self, Value=0):'
- ' Self.Value = Value'
- ' def __del__(Self):'
- ' print "delete", Self'
- ' def __add__(self, other):'
- ' return Foo(self.Value + other.Value)'
- ' def Inc(Self, AValue = 1):'
- ' Self.Value = Self.Value + AValue'
- ' def GetSelf(Self):'
- ' return Self'
- ' def GetValue(Self):'
- ' return Self.Value'
- ' def SetABC(Self, A, B, C):'
- ' Self.A = A'
- ' Self.B = B'
- ' Self.C = C'
- ' def Add(Self, AFooInst):'
- ' Self.Value = Self.Value + AFooInst.Value'
- 'class Bar(Foo):'
- ' def Inc(Self, AValue = 1):'
- ' Self.Value = Self.Value - AValue'
- 'def Add(a, b):'
- ' return a + b'
- 'def MakeList(a, b, c, d):'
- ' return [a, b, c, d]'
- ''
- 'f = Foo()'
- 'print "Created", f'
- 'f.Inc()'
- 'f.Inc(2)'
- 'b = Bar()'
- 'b.Inc()'
- 'b.Inc(2)')
- ScrollBars = ssVertical
- TabOrder = 2
- end
- object PythonEngine1: TPythonEngine
- IO = PythonGUIInputOutput1
- Left = 192
- Top = 48
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- UnicodeIO = False
- RawOutput = False
- Output = Memo1
- Left = 232
- Top = 48
- end
-end
diff --git a/Demos/Demo25/fmMain.pas b/Demos/Demo25/fmMain.pas
deleted file mode 100644
index 1c7df13..0000000
--- a/Demos/Demo25/fmMain.pas
+++ /dev/null
@@ -1,1223 +0,0 @@
-unit fmMain;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils, Variants,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms,
- Dialogs, ExtCtrls, StdCtrls, ComCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QGraphics, QControls, QForms, QDialogs, QExtCtrls, QStdCtrls, QComCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput, Contnrs;
-
-type
- TMain = class(TForm)
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo1: TMemo;
- Splitter1: TSplitter;
- Panel1: TPanel;
- Memo2: TMemo;
- btnExecuteScript: TButton;
- btnTestIntegers: TButton;
- btnTestFloats: TButton;
- btnTestSequences: TButton;
- btnTestMappings: TButton;
- btnTestObjects: TButton;
- btnTestStrings: TButton;
- cbIntegers: TCheckBox;
- cbFloats: TCheckBox;
- cbStrings: TCheckBox;
- cbSequences: TCheckBox;
- cbMappings: TCheckBox;
- cbObjects: TCheckBox;
- btnRunSelectedTests: TButton;
- edtTestCount: TEdit;
- btnRunNTimes: TButton;
- Label1: TLabel;
- ProgressBar1: TProgressBar;
- btnTestDates: TButton;
- cbDates: TCheckBox;
- procedure btnExecuteScriptClick(Sender: TObject);
- procedure btnTestIntegersClick(Sender: TObject);
- procedure btnTestFloatsClick(Sender: TObject);
- procedure btnTestStringsClick(Sender: TObject);
- procedure btnTestSequencesClick(Sender: TObject);
- procedure btnTestMappingsClick(Sender: TObject);
- procedure btnTestObjectsClick(Sender: TObject);
- procedure btnRunSelectedTestsClick(Sender: TObject);
- procedure btnRunNTimesClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure btnTestDatesClick(Sender: TObject);
- private
- fVerbose : Boolean;
- procedure Log( const AText : String );
- procedure RunSelectedTests;
- public
- { Public declarations }
- end;
-
-var
- Main: TMain;
-
-implementation
-
-uses VarPyth;
-
-{$IFDEF MSWINDOWS}
-{$R *.dfm}
-{$ENDIF}
-{$IFDEF LINUX}
-{$R *.xfm}
-{$ENDIF}
-
-procedure TMain.Log( const AText : String );
-begin
- if fVerbose then
- Memo1.Lines.Add(AText);
-end;
-
-procedure TMain.btnExecuteScriptClick(Sender: TObject);
-begin
- PythonEngine1.ExecStrings(Memo2.Lines);
-end;
-
-procedure TMain.btnTestIntegersClick(Sender: TObject);
-var
- a, b, c : Variant;
- big : Int64;
-begin
- // initialize the operands
- a := VarPythonCreate(2);
- Assert(VarIsPython(a));
- Assert(VarIsPythonNumber(a));
- Assert(VarIsPythonInteger(a));
- Assert(Integer(a) = 2);
-
- b := VarPythonCreate(3);
- Assert(VarIsPython(b));
- Assert(VarIsPythonNumber(b));
- Assert(VarIsPythonInteger(b));
- Assert(Integer(b) = 3);
-
- // arithmetic operations
- //----------------------
-
- // addition
- c := a + b;
- // check result of operation
- Assert( Integer(c) = 5 );
- // check that operation did not change the content of operands.
- Assert(Integer(a) = 2);
- Assert(Integer(b) = 3);
- // now with a litteral
- c := a + b + 1;
- Assert( Integer(c) = 6 );
- c := a + 1 + b;
- Assert( Integer(c) = 6 );
- c := 1 + a + b;
- Assert( Integer(c) = 6 );
-
- // substraction
- c := b - a;
- Assert( Integer(c) = 1 );
- // now with a litteral
- c := b - a - 1;
- Assert( Integer(c) = 0 );
- c := b - 1 - a;
- Assert( Integer(c) = 0 );
- c := 1 - b - a;
- Assert( Integer(c) = -4 );
-
- // multiplication
- c := a * b;
- Assert( Integer(c) = 6 );
- // now with a litteral
- c := a * b * 2;
- Assert( Integer(c) = 12 );
- c := a * 2 * b;
- Assert( Integer(c) = 12 );
- c := 2 * a * b;
- Assert( Integer(c) = 12 );
-
- // integer division
- c := b div a;
- Assert( Integer(c) = 1 );
-
- // division: in Python a division between 2 integers is the same as the integer division
- c := b / a;
- Assert( c = 1.5 );
- Assert( Integer(c) = 2 );
-
- // modulus
- c := b mod a;
- Assert( Integer(c) = 1 );
- c := BuiltinModule.divmod(b, a); // this returns a tuple whose first item is the result of the division,
- // and second item the modulo.
- if VarIsPythonSequence(c) and (c.Length = 2) then
- begin
- Assert(Integer(c.GetItem(0)) = 1); // division
- Assert(Integer(c.GetItem(1)) = 1); // modulo
- end;
-
- // power
- c := BuiltinModule.pow(a, b);
- Assert(c = 8);
-
- // negation
- c := -a;
- Assert( Integer(c) = -2 );
-
- // logical operations
- //------------------
-
- // inverse
- c := not a; // in python it would be: c = ~2
- Assert( Integer(c) = -3 );
-
- // shift left (<<)
- c := a shl b;
- Assert( Integer(c) = 16 );
- c := a shl 1;
- Assert( Integer(c) = 4 );
-
- // shift right (>>)
- c := a shl b;
- c := c shr b;
- Assert( Integer(c) = Integer(a) );
- c := b shr 1;
- Assert( Integer(c) = 1 );
-
- // and
- c := a and (a*5);
- Assert( Integer(c) = Integer(a) );
- c := a and 6;
- Assert( Integer(c) = Integer(a) );
-
- // or
- c := a or b;
- Assert( Integer(c) = 3 );
- c := a or 3;
- Assert( Integer(c) = 3 );
-
- // xor
- c := a xor b;
- Assert( Integer(c) = 1 );
- c := a xor 3;
- Assert( Integer(c) = 1 );
-
- // comparisons
- //------------
-
- // equal
- c := a = b;
- Assert(c = False);
- c := a = a;
- Assert(c = True);
- Assert( a = 2);
-
- // not equal
- c := a <> b;
- Assert(c = True);
- Assert( not (c = b) );
- c := a <> a;
- Assert(c = False);
- Assert( a = 2);
-
- // greater than
- c := a > b; Assert(c = False);
- c := b > a; Assert(c = True);
- Assert( a > 1);
-
- // greater or equal than
- c := a >= b; Assert(c = False);
- c := b >= a; Assert(c = True);
- c := a >= a; Assert(c = True);
- Assert( a >= 2 );
-
- // less than
- c := a < b; Assert(c = True);
- c := b < a; Assert(c = False);
- Assert( a < 6);
-
- // less or equal than
- c := a <= b; Assert(c = True);
- c := b <= a; Assert(c = False);
- c := a <= a; Assert(c = True);
- Assert( a <= 2);
-
- // parenthesis
- c := a * ((a * b) div b);
- Assert( c = a*2 );
-
- // copy
- c := a;
- Assert( c = a);
- Assert( VarIsSame(c, a) ); // checks if 2 variants share the same Python object.
-
- // test long long (Int64)
- big := Int64(MaxInt)*4;
- b := VarPythonCreate(big);
- Assert( b = big );
- Assert( b <> big+1 );
- Assert( b > MaxInt );
- Assert( MaxInt < b );
- Assert( b+1 = big+1 );
- Assert( b*2 = big*2 );
- Assert( b div 2 = big div 2 );
-{$IFDEF PYTHON23_OR_HIGHER}
- c := VarPythonCreate(True);
- Assert(VarIsBool(c));
- Assert(VarIsTrue(c));
- c := VarPythonCreate(False);
- Assert(VarIsBool(c));
- Assert(not VarIsTrue(c));
-{$ENDIF}
-
- // Done!
- Log('Integer test was Ok.');
-end;
-
-procedure TMain.btnTestFloatsClick(Sender: TObject);
-var
- a, b, c : Variant;
- dbl_a, dbl_b, dbl_c : Double;
- int : Integer;
-begin
- // initialize the operands
- dbl_a := 2.5;
- a := VarPythonCreate(dbl_a);
- Assert(VarIsPython(a));
- Assert(VarIsPythonNumber(a));
- Assert(VarIsPythonFloat(a));
- Assert(Double(a) = 2.5);
-
- dbl_b := 3.2;
- b := VarPythonCreate(dbl_b);
- Assert(VarIsPython(b));
- Assert(VarIsPythonNumber(b));
- Assert(VarIsPythonFloat(b));
- Assert(Double(b) = dbl_b); // note that Assert(Double(b) = 3.2) fails.
-
- // arithmetic operations
- //----------------------
-
- // addition
- c := a + b;
- // check result of operation
- Assert( Double(c) = (dbl_a + dbl_b) );
- // check that operation did not change the content of operands.
- Assert(Double(a) = dbl_a);
- Assert(Double(b) = dbl_b);
- // now with a litteral
- c := a + b + 1;
- Assert( Double(c) = (dbl_a+dbl_b+1) );
- c := a + 1 + b;
- Assert( Double(c) = (dbl_a+1+dbl_b) );
- c := 1 + a + b;
- Assert( Double(c) = (1+dbl_a+dbl_b) );
-
- // substraction
- c := b - a;
- Assert( Double(c) = (dbl_b - dbl_a) );
- // now with a litteral
- c := b - a - 1;
- Assert( Double(c) = (dbl_b-dbl_a-1) );
- c := b - 1 - a;
- Assert( Double(c) = (dbl_b-1-dbl_a) );
- c := 1 - b - a;
- Assert( Double(c) = (1-dbl_b-dbl_a) );
-
- // multiplication
- c := a * b;
- dbl_c := dbl_a * dbl_b;
- Assert( Double(c) = dbl_c );
- // now with a litteral
- c := a * b * 2;
- dbl_c := dbl_a * dbl_b * 2;
- Assert( Double(c) = dbl_c );
- c := a * 2 * b;
- dbl_c := dbl_a * 2 * dbl_b;
- Assert( Double(c) = dbl_c );
- c := 2 * a * b;
- dbl_c := 2 * dbl_a * dbl_b;
- Assert( Double(c) = dbl_c );
-
- // division: in Python a division between 2 integers is the same as the integer division
- c := b / a;
- dbl_c := dbl_b / dbl_a;
- Assert( Double(c) = dbl_c );
-
- // negation
- c := -a;
- Assert( Double(c) = -dbl_a );
-
- // comparisons
- //------------
-
- // equal
- c := a = b;
- Assert(c = False);
- c := a = a;
- Assert(c = True);
- Assert( a = dbl_a);
-
- // not equal
- c := a <> b;
- Assert(c = True);
- Assert( not (c = b) );
- c := a <> a;
- Assert(c = False);
- Assert( a = dbl_a);
-
- // greater than
- c := a > b; Assert(c = False);
- c := b > a; Assert(c = True);
- Assert( a > (dbl_a-1));
-
- // greater or equal than
- c := a >= b; Assert(c = False);
- c := b >= a; Assert(c = True);
- c := a >= a; Assert(c = True);
- Assert( a >= dbl_a );
-
- // less than
- c := a < b; Assert(c = True);
- c := b < a; Assert(c = False);
- Assert( a < dbl_b);
-
- // less or equal than
- c := a <= b; Assert(c = True);
- c := b <= a; Assert(c = False);
- c := a <= a; Assert(c = True);
- Assert( a <= dbl_a);
-
- // parenthesis
- c := a * ((a * b) / b);
- dbl_c := dbl_a * ((dbl_a * dbl_b) / dbl_b);
- Assert( c = dbl_c );
-
- // copy
- c := a;
- Assert( c = a);
- Assert( VarIsSame(c, a) ); // checks if 2 variants share the same Python object.
-
- // casts
- int := a;
- Assert(int = 2);
-
- // Done!
- Log('Float test was Ok.');
-end;
-
-procedure TMain.btnTestStringsClick(Sender: TObject);
-var
- a, b, c : Variant;
- w : WideString;
- _obj : PPyObject;
-begin
- // initialize the operands
- a := VarPythonCreate('abc');
- Assert(VarIsPython(a));
- Assert(VarIsPythonString(a));
- Assert(String(a) = 'abc');
-
- b := VarPythonCreate('def');
- Assert(VarIsPython(b));
- Assert(VarIsPythonString(b));
- Assert(String(b) = 'def');
-
- // concatenation
- c := a + b;
- // check result of operation
- Assert( String(c) = 'abcdef' );
- // check that operation did not change the content of operands.
- Assert(String(a) = 'abc');
- Assert(String(b) = 'def');
- // now with a litteral
- c := a + b + '!';
- Assert( String(c) = 'abcdef!' );
- c := a + '!' + b;
- Assert( String(c) = 'abc!def' );
- c := '!' + a + b;
- Assert( String(c) = '!abcdef' );
-
- // multiplication
- c := a * 3; // in Python the multiplication of string concatenates n times the string
- Assert( String(c) = 'abcabcabc' );
-
- // comparisons
- //------------
-
- // equal
- c := a = b;
- Assert(c = False);
- c := a = a;
- Assert(c = True);
- Assert( a = 'abc');
-
- // not equal
- c := a <> b;
- Assert(c = True);
- Assert( not (c = b) );
- c := a <> a;
- Assert(c = False);
- Assert( a = 'abc');
-
- // greater than
- c := a > b; Assert(c = False);
- c := b > a; Assert(c = True);
- Assert( a > 'aaa');
-
- // greater or equal than
- c := a >= b; Assert(c = False);
- c := b >= a; Assert(c = True);
- c := a >= a; Assert(c = True);
- Assert( a >= 'abc' );
-
- // less than
- c := a < b; Assert(c = True);
- c := b < a; Assert(c = False);
- Assert( a < 'bbb');
-
- // less or equal than
- c := a <= b; Assert(c = True);
- c := b <= a; Assert(c = False);
- c := a <= a; Assert(c = True);
- Assert( a <= 'abc');
-
- // copy
- c := a;
- Assert( c = a);
- Assert( VarIsSame(c, a) ); // checks if 2 variants share the same Python object.
-
- // empty strings
- a := VarPythonCreate('');
- Assert(a.length = 0);
- Assert(a = '');
- Assert(String(a) = '');
-
- // Unicode strings
- b := VarPythonEval( 'u"Hello world!"' );
- Assert( VarIsPythonUnicode(b) );
- w := PythonEngine1.PyUnicode_AsWideString(ExtractPythonObjectFrom(b));
- Assert( w = 'Hello world!');
- Assert( b = 'Hello world!');
- Assert( b <> a );
- _obj := PythonEngine1.PyUnicode_FromWideString(w);
- try
- c := VarPythonCreate( _obj );
- finally
- PythonEngine1.Py_XDecRef(_obj);
- end;
- Assert(b = c);
- Assert(c = w);
- Assert( c = 'Hello world!');
- w := b;
- Assert( b = w);
- Assert( w = 'Hello world!');
- Assert( Length(w) = 12 );
- Assert( Length(w) = b.Length() );
- c := PythonEngine1.PyObjectAsVariant(ExtractPythonObjectFrom(b));
- Assert( c = b );
- Assert( c = w );
- Assert( c = 'Hello world!');
- {$IFDEF UNICODE}
- Assert( VarType(c) and VarTypeMask = varUString );
- {$ELSE}
- Assert( VarType(c) and VarTypeMask = varOleStr );
- {$ENDIF}
- c := VarPythonCreate(w);
- Assert( c = 'Hello world!');
- Assert( c = w );
- c := VarPythonCreate([w]);
- Assert( VarIsPythonUnicode(c.GetItem(0)) );
- Assert( c.GetItem(0) = 'Hello world!');
- Assert( c.GetItem(0) = w );
- {$IFDEF PREFER_UNICODE}
- c := w;
- b := VarPythonCreate(c);
- Assert( VarIsPythonUnicode(b) );
- Assert( b = c );
- Assert( b = w );
- {$ENDIF}
- // empty strings
- a := VarPythonEval( 'u""' );
- Assert(a.length = 0);
- Assert(a = '');
- Assert(String(a) = '');
- Assert(WideString(a) = '');
-
- // Done!
- Log('String test was Ok.');
-end;
-
-procedure TMain.btnTestSequencesClick(Sender: TObject);
-var
- a, b, c : Variant;
- iter : Variant;
- cpt : Integer;
-begin
- // initialize the operands
- // you can either use the overloaded function with an array of const
- // or use the VarArrayOf function that returns an array of variants that will
- // be casted to a Python list.
- a := VarPythonCreate([1, 2, 3]);
- Assert(VarIsPython(a));
- Assert(VarIsPythonSequence(a));
- Assert(VarIsPythonList(a));
- Assert(a.Length = 3); // this is a special property that does the same as: len(a) in Python
- Assert(a.Length() = 3); // this is a special method that does the same as the special property
- Assert(len(a) = 3);
- Assert(a.GetItem(0) = 1); // this is a special method that lets you do the same as: a[0] in Python
- Assert(a.GetItem(1) = 2);
- Assert(a.GetItem(2) = 3);
- Assert(String(a) = '[1, 2, 3]');
- // indexed access using brackets when the sequence is a property of an object (module, instance...)
- MainModule.a := VarPythonCreate([1, 2, 3]);
- Assert(MainModule.a[1] = 2);
-
- b := VarPythonCreate(VarArrayOf([4, 5, 6]));
- Assert(VarIsPython(b));
- Assert(VarIsPythonSequence(b));
- Assert(VarIsPythonList(b));
- Assert(b.Length = 3);
- Assert(b.Length() = 3);
- Assert(len(b) = 3);
- Assert(b.GetItem(0) = 4);
- Assert(b.GetItem(1) = 5);
- Assert(b.GetItem(2) = 6);
- Assert(String(b) = '[4, 5, 6]');
-
- // concatenation
- c := a + b;
- // check result of operation
- Assert(String(c) = '[1, 2, 3, 4, 5, 6]');
- // check that operation did not change the content of operands.
- Assert(String(a) = '[1, 2, 3]');
- Assert(String(b) = '[4, 5, 6]');
- // now with a litteral: note that with D6 SP1, we can't concatenate a custom variant with an var array of variants
- c := a + b + VarPythonCreate(['Hello', 'World!', 3.14]);
- {$IFDEF UNICODE}
- Assert( String(c) = '[1, 2, 3, 4, 5, 6, u''Hello'', u''World!'', 3.1400000000000001]' );
- {$ELSE}
- Assert( String(c) = '[1, 2, 3, 4, 5, 6, ''Hello'', ''World!'', 3.1400000000000001]' );
- {$ENDIF}
- c := a + VarPythonCreate(['Hello', 'World!', 3.14]) + b;
- {$IFDEF UNICODE}
- Assert( String(c) = '[1, 2, 3, u''Hello'', u''World!'', 3.1400000000000001, 4, 5, 6]' );
- {$ELSE}
- Assert( String(c) = '[1, 2, 3, ''Hello'', ''World!'', 3.1400000000000001, 4, 5, 6]' );
- {$ENDIF}
- c := VarPythonCreate(['Hello', 'World!', 3.14]) + a + b;
- {$IFDEF UNICODE}
- Assert( String(c) = '[u''Hello'', u''World!'', 3.1400000000000001, 1, 2, 3, 4, 5, 6]' );
- {$ELSE}
- Assert( String(c) = '[''Hello'', ''World!'', 3.1400000000000001, 1, 2, 3, 4, 5, 6]' );
- {$ENDIF}
-
- // multiplication
- c := a * 3; // in Python the multiplication of sequence concatenates n times the sequence
- Assert( String(c) = '[1, 2, 3, 1, 2, 3, 1, 2, 3]' );
-
- // comparisons
- //------------
-
- // equal
- c := a = b;
- Assert(c = False);
- c := a = a;
- Assert(c = True);
- Assert( String(a) = '[1, 2, 3]');
-
- // not equal
- c := a <> b;
- Assert(c = True);
- Assert( not (c = b) );
- c := a <> a;
- Assert(c = False);
- Assert( String(a) = '[1, 2, 3]');
-
- // greater than
- c := a > b; Assert(c = False);
- c := b > a; Assert(c = True);
- Assert( String(a) > '[1, 1, 1]');
-
- // greater or equal than
- c := a >= b; Assert(c = False);
- c := b >= a; Assert(c = True);
- c := a >= a; Assert(c = True);
- Assert( String(a) >= '[1, 2, 3]' );
-
- // less than
- c := a < b; Assert(c = True);
- c := b < a; Assert(c = False);
- Assert( String(a) < '[4, 4, 4]');
-
- // less or equal than
- c := a <= b; Assert(c = True);
- c := b <= a; Assert(c = False);
- c := a <= a; Assert(c = True);
- Assert( String(a) <= '[1, 2, 3]');
-
- // copy
- c := a;
- Assert( c = a);
- Assert( VarIsSame(c, a) ); // checks if 2 variants share the same Python object.
-
- // sequence methods:
- c := b + a;
- c.sort(); // note that you must you the parenthesis to distinguish the call between a method or a property.
- Assert( c = (a+b) );
-
- c := NewPythonList; // facility for building sequences
- Assert( not VarIsTrue(c) ); // c is false because it's an empty collection
- c.append(1);
- c.append(2);
- c.append(3);
- Assert( VarIsTrue(c) ); // c is true because it's not an empty collection
- Assert(c = a);
- Assert( c.pop() = 3 );
- Assert( String(c) = '[1, 2]');
-
- c := NewPythonList(3); // facility for building sequences
- c.SetItem(0, 1);
- c.SetItem(1, 2);
- c.SetItem(2, 3);
- Assert(c = a);
- c.DeleteItem(1);
- Assert(c = VarPythonCreate([1,3]));
-
- Assert(VarPythonCreate([1,2,3,4]).GetSlice(1, 3) = VarPythonCreate([2,3])); // same as x = [1,2,3,4]; x[1:3]
- Assert(VarPythonCreate([1,2,3,4]).GetSlice(1, Ellipsis) = VarPythonCreate([2,3,4])); // same as x = [1,2,3,4]; x[1:]
- Assert(VarPythonCreate([1,2,3,4]).GetSlice(1, -1) = VarPythonCreate([2,3])); // same as x = [1,2,3,4]; x[1:-1]
- c := VarPythonCreate([1,2,3,4]);
- c.SetSlice(1, 3, VarPythonCreate([7, 8, 9]));
- Assert( c = VarPythonCreate([1, 7, 8, 9, 4]) );
- Assert( Boolean(c.Contains( 7 )) ); // same as 7 in c
- Assert( not Boolean(c.Contains( 77 )) );
- c.DelSlice(1,3);
- Assert( c = VarPythonCreate([1,9,4]) );
-
- c := VarPythonCreate([1, 2, 3, 4], stTuple); // test a tuple
- Assert( VarIsPythonTuple(c) );
- Assert( VarIsPythonSequence(c) );
- Assert( c.GetItem(1) = 2 );
- Assert( c.Length = 4 );
- c := NewPythonTuple(3);
- c.SetItem(0, 1);
- c.SetItem(1, 2);
- c.SetItem(2, 3);
- Assert( VarIsPythonTuple(c) );
- Assert( VarIsPythonSequence(c) );
- Assert( c.GetItem(1) = 2 );
- Assert( c.Length = 3 );
- Assert(not VarIsPythonIterator(c));
-
- // test iterator
- iter := BuiltinModule.iter(VarPythonCreate([1, 2, 3, 4], stTuple));
- Assert(VarIsPythonIterator(iter));
- Assert(iter.next() = 1);
- Assert(iter.next() = 2);
- Assert(iter.next() = 3);
- Assert(iter.next() = 4);
- try
- iter.next();
- except
- on E: EPyStopIteration do
- begin
- Assert(True); //Ok.
- end
- else
- Assert(False, 'expected stop exception');
- end;
- cpt := 0;
- iter := VarPyth.iter(VarPythonCreate([1, 2, 3, 4], stTuple));
- Assert(VarIsPythonIterator(iter));
- try
- while True do
- begin
- a := iter.next();
- Inc(cpt);
- Assert(a = cpt);
- end;
- except
- on E: EPyStopIteration do
- begin
- Assert(True); //Ok.
- end
- else
- Assert(False, 'expected stop exception');
- end;
- Assert(cpt = 4);
- // Done!
- Log('Sequence test was Ok.');
-end;
-
-procedure TMain.btnTestMappingsClick(Sender: TObject);
-var
- a, b, c, keys, values : Variant;
-begin
- // initialize the operands
- a := NewPythonDict;
- Assert(VarIsPython(a));
- Assert(VarIsPythonMapping(a));
- Assert(VarIsPythonDict(a));
- // There is a bug in D2010 in which Char('a') gets translated to integer parameter
- a.SetItem( string('a'), 1 );
- a.SetItem( string('b'), 2 );
- a.SetItem( string('c'), 3 );
- Assert(a.Length = 3); // this is a special property that does the same as: len(a) in Python
- Assert(a.Length() = 3); // this is a special method that does the same as the special property
- Assert(len(a) = 3);
- Assert(a.GetItem(string('a')) = 1); // this is a special method that lets you do the same as: a[0] in Python
- Assert(a.GetItem(string('b')) = 2);
- Assert(a.GetItem(string('c')) = 3);
-
-
- b := NewPythonDict;
- Assert(VarIsPython(b));
- Assert(VarIsPythonMapping(b));
- Assert(VarIsPythonDict(b));
- b.SetItem( string('d'), 4 );
- b.SetItem( string('e'), 5 );
- b.SetItem( string('f'), 6 );
- Assert(b.Length = 3);
- Assert(b.Length() = 3);
- Assert(len(b) = 3);
- Assert(b.GetItem(string('d')) = 4);
- Assert(b.GetItem(string('e')) = 5);
- Assert(b.GetItem(string('f')) = 6);
-
- // copy
- c := a;
- Assert( c = a);
- Assert( VarIsSame(c, a) ); // checks if 2 variants share the same Python object.
-
- // dict methods
- Assert( Boolean(a.has_key(string('a'))) );
- Assert( not Boolean(a.has_key('abc')) );
- keys := a.keys();
- keys.sort();
- Assert( keys = VarPythonCreate(VarArrayOf(['a', 'b', 'c'])));
- values := a.values();
- values.sort();
- Assert( values = VarPythonCreate(VarArrayOf([1, 2, 3])));
- c := a;
- c.DeleteItem(string('a'));
- Assert( not Boolean(c.has_key(string('a'))) );
-
- // test string values
- a := NewPythonDict;
- a.SetItem( string('a'), 'Hello');
- a.SetItem( string('b'), 'World!');
- a.SetItem( string('c'), '');
- Assert(a.GetItem(string('a')) = 'Hello');
- Assert(a.GetItem(string('b')) = 'World!');
- Assert(a.GetItem(string('c')) = '');
-
- // Done!
- Log('Mapping test was Ok.');
-end;
-
-procedure TMain.btnTestDatesClick(Sender: TObject);
-var
- a, b, _timeMod : Variant;
-{$IFDEF PYTHON23_OR_HIGHER}
- c : Variant;
-{$ENDIF}
- _date, _date2 : TDateTime;
- _year, _month, _day : Word;
- _year2, _month2, _day2 : Word;
- _hour, _min, _sec, _msec : Word;
- _hour2, _min2, _sec2, _msec2 : Word;
-begin
- _timeMod := Import('time'); // get the time module of Python
-
- _date := Now;
- DecodeDate( _date, _year, _month, _day );
- DecodeTime( _date, _hour, _min, _sec, _msec );
-
- b := _timeMod.localtime(_timeMod.time()); // same as Now in Delphi
-
- a := VarPythonCreate(_date);
- Assert( a.Length = 9 );
- Assert( a.GetItem(0) = _year );
- Assert( a.GetItem(1) = _month );
- Assert( a.GetItem(2) = _day );
- Assert( a.GetItem(3) = _hour );
- Assert( a.GetItem(4) = _min );
- Assert( a.GetItem(5) = _sec );
- Assert( b.Length = 9 );
- Assert( b.GetItem(0) = a.GetItem(0) );
- Assert( b.GetItem(1) = a.GetItem(1) );
- Assert( b.GetItem(2) = a.GetItem(2) );
- Assert( b.GetItem(3) = a.GetItem(3) );
- Assert( b.GetItem(4) = a.GetItem(4) );
- Assert( b.GetItem(5) = a.GetItem(5) );
- Assert( b.GetItem(6) = a.GetItem(6) );
- Assert( b.GetItem(7) = a.GetItem(7) );
- // don't test the 9th item of the tuple, because it's the daylight saving,
- // and it's not computed by the Python for Delphi.
- //Assert( b.GetItem(8) = a.GetItem(8) );
-
- _date2 := b;
- DecodeDate( _date2, _year2, _month2, _day2 );
- DecodeTime( _date2, _hour2, _min2, _sec2, _msec2 );
- Assert( _year2 = _year );
- Assert( _month2 = _month );
- Assert( _day2 = _day );
- Assert( _hour2 = _hour );
- Assert( _min2 = _min );
- Assert( _sec2 = _sec );
-
-{$IFDEF PYTHON23_OR_HIGHER}
- // test new datetime module
- _timeMod := Import('datetime'); // get the datetime module of Python
- //or _timeMod := DatetimeModule; // get the datetime module of Python
-
- a := _timeMod.datetime(2002, 12, 30, 22, 15, 38, 827738);
- Assert(VarIsPythonDateTime(a));
- Assert(VarIsPythonDate(a));
- Assert(not VarIsPythonTime(a));
- Assert(not VarIsPythonDateTimeDelta(a));
- Assert(a.year = 2002);
- Assert(a.month = 12);
- Assert(a.day = 30);
- Assert(a.hour = 22);
- Assert(a.minute = 15);
- Assert(a.second = 38);
- Assert(a.microsecond = 827738);
-
- _date := a;
- DecodeDate( _date, _year, _month, _day );
- DecodeTime( _date, _hour, _min, _sec, _msec );
- Assert(_year = 2002);
- Assert(_month = 12);
- Assert(_day = 30);
- Assert(_hour = 22);
- Assert(_min = 15);
- Assert(_sec = 38);
- Assert(_msec = 827738 div 1000);
-
- a := _timeMod.date(2002, 12, 30);
- Assert(not VarIsPythonDateTime(a));
- Assert(VarIsPythonDate(a));
- Assert(not VarIsPythonTime(a));
- Assert(not VarIsPythonDateTimeDelta(a));
- _date := a;
- DecodeDate( _date, _year, _month, _day );
- DecodeTime( _date, _hour, _min, _sec, _msec );
- Assert(_year = 2002);
- Assert(_month = 12);
- Assert(_day = 30);
- Assert(_hour = 0);
- Assert(_min = 0);
- Assert(_sec = 0);
- Assert(_msec = 0);
- Assert(a.year = 2002);
- Assert(a.month = 12);
- Assert(a.day = 30);
-
- a := _timeMod.time(22, 15, 38, 827738);
- Assert(not VarIsPythonDateTime(a));
- Assert(not VarIsPythonDate(a));
- Assert(VarIsPythonTime(a));
- Assert(not VarIsPythonDateTimeDelta(a));
- Assert(a.hour = 22);
- Assert(a.minute = 15);
- Assert(a.second = 38);
- Assert(a.microsecond = 827738);
- _date := a;
- DecodeTime( _date, _hour, _min, _sec, _msec );
- Assert(_hour = 22);
- Assert(_min = 15);
- Assert(_sec = 38);
- Assert(_msec = 827738 div 1000);
-
- a := DatetimeModule.datetime(2002, 12, 30, 22, 15, 38, 827738);
- b := _timeMod.datetime(2002, 12, 30, 22, 16, 38, 827738);
- c := b - a;
- Assert(VarIsPythonDateTimeDelta(c));
- Assert(c.days = 0);
- Assert(c.seconds = 60);
- Assert(c.microseconds = 0);
- _date := c;
- Assert(Trunc(_date)=0);
- DecodeTime( _date, _hour, _min, _sec, _msec );
- Assert(_hour = 0);
- Assert(_min = 1);
- Assert(_sec = 0);
- Assert(_msec = 0);
-
- c := a - b;
- Assert(VarIsPythonDateTimeDelta(c));
- Assert(c.days = -1);
- Assert(c.seconds = 86340);
- Assert(c.microseconds = 0);
- _date := c;
- Assert(Trunc(_date)=0);
- Assert(_date<0);
- DecodeTime( _date, _hour, _min, _sec, _msec );
- Assert(_hour = 0);
- Assert(_min = 1);
- Assert(_sec = 0);
- Assert(_msec = 0);
-
- c := a + (b-a);
- Assert(VarIsPythonDateTime(c));
- Assert(c = b);
- Assert(c <> a);
- Assert(a < b);
- Assert(b > a);
-
- GetPythonEngine.DatetimeConversionMode := dcmToDatetime;
- try
- _date := EncodeDate(2003, 01, 28) + EncodeTime(12, 22, 33, 450);
- a := VarPythonCreate(_date);
- Assert(VarIsPythonDateTime(c));
- _date2 := a;
- DecodeDate( _date, _year, _month, _day );
- DecodeTime( _date, _hour, _min, _sec, _msec );
- DecodeDate( _date2, _year2, _month2, _day2 );
- DecodeTime( _date2, _hour2, _min2, _sec2, _msec2 );
- Assert( _year2 = _year );
- Assert( _month2 = _month );
- Assert( _day2 = _day );
- Assert( _hour2 = _hour );
- Assert( _min2 = _min );
- Assert( _sec2 = _sec );
- Assert( _msec2 = _msec );
- Assert(a.year = 2003);
- Assert(a.month = 01);
- Assert(a.day = 28);
- Assert(a.hour = 12);
- Assert(a.minute = 22);
- Assert(a.second = 33);
- Assert(a.microsecond = 450000);
- finally
- GetPythonEngine.DatetimeConversionMode := dcmToTuple;
- end;
-{$ENDIF}
- // Done!
- Log('Dates test was Ok.');
-end;
-
-procedure TMain.btnTestObjectsClick(Sender: TObject);
-var
- _main, f, a, b, c : Variant;
- val : Integer;
- _folder, _str : String;
- _myModule : Variant;
-begin
- PythonEngine1.ExecStrings(Memo2.Lines);
- _main := MainModule;
- Assert( VarIsPythonModule(_main) );
- Assert( VarIsPythonModule(SysModule) );
- Assert( Import('sys').version = SysModule.version );
- Assert( Boolean(SysModule.modules.has_key(GetPythonEngine.ExecModule)) ); // if __main__ in sys.modules
- Assert( VarIsSameType(_main, SysModule) );
- Assert( _type(_main).__name__ = 'module');
- Assert( BuiltinModule.type(_main).__name__ = 'module');
-
- Assert( VarIsPythonClass(_main.Foo) );
- Assert( VarIsPythonClass(_main.Bar) );
- Assert( VarIsPythonClass(_main.XYZ) );
- Assert( not VarIsPythonClass(_main.Foo.__add__) );
- Assert( not VarIsPythonClass(_main.f) );
- Assert( VarIsPythonCallable(_main.Foo) );
- Assert( VarIsPythonCallable(_main.Foo) );
- Assert( VarIsTrue(BuiltinModule.callable(_main.Foo)) );
- Assert( VarIsPythonInstance(_main.f) );
- Assert( VarIsSame(_main.f.__class__, _main.Foo) );
- Assert( VarIsPythonMethod(_main.f.Inc) );
- Assert( VarIsPythonCallable(_main.f.Inc) );
- Assert( VarIsTrue(BuiltinModule.callable(_main.f.Inc)) );
- Assert( VarIsPythonFunction(_main.Add) );
- Assert( VarIsPythonCallable(_main.Add) );
- Assert( VarIsInstanceOf(_main.f, _main.Foo) );
- Assert( VarIsTrue(BuiltinModule.isinstance(_main.f, _main.Foo)) );
- Assert( VarIsSubclassOf(_main.Bar, _main.Foo) );
- Assert( VarIsTrue(BuiltinModule.issubclass(_main.Bar, _main.Foo)) );
- Assert( not VarIsSubclassOf(_main.Foo, _main.Bar) );
- Assert( VarIsInstanceOf(_main.b, _main.Foo) );
- Assert( not VarIsInstanceOf(_main.f, _main.Bar) );
- Assert( VarIsTrue( BuiltinModule.vars(_main).has_key(string('f')) ) );
- Assert( VarIsTrue( BuiltinModule.dir(_main).Contains(string('f')) ) );
-
- f := _main.Foo(); // new instance of class Foo
- Log('Instanciate class Foo: ' + f);
- f.Inc(); // call a method without any arg, because there's a default arg.
- f.Inc(2); // call a method with one arg, overriding the default arg.
- Assert( VarIsPythonNumber(f.Value) );
- Assert( VarIsPythonInteger(f.Value) );
- Assert( f.Value = _main.f.Value ); // compare the result with what we did in the script
- Assert( f.GetValue() = _main.f.GetValue() ); // compare the result with what we did in the script
- Assert( VarIsPython( f.GetSelf() ) );
- Assert( VarIsSame( f.GetSelf(), f ) );
- Assert( BuiltinModule.getattr(f, 'Value') = f.Value );
- // python (+) operator overloading
- a := _main.Foo(10);
- b := _main.Foo(5);
- c := a + b;
- Assert(a.Value = 10);
- Assert(b.Value = 5);
- Assert(c.Value = 15);
- Log('Test -> a, b, c : ' + a.Value + ', ' + b.Value + ', ' + c.Value);
- // cascading calls
- Assert( f.GetSelf().GetSelf().GetSelf().GetSelf().GetValue() = _main.f.GetValue() );
- Assert( Boolean(f.__dict__.has_key('Value')) );
- Assert( VarIsTrue( BuiltinModule.hasattr(f, 'Value') ) );
- _str := 'Value';
- Assert( Boolean(f.__dict__.has_key(_str)) ); // check with a string var
- Assert( Boolean( BuiltinModule.hasattr(f, _str) ) );
- val := f.Value;
- f.Add(f); // passing itself as an argument
- Assert( f.Value = val*2 );
- // check param order
- f.SetABC(1, 2, 3);
- Assert(f.A = 1);
- Assert(f.B = 2);
- Assert(f.C = 3);
- // add a property to an instance
- f.Z := 99;
- Assert(f.Z = 99);
- // add a var to a module
- _main.Z := 99;
- Assert(_main.Z = 99);
- // check none
- Assert( VarIsNone(None) );
- Assert( VarIsNone(VarPythonCreate([1, Null, 3]).GetItem(1)) ); // Null is casted to None
- Assert( VarIsNone(VarPythonCreate([1, None, 3]).GetItem(1)) );
- Assert( VarIsNone(f.Inc()) );
- Assert( f.Inc() = None );
- Assert( not Boolean(None) ); // if not None:
- Assert( not VarIsTrue(None) ); // if not None:
- Assert( Boolean(f) ); // if f:
- Assert( VarIsTrue(f) ); // if f:
-
- // call a function
- Assert( _main.Add(2, 2) = 4 );
- // call a function with a mix of regular parameters and named parameters
- f := _main.MakeList(1, 2, 3, 4);
- Assert(VarIsPythonList(f));
- Assert(f.Length = 4);
- Assert(f.GetItem(0) = 1);
- Assert(f.GetItem(1) = 2);
- Assert(f.GetItem(2) = 3);
- Assert(f.GetItem(3) = 4);
- f := _main.MakeList(1, d:=3, c:=4, b:=2);
- Assert(VarIsPythonList(f));
- Assert(f.Length = 4);
- Assert(f.GetItem(0) = 1);
- Assert(f.GetItem(1) = 2);
- Assert(f.GetItem(2) = 4);
- Assert(f.GetItem(3) = 3);
- f := _main.MakeList(1, 2, d:= 3, c:=4);
- Assert(VarIsPythonList(f));
- Assert(f.Length = 4);
- Assert(f.GetItem(0) = 1);
- Assert(f.GetItem(1) = 2);
- Assert(f.GetItem(2) = 4);
- Assert(f.GetItem(3) = 3);
- f := _main.MakeList(1, 2, 3, d:=4);
- Assert(VarIsPythonList(f));
- Assert(f.Length = 4);
- Assert(f.GetItem(0) = 1);
- Assert(f.GetItem(1) = 2);
- Assert(f.GetItem(2) = 3);
- Assert(f.GetItem(3) = 4);
- f := _main.MakeList(b:=1, a:=2, d:= 3, c:=4);
- Assert(VarIsPythonList(f));
- Assert(f.Length = 4);
- Assert(f.GetItem(0) = 2);
- Assert(f.GetItem(1) = 1);
- Assert(f.GetItem(2) = 4);
- Assert(f.GetItem(3) = 3);
-
- // importing an external module and using it
- // first, extend the path with our current folder
- _folder := ExtractFilePath(Application.ExeName);
- if (Length(_folder) > 0) and (_folder[Length(_folder)] = '\') then
- Delete(_folder, Length(_folder), 1);
- if not Boolean(SysModule.path.Contains(_folder)) then
- SysModule.path.insert(0, _folder);
- // import the module
- _myModule := Import('MyModule');
- // call one of his functions
- Assert( _myModule.Add(2, 2) = 4 );
- // delete module var f
- _main.__dict__.DeleteItem(string('f'));
- Assert( _main.__dict__.has_key(string('f')) = False );
- // open a file using Python
- if FileExists('MyModule.py') then
- begin
- f := BuiltinModule.open('MyModule.py', string('r')).readlines();
- with TStringList.Create do
- try
- LoadFromFile('MyModule.py');
- Assert( len(f) = Count);
- finally
- Free; // TStringList
- end; // of try
- end; // of if
- // Done!
- Log('Objects test was Ok.');
-end;
-
-procedure TMain.RunSelectedTests;
-begin
- if cbIntegers.Checked then
- btnTestIntegersClick(nil);
- if cbFloats.Checked then
- btnTestFloatsClick(nil);
- if cbStrings.Checked then
- btnTestStringsClick(nil);
- if cbSequences.Checked then
- btnTestSequencesClick(nil);
- if cbMappings.Checked then
- btnTestMappingsClick(nil);
- if cbDates.Checked then
- btnTestDatesClick(nil);
- if cbObjects.Checked then
- btnTestObjectsClick(nil);
-end;
-
-procedure TMain.btnRunSelectedTestsClick(Sender: TObject);
-begin
- RunSelectedTests;
-end;
-
-procedure TMain.btnRunNTimesClick(Sender: TObject);
-var
- i, _count : Integer;
-begin
- _count := StrToInt(edtTestCount.Text)-1;
- fVerbose := False;
- PythonEngine1.RedirectIO := False;
- ProgressBar1.Visible := True;
- try
- for i := 0 to _count do
- begin
- ProgressBar1.Position := i * 100 div _count;
- ProgressBar1.Update;
- RunSelectedTests;
- end;
- finally
- fVerbose := True;
- PythonEngine1.RedirectIO := True;
- ProgressBar1.Visible := False;
- end;
-end;
-
-procedure TMain.FormCreate(Sender: TObject);
-begin
- fVerbose := True;
-end;
-
-end.
diff --git a/Demos/Demo25/fmMain.xfm b/Demos/Demo25/fmMain.xfm
deleted file mode 100644
index 86c146f..0000000
--- a/Demos/Demo25/fmMain.xfm
+++ /dev/null
@@ -1,289 +0,0 @@
-object Main: TMain
- Left = 145
- Top = 76
- Width = 769
- Height = 561
- VertScrollBar.Range = 356
- ActiveControl = Memo1
- Caption = 'VarPyth unit tests'
- Color = clButton
- Font.Color = clText
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- Font.Weight = 0
- ParentFont = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- TextWidth = 5
- object Splitter1: TSplitter
- Left = 0
- Top = 249
- Width = 769
- Height = 5
- Cursor = crVSplit
- Align = alTop
- end
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 769
- Height = 249
- Align = alTop
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 459
- Width = 769
- Height = 102
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object ProgressBar1: TProgressBar
- Left = 0
- Top = 86
- Width = 769
- Height = 16
- Align = alBottom
- Visible = False
- end
- object Label1: TLabel
- Left = 616
- Top = 59
- Width = 24
- Height = 13
- Caption = 'times'
- end
- object btnExecuteScript: TButton
- Left = 8
- Top = 8
- Width = 89
- Height = 25
- Caption = 'E&xecute Script'
- TabOrder = 0
- OnClick = btnExecuteScriptClick
- end
- object btnTestIntegers: TButton
- Left = 128
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Integers'
- TabOrder = 1
- OnClick = btnTestIntegersClick
- end
- object btnTestFloats: TButton
- Left = 216
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Floats'
- TabOrder = 2
- OnClick = btnTestFloatsClick
- end
- object btnTestSequences: TButton
- Left = 392
- Top = 8
- Width = 89
- Height = 25
- Caption = 'Test Sequences'
- TabOrder = 3
- OnClick = btnTestSequencesClick
- end
- object btnTestMappings: TButton
- Left = 488
- Top = 8
- Width = 89
- Height = 25
- Caption = 'Test Mappings'
- TabOrder = 4
- OnClick = btnTestMappingsClick
- end
- object btnTestObjects: TButton
- Left = 664
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Objects'
- TabOrder = 5
- OnClick = btnTestObjectsClick
- end
- object btnTestStrings: TButton
- Left = 304
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Strings'
- TabOrder = 6
- OnClick = btnTestStringsClick
- end
- object cbIntegers: TCheckBox
- Left = 128
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 7
- end
- object cbFloats: TCheckBox
- Left = 216
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 8
- end
- object cbStrings: TCheckBox
- Left = 304
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 9
- end
- object cbSequences: TCheckBox
- Left = 392
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 10
- end
- object cbMappings: TCheckBox
- Left = 488
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 11
- end
- object cbObjects: TCheckBox
- Left = 664
- Top = 33
- Width = 73
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 12
- end
- object btnRunSelectedTests: TButton
- Left = 128
- Top = 56
- Width = 121
- Height = 25
- Caption = 'Run selected tests once'
- TabOrder = 13
- OnClick = btnRunSelectedTestsClick
- end
- object edtTestCount: TEdit
- Left = 568
- Top = 56
- Width = 41
- Height = 21
- TabOrder = 14
- Text = '1000'
- end
- object btnRunNTimes: TButton
- Left = 400
- Top = 56
- Width = 163
- Height = 25
- Caption = 'Run selected tests n times'
- TabOrder = 16
- OnClick = btnRunNTimesClick
- end
- object btnTestDates: TButton
- Left = 584
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Test Dates'
- TabOrder = 18
- OnClick = btnTestDatesClick
- end
- object cbDates: TCheckBox
- Left = 584
- Top = 33
- Width = 77
- Height = 17
- Caption = 'Included'
- Checked = True
- State = cbChecked
- TabOrder = 17
- end
- end
- object Memo2: TMemo
- Left = 0
- Top = 254
- Width = 769
- Height = 205
- Align = alClient
- Lines.Strings = (
- 'class Foo:'
- ' def __init__(Self):'
- ' Self.Value = 0'
- ''
- ' def __del__(Self):'
- ' print "delete", Self'
- ''
- ' def Inc(Self, AValue = 1):'
- ' Self.Value = Self.Value + AValue'
- ''
- ' def GetSelf(Self):'
- ' return Self'
- ''
- ' def GetValue(Self):'
- ' return Self.Value'
- ''
- ' def SetABC(Self, A, B, C):'
- ' Self.A = A'
- ' Self.B = B'
- ' Self.C = C'
- ''
- ' def Add(Self, AFooInst):'
- ' Self.Value = Self.Value + AFooInst.Value'
- ''
- 'class Bar(Foo):'
- ' def Inc(Self, AValue = 1):'
- ' Self.Value = Self.Value - AValue'
- 'def Add(a, b):'
- ' return a + b'
- ''
- 'f = Foo()'
- 'print "Created", f'
- 'f.Inc()'
- 'f.Inc(2)'
- ''
- 'b = Bar()'
- 'b.Inc()'
- 'b.Inc(2)')
- TabOrder = 2
- end
- object PythonEngine1: TPythonEngine
- DllName = 'python15.dll'
- APIVersion = 1007
- RegVersion = '1.5'
- IO = PythonGUIInputOutput1
- Left = 192
- Top = 48
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- Output = Memo1
- Left = 232
- Top = 48
- end
-end
diff --git a/Demos/Demo26/Project1.CW3 b/Demos/Demo26/Project1.CW3
deleted file mode 100644
index c0c0d34..0000000
--- a/Demos/Demo26/Project1.CW3
+++ /dev/null
@@ -1,68 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
\ No newline at end of file
diff --git a/Demos/Demo26/Project1.conf b/Demos/Demo26/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo26/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo26/Project1.dpr b/Demos/Demo26/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo26/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo26/Project1.dproj b/Demos/Demo26/Project1.dproj
deleted file mode 100644
index c8ea281..0000000
--- a/Demos/Demo26/Project1.dproj
+++ /dev/null
@@ -1,100 +0,0 @@
-
-
- {910E2A03-F875-4153-9E58-3434C6D9AB6F}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo26/Project1.kof b/Demos/Demo26/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo26/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo26/Project1.res b/Demos/Demo26/Project1.res
deleted file mode 100644
index f928fd9..0000000
Binary files a/Demos/Demo26/Project1.res and /dev/null differ
diff --git a/Demos/Demo26/Unit1.dfm b/Demos/Demo26/Unit1.dfm
deleted file mode 100644
index cf78062..0000000
Binary files a/Demos/Demo26/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo26/Unit1.pas b/Demos/Demo26/Unit1.pas
deleted file mode 100644
index 4b908d7..0000000
--- a/Demos/Demo26/Unit1.pas
+++ /dev/null
@@ -1,279 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, ComCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- Splitter1: TSplitter;
- Memo1: TMemo;
- PythonEngine1: TPythonEngine;
- PythonModule1: TPythonModule;
- PythonType1: TPythonType;
- Panel1: TPanel;
- Button1: TButton;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure PythonType1Initialization(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
- // This is a Delphi class implementing a new Python type
- // it must derive from TPyObject or one of its descendants.
- // Then it must override some methods, like the constructors,
- // the RegisterMethods and the type services' virtual methods.
- TPyPoint = class(TPyObject)
- x, y : Integer;
- Name : String;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function Repr : PPyObject; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
- class procedure RegisterMembers( PythonType : TPythonType ); override;
- class procedure RegisterGetSets( PythonType : TPythonType ); override;
-
- // Methods of TPyPoint
- procedure OffsetBy( dx, dy : Integer );
-
- // Interface methods
- function DoOffsetBy( args : PPyObject ) : PPyObject; cdecl;
- function DoRaiseError( args : PPyObject ) : PPyObject; cdecl;
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-// First, we need to initialize the property PyObjectClass with
-// the class of our Type object
-procedure TForm1.PythonType1Initialization(Sender: TObject);
-begin
- PythonType1.PyObjectClass := TPyPoint;
-end;
-
-// We override the constructors
-
-constructor TPyPoint.Create( APythonType : TPythonType );
-begin
- inherited;
- x := 0;
- y := 0;
-end;
-
-// Don't call the Create constructor of TPyPoint, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyPoint.Create will be automatically be called.
-
-constructor TPyPoint.CreateWith( PythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine do
- begin
- if PyArg_ParseTuple( args, 'ii:CreatePoint',@x, @y ) = 0 then
- exit;
- end;
-end;
-
-// Then we override the needed services
-
-function TPyPoint.Repr : PPyObject;
-begin
- with GetPythonEngine do
- Result := VariantAsPyObject(Format('(%d, %d)',[x, y]));
- // or Result := PyString_FromString( PAnsiChar(Format('(%d, %d)',[x, y])) );
-end;
-
-// get/set functions
-function TPyPoint_GetName( obj : PPyObject; context : Pointer) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- Result := PyString_FromString(PAnsiChar(AnsiString(TPyPoint(PythonToDelphi(obj)).Name)));
-end;
-
-function TPyPoint_SetName( obj, value : PPyObject; context : Pointer) : integer; cdecl;
-begin
- with GetPythonEngine do
- begin
- if PyString_Check(value) then
- begin
- TPyPoint(PythonToDelphi(obj)).Name := PyObjectAsVariant(value);
- Result := 0;
- end
- else
- begin
- Result := -1;
- PyErr_SetString(PyExc_AttributeError^, 'attribute Name expected a string value');
- end;
- end;
-end;
-
-// Class methods
-// We register the methods of our type
-
-class procedure TPyPoint.RegisterMethods( PythonType : TPythonType );
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'OffsetBy', @TPyPoint.DoOffsetBy, 'Point.OffsetBy( dx, dy )' );
- AddMethod( 'RaiseError', @TPyPoint.DoRaiseError, 'Point.RaiseError()' );
- end;
-end;
-
-class procedure TPyPoint.RegisterMembers( PythonType : TPythonType );
-begin
- with PythonType do
- begin
- AddMember( 'x', mtInt, NativeInt(@TPyPoint(nil).x), mfDefault, 'x coordinate');
- AddMember( 'y', mtInt, NativeInt(@TPyPoint(nil).y), mfDefault, 'y coordinate');
- end;
-end;
-
-class procedure TPyPoint.RegisterGetSets( PythonType : TPythonType );
-begin
- with PythonType do
- begin
- AddGetSet('Name', TPyPoint_GetName, TPyPoint_SetName, 'Name of a point', nil);
- end;
-end;
-
-// Methods of TPyPoint
-// They do the real actions on the object
-// It's better to split the functions that interface
-// Delphi to Python and the functions that do the
-// real implementation.
-
-procedure TPyPoint.OffsetBy( dx, dy : Integer );
-begin
- Inc( x, dx );
- Inc( y, dy );
-end;
-
-// Interface methods
-// They will be called directly by Python, so we extract the
-// python arguments and we call the method that will really do
-// the action.
-
-function TPyPoint.DoOffsetBy( args : PPyObject ) : PPyObject;
-var
- dx, dy : Integer;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- // first we extract the arguments
- if PyArg_ParseTuple( args, 'ii:Point.Offset',@dx, @dy ) <> 0 then
- begin
- // if it's ok, then we call the method that does the job
- // with the correct arguments
- OffsetBy( dx, dy );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else // the arguments were not right
- Result := nil;
- end;
-end;
-
-// Here's an example of how you can raise errors defined
-// in the module linked to our type.
-function TPyPoint.DoRaiseError( args : PPyObject ) : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- // This is a simple call:
- //GetModule.RaiseError( 'PointError', 'this is an example of raising an error !' );
- // This is an advanced call:
- // We provide the instance vars as a dictionary, so that we can intercept the
- // error with "except" and extract informations from the error object.
- // ArrayToPyDict needs a list of pairs: varName (string), varValue (anything)
- GetModule.RaiseErrorObj( 'EBadPoint', 'this is an example of raising an error !',
- ArrayToPyDict( ['a', 1, 'b', 2, 'c', 3] ) );
- Result := nil;
- end;
-end;
-
-/////////////////////////////////////////////////
-
-
-procedure TForm1.Button1Click(Sender: TObject);
-var
- DelphiPoint : TPyPoint;
- p : PPyObject;
-begin
- // Here's how you can create/read Python vars from Delphi with
- // Delphi/Python objects.
-
- // You should ask to the TPythonType to create an instance of its type
- // because it will do some initialization. You can use CreateInstanceWith
- // if you want to transmit some Python arguments.
- // We receive a Python object pointer
- p := PythonType1.CreateInstance;
- PythonEngine1.CheckError;
- // Then we cast the python object to the right delphi type
- DelphiPoint := TPyPoint( PythonToDelphi(p) );
- // We do some changes on the delphi object
- DelphiPoint.X:=10;
- DelphiPoint.Y:=20;
- // Add variable "myPoint" in the module "spam".
- // So you'll access to the var in the module called spam with:
- // import spam
- // print spam.myPoint
- PythonModule1.SetVar( 'myPoint', p );
- PythonEngine1.Py_DecRef(p);
- {
- Of course, if you want to retrieve a Python var from a module,
- just use the PythonModule1.GetVar or PythonModule1.GetVarAsVariant
- Example:
- p := PythonModule1.GetVar('myPoint');
- if Assigned(p) then
- begin
- DelphiPoint := PythonToDelphi(p) as TPyPoint;
- ...
- Py_XDecRef(p);
- end;
-
- end; }
- // Excecute the script
- PythonEngine1.ExecStrings( memo1.Lines );
- // Add the following line at the end of the script:
- // print spam.myPoint
-
- // Note, that you must not free the delphi point yourself.
- // Instead use the GetPythonEngine.Py_XDECREF(obj) method,
- // because the object may be used by another Python object.
-end;
-
-end.
diff --git a/Demos/Demo27/Project1.dpr b/Demos/Demo27/Project1.dpr
deleted file mode 100644
index 513a1dd..0000000
--- a/Demos/Demo27/Project1.dpr
+++ /dev/null
@@ -1,13 +0,0 @@
-program Project1;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo27/Project1.dproj b/Demos/Demo27/Project1.dproj
deleted file mode 100644
index dd952b9..0000000
--- a/Demos/Demo27/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {5A404EF7-3EA9-4DDC-AF3D-D6434CB20EEA}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 4105
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo27/Project1.res b/Demos/Demo27/Project1.res
deleted file mode 100644
index 9bf42ad..0000000
Binary files a/Demos/Demo27/Project1.res and /dev/null differ
diff --git a/Demos/Demo27/Unit1.dfm b/Demos/Demo27/Unit1.dfm
deleted file mode 100644
index 4113d5f..0000000
--- a/Demos/Demo27/Unit1.dfm
+++ /dev/null
@@ -1,81 +0,0 @@
-object Form1: TForm1
- Left = 192
- Top = 114
- Width = 870
- Height = 640
- Caption = 'Form1'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object Memo1: TMemo
- Left = 56
- Top = 24
- Width = 745
- Height = 281
- TabOrder = 0
- end
- object Memo2: TMemo
- Left = 56
- Top = 320
- Width = 745
- Height = 217
- Lines.Strings = (
- 'import test'
- 'S=test.CreateMySeq()'
- 'print S'
- 'print len(S)'
- 'print S[1]'
- 'print S[1,2]'
- 'print S[1:2]'
- 'print S[1:20:2]'
- 'print S[...]'
- 'print S[1,4,5:8, 10:20:2, ...]')
- TabOrder = 1
- end
- object Button1: TButton
- Left = 56
- Top = 560
- Width = 201
- Height = 25
- Caption = 'Execute'
- TabOrder = 2
- OnClick = Button1Click
- end
- object PythonEngine1: TPythonEngine
- IO = PythonGUIInputOutput1
- Left = 40
- Top = 144
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- Output = Memo1
- Left = 40
- Top = 176
- end
- object PythonModule1: TPythonModule
- Engine = PythonEngine1
- ModuleName = 'test'
- Errors = <>
- Left = 40
- Top = 216
- end
- object PythonType1: TPythonType
- Engine = PythonEngine1
- OnInitialization = PythonType1Initialization
- TypeName = 'MySeq'
- Prefix = 'Create'
- Module = PythonModule1
- Services.Basic = [bsGetAttr, bsSetAttr, bsRepr, bsStr]
- Services.InplaceNumber = []
- Services.Number = []
- Services.Sequence = []
- Services.Mapping = [msLength, msSubscript]
- Left = 40
- Top = 248
- end
-end
diff --git a/Demos/Demo27/Unit1.pas b/Demos/Demo27/Unit1.pas
deleted file mode 100644
index ca8c30c..0000000
--- a/Demos/Demo27/Unit1.pas
+++ /dev/null
@@ -1,67 +0,0 @@
-unit Unit1;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, PythonEngine, PythonGUIInputOutput, StdCtrls;
-
-type
- TMySeq = class(TPyObject)
- public
- // Mapping services
- function MpLength : Integer; override;
- function MpSubscript( obj : PPyObject) : PPyObject; override;
- //function MpAssSubscript( obj1, obj2 : PPyObject) : Integer; override;
- end;
-
- TForm1 = class(TForm)
- Memo1: TMemo;
- Memo2: TMemo;
- Button1: TButton;
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- PythonModule1: TPythonModule;
- PythonType1: TPythonType;
- procedure Button1Click(Sender: TObject);
- procedure PythonType1Initialization(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-{ TMySeq }
-
-function TMySeq.MpLength: Integer;
-begin
- Result := 10;
-end;
-
-function TMySeq.MpSubscript(obj: PPyObject): PPyObject;
-begin
- Result := obj;
- GetPythonEngine.Py_XINCREF(obj);
-end;
-
-{ TForm1 }
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings(Memo2.Lines);
-end;
-
-procedure TForm1.PythonType1Initialization(Sender: TObject);
-begin
- with Sender as TPythonType do
- PyObjectClass := TMySeq;
-end;
-
-end.
diff --git a/Demos/Demo28/Project1.conf b/Demos/Demo28/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo28/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo28/Project1.dpr b/Demos/Demo28/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo28/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo28/Project1.dproj b/Demos/Demo28/Project1.dproj
deleted file mode 100644
index 917689c..0000000
--- a/Demos/Demo28/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {8B96EA5E-DEEA-4208-93B8-31AC94C87BCE}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo28/Project1.kof b/Demos/Demo28/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo28/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo28/Project1.res b/Demos/Demo28/Project1.res
deleted file mode 100644
index f928fd9..0000000
Binary files a/Demos/Demo28/Project1.res and /dev/null differ
diff --git a/Demos/Demo28/Unit1.dfm b/Demos/Demo28/Unit1.dfm
deleted file mode 100644
index 1eb278e..0000000
Binary files a/Demos/Demo28/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo28/Unit1.pas b/Demos/Demo28/Unit1.pas
deleted file mode 100644
index 0f16e28..0000000
--- a/Demos/Demo28/Unit1.pas
+++ /dev/null
@@ -1,347 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TPyStringList = class(TPyObject)
- private
- fStrings: TStringList;
- procedure SetStrings(const Value: TStringList);
- public
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- // Basic services
- function Iter : PPyObject; override;
-
- // Sequence services
- function SqLength : Integer; override;
- function SqItem( idx : Integer ) : PPyObject; override;
- function SqAssItem( idx : integer; obj : PPyObject) : Integer; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Exposed methods
- function add(args : PPyObject) : PPyObject; cdecl;
-
- // properties
- property Strings : TStringList read fStrings write SetStrings;
- end;
-
- TPyStringListIterator = class(TPyObject)
- private
- fStringList: TPyStringList;
- fCurrentIndex: Integer;
- procedure SetStringList(const Value: TPyStringList);
- public
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
- destructor Destroy; override;
-
- // Basic services
- function Iter : PPyObject; override;
- function IterNext : PPyObject; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Exposed methods
- function next(args : PPyObject) : PPyObject; cdecl;
-
- // properties
- property StringList : TPyStringList read fStringList write SetStringList;
- end;
-
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- ptStringList: TPythonType;
- pmP4D: TPythonModule;
- ptStringListIterator: TPythonType;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure ptStringListCreate(Sender: TObject);
- procedure ptStringListIteratorCreate(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-
-
-var
- Form1: TForm1;
-
-implementation
-
-{$IFDEF MSWINDOWS}
-{$R *.DFM}
-{$ENDIF}
-{$IFDEF LINUX}
-{$R *.xfm}
-{$ENDIF}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-{ TPyStringList }
-
-function TPyStringList.add(args: PPyObject): PPyObject;
-var
- _obj : PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- if PyArg_ParseTuple( args, 'O:add',@_obj ) <> 0 then
- begin
- Result := PyInt_FromLong(Strings.Add(PyObjectAsString(_obj)));
- end
- else
- Result := nil;
- end;
-end;
-
-constructor TPyStringList.Create(APythonType: TPythonType);
-begin
- inherited;
- Assert(not Assigned(fStrings));
- fStrings := TStringList.Create;
-end;
-
-constructor TPyStringList.CreateWith(PythonType: TPythonType;
- args: PPyObject);
-var
- i : Integer;
-begin
- inherited;
- with GetPythonEngine do
- begin
- for i := 0 to PyTuple_Size(args)-1 do
- begin
- Strings.Add(PyObjectAsString(PyTuple_GetItem(args, i)));
- end;
- end;
-end;
-
-destructor TPyStringList.Destroy;
-begin
- fStrings.Free;
- inherited;
-end;
-
-function TPyStringList.Iter: PPyObject;
-var
-// _iter : TPyStringListIterator;
- _args : PPyObject;
-begin
- _args := GetPythonEngine.MakePyTuple([Self.GetSelf]);
- try
- Result := Form1.ptStringListIterator.CreateInstanceWith(_args);
- finally
- GetPythonEngine.Py_DECREF(_args);
- end;
- {_iter := Form1.ptStringListIterator.CreateInstance as TPyStringListIterator;
- _iter.StringList := Self;
- Result := _iter.GetSelf;}
-end;
-
-class procedure TPyStringList.RegisterMethods(PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'add', @TPyStringList.add, 'add a new item to the list and returns the index position' );
- end;
-end;
-
-procedure TPyStringList.SetStrings(const Value: TStringList);
-begin
- fStrings.Assign(Value);
-end;
-
-function TPyStringList.SqAssItem(idx: integer; obj: PPyObject): Integer;
-begin
- with GetPythonEngine do
- begin
- if idx < Strings.Count then
- begin
- Strings[idx] := PyObjectAsString(obj);
- Result := 0;
- end
- else
- begin
- PyErr_SetString(PyExc_IndexError^, 'list index out of range');
- Result := -1;
- end;
- end;
-end;
-
-function TPyStringList.SqItem(idx: Integer): PPyObject;
-begin
- with GetPythonEngine do
- begin
- if idx < Strings.Count then
- Result := PyString_FromString(PAnsiChar(AnsiString(Strings[idx])))
- else
- begin
- PyErr_SetString(PyExc_IndexError^, 'list index out of range');
- Result := nil;
- end;
- end;
-end;
-
-function TPyStringList.SqLength: Integer;
-begin
- Result := Strings.Count;
-end;
-
-{ TPyStringListIterator }
-
-constructor TPyStringListIterator.Create(APythonType: TPythonType);
-begin
- inherited;
-end;
-
-constructor TPyStringListIterator.CreateWith(PythonType: TPythonType;
- args: PPyObject);
-var
- _obj : PPyObject;
- _stringList : TPyStringList;
-begin
- inherited;
- with GetPythonEngine do
- begin
- if PyArg_ParseTuple( args, 'O:TPyStringListIterator constructor',@_obj ) <> 0 then
- begin
- _stringList := PythonToDelphi(_obj) as TPyStringList;
- StringList := _stringList;
- end;
- end;
-end;
-
-destructor TPyStringListIterator.Destroy;
-begin
- StringList := nil;
- inherited;
-end;
-
-function TPyStringListIterator.Iter: PPyObject;
-begin
- Result := Self.GetSelf;
- GetPythonEngine.Py_INCREF(Result);
-end;
-
-function TPyStringListIterator.IterNext: PPyObject;
-begin
- Inc(fCurrentIndex);
- with GetPythonEngine do
- begin
- if fCurrentIndex >= StringList.Strings.Count then
- begin
- //PyErr_SetString(PyExc_StopIteration^, 'Stop iteration');
- Result := nil;
- end
- else
- begin
- Result := PyString_FromString(PAnsiChar(AnsiString(StringList.Strings[fCurrentIndex])));
- end;
- end;
-end;
-
-function TPyStringListIterator.next(args: PPyObject): PPyObject;
-begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- Result := Self.IterNext;
- if not Assigned(Result) and (PyErr_Occurred = nil) then
- PyErr_SetString(PyExc_StopIteration^, 'Stop iteration');
- end;
-end;
-
-class procedure TPyStringListIterator.RegisterMethods(
- PythonType: TPythonType);
-begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'next', @TPyStringListIterator.next, 'Returns the next value from the iterable container' );
- end;
-end;
-
-procedure TPyStringListIterator.SetStringList(const Value: TPyStringList);
-begin
- if fStringList <> Value then
- begin
- if Assigned(fStringList) then
- GetPythonEngine.Py_DECREF(fStringList.GetSelf);
- fStringList := Value;
- if Assigned(fStringList) then
- GetPythonEngine.Py_INCREF(fStringList.GetSelf);
- fCurrentIndex := -1;
- end;
-end;
-
-procedure TForm1.ptStringListCreate(Sender: TObject);
-begin
- with Sender as TPythonType do
- PyObjectClass := TPyStringList;
-end;
-
-procedure TForm1.ptStringListIteratorCreate(Sender: TObject);
-begin
- with Sender as TPythonType do
- PyObjectClass := TPyStringListIterator;
-end;
-
-end.
diff --git a/Demos/Demo28/Unit1.xfm b/Demos/Demo28/Unit1.xfm
deleted file mode 100644
index 215ff8d..0000000
Binary files a/Demos/Demo28/Unit1.xfm and /dev/null differ
diff --git a/Demos/Demo29/Project1.dpr b/Demos/Demo29/Project1.dpr
deleted file mode 100644
index 213302b..0000000
--- a/Demos/Demo29/Project1.dpr
+++ /dev/null
@@ -1,16 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-program Project1;
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-{$R XP_UAC.RES}
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo29/Project1.dproj b/Demos/Demo29/Project1.dproj
deleted file mode 100644
index 1d81070..0000000
--- a/Demos/Demo29/Project1.dproj
+++ /dev/null
@@ -1,134 +0,0 @@
-
-
- {2F621E09-DAC5-4AB2-83F7-BD019D49AAF2}
- Project1.dpr
- Debug
- DCC32
- 13.4
- VCL
- True
- Win32
- 1
- Application
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)
- 4105
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- Project1.exe
- 00400000
- x86
-
-
- Project1_Icon.ico
-
-
- $(BDS)\bin\default_app.manifest
- 1033
- true
- Project1_Icon.ico
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 4105
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- False
- True
-
-
- 12
-
-
-
diff --git a/Demos/Demo29/Project1.res b/Demos/Demo29/Project1.res
deleted file mode 100644
index fbaca37..0000000
Binary files a/Demos/Demo29/Project1.res and /dev/null differ
diff --git a/Demos/Demo29/Unit1.dfm b/Demos/Demo29/Unit1.dfm
deleted file mode 100644
index ba50ee4..0000000
--- a/Demos/Demo29/Unit1.dfm
+++ /dev/null
@@ -1,105 +0,0 @@
-object Form1: TForm1
- Left = 218
- Top = 18
- Caption = 'Form1'
- ClientHeight = 731
- ClientWidth = 668
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 8
- Top = 8
- Width = 657
- Height = 329
- end
- object Button1: TButton
- Left = 8
- Top = 352
- Width = 97
- Height = 25
- Caption = 'Open Picture...'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 196
- Top = 352
- Width = 105
- Height = 25
- Caption = 'Execute'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Memo1: TMemo
- Left = 8
- Top = 520
- Width = 657
- Height = 281
- Lines.Strings = (
- 'import StringIO'
- 'import Image'
- ''
- 'def ProcessImage(data):'
- ' stream = StringIO.StringIO(data)'
- ' im = Image.open(stream)'
-
- ' print "Processing image %s of %d bytes" % (im.format, len(data' +
- '))'
- ' new_im = im.rotate(90)'
- ' new_im.format = im.format'
- ' return new_im'
- ' '
- 'def ImageToString(image):'
- ' stream = StringIO.StringIO()'
- ' image.save(stream, image.format)'
- ' return stream.getvalue()')
- ScrollBars = ssBoth
- TabOrder = 2
- end
- object Memo2: TMemo
- Left = 8
- Top = 392
- Width = 657
- Height = 113
- ScrollBars = ssBoth
- TabOrder = 3
- end
- object chkUseDC: TCheckBox
- Left = 336
- Top = 356
- Width = 193
- Height = 17
- Caption = 'Use Device Context'
- Checked = True
- State = cbChecked
- TabOrder = 4
- end
- object OpenPictureDialog1: TOpenPictureDialog
- Left = 104
- Top = 336
- end
- object PythonEngine1: TPythonEngine
- AutoUnload = False
- DllName = 'python27.dll'
- APIVersion = 1013
- RegVersion = '2.7'
- UseLastKnownVersion = False
- IO = PythonGUIInputOutput1
- Left = 168
- Top = 624
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- UnicodeIO = True
- RawOutput = False
- Output = Memo2
- Left = 208
- Top = 624
- end
-end
diff --git a/Demos/Demo29/Unit1.pas b/Demos/Demo29/Unit1.pas
deleted file mode 100644
index 835968d..0000000
--- a/Demos/Demo29/Unit1.pas
+++ /dev/null
@@ -1,124 +0,0 @@
-unit Unit1;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, ExtDlgs, StdCtrls, ExtCtrls, PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- Image1: TImage;
- Button1: TButton;
- Button2: TButton;
- OpenPictureDialog1: TOpenPictureDialog;
- Memo1: TMemo;
- Memo2: TMemo;
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- chkUseDC: TCheckBox;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-uses
- VarPyth, jpeg;
-
-{$R *.dfm}
-
-// Old code not compatible with Unicode
-//
-//function ImageToString(AGraphic : TGraphic) : String;
-//var
-// _stream : TStringStream;
-//begin
-// _stream := TStringStream.Create('');
-// try
-// AGraphic.SaveToStream(_stream);
-// Result := _stream.DataString;
-// finally
-// _stream.Free;
-// end;
-//end;
-//
-//function BinStrToPyStr(const AString : String) : Variant;
-//var
-// _str : PPyObject;
-//begin
-// _str := GetPythonEngine.PyString_FromStringAndSize(PAnsiChar(AString), Length(AString)*SizeOf(Char));
-// Result := VarPythonCreate(_str);
-// GetPythonEngine.Py_DECREF(_str);
-//end;
-
-function ImageToPyStr(AGraphic : TGraphic) : Variant;
-var
- _stream : TMemoryStream;
- _str : PPyObject;
-begin
- _stream := TMemoryStream.Create();
- try
- AGraphic.SaveToStream(_stream);
- _str := GetPythonEngine.PyString_FromStringAndSize(_stream.Memory, _stream.Size);
- Result := VarPythonCreate(_str);
- GetPythonEngine.Py_DECREF(_str);
- finally
- _stream.Free;
- end;
-end;
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- if OpenPictureDialog1.Execute then
- Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-var
- _im : Variant;
- _stream : TMemoryStream;
- _hdc : Variant;
- _dib : Variant;
- S : AnsiString;
-begin
- if (Image1.Picture.Graphic = nil) or Image1.Picture.Graphic.Empty then
- raise Exception.Create('You must first select an image');
- PythonEngine1.ExecStrings(Memo1.Lines);
- _im := MainModule.ProcessImage(ImageToPyStr(Image1.Picture.Graphic));
- if not chkUseDC.Checked then
- begin
- {
- TODO :
- Needs fixing. Probably has to do with images containing null bytes which
- cannot be converted to ansistrings.
- }
- ShowMessage('This does not work and needs fixing');
- _stream := TMemoryStream.Create();
- try
- S := MainModule.ImageToString(_im);
- _stream.Write(PAnsiChar(S)^, Length(S));
- _stream.Position := 0;
- Image1.Picture.Graphic.LoadFromStream(_stream);
- finally
- _stream.Free;
- end;
- end
- else
- begin
- Image1.Picture.Bitmap.Width := Image1.Width;
- Image1.Picture.Bitmap.Height := Image1.Height;
- _hdc := Import('ImageWin').HDC(Image1.Picture.Bitmap.Canvas.Handle);
- _dib := Import('ImageWin').Dib(_im);
- _dib.expose(_hdc);
- end;
-end;
-
-end.
diff --git a/Demos/Demo29/XP_UAC.manifest b/Demos/Demo29/XP_UAC.manifest
deleted file mode 100644
index 3bcf619..0000000
--- a/Demos/Demo29/XP_UAC.manifest
+++ /dev/null
@@ -1,42 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- true
-
-
-
\ No newline at end of file
diff --git a/Demos/Demo29/XP_UAC.rc b/Demos/Demo29/XP_UAC.rc
deleted file mode 100644
index a0b6bf9..0000000
--- a/Demos/Demo29/XP_UAC.rc
+++ /dev/null
@@ -1 +0,0 @@
-1 24 ".\XP_UAC.manifest"
diff --git a/Demos/Demo29/XP_UAC.res b/Demos/Demo29/XP_UAC.res
deleted file mode 100644
index 3bd5273..0000000
Binary files a/Demos/Demo29/XP_UAC.res and /dev/null differ
diff --git a/Demos/Demo30/Project1.conf b/Demos/Demo30/Project1.conf
deleted file mode 100644
index 84e6d10..0000000
--- a/Demos/Demo30/Project1.conf
+++ /dev/null
@@ -1,32 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O+
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--cg
--H+
--W+
--M
--$M16384,1048576
--K$00400000
diff --git a/Demos/Demo30/Project1.dpr b/Demos/Demo30/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo30/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo30/Project1.dproj b/Demos/Demo30/Project1.dproj
deleted file mode 100644
index 7aa53f9..0000000
--- a/Demos/Demo30/Project1.dproj
+++ /dev/null
@@ -1,101 +0,0 @@
-
-
- {E779713C-E867-4111-98ED-796E46162694}
- Project1.dpr
- Debug
- DCC32
- 12.0
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)
- Project1.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- 12
-
-
diff --git a/Demos/Demo30/Project1.kof b/Demos/Demo30/Project1.kof
deleted file mode 100644
index 6ad26fc..0000000
--- a/Demos/Demo30/Project1.kof
+++ /dev/null
@@ -1,61 +0,0 @@
-[Compiler]
-A=8
-B=0
-C=1
-D=1
-E=0
-F=0
-G=1
-H=1
-I=1
-J=0
-K=0
-L=1
-M=0
-N=1
-O=1
-P=1
-Q=0
-R=0
-S=0
-T=0
-U=0
-V=1
-W=0
-X=1
-Y=1
-Z=1
-ShowHints=1
-ShowWarnings=1
-UnitAliases=
-
-[Linker]
-MapFile=0
-OutputObjs=0
-ConsoleApp=1
-DebugInfo=0
-RemoteSymbols=0
-MinStackSize=16384
-MaxStackSize=1048576
-ImageBase=4194304
-ExeDescription=
-DynamicLoader=/lib/ld-linux.so.2
-
-[Directories]
-OutputDir=
-UnitOutputDir=
-PackageDLLOutputDir=
-PackageDCPOutputDir=
-SearchPath=
-Packages=
-Conditionals=
-DebugSourceDirs=
-UsePackages=0
-
-[Parameters]
-RunParams=
-HostApplication=
-Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
-UseLauncher=0
-DebugCWD=
-
diff --git a/Demos/Demo30/Project1.res b/Demos/Demo30/Project1.res
deleted file mode 100644
index f928fd9..0000000
Binary files a/Demos/Demo30/Project1.res and /dev/null differ
diff --git a/Demos/Demo30/Unit1.dfm b/Demos/Demo30/Unit1.dfm
deleted file mode 100644
index a55ced6..0000000
Binary files a/Demos/Demo30/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo30/Unit1.pas b/Demos/Demo30/Unit1.pas
deleted file mode 100644
index 0b8d988..0000000
--- a/Demos/Demo30/Unit1.pas
+++ /dev/null
@@ -1,119 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes, SysUtils,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
-
-
-var
- Form1: TForm1;
-
-implementation
-
-uses
- VarPyth;
-
-{$IFDEF MSWINDOWS}
-{$R *.DFM}
-{$ENDIF}
-{$IFDEF LINUX}
-{$R *.xfm}
-{$ENDIF}
-
-procedure TForm1.Button1Click(Sender: TObject);
-var
- P : Variant;
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
- P := MainModule.Person('John', 'Doe');
- Assert(P.first_name = 'John');
- Assert(P.last_name = 'Doe');
- Assert(VarIsNone(P.weight));
- Assert(VarIsNone(P.height));
- Assert(VarIsNone(P.age));
- P := MainModule.Person('John', 'Doe', weight := 70);
- Assert(P.first_name = 'John');
- Assert(P.last_name = 'Doe');
- Assert(P.weight = 70);
- Assert(VarIsNone(P.height));
- Assert(VarIsNone(P.age));
- P := MainModule.Person('John', 'Doe', weight := 70, height := 172);
- Assert(P.first_name = 'John');
- Assert(P.last_name = 'Doe');
- Assert(P.weight = 70);
- Assert(P.height = 172);
- Assert(VarIsNone(P.age));
- P := MainModule.Person('John', 'Doe', weight := 70, height := 172, age := 35);
- Assert(P.first_name = 'John');
- Assert(P.last_name = 'Doe');
- Assert(P.weight = 70);
- Assert(P.height = 172);
- Assert(P.age = 35);
- P := MainModule.Person(last_name := 'Doe', first_name := 'John', weight := 70, height := 172, age := 35);
- Assert(P.first_name = 'John');
- Assert(P.last_name = 'Doe');
- Assert(P.weight = 70);
- Assert(P.height = 172);
- Assert(P.age = 35);
- P := MainModule.Person('John', 'Doe', 35, 172, 70);
- Assert(P.first_name = 'John');
- Assert(P.last_name = 'Doe');
- Assert(P.weight = 70);
- Assert(P.height = 172);
- Assert(P.age = 35);
- Memo2.Lines.Add('Success')
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-end.
diff --git a/Demos/Demo30/Unit1.xfm b/Demos/Demo30/Unit1.xfm
deleted file mode 100644
index 215ff8d..0000000
Binary files a/Demos/Demo30/Unit1.xfm and /dev/null differ
diff --git a/Demos/Demo31/Project1.dpr b/Demos/Demo31/Project1.dpr
deleted file mode 100644
index 2d9b783..0000000
--- a/Demos/Demo31/Project1.dpr
+++ /dev/null
@@ -1,24 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
- Forms,
- Unit1 in 'Unit1.pas' {Form1},
- WrapDelphiExtCtrls in '..\..\Components\Sources\Core\WrapDelphiExtCtrls.pas',
- WrapDelphiTypes in '..\..\Components\Sources\Core\WrapDelphiTypes.pas',
- Unit2 in 'Unit2.pas' {TestForm},
- WrapDelphiWindows in '..\..\Components\Sources\Core\WrapDelphiWindows.pas',
- WrapDelphiComCtrls in '..\..\Components\Sources\Core\WrapDelphiComCtrls.pas',
- WrapDelphiGrids in '..\..\Components\Sources\Core\WrapDelphiGrids.pas',
- WrapDelphiGraphics in '..\..\Components\Sources\Core\WrapDelphiGraphics.pas',
- WrapDelphiButtons in '..\..\Components\Sources\Core\WrapDelphiButtons.pas';
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.CreateForm(TTestForm, TestForm);
- Application.Run;
-end.
diff --git a/Demos/Demo31/Project1.dproj b/Demos/Demo31/Project1.dproj
deleted file mode 100644
index 3b910d6..0000000
--- a/Demos/Demo31/Project1.dproj
+++ /dev/null
@@ -1,148 +0,0 @@
-
-
- {13782AFF-38C4-49AC-BA0A-8FAFC09245D8}
- Project1.dpr
- Debug
- DCC32
- 13.4
- VCL
- True
- Win32
- 3
- Application
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- 4105
- Project1.exe
- 00400000
- x86
-
-
- true
- System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
- 1033
- $(BDS)\bin\default_app.manifest
- Project1_Icon.ico
-
-
- true
- Project1_Icon.ico
- System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
- 1033
- $(BDS)\bin\default_app.manifest
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 4105
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
-
- True
- True
-
-
- 12
-
-
-
diff --git a/Demos/Demo31/Project1.res b/Demos/Demo31/Project1.res
deleted file mode 100644
index 904914f..0000000
Binary files a/Demos/Demo31/Project1.res and /dev/null differ
diff --git a/Demos/Demo31/Unit1.dfm b/Demos/Demo31/Unit1.dfm
deleted file mode 100644
index 17960a9..0000000
Binary files a/Demos/Demo31/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo31/Unit1.pas b/Demos/Demo31/Unit1.pas
deleted file mode 100644
index 0a5ea79..0000000
--- a/Demos/Demo31/Unit1.pas
+++ /dev/null
@@ -1,210 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, ComCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput, WrapDelphi, ActnList;
-
-type
- TForm1 = class(TForm)
- Splitter1: TSplitter;
- Memo1: TMemo;
- PyEngine: TPythonEngine;
- PythonModule: TPythonModule;
- Panel1: TPanel;
- Button1: TButton;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- ActionList1: TActionList;
- actTest: TAction;
- procedure Button1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure PythonModuleEvents0Execute(Sender: TObject; PSelf,
- Args: PPyObject; var Result: PPyObject);
- procedure actTestExecute(Sender: TObject);
- private
- public
- PyDelphiWrapper : TPyDelphiWrapper;
- end;
-
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.dfm}
-
-Uses
- TypInfo,
-{$IFNDEF FPC}
- ObjAuto,
-{$ENDIF}
- Variants,
- VarPyth,
- WrapDelphiVCL;
-
-
-//////////////////////////////////////////////////////////////////////////
-// Using TPyDelphiObject you can wrap any Delphi object exposing published
-// properties and methods. Note that the conditional defines TYPEINFO and
-// METHODINFO need to be on
-//////////////////////////////////////////////////////////////////////////
-
-{$TYPEINFO OFF}
-{$IFNDEF FPC}{$METHODINFO OFF}{$ENDIF}
-Type
-TTestBase = class
- fdouble : double;
- function DoubleDValue : double; // not visible in subclasses
-published
- property DValue : Double read fdouble write fdouble; // will be visible in subclasses
-end;
-
-function TTestBase.DoubleDValue : double;
-begin
- Result := 2 * fdouble;
-end;
-
-type
-{$TYPEINFO ON}
-{$IFNDEF FPC}{$METHODINFO ON}{$ENDIF}
-TTestClass = class(TTestBase, IFreeNotification, IInterface)
-private
- fSValue : string;
- fIValue : integer;
- fSL : TStrings;
- fOnChange: TNotifyEvent;
- fFreeNotifImpl : IFreeNotification;
- // implementation of interface IUnknown
- function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
-protected
- property FreeNotifImpl : IFreeNotification read fFreeNotifImpl implements IFreeNotification;
-public
- constructor Create;
- destructor Destroy; override;
- procedure SetMeUp(S: string; I : Integer);
- function DescribeMe(): string;
- procedure TriggerChange;
-published
- property SL : TStrings read fSL;
- property SValue : string read fSValue write fSValue;
- property IValue : integer read fIValue write fIValue;
- property OnChange : TNotifyEvent read fOnChange write fOnChange;
-end;
-{$TYPEINFO OFF}
-{$IFNDEF FPC}{$METHODINFO OFF}{$ENDIF}
-
-constructor TTestClass.Create;
-begin
- inherited;
- fFreeNotifImpl := TFreeNotificationImpl.Create(Self);
- fSL := TStringList.Create;
- fSL.AddObject('Form1', Form1);
- fSL.AddObject('Form1.Button1', Form1.Button1);
-end;
-
-destructor TTestClass.Destroy;
-begin
- fSL.Free;
- inherited;
-end;
-
-procedure TTestClass.SetMeUp(S: string; I : Integer);
-begin
- SValue := S;
- IValue := I;
-end;
-
-function TTestClass.Describeme() : string;
-begin
- Result := fSValue + ' : ' + IntToStr(IValue);
-end;
-
-procedure TTestClass.TriggerChange;
-begin
- if Assigned(fOnChange) then
- fOnChange(Self);
-end;
-
-function TTestClass._AddRef: Integer;
-begin
- Result := -1; // we don't want reference counting
-end;
-
-function TTestClass._Release: Integer;
-begin
- Result := -1; // we don't want reference counting
-end;
-
-function TTestClass.QueryInterface(const IID: TGUID; out Obj): HResult;
-begin
- if GetInterface(IID, Obj) then
- Result := 0
- else
- Result := E_NOINTERFACE;
-end;
-
-{ TForm1 }
-
-procedure TForm1.Button1Click(Sender: TObject);
-var
- p : PPyObject;
-begin
- actTest.OnExecute := actTestExecute;
-
- // Wrap the Form itself.
- p := PyDelphiWrapper.Wrap(Self);
- PythonModule.SetVar( 'MainForm', p );
- PyEngine.Py_DecRef(p);
-
- // Now wrap the an instance our TestClass
- // This time we would like the object to be destroyed when the PyObject
- // is destroyed, so we need to set its Owned property to True;
- p := PyDelphiWrapper.Wrap(TTestClass.Create, soOwned);
- PythonModule.SetVar( 'DVar', p );
- PyEngine.Py_DecRef(p);
-
- p := PyEngine.PyInt_FromLong(Trunc(System.CompilerVersion));
- PythonModule.SetVar( 'DelphiVersion', p );
- PyEngine.Py_DecRef(p);
-
- // Excecute the script
- PyEngine.ExecStrings( memo1.Lines );
-end;
-
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- PyDelphiWrapper := TPyDelphiWrapper.Create(Self); // no need to destroy
- PyDelphiWrapper.Engine := PyEngine;
- PyDelphiWrapper.Module := PythonModule;
- PyDelphiWrapper.Initialize; // Should only be called if PyDelphiWrapper is created at run time
-end;
-
-procedure TForm1.PythonModuleEvents0Execute(Sender: TObject; PSelf,
- Args: PPyObject; var Result: PPyObject);
-begin
- ShowMessage(VarPythonCreate(Args).GetItem(0));
- Result := PyEngine.ReturnNone;
-end;
-
-procedure TForm1.actTestExecute(Sender: TObject);
-begin
- Memo2.Lines.Add('Delphi event actTestExecute fired');
- Import('spam').DVar.IValue := 1;
-end;
-
-end.
diff --git a/Demos/Demo31/Unit2.dfm b/Demos/Demo31/Unit2.dfm
deleted file mode 100644
index 8a00bb3..0000000
--- a/Demos/Demo31/Unit2.dfm
+++ /dev/null
@@ -1,67 +0,0 @@
-object TestForm: TTestForm
- Left = 213
- Top = 114
- Width = 870
- Height = 500
- Caption = 'Test Form'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Shell Dlg 2'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object CheckBox1: TCheckBox
- Left = 96
- Top = 16
- Width = 97
- Height = 17
- Caption = 'CheckBox1'
- TabOrder = 0
- end
- object CheckBox2: TCheckBox
- Left = 96
- Top = 56
- Width = 97
- Height = 17
- Caption = 'CheckBox2'
- Checked = True
- State = cbChecked
- TabOrder = 1
- end
- object btnClose: TButton
- Left = 88
- Top = 256
- Width = 75
- Height = 25
- Caption = 'Close'
- TabOrder = 2
- OnClick = btnCloseClick
- end
- object Edit1: TEdit
- Left = 96
- Top = 96
- Width = 121
- Height = 21
- TabOrder = 3
- Text = 'Edit1'
- end
- object ListBox1: TListBox
- Left = 328
- Top = 48
- Width = 249
- Height = 169
- ItemHeight = 13
- TabOrder = 4
- end
- object btnAdd: TButton
- Left = 104
- Top = 128
- Width = 75
- Height = 25
- Caption = 'Add'
- TabOrder = 5
- end
-end
diff --git a/Demos/Demo31/Unit2.pas b/Demos/Demo31/Unit2.pas
deleted file mode 100644
index 26c9ce3..0000000
--- a/Demos/Demo31/Unit2.pas
+++ /dev/null
@@ -1,40 +0,0 @@
-unit Unit2;
-
-interface
-
-uses
- Windows, Messages, SysUtils,
- Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
-type
- TTestForm = class(TForm)
- CheckBox1: TCheckBox;
- CheckBox2: TCheckBox;
- btnClose: TButton;
- Edit1: TEdit;
- ListBox1: TListBox;
- btnAdd: TButton;
- procedure btnCloseClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- TestForm: TTestForm;
-
-implementation
-
-{$R *.dfm}
-
-procedure TTestForm.btnCloseClick(Sender: TObject);
-begin
- Close;
-end;
-
-initialization
- RegisterClass(TTestForm);
-end.
-
diff --git a/Demos/Demo32/Project1.dpr b/Demos/Demo32/Project1.dpr
deleted file mode 100644
index cd68f4c..0000000
--- a/Demos/Demo32/Project1.dpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/Demo32/Project1.dproj b/Demos/Demo32/Project1.dproj
deleted file mode 100644
index 8792b9c..0000000
--- a/Demos/Demo32/Project1.dproj
+++ /dev/null
@@ -1,138 +0,0 @@
-
-
- {26D3B086-D6C0-40C9-820A-269741BAC910}
- Project1.dpr
- Debug
- DCC32
- 13.4
- VCL
- True
- Win32
- 1
- Application
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
- 1032
- Project1.exe
- 00400000
- x86
-
-
- Project1_Icon.ico
-
-
- true
- Project1_Icon.ico
- Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
- 1033
- $(BDS)\bin\default_app.manifest
- CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
- Cfg_2
- Base
-
-
- Base
-
-
- Cfg_1
- Base
-
-
-
-
- Delphi.Personality.12
- VCLApplication
-
-
-
- Project1.dpr
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1032
- 1253
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- Microsoft Office 2000 Sample Automation Server Wrapper Components
- Microsoft Office XP Sample Automation Server Wrapper Components
-
-
-
- False
- True
-
-
- 12
-
-
-
diff --git a/Demos/Demo32/Project1.res b/Demos/Demo32/Project1.res
deleted file mode 100644
index 3f7606c..0000000
Binary files a/Demos/Demo32/Project1.res and /dev/null differ
diff --git a/Demos/Demo32/Unit1.dfm b/Demos/Demo32/Unit1.dfm
deleted file mode 100644
index 07eb931..0000000
Binary files a/Demos/Demo32/Unit1.dfm and /dev/null differ
diff --git a/Demos/Demo32/Unit1.pas b/Demos/Demo32/Unit1.pas
deleted file mode 100644
index 5d8a2cb..0000000
--- a/Demos/Demo32/Unit1.pas
+++ /dev/null
@@ -1,177 +0,0 @@
-unit Unit1;
-{
- Demo 26 reworked using WrapDelphi
- See also Demo 31.
- For further information on using WrapDelphi look
- at the comments at the top of the unit.
-}
-
-{$I Definition.Inc}
-
-{$IFNDEF DELPHI7_OR_HIGHER}
- This project requires Delphi7 or later to compile!!!
-{$ENDIF}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, ComCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- WrapDelphi, WrapDelphiClasses,
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- Splitter1: TSplitter;
- Memo1: TMemo;
- PythonEngine1: TPythonEngine;
- PythonModule1: TPythonModule;
- Panel1: TPanel;
- Button1: TButton;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- PyDelphiWrapper: TPyDelphiWrapper;
- procedure Button1Click(Sender: TObject);
- procedure PyDelphiWrapperInitialization(Sender: TObject);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
- {
- Delphi class to be exported using WrapDelphi
- Note the METHODINFO directive for automatically
- exporting methods
- }
- {$METHODINFO ON}
- TPoint = class(TPersistent)
- private
- fx, fy : Integer;
- fName : String;
- public
- procedure OffsetBy( dx, dy : integer );
- published
- property x : integer read fx write fx;
- property y : integer read fy write fy;
- property Name : string read fName write fName;
- end;
- {$METHODINFO OFF}
-
- // TPyPoint is TPyObject decscendent, more specifically
- // a TPyDelphiPersistent (from WrapDelphi) descendent.
- // It overrides a few key methods Repr, Create and CreateWith
- TPyPoint = class(TPyDelphiPersistent)
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
- // Basic services
- function Repr : PPyObject; override;
-
- class function DelphiObjectClass : TClass; override;
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-
-{$R *.dfm}
-
-// First, we need to initialize the property PyObjectClass with
-// the class of our Type object
-
-{ TPoint }
-
-procedure TPoint.OffsetBy(dx, dy: integer);
-begin
- Inc(fx, dx);
- Inc(fy, dy);
-end;
-
-{ TPyPoint }
-
-// We override the constructors
-
-constructor TPyPoint.Create( APythonType : TPythonType );
-begin
- inherited;
- // we need to set DelphiObject property
- DelphiObject := TPoint.Create;
- with TPoint(DelphiObject) do begin
- x := 0;
- y := 0;
- end;
- Owned := True; // We own the objects we create
-end;
-
-// Don't call the Create constructor of TPyPoint, because
-// we call the inherited constructor CreateWith that calls
-// the Create constructor first, and because the constructors
-// are virtual, TPyPoint.Create will be automatically be called.
-
-constructor TPyPoint.CreateWith( PythonType : TPythonType; args : PPyObject );
-begin
- inherited;
- with GetPythonEngine, DelphiObject as TPoint do
- begin
- if PyArg_ParseTuple( args, 'ii:CreatePoint',@fx, @fy ) = 0 then
- Exit;
- end;
-end;
-
-// Then we override the needed services
-
-class function TPyPoint.DelphiObjectClass: TClass;
-begin
- Result := TPoint;
-end;
-
-function TPyPoint.Repr : PPyObject;
-begin
- with GetPythonEngine, DelphiObject as TPoint do
- Result := VariantAsPyObject(Format('(%d, %d)',[x, y]));
- // or Result := PyString_FromString( PAnsiChar(Format('(%d, %d)',[x, y])) );
-end;
-
-/////////////////////////////////////////////////
-procedure TForm1.Button1Click(Sender: TObject);
-var
- DelphiPoint : TPoint;
- p : PPyObject;
-begin
- // Here's how you can create/read Python vars from Delphi with
- // Delphi/Python objects.
- DelphiPoint := TPoint.Create;
- DelphiPoint.x := 10;
- DelphiPoint.y := 20;
-
- // DelphiPoint will be owned and eventually destroyed by Python
- p := PyDelphiWrapper.Wrap(DelphiPoint, soOwned);
-
- PythonModule1.SetVar( 'myPoint', p );
-
- // Note, that you must not free the delphi point yourself.
- // Instead use the GetPythonEngine.Py_XDECREF(obj) method,
- // because the object may be used by another Python object.
- PythonEngine1.Py_DecRef(p);
-
- // Excecute the script
- PythonEngine1.ExecStrings( memo1.Lines );
-
-end;
-
-procedure TForm1.PyDelphiWrapperInitialization(Sender: TObject);
-begin
- // Register PythonType1 encapsulating Delphi Type TPoint
- PyDelphiWrapper.RegisterDelphiWrapper(TPyPoint);
-end;
-
-end.
diff --git a/Demos/Demo33/SortThds.pas b/Demos/Demo33/SortThds.pas
deleted file mode 100644
index ae902cf..0000000
--- a/Demos/Demo33/SortThds.pas
+++ /dev/null
@@ -1,169 +0,0 @@
-unit SortThds;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- Classes,
-{$IFDEF MSWINDOWS}
- Graphics, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QGraphics, QExtCtrls,
-{$ENDIF}
- PythonEngine;
-
-type
-
-{ TSortThread }
-
- PSortArray = ^TSortArray;
- TSortArray = array[0..MaxInt div SizeOf(Integer) - 1] of Integer;
-
- TSortThread = class(TPythonThread)
- private
- FModule: TPythonModule;
- FScript: TStrings;
- FBox: TPaintBox;
- FSortArray: PSortArray;
- FSize: Integer;
- FI, FJ: Integer;
- fpyfuncname: string;
- running : Boolean;
-
- procedure DoVisualSwap;
-
- function getvalue(i: integer): integer;
- protected
- procedure ExecuteWithPython; override;
- public
- property value[i: integer]: integer read getvalue; default;
-
- constructor Create( ainterp: PPyInterpreterState; script: TStrings;
- module: TPythonModule; apyfuncname: string;
- Box: TPaintBox; var SortArray: array of Integer);
-
- procedure VisualSwap(I, J: Integer);
- procedure Stop;
- end;
-
-procedure PaintLine(Canvas: TCanvas; I, Len: Integer);
-
-implementation
-
-procedure PaintLine(Canvas: TCanvas; I, Len: Integer);
-begin
- Canvas.PolyLine([Point(0, I * 2 + 1), Point(Len, I * 2 + 1)]);
-end;
-
-{ TSortThread }
-
-constructor TSortThread.Create( ainterp: PPyInterpreterState; script: TStrings;
- module: TPythonModule; apyfuncname: string;
- Box: TPaintBox; var SortArray: array of Integer);
-begin
- fpyfuncname := apyfuncname;
- fScript := script;
- FModule := module;
- FBox := Box;
- FSortArray := @SortArray;
- FSize := High(SortArray) - Low(SortArray) + 1;
- FreeOnTerminate := True;
- InterpreterState := ainterp;
- inherited Create(False);
-end;
-
-
-
-{ Since DoVisualSwap uses a VCL component (i.e., the TPaintBox) it should never
- be called directly by this thread. DoVisualSwap should be called by passing
- it to the Synchronize method which causes DoVisualSwap to be executed by the
- main VCL thread, avoiding multi-thread conflicts. See VisualSwap for an
- example of calling Synchronize. }
-
-procedure TSortThread.DoVisualSwap;
-type
- pinteger = ^integer;
-var t: integer;
- pi,pj: pinteger;
-begin
- with FBox do
- begin
- Canvas.Pen.Color := clBtnFace;
- pi := @(FSortArray^[FI]);
- pj := @(FSortArray^[FJ]);
- PaintLine(Canvas, FI, pi^);
- PaintLine(Canvas, FJ, pj^);
- Canvas.Pen.Color := clRed;
- PaintLine(Canvas, FI, pj^);
- PaintLine(Canvas, FJ, pi^);
-
- t := pi^;
- pi^ := pj^;
- pj^ := t;
- end;
-end;
-
-{ VisusalSwap is a wrapper on DoVisualSwap making it easier to use. The
- parameters are copied to instance variables so they are accessable
- by the main VCL thread when it executes DoVisualSwap }
-
-procedure TSortThread.VisualSwap(I, J: Integer);
-begin
- Py_BEGIN_ALLOW_THREADS;
- if Terminated then
- raise EPythonError.Create( 'Pythonthread terminated');
- FI := I;
- FJ := J;
- Synchronize(DoVisualSwap);
- Py_END_ALLOW_THREADS;
-end;
-
-{ The Execute method is called when the thread starts }
-
-procedure TSortThread.ExecuteWithPython;
-var pyfunc: PPyObject;
-begin
- running := true;
- with GetPythonEngine do
- begin
- if Assigned(FModule) and (ThreadExecMode = emNewInterpreter) then
- FModule.InitializeForNewInterpreter;
- if Assigned(fScript) then
- ExecStrings(fScript);
- pyfunc := FindFunction( ExecModule, fpyfuncname);
- if Assigned(pyfunc) then
- try
- EvalFunction(pyfunc,[NativeInt(self),0,FSize]);
- except
-
- end;
-
- Py_DecRef(pyfunc);
-
- end;
- running := false;
-end;
-
-procedure TSortThread.Stop;
-begin
- with GetPythonEngine do
- begin
- if running then
- begin
- PyEval_AcquireThread(self.ThreadState);
- PyErr_SetString(PyExc_KeyboardInterrupt^, 'Terminated');
- PyEval_ReleaseThread(self.ThreadState);
- end;
- end;
-end;
-
-function TSortThread.getvalue(i: integer): integer;
-begin
- if Terminated then
- raise EPythonError.Create( 'Pythonthread terminated');
- Result := FSortArray^[i];
-end;
-
-end.
diff --git a/Demos/Demo33/ThSort.dfm b/Demos/Demo33/ThSort.dfm
deleted file mode 100644
index be8580e..0000000
Binary files a/Demos/Demo33/ThSort.dfm and /dev/null differ
diff --git a/Demos/Demo33/ThSort.pas b/Demos/Demo33/ThSort.pas
deleted file mode 100644
index 82a2552..0000000
--- a/Demos/Demo33/ThSort.pas
+++ /dev/null
@@ -1,261 +0,0 @@
-unit ThSort;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- ExtCtrls, StdCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput, SortThds;
-
-type
- TThreadSortForm = class(TForm)
- StartBtn: TButton;
- BubbleSortBox: TPaintBox;
- SelectionSortBox: TPaintBox;
- QuickSortBox: TPaintBox;
- Label1: TLabel;
- Bevel1: TBevel;
- Bevel2: TBevel;
- Bevel3: TBevel;
- Label2: TLabel;
- Label3: TLabel;
- PythonMemo: TMemo;
- PythonEngine1: TPythonEngine;
- SortModule: TPythonModule;
- Start2Btn: TButton;
- LoadBtn: TButton;
- PythonDialog: TOpenDialog;
- SaveDialog: TSaveDialog;
- SaveBtn: TButton;
- Button1: TButton;
- procedure BubbleSortBoxPaint(Sender: TObject);
- procedure SelectionSortBoxPaint(Sender: TObject);
- procedure QuickSortBoxPaint(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure StartBtnClick(Sender: TObject);
- procedure Start2BtnClick(Sender: TObject);
- procedure LoadBtnClick(Sender: TObject);
- procedure SaveBtnClick(Sender: TObject);
- procedure SortModuleInitialization(Sender: TObject);
- procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- procedure Button1Click(Sender: TObject);
- private
- OwnThreadState: PPyThreadState;
- ThreadsRunning: Integer;
- procedure RandomizeArrays;
- procedure ThreadDone(Sender: TObject);
- procedure InitThreads(interp: PPyInterpreterState; script: TStrings);
-
- function SortModule_GetValue( pself, args : PPyObject ) : PPyObject; cdecl;
- function SortModule_Swap( pself, args : PPyObject ) : PPyObject; cdecl;
- public
- Thread1 : TSortThread;
- Thread2 : TSortThread;
- Thread3 : TSortThread;
-
- procedure PaintArray(Box: TPaintBox; const A: array of Integer);
- end;
-
-var
- ThreadSortForm: TThreadSortForm;
-
-implementation
-
-
-
-{$R *.dfm}
-
-type
- PSortArray = ^TSortArray;
- TSortArray = array[0..176] of Integer;
-
-var
- ArraysRandom: Boolean;
- BubbleSortArray, SelectionSortArray, QuickSortArray: TSortArray;
-
-{ TThreadSortForm }
-
-procedure TThreadSortForm.PaintArray(Box: TPaintBox; const A: array of Integer);
-var
- I: Integer;
-begin
- with Box do
- begin
- Canvas.Pen.Color := clRed;
- for I := Low(A) to High(A) do PaintLine(Canvas, I, A[I]);
- end;
-end;
-
-procedure TThreadSortForm.BubbleSortBoxPaint(Sender: TObject);
-begin
- PaintArray(BubbleSortBox, BubbleSortArray);
-end;
-
-procedure TThreadSortForm.SelectionSortBoxPaint(Sender: TObject);
-begin
- PaintArray(SelectionSortBox, SelectionSortArray);
-end;
-
-procedure TThreadSortForm.QuickSortBoxPaint(Sender: TObject);
-begin
- PaintArray(QuickSortBox, QuickSortArray);
-end;
-
-procedure TThreadSortForm.FormCreate(Sender: TObject);
-begin
- RandomizeArrays;
-end;
-
-procedure TThreadSortForm.InitThreads(interp: PPyInterpreterState; script: TStrings);
-begin
- RandomizeArrays;
- ThreadsRunning := 3;
- with GetPythonEngine do
- begin
- OwnThreadState := PyThreadState_Get;
- PyEval_ReleaseThread(OwnThreadState);
-
- Thread1 := TSortThread.Create( interp, script, SortModule, 'SortFunc1',
- BubbleSortBox, BubbleSortArray);
- Thread1.OnTerminate := ThreadDone;
-
- Thread2 := TSortThread.Create( interp, script, SortModule, 'SortFunc2',
- SelectionSortBox, SelectionSortArray);
- Thread2.OnTerminate := ThreadDone;
-
- Thread3 := TSortThread.Create( interp, script, SortModule, 'SortFunc3',
- QuickSortBox, QuickSortArray);
- Thread3.OnTerminate := ThreadDone;
-
- end;
-
- StartBtn.Enabled := False;
- Start2Btn.Enabled := False;
-end;
-
-procedure TThreadSortForm.Start2BtnClick(Sender: TObject);
-begin
- with GetPythonEngine do
- begin
- ExecStrings(PythonMemo.Lines);
- self.InitThreads(PyThreadState_Get.interp,nil);
- end;
-end;
-
-procedure TThreadSortForm.StartBtnClick(Sender: TObject);
-begin
- InitThreads(nil,PythonMemo.Lines);
-//PythonEngine1.ExecStrings(PythonMemo.Lines);
-end;
-
-procedure TThreadSortForm.LoadBtnClick(Sender: TObject);
-begin
- with PythonDialog do if Execute then
- PythonMemo.Lines.LoadFromFile(FileName);
-end;
-
-procedure TThreadSortForm.SaveBtnClick(Sender: TObject);
-begin
- with SaveDialog do if Execute then
- PythonMemo.Lines.SaveToFile(FileName);
-end;
-
-procedure TThreadSortForm.RandomizeArrays;
-var
- I: Integer;
-begin
- if not ArraysRandom then
- begin
- Randomize;
- for I := Low(BubbleSortArray) to High(BubbleSortArray) do
- BubbleSortArray[I] := Random(170);
- SelectionSortArray := BubbleSortArray;
- QuickSortArray := BubbleSortArray;
- ArraysRandom := True;
- Repaint;
- end;
-end;
-
-procedure TThreadSortForm.ThreadDone(Sender: TObject);
-begin
- Dec(ThreadsRunning);
- if ThreadsRunning = 0 then
- begin
- GetPythonEngine.PyEval_AcquireThread(OwnThreadState);
- StartBtn.Enabled := True;
- Start2Btn.Enabled := True;
- ArraysRandom := False;
- end;
-end;
-
-{Checking for PyErr_Occurred() is very important if you want to properly terminate script
-if PyErr_Occurred() not nil - you should return nil from your mapped function
-}
-
-function TThreadSortForm.SortModule_GetValue( pself, args : PPyObject ) : PPyObject; cdecl;
-var psort,index: integer;
-begin
- with GetPythonEngine do
- begin
- if (PyErr_Occurred() = nil) and (PyArg_ParseTuple( args, 'ii',@psort, @index) <> 0) then
- begin
- Result := PyInt_FromLong(TSortThread(psort)[index]);
- end else
- Result := nil;
- end;
-end;
-
-
-
-function TThreadSortForm.SortModule_Swap( pself, args : PPyObject ) : PPyObject; cdecl;
-var psort,i,j: integer;
-begin
-
- with GetPythonEngine do
- begin
- if (PyErr_Occurred() = nil) and (PyArg_ParseTuple( args, 'iii',@psort, @i, @j) <> 0) then
- begin
- TSortThread(psort).VisualSwap(i,j);
- Result := ReturnNone;
- end else
- Result := nil;
- end;
-end;
-
-
-
-procedure TThreadSortForm.SortModuleInitialization(Sender: TObject);
-begin
- with Sender as TPythonModule do
- begin
- AddDelphiMethod( 'getvalue',
- SortModule_GetValue,
- 'GetValue(handle,index)' );
- AddDelphiMethod( 'swap',
- SortModule_Swap,
- 'swap(handle,index1,index2)');
- end;
-end;
-
-procedure TThreadSortForm.Button1Click(Sender: TObject);
-begin
- Thread1.Stop();
- Thread2.Stop();
- Thread3.Stop();
-end;
-
-procedure TThreadSortForm.FormCloseQuery(Sender: TObject;
- var CanClose: Boolean);
-begin
- CanClose := ThreadsRunning = 0;
-end;
-
-end.
diff --git a/Demos/Demo33/ThrdDemo.dpr b/Demos/Demo33/ThrdDemo.dpr
deleted file mode 100644
index 012deb0..0000000
--- a/Demos/Demo33/ThrdDemo.dpr
+++ /dev/null
@@ -1,18 +0,0 @@
-// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
-// JCL_DEBUG_EXPERT_INSERTJDBG OFF
-// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
-program ThrdDemo;
-
-uses
- Forms,
- SortThds in 'SortThds.pas',
- ThSort in 'ThSort.pas' {ThreadSortForm};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.MainFormOnTaskbar := True;
- Application.CreateForm(TThreadSortForm, ThreadSortForm);
- Application.Run;
-end.
diff --git a/Demos/Demo33/ThrdDemo.dproj b/Demos/Demo33/ThrdDemo.dproj
deleted file mode 100644
index 51e6eb3..0000000
--- a/Demos/Demo33/ThrdDemo.dproj
+++ /dev/null
@@ -1,108 +0,0 @@
-
-
- {9e78092e-5a16-44b9-97bf-b879c252b4ba}
- Debug
- AnyCPU
- DCC32
- ThrdDemo.exe
- ThrdDemo.dpr
- 12.0
- Debug
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- ThrdDemo.exe
-
-
- 7.0
- False
- False
- 0
- RELEASE;$(DCC_Define)
-
-
- 7.0
- DEBUG;JVCLThemesEnabled;COMPILER5_UP;PS_USESSUPPORT;$(DCC_Define)
- C:\Users\alex\python4delphi-read-only\PythonForDelphi\Components\Sources\Core;$(DCC_UnitSearchPath)
- C:\Users\alex\python4delphi-read-only\PythonForDelphi\Components\Sources\Core;$(DCC_ResourcePath)
- C:\Users\alex\python4delphi-read-only\PythonForDelphi\Components\Sources\Core;$(DCC_ObjPath)
- C:\Users\alex\python4delphi-read-only\PythonForDelphi\Components\Sources\Core;$(DCC_IncludePath)
-
-
- Delphi.Personality.12
-
-
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1049
- 1251
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- ThrdDemo.dpr
-
-
-
- 12
-
-
-
- MainSource
-
-
-
-
-
-
- Base
-
-
- Cfg_2
- Base
-
-
- Cfg_1
- Base
-
-
-
-
diff --git a/Demos/Demo33/ThrdDemo.res b/Demos/Demo33/ThrdDemo.res
deleted file mode 100644
index 7bc2fd3..0000000
Binary files a/Demos/Demo33/ThrdDemo.res and /dev/null differ
diff --git a/Demos/Demo33/test.py b/Demos/Demo33/test.py
deleted file mode 100644
index a52c520..0000000
--- a/Demos/Demo33/test.py
+++ /dev/null
@@ -1,33 +0,0 @@
-from SortModule import getvalue,swap
-
-def SortFunc1(handle, low, high):
- for i in range(low, high):
- for j in range(low+1,high):
- if getvalue(handle,j-1) > getvalue(handle,j):
- swap(handle,j-1,j)
-
-def SortFunc2(handle,low,high):
- for i in range(low,high-1):
- for j in range(i+1,high):
- if getvalue(handle,i) > getvalue(handle,j):
- swap(handle,i,j)
-
-def SortFunc3(handle,low,high):
- Lo = low
- Hi = high-1
- Mid = getvalue(handle,(Lo+Hi) / 2)
- while 1:
- while getvalue(handle,Lo) < Mid:
- Lo = Lo + 1
- while getvalue(handle,Hi) > Mid:
- Hi = Hi - 1
- if Lo <= Hi:
- swap(handle,Lo,Hi)
- Lo = Lo + 1
- Hi = Hi - 1
- if Lo > Hi:
- break
- if Hi > low:
- SortFunc3(handle,low,Hi+1)
- if Lo < high-1:
- SortFunc3(handle,Lo,high)
diff --git a/Demos/FPC/Demo01/fpc-res.res b/Demos/FPC/Demo01/fpc-res.res
deleted file mode 100644
index cd6c436..0000000
Binary files a/Demos/FPC/Demo01/fpc-res.res and /dev/null differ
diff --git a/Demos/FPC/Demo01/project1.lpi b/Demos/FPC/Demo01/project1.lpi
deleted file mode 100644
index a6f11ef..0000000
--- a/Demos/FPC/Demo01/project1.lpi
+++ /dev/null
@@ -1,188 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Demos/FPC/Demo01/project1.lrs b/Demos/FPC/Demo01/project1.lrs
deleted file mode 100644
index 2747aa9..0000000
--- a/Demos/FPC/Demo01/project1.lrs
+++ /dev/null
@@ -1,5237 +0,0 @@
-LazarusResources.Add('MAINICON','ICO',[
- #0#0#1#0#6#0#0#0#0#0#1#0' '#0#226#145#0#0'f'#0#0#0#128#128#0#0#1#0' '#0'('#8#1
- +#0'H'#146#0#0'@@'#0#0#1#0' '#0'(B'#0#0'p'#154#1#0'00'#0#0#1#0' '#0#168'%'#0#0
- +#152#220#1#0' '#0#0#1#0' '#0#168#16#0#0'@'#2#2#0#16#16#0#0#1#0' '#0'h'#4#0#0
- +#232#18#2#0#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#1#0#0#0#1#0#8#6#0#0#0'\r'
- +#168'f'#0#0#145#169'IDATx'#218#236']'#5#128#28#245#213#127#235'n'#231'w9I.N'
- +#136#144#4#139#17#220'['#220#221#138';!'#184'|'#180#148#2#197'Kq'#13'R('#20
- +'(V'#180#197#3#9'!'#144#144#16#187#156#219#202#173#251'~'#239#253'gfo'#246'r'
- +'~'#187';{'#242#131#201#236#173#204#204#202#251#253#159'?'#25#140'a'#12'c'#24
- +#181#144'I}'#1'c'#24#195#24#164#195#24#1#140'a'#12#163#24'c'#4'0'#134'1'#140
- +'b'#140#17#192#24#198'0'#138'1F'#0'c'#24#195'('#198#24#1#140'"'#140#155'}2}'
- +#223#6#220'L'#184#25'q'#11#227#230#161#173#225#167#21#17#169#175'o'#12#217
- +#199#24#1#12'c'#160'@'#155'q7'#21#183'i'#184'M'#198#173#8'8'#225'N'#217'd2'
- +#153'p'#155#132#191#167#239'<'#132#155''''#145'H0B'#224'7'#175#232'v'#7'n'
- +#219'p'#219#128#219'F'#220'j'#145'4'#18'R'#127#6'c'#24#26#198#8' '#199#129'B'
- +'.'#199#221'x'#224#132'|'#170#176#161'P'#211#223'%='#189'N'#214#195'7+'#235
- +#230'+O@'#207'r'#156#232#249#161#0#146#197'&'#232'$'#132#228#134#196#224#145
- +#250's'#27'C'#255'0F'#0'9'#6#20'x'#18#234#189'q'#219#7#183'=P'#208'ie'#215
- +#136#159'#'#22'nA'#160'e'#194#157#226#199'DO'#20'nwG'#12'b!O'#240#127'$R'#238
- +#236#230'q'#209#157']I'#2#159#211#136#187#181#184'}'#198'o'#171#145#20'bR'
- +#127#182'c'#216#17'c'#4' 1P'#224#11'p'#183#20'8'#161#223#27#5'u'#186#240'X'
- +#167'L'#239'('#228't'#155#219#0#228#244#12#185#140'{'#158#140'{'#157#140#191
- +'!'#235#250'|'#232'<'#166' '#196#130#252#146'ps'#27'pRM'#255#203#184#191#197
- +#143#209#235#196#247'AbGb'#232'B'#10#29#248#248#255#160#147#16'~'#26'3'#31'r'
- +#3'c'#4#144'e'#160#192'[p'#183#23#240#171'<'#10#229'L'#224#191#7#177#192#203
- +'8)'#6#185'\'#158#20'h'#185#156#187'_.'#227#4#158#30#163#219#10'z'#142#188
- +#203#227#252#30'D'#247#201#21#10#220'+AF{P@\'#22#135'D,'#134#194#26#131'8'
- +#238#227#241#24'/'#216'qn'#31'O'#0#222#194#251#241#223'8@'#28#255#137#199#185
- +#191#227#137#4#187#157#224#239'#'#2#136''''#186''''#134'nH'#193#129#247#127
- +#14''#193#238#139#11'['#146'(R'#9#161#139#217'A&'
- +#195#10#220#158'G2'#248'E'#234#239'k4a'#140#0'2'#4#20'z%'#238#246#7'N'#232
- +#127#143'{'#29#221'/'#172#230#226#21'^,'#240'$'#172'$'#224'J'#165#2#148#180
- +'W)A'#163#214'3'#1#215#144#176'ku'#160#209#242'B'#175'V'#129#10#159#175'T'
- +#202#217's'#233'u'#10#185'p'#172'.'#26#129#130'3'#21#184#251#216#149'p'#23
- +#202'Vn'#224'Vo'#129#4#226#156#128#198'x'#1#142#197'8'#161#142'E'#19#16'E!'
- +#143'D'#227#16'Eb'#8'!'#9#132#131'~n'#11's'#251#16'#'#135'0>/'#134#207#225'6'
- +#129#16#24'A'#136#8#129#206#215'U;'#192#251#215#224#238#5#220'^B2h'#150#250
- +'{'#28#233#24'#'#128'4'#3#5#127'.'#238'N'#197#237'D'#20#190'b'#186'O,'#244
- +#130#170#174#144#209'*.c'#2#175#228#133'^'#173'T'#162'P'#171'Ao'#178#130'^o'
- +#3#157#209#10'Z'#29#10#187'J'#129#171'=nL'#208#233#182#156#221'V)'#21#201'=#'
- +#11'%G'#0'D$r9g'#247#211#185#146'&'#3#179#8'd)'#206'AnE'#134#20'5'#30'e'#149
- +#187#29#231'6"'#128'h'#156#132'9'#158'$'#128'H'#132#246'1'#238#182'h'#31#198
- +'}8'#24#130#128#175#3#252'^'''#248'}N'#8#5'}'#236'1'#129#16#162#177#174#132
- +#16'g'#218#1#153#24#220'5'#177']'#12#175#225'c'#224#200#224'M$'#3#191#212#223
- +#237'H'#196#24#1#164#1'('#244#21#184';'#25#183'SQ'#184'v'#162#251#186#21'z~'
- +#133#231'Vv'#18'^'#20'x'#149#10#244'('#232'z'#163#13#12#6#220#27#204#184#226
- +#227#170#175'Q'#130'V'#173'`'#194'O'#127#171'U'#188#192#171':'#133'^'#197#142
- +#195#173#254't'#31'g&p'#171#127#210#148#160#235#224#29#132#130#250#159#18#9
- +#224#205#0#178#245#133#21#153#217#251#252#223'$'#155'$'#160#209'8'#183#250'w'
- +#146#0#10'2'#145#0#222#14'G8'#2#160'=m'#161'H'#20#205#132#24#4#195#220#237'@'
- +' '#0'~'#143#139#145#1#145'B'#136#204#8#188#159'#'#131#24'gJ'#224'qbq'#193
- +#223#176#131#153#224'E2'#248'''pd@>'#131#184#212#223#249'H'#193#24#1#12#1'('
- +#248#243'pw='#10#219#17#192'-'#174#12'rN'#210'8'#149'\&O'#170#244'*'#21#9#178
- +#146#9#188#193'd'#195'}'#30'nf'#208'jT'#160#19#132#30'7'#29#19'~%G'#4'<'#9
- +#168#149#220#202'O'#171'<'#169#253#10#165#12#148'ra'#213#167's'#164#10'>]'#2
- +'wA'#188#192#11#209#129'D*'#1'$U'#239#164'g'#159#255#139#183#215#227#188'3P'
- +#16#206'(o'#14#16#9#196#4'2Hj'#5#164#1#160#208#147#224#135#163'l'#31#8'E!('
- +#222'P'#240#253'>'#31#4#188'.'#240'!'#25#248'<'#14'4'#27#130#248#218'(#'#5'F'
- +#4#140#12'x"'#232#226'3'#192#191')'#25#233'/'#184'='#131'D'#16#146#250'70'
- +#220'1F'#0#131#0#10#254'"'#220#221#128#194'v'#16#253#157'\'#237'y'#207''#198#147'BLl'#30#136#136#0#133'>'#16'N%'#1#250
- +';'#16#196'-'#20#129'` '#2#30#183#3'<'#174'f'#240'x'#218'Q;'#8'32 '#13'C'#236
- +'d'#20'L'#4#17#17#144#227#240'^'#220#30'C"'#240'I'#253#155#24#174#24'#'#128#1
- +#0#5#159#156'z7'#162'0-'#161#191#185#24'<-'#181#220'j'#159'j'#203#163'0'#235
- +'t`'#182#20#131#201'V'#2'F'#147#25#244'Z'#21#24'p'#163#189'^G'#130#174'b'#194
- +#175#21'V|'#141#130#9'='#17#6#19#252#164#131#143#183#229#153#195#16'D6='''
- +#224#178#174#241#254'.'#215'-'#147#13#236'k'#22''''#1#137's'#4#128#251#159'#'
- +#2#193'THtF'#16#146#132'@'#26'B$'#158'4'#11'B'#145'N'#141' '#200#147'A '#24#1
- +'?'#146#128#31'I'#192#239#167#219#184#5#130#224'v'#181#129#219#217#194'i'#6
- +','#242#16'c'#14#199#164#137#16#139#167'h'#5'x'#187#29'/'#233'~'#220#30'F"'
- +#232#144#250'72'#220'0F'#0'}'#128'/'#160#249#29'p+'#254#174't'#31#23'^'#239
- +#12#209'1!Ur'#234#189'V'#171#1#147#165#136#173#244'&K'#30'/'#236'j0'#232'T'
- +#201'M'#199#147#128'V'#195#169#248#156#208'+83A'#201#31'O.'#178#231'{'#17'v'
- +#254'&'#183#239'A'#208#7'"'#255'='#165#254'v%'#133'D'#167#154#176#3')p^'#255
- +#4#243#27#196'D'#142'C'#210#10#194#188'_'#128#153#7'A'#142#8'|'#129'0n'#17
- +#182#249'i'#143'Z'#128#23#205#4#15#18#1#145#129#223#239#193#215'E'#153'f'#192
- +#162#11#188#19#177#139#175#128#146#141#30#193#253'}H'#4#237'R'#255'n'#134#11
- +#198#8#160#7#240'9'#248#199#1'g'#227'S'#178#206#14#130#175#18#236'z\'#189#13
- +'&+X'#243#199#161#224#23#162#144#235'P'#232'U`'#228#5#158#8#192#168#231#132
- +'^'''#8'>'#9#189'Z'#145't'#230'q'#26#132'8'#254'/J'#254#17'.'#170#15'u>['#232
- +#202#17']'#201#128#249#14#4#13'A'#228'?`'#209#4'2'#17'b'#228','#140'32 '#159
- +#0#167#13#136#8#0'5'#2'/'#146#130#159#255#219#227'qA'#135#179#25':'#28#141'h'
- +'R'#132'92Hj'#5';'#16#129#31#207#255#24#238#239'A"h'#148#224#227#25'V'#24'#'
- +#128'n'#128#194#191#27#238#30'EA'#163#144'^'#138#224'+yU_'#141'6'#188#6'7'
- +#163'9'#15'l'#133#149'`'#177#230#163#176#227'J'#143#130'n'#212#171#217'mN'
- +#232#213'('#244'h'#235'k95_'#205'<'#250#188#7'_'#217#25#183#239'N'#173'g'#231
- +#22'.j8|S]'#202#7'RR'#135'E'#230'B,'#193#231#20#240#161'Cf"'#136'|'#3'$'#244
- +'^A+'#240#163'6 '#236'}~p'#180#213'!'#17'4'#224#243#130#140#8':#'#9#169'D'
- +#128#231#14#224'%'#220#137#219'_'#198#156#133'=c8'#252#172#178#6#20#252'<'
- +#220#221#137#194'w.'#240'2'#152'"'#248#188#154#175'A'#219#221'd)`'#130'oE5'
- +#223'hP3'#161'7'#25'4L'#232#13#188#202#159#180#241#153#224#139#156'y'#188'z/'
- +#8#190'8'#127'?'#165#208'g'#128#182'{'#174#161''''#167'b2'#225#136'O2'#226
- +#180#2'!'#140'H>'#130'X'#167#143#0#137#192'C'#194#207#8' '#12'n'#220'{'#188
- +'~p'#182#215#131#203'^'#15'A'#127#144#249#10'z!'#2#170'X'#188#24'I'#224'?R'
- +#127#30#185#136#225#253#11'K'#19'x;'#255','#220#238'B'#161#203#23#156'{2'#133
- +#160#234's+'#183#22'W|'#147#181#8#242#138'+'#193'l'#182#129#137#9'='''#248'&'
- +'#'#238'Q'#240'uL'#229'W'#177#24#190#134'9'#243'RU|qr'#14#8#222'z'#254':d#'
- +#248#235#216#161'z0'#25'f'#228'3'#17#197'&'#2'i'#5'Q^+ '#18#8'F'#152#22#224
- +#245#133#192'C$'#224'#R'#8#129#215#27#0#167#189#1#156#168#21'P'#174'A('#140
- +'D@9'#9'T'#215#192';'#11#227#157#213#141#175#225#238#10'$'#130#6#169'?'#139
- +'\'#194#200#253#197#245#19'('#252#187#224#238'o('#152'{'#136#195'y,'#227#142
- +'6'#18'|T'#227'-'#214#18#176#21'U'#160#224'['#153#208#155'I'#232'y'#225'g'#26
- +#128#150#19'|q'#248'N'#156#158'+'#8'>'#147#249#212'z'#222#209#9'Q'#232'1'#233
- +'7'#224#137#128#204#132#8#159'tDQ'#0#166#17#132#200'9'#136#155#143#211#8#220
- +'H'#6'D'#4#28')'#4#145#8#26#145#8'j'#193#239#247'!qt'#18#1#167'm'#196#5'm'
- +#128#26#156#220#138#219#3'H'#4'Q'#169'?'#130'\'#192'h'#253#249#9'Uyw'#160'0^'
- +#128'{'#133#160#238#179'"'#27#222#185'G'#9':'#228#205'/('#169'F'#193'71a'#239
- +'I'#240#5#199#30'K'#203'U'#202'S'#236'zN'#232#187#177#235#199#176'C'#30'BB'
- +#172#25#176#236'CN+'#8'G'#163#157'D'#192#251#4'8m'#128'#'#2#143'@'#4'm'#13
- +#224'h'#169'A'#205'!'#192#136' '#194#155#6']'#204#2'*8'#186#16'I'#224#11#169
- +#223#191#212#24#149#191'E'#20#254'Spw'#15#229#234'''Km'#21'|J-+'#190'A;'#222
- +'hB'#193#159#4#182#252'"&'#244'f#'''#252'f^'#240#13#188'W_'#219'e'#197'O&'
- +#231#240'R'#223#25#162#147#250']'#231'>D'#193#4'n/'#242#21'$S'#144'{'#210#8
- +#188'!'#232' '#18#160'}'#135#23#218#155#183#130#203#217#4#193'`'#152#249#21
- +#136#8#226#172#246' %'#153#232'y'#220']'#141'D'#208'&'#245'{'#151#10#163#234
- +'g'#137#130'O'#141'0'#31'G'#193'?'#145#254#22'Vh'#5#191#234#171'U*'#180#225
- +'5'#204#185'WP2'#30','#6#29'XL'#26#176#24'9'#2#160'U'#159#9#190'F'#136#225'+'
- +'9'#167#30#139#219#11'y'#255'\'#213']'#231'''<'#170'>'#226#244'A'#228'@L@gM'
- +#2#249#9'"'#2#17#136#162#6#130'Y'#208#225#9'22'#160#205#225'h'#135#246#166'M'
- +'H'#10#29#156'6'#192#242#8#226#156#127#160'S'#27#160'P'#225#137'H'#2#255#147
- +#250'-K'#129'Q'#243#235'D'#225#159#141#187#127#160#144'N'#17'V}'#5#159'i'#199
- ,#169#251'h'#215'['#11#160#176't2'#218#251'f&'#244'V'#163#22#204'D'#0#6'-S'
- +#251'){'#143#4#159#203#244#227#146'u'#196'e'#183'];'#248#140'a'#232#16#151#11
- +#11#230'A,'#193#167#30'G'#184#228'"'#230','#196#205#195#155#5#29#222' '#18'A'
- +#136#237#221'H'#8#237#173#181#224'l'#217#14#254'`'#16'B'#225'0'#159'f'#28'Oj'
- +#24#192'U'#30#222#130#251';G['#161#209#168#248#165#162#240#159#135#187#7'PH'
- +#181'2'#190#6'_H'#217#165#144#158#222'`'#196#21#127'"'#228#229#151#178#149
- +#158'V}+['#249'9'#193'7'#232#213'l'#213#167#172'='#242#234's'#9';\'#201#173
- +'Pp'#195'>'#204'Q'#241'iJ'#131#206'DDn'#229'N'#166#31#147'F'#16#229#170#16')'
- +#143#128#210#138#189#188'I'#224#18#17'A'#135#219#11'mM'#155#161#195#209#130
- +'&'#4#146#0'%'#19#9#209#130'Nm'#224'#<'#193')H'#2#173'R'#191#223'laD'#255'd'
- +#249'N<'#143#137'U~'#193#214#167'D'#30#29#174#250'yE'#168#238#23'O'#0#179'Y'
- +#199#4'>'#185#242#27'9[_H'#217'e'#169#186#138#212#226#155#222#26'm'#142'!3'
- +#224#139#21#147#14#195'd>A'#148'K7'#230'2'#11'9"'#224#28#132'H'#4'n$'#0#242
- +#13#144'Y`o'#133#246#230'M'#224#243'x:'#181#129'h\'#28')h'#194'3'#156#140'$'
- +#240#153#212#239'5'#27#24#177'?]^'#229#127#141#186#234#138'='#252#172#180'VE'
- +'N>#'#148#148#239#4'V[>'#191#226'k'#25#1#144#202'O'#241'}'#178#245'uj~'#213
- +#23'j'#237'E^}'#246#225#141#216'O/'#247#145'$'#2#232#236'AH)'#199'Q'#190#0
- +#137#10#142#168#208#200#231#227#136#128#132#223#229#9'2'#31'A'#135''''#0#173
- +#13#191#177#208'a'#144'O-'#142'&C'#134#236#200#184'K'#220#142#251#255#27#233
- +'&'#193#136#252#9#163#240#255#1'w'#247#139'U~'#174#147#14#197#244'U`'#177#21
- +'Cq'#249'4'#176#153#13'('#252'Z&'#252#164#242's'#153'|\'#234'.'#173#250'\5'
- +#30#223'aG&'#235'6'#23#127#12#210'"'#145'd'#1#224#27#152#242'D'#16#137#179
- +#162'#"'#2#31#239'$'#228#132'?'#4'N'#158#8#236'm'#13#208#214#248#27'j'#11'A'
- +#150'D$D'#10'D&'#193#167#192'i'#3'#'#182'5'#217#136#250'%'#243'*?y'#249'O'
- +#160#191#197'*'#191'FM'#130#173#129#252#210'j(,'#169'bj'#190#213#162#5#155'I'
- +#155#12#241#137#227#249'B'#18'Ogn>$k'#236#199#144'['#160#214#229#157#185#4
- +#188'Y'#192#218#152'qY'#133#212#153'('#192#215#23'0'#223#0#145#128';'#128#166
- +#1#238#157'Nh'#169'_'#15'^O'#7#231#27#216#209'$h'#1#206'/'#240#177#212#239'3'
- +#19#24'1'#191'f'#20'~'#26#139#245#30#10#255#188#174'I=\\'#159'T'#254#25'`'
- +#203#207'c+'#190#205#164#3#171'Y'#203#135#247#212#172'XGH'#221'e'#13'7'#146
- +#234#190'h'#229#151#250'M'#142#161'G'#136'|'#132#220','#131'8'#223#201'('#193
- +'7)'#9'sNB'#210#6#220#188'9@'#190#1#167#155#246#254#164'I'#16#224#27#146'DY'
- +#155#244'$'#9'P'#214#224#217'H'#2#207'K'#253'>'#211#141#17#241#155'F'#225#159
- +#128#187#255#160#240'O'#18#132#159'b'#243#228#229'gi'#188#182'"T'#249#167#163
- +#192#163#202#143'B'#159#135#155#133'_'#249#141'|}'#190#154'o'#192'A'#141':'
- +#229'2Q'#231#220#17#241#9#141'B'#240#13'L'#200#128#23'Z'#153#9#185#3'T['#224
- +#241#134#185'('#1'j'#1#14#212#6#220#168#21#180#183#212'C['#243'&'#214#152#132
- +#202#142#133#156#1#222'/'#128'<'#144'X'#134'$p'#143#212'o-'#157#24#246'?o'
- +#222#217#247#1#10#127#137#216#222#167#226#29#157'V'#203#210'x'#11'H'#229''';'
- +#223#204#169#252't'#155'e'#243#233':='#252#201#10'='#161':O'#234'76'#134#161
- +'#'#193#165#26#11'-'#200#163#188#147#144#186#19#177#188#1'_8'#169#13'8'#153
- +'F'#16'@'#147#160#3'Z'#234#214'1'#147#128#146#135'('#5'YD'#2't'#172#187'qw'
- +#237'H'#153'l4'#172#127#231'('#252'4a'#231'-'#20'~'#139' '#252','#163#143'T~'
- +#131#1#138'+f@^^A'#167#224#155#185'0'#31#9'?+'#213#229#227#250'B'#231#29#232
- +'R'#142';'#134#145#1'q'#163#211'd'#164' '#202#165#19#11#225'Br'#14':'#220#28
- +#9#208#214'Z'#191#1'\'#246'&'#212#24#194','#170#16''''#191#0'$M'#130#231#240
- +#128#231#140#132#130#162'a'#251'sG'#225'?'#10'w/'#161#240'k'#132#240#28#169
- +#252'j'#170#213'7'#153#160#164'r6'#216'lff'#235#219#204#218#164#189'/'#180
- +#228'R'#243#173#183#200#209''''#212#225#143#9#255#200#133#144'H'#148'lJ'#130
- +'&A'#24#237#252#16'_n'#204#162#4'nN'#27' '#147#128#162#4'-'#13#155#192#209'Z'
- +#203#234#9'('#162' '#174'%@'#18#248'7'#30#238'8$'#129#128#212#239'm('#24#150
- +'?y>'#204'G%'#188'r'#193#211'/8'#251#168#15'_i'#213'L'#176'YM'#144'G'#206'>'
- +#139'.'#25#226#211#179'&'#29#202'd'#223'='#161'D'#151#251' '#134#229'G1'#134
- +#1'B<'#216'Th^J+'#188'@'#2'd'#18#144'c'#208#217#17'`'#251#182#230#237#208#214
- +#180#9#130#129'03'#7#186'D'#8#190#194'C'#30#142'$'#224#148#250'}'#13#22#195
- +#238'W'#143#194#127'3'#10#238'mt['#16'~5_'#193'g'#177#22'@i'#229'L'#176'Z'
- +#245'L'#240#137#0#200#233#199#132#159'o'#201'%'#30#160#193'>'#128#177'e'#127
- +#212'A<'#2']'#156''
- +#129#253#135#147'c0'#231#197#1#133#159#198'o'#189#141#178#175#18#219#252':'
- +#173#26#10#203#166'@Aq%'#243#240''''#133#159'<'#253'$'#252#201#10'>'#174'tW6'
- +#22#219#135#223#29'0'#11#2#254#29#167'hi'#181':'#184#231#161#151'`'#234#244
- +'YR_'#162'd'#224'9 '#233#23#136'D'#184#209'f'#228#28'd'#21#133#148''''#208#17
- +'d'#161'B'#167#203#141'$'#240#19'x<'#29#221#145#192';x'#168'#'#145#4'bR'#191
- +#167#254' '#167'e'#130#239#207#255')'#10#191'A,'#252#180#242#23#148'N'#130
- +#162#210#241'I'#225#23'r'#250#5#225#231'Fi'#203'E='#249'r'#250#173'f'#5''''
- +#31#181#16#218#219#186#175'kQ('#148'p'#239'#'#175#192#244#25#187'H}'#153#146
- +'AhP'#10#2#9'D'#185#225'%b'#18'pv'#8#155#27#154'j'#214#128#215#227'fm'#201
- +#187'8'#6#159'F'#2'8['#234#247#211#31#228#172'T'#160#240'O'#193#221'W('#184#5
- +'B'#146#143' '#252#249'EU'#156#205#207#132#159#203#235'gi'#189'z.'#179#143#28
- +#131#138#148#148'^'#24#157'F'#127#23','#191#252#20#248'i'#245#183'=>N$p'#215
- +#131'/'#194#140#153#243#165#190'T'#233#144#28'f'#2#201#129#167'D'#2#212#127
- +#144#230#18#8'$@'#230#128#195#233'B'#18#248#17'|>'#127'2:'#192'&'#21'q'#14
- +#198'?#'#9'\'''#245#219#233#11'9)'#21'('#252#165#184#251#26#133#127#188'8'
- +#195#143'9'#252#10#199'AI'#197'N,'#185''''#143#247#246#179#236'>'#157#154#13
- +#215'd'#194'/j'#211#149#179'oR'#2#216#219'Z'#224#180#227#150#224#15#180#231
- +#18'w'#185'B'#1'w'#222#251'<'#204#156#179#155#212#151'+'#9#196#195'P'#133#206
- +'CD'#2'!VC'#16'e'#221#135#133'""'#202#21' '#199' i'#2#1#170#31#160#241#230
- +#204#28'H'#8'$@s'#8#238#151#250'='#245#134#156#147#13#190']'#247#255'Pxg%'
- +#133#31#127#148#26#190#168#167#140#226#252#164#242'S'#156#223',R'#251#213'JP'
- +#170#184'>}c!'#190#158'q'#255']'#215#194''''#31#190#217#235's'#228'r'#5#252
- +#249#129#21'h'#14#204#149#250'r%'#133#16'*'#20'r'#5'h'#132#25#149#21#139#205
- +#1#210#4#236#237#173#208#178#253'g'#8#132#130#140'('#132#218#129#4'7R'#249
- +#148#134#159'^zI'#234#247#210#19'rJJP'#248#201#21#253#17#141#223#22#170#250
- +#148'|'#134#159#217#146#7'%'#19'fC'#158#201#0'6'#171#150#197#250#217#202#143
- +#194#175#213'(S'#187#246#228#212#187#202'-'#196#227'Q8'#254#176'y'#16#194#31
- +'ko'#208'hu'#240#220'k_'#130'^o'#148#250#146'%'#133#216'1('#152#3#204''''#224
- +#237'L'#27'&'#231' '#151','#180#129#235'0'#20'I!'#129#8#30#225'0$'#129#156#28
- +'M'#150'S'#162#130#4#240#16#10#255#197#226#146'^'#141#138'r'#251'-P:a'#23'\'
- +#249#141'l'#213'g'#194'o'#226'V~-'#133#250'D'#243#246'r'#234#13#229'('#222
- +#254#231#179#240#244#223#255#220#231#243#202'+'#171#225#225#167#222#147#250
- +'r%Grr'#17#175#9#4#187#144#128#144''''#208#218'T'#3#246#166#205#157'$'#208
- +#217'O'#192#145'H'#196'vi\'#251'J'#173#212#239#165'+rF^'#248#226#158#127#138
- +#19'}'#168'A'#7'5'#242'('#173#154#11'y63W'#213#199#215#242#147#195#143'*'#250
- +#132#129#28#178#177#149#127'@8'#251#132'%'#224't'#244'='#15'c'#191#131#143
- +#133#11#175#184']'#234#203#149#28'B1'#17'9'#249'"|'#187'1.O '#204'J'#137#137
- +#4':P'#19'hi'#220#4#246#214#237#16#162#198'"'#169'ME'#190#142#4#28'K['#127'{'
- +'?"'#245'{'#17'#''D'#134'o'#232#241'#'#149#245#10#225'>'#18'~'#157'^'#15#165
- +#227'w'#1#155#205#154't'#248'Y'#153#218#175#225#235#248';'#213'~!'#183#127#12
- +#253#195'/?}'#7#183',;'#163'_'#207#189#234#134#251'`'#193#146#131#164#190'd'
- +#201#145#28'Y'#22#227#204#1#210#4'|B'#155#177'dw'#161' 4'#213#173#131#14#190
- +#148'85<'#24#191#27'M'#129'k!e'#144#186#180#144'\jx'#187#255'K'#20#254']'#187
- +#134#251#138'+w'#134#130#130#210'd'#172#191#179'}'#151#138#235#207#207#183
- +#232#22#6'}'#140'a`8'#239#228#165#168#5#244#221#2#159#194#131#15'='#253#1#20
- +#22#149'I}'#201#146#131'K'#27#230'5'#1#190#185#8'M.'#166#218#1#18'~'#135''''
- +#192'Z'#140'5m'#253#17''
- +#202#242'3'#25#185#149#159#230#241'q'#133'=\'#168'Oj'#6#251#237#215#31#225
- +#230'kNM'#185#143'H'#224#222#199#222#134#210#210'*'#137#175#174'wl\'#183#26
- +'n'#185#246#180'~?'#127#238#174'{'#193#178'['#30#145#250#178's'#2#180'|s-'
- +#200#169#187#16#154#3'An"'#17#235','#212#17#20#149#17#175'Ov'#27#22#249#3#190
- ,#12'y['#246'n'#223#242#177#228#29#133'$'#147#31#20'~'#146#14#178#251'm'#226
- +'4_='#218#253'e'#19#230#161#221'oa'#130#207'9'#253'h'#229'W'#179#22'^\I'#175
- +'<9r[j'#220'y'#243'y'#240#243#143#223#236'p'#127'qi'#5#220#247'xnz'#208#219
- +'['#155#224#213#23#30#128'5?|'#1'>'#175'{@'#175'='#243#130#27'`'#255'CN'#144
- +#250'-H'#14'![0'#193#135#7'I'#192'i"'#145#208'^'#140'5'#20'Am'#160#185#238'W'
- +'p'#182#215'C8'#196'u'#26'&'#194#224#15'pg'#253'O+n'#0#137'M'#1'ID'#8#133'_'
- +#5'\'#178#207#30#226'L?'#157'F'#3'E'#21';'#163#250'_'#146'l'#229'%T'#246'Q3'
- +#15#214#194'K)'#227#166#239#230#130#244'#'#206'8z.D#;:v'#149'J'#21'<'#251#198
- +'j'#169'//'#137'p8'#12#239#188#254#4#252#247#227'7'#193#209#222'2'#232#227
- +#200#240#187':'#253#188#235'`'#191'1'#18'H'#166#13#11#227#203'Y'#162#144'P7'
- +#144#236'%'#224'GS`5x'#221#174#29#252#1'h1'#30'R'#183'f'#197#135' !'#9'HE'#0
- +'w'#161#240'/'#163#219#10#161#139#175'F'#9#249#133#227#161#168'|2o'#247'wv'
- +#239'e'#225#190'd'''#159#220'q'#248#213'l^'#15'7]'#221#179' <'#241#202#183
- +#160#213#234'%'#189#198'`'#208#15#127#185#245#15#176'y'#227#207#189#166#0#15
- +#20#147#167#205#134#229#183'?'#1'j'#181'V'#210#247'''5'#18#162'a'#165'\'#142
- +#0'?{'#128'H'#128#138#134'<\'#205'@'#179#216#31#208'i'#10#180'i'#212#138#217
- +'['#191#127#190#25'$"'#129#172'K'#18#10#255#28#220#253#128#4#160#16#199#251
- +#141'f'#206#238#183#176#6#158#188#221'o'#224'j'#250#233'q*'#238#145#201'd9'
- +#21#239#127#255'_'#207#193'+'#207#253#181#199#199#175#189#237'q'#216'i'#214
- +#238#146']'#223#166#13'?'#193#221'('#252#161'Pf'#202#211#213#26'-\t'#245#221
- +'0g'#254#18#201#222#163#212'H$'''#18#9#21#132#220'\'#194'dk1'#26'C'#198'g'#10
- +#182'5n`'#13'F'#187#148#15#191#220#240#211#10#234'w'#193#15'8'#203'.'#178'*J'
- +'('#252't'#190#175#197#170#191'`'#247#151#140'G'#187#223'jN'#246#239#167'Q]'
- +#212#193'W'#173#22'M'#229#205#21#201#231#241#183'{'#151#193#247'_'#247#156
- +#225'y'#197#13#15#195#172#185#139'$'#185#182#230#198#237'p'#253#165'G'#166'u'
- +#213#239#9#187'.'#216#31'.'#188#234'nI'#222'g'#174'@('#30'bN'#193#8#231#15
- +#160'Qd'#212'i'#216#201#166#19#147'?`='#184#218#27'v('#26#146#203#18#251#213
- +#173'y'#137#166#17'g'#157#4#178'M'#0#231#2'7'#187#143#169#254#148#234#171'U'
- +#171'Q'#237#223#9#237#254'q,'#212'G'#4'@'#19'z'#141#186'N'#187'_'#220#202'+'
- +#151'p'#203'U'#199'A}'#237#166#30#31'?'#245#188#27'a'#233#254'GKrm'#203'/:'
- +#12'W'#157#236#181#168'3'#154#173'p'#205#205#143'Cy'#213'dI'#222'o.@p'#10'F'
- +#226#220'(2'#214'iX(!&'#18#240#248#161'q'#235#15#224#247'y'#216'0R'#145')'
- +#176#161#208#28#223'e'#205#23'/'#135'`'#164#18#0#10#127#1#238'6'#162#240#231
- +#145',+'#168#194#15#5#220'l-'#130#210#170#217#220#136'nQ'#129#15#169#254#201
- +#210#222#28#136#245'w'#135#171#207';'#0':\'#237'=>>{'#222#18#184#248#218#236
- +'W'#131#174#250#246#19#248#251'_'#175#201#250'y'#169#148#248#162'k'#254#138
- +'Z'#207#226#172#159';W@>'#129'x'#12#152#199#159':'#10#249#168#183#160#159's'
- +#10#18#17#216#219'['#160#165'v-'#155':'#20#21'B'#131'@?'#239#196#245'{L'#14
- +#255#229#181#215'^'#139'C'#22'I '#155#4#240'4'#10#255#153'B'#194#15'e'#242'i'
- +#181#26'('#171#222#21'l'#22'+X-'#26#150#227'o'#210#11#241'~E'#206'W'#247']y'
- +#206#190#224#245#184'z|'#220'`'#180#192'}O}'#154#245#235'z'#230'o'#183#192'7'
- +#255#253#183'$'#159#9'iw'''#156#185#12#246'>0'#247#19#161'2'#1'nE'#231'z'#11
- +'R'#166' '#181#26'gIB'#194'@R'#26'8R'#251#11#184#28'M]K'#135'}'#10'Yd'#230'Y'
- +'G'#236#180#253#214'[o'#205#154')'#144#21#209'B'#225'_'#136#187'/'#196'M=)'
- +#225''''#191'x'#2#20#150'M'#228#236'~'#190#159#31#27#209#205''''#251#200#20
- +'|'#154'o'#142#142#228#190#242#156#165'L'#157#235#13#203'n'#127#22#170''''
- +#207#204#234'u'#253#241#186#147#160#174'f'#163#148#31#13#236'{'#200#201'p'
- +#236#169'WJz'#13'R!'#217'e'#152'2'#5'Q'#19#160#162'!'#174#155#16'_='#232'rC'
- +#211#214#239'!'#16#12'tI'#16#138#191'5'#217#214'x'#204#231#159#127'.h'#1#25
- +''''#129#140'K'#22#10#191#18'w'#171'Q'#246'g'#138#29#127#6#163#9'W'#255#221
- +'P'#232'u'#220#234'o'#20'B~'#156#221#175#148'Q?'#191#172'\'#226#160'q'#229'Y'
- +'KX'#152#173'7L'#156':'#27#174#186#229')v'#155#190#232#141#235#190#135'_~'
- +#252#2'j6'#255#2#173'-u'#16#14#5#161#176#184#28'f'#238#178#24#150#236#127','
- +#216#242#139#135'|]w\{<4'#214'm'#145#250#227#129'='#150#28#6#167#157#127#171
- +#212#151'!'#13'(*'#144#224#187#9#133'R'#203#135'iko'#222#14#237'M'#155' '#28
- +#230'M'#1#222'!'#168#144#197#143#216'}r'#244#223#217'2'#5#178'A'#0#201'~'#254
- +#130#227#143'V'#255#226#138'Y'#144'_X'#194#170#251#204#204#235#175'f3'#251'4'
- +#194#164'^'#5#191#242#231#174#252#195#21'g.'#198'/0'#216#231#243'*''L'#135
- +#246#214#6'^['#232#253';'#173#154'8'#3'.^'#246' '#232#141#230'A_'#215#223#239
- +#189#18'~^'#253#133#212#31#15#195#137'g]'#7#139#246'=J'#234#203#200':'#196
- +#249#1#194#172#1#242#7'P4'#192#229#14#129#27'I'#160'q'#219#15#204#132#236#146
- +#27#176#173#196#26#155'S]'#20#243'e'#131#4'2*^('#252#229#184#251#21#133#223
- +'(8'#254'h'#245'7'#219#138#161#164'r&'#179#249#201#243'o'#22#169#254#148#240
- +#195#138'j'#134#193#140#238'+'#206'\'#4#209'H8'#237#199#165#234#187#227#207
- ,#188#22#246'\'#250#251'A'#189#254#173#151#31#130#143#223'}A'#234#143#135#129
- +'4'#190#229#127'Z'#1#165#229#19#165#190#148#172'#9'#131#144'R'#133#249#209'c'
- +'n'#26'I'#206#180#128#16'8'#236'm'#208'R'#187#134#213#10#136#27#138#202'e'
- +#137'?'#21')6'#222#186'j'#213'*j-'#158'QS '#211#4#240','#238'N'#231#194'x\'
- +#165#159'N'#167#129#210#9#187#162#218'o'#6'3o'#247#155'x'#213'_'#165'Rt'#198
- +#251's\'#248#9'W'#158#177'p'#135'A'#27#233#2'}'#6'W'#160#233'@'#26#193'@'#225
- +#180#183#192#173#151#255'N'#234#143''''#9#157#222#8'w<'#244'>(G'#227#240#145
- +#132#184#167' '#167#5#176#198#162#158#16#155'@'#220'Z'#255'+t8'#26#152'C0'#22
- +#139#9#164#17#210'(";W'#154'[k>'#255#252's'#129#4'2'#130#140#137#25'_'#236
- +#179#25#127#200#202'd'#147#15'\'#225#243'J&Aa'#201#4'&'#248#22'>'#219#143#188
- +#254'B'#194#143#208#214'K6'#28'4'#128'3'#22#160#234#150#185#249#15#148'F'#252
- +#199'G>'#4#165'j'#224#130#243#199'k'#143#131#214#166#237'R~<)'#168#24'?'#13
- +#174#190#253'9'#169'/#'#171'H'#206#31#20'G'#5#130'\'#150' E'#5#152'&'#224#246
- +'A'#211#182#149#16#240#7#146#25#130'd6'#160#22#240#216#30#147'#'#151#226#203
- +'c'#153'4'#5'2I'#0#127#195#221#5#194#234'O'#171#187#222'`'#198#213#127'>'#174
- +#252#186#164#234'O1'#127#13#175#250#11#173#188's5'#236#215#21'W"'#1'd:'#211
- +'n'#206'n'#251#194#233#23#253'q'#192#175'['#245#205#135#240#226#223'o'#145
- +#234#163#233#22'{'#29'x'#2#28'q'#210#229'R_FV'#145'L'#21'&_'#0#223'T4'#16#226
- +#18#132'H'#3' "ho'#169#5'{'#211#198#174'a'#193#160'Y'#23#157#174#143'ln'#200
- +#164')'#144#17'Q'#227#251#250'oCa'#214#8#171#191#150#194'~'#227'v'#130#130
- +#194'q,'#233#135'R}'#169#198#159#10'}'#146#173#189#134'Y['#175#171#207'^'#136
- +'_lf'#9'@'#173#209#193#157#127#31'\.'#193'u'#231#239#3#225#12#213#1#12#22#231
- +'^y'#31'L'#155#185#135#212#151#145'u'#136'G'#145'S'#130#16#171#21#224'K'#135
- +'I'#19' -'#192#231#245'$'#147#131#226#156'/'#224#129#137#214#198#229#133#133
- +#133#145'Li'#1#153'"'#128'{pw'#149#216#246'7'#24'q'#245#175#222#21'W}m'#146#0
- +'('#215'_'#163'Q'#138'r'#253'3'#253'5'#164#23#203#206'Y'#196#190#172'L'#131
- +#132'f'#234#206#3'/*'#250#199'3'#127#130#149'_H'#147#16#212#19#242#10'J'#225
- +#250#191#252'S'#234#203#200':'#132#4'!'#161'V'#128#229#6#8#166'@W-'#128#250#8
- +#178'(B'#194'k'#209#248#166#203'|'#155'Z'#143'='#246#216'h&'#18#132#210'.r('
- +#252#249#184#219'.'#158#231'G*~~'#233'4(('#174'`'#182#191'9'#153#238#171'J'
- +#233#231'?'#220#176#252#188#197#25#245#1#8#152#188#211#174'H'#2#15#12#248'u~'
- +#159#27'n'#187#252#224#164'-'#154'+'#184#244#198#167#161'|'#252'4'#169'/#'
- +#235'`i'#194#162#178'a'#214'U'#152#143#10'Px'#176'i'#203'w'#224#247#251#152
- +#22' D'#4#20#178#248'_'#198#233'jn'#213'h4'#145'L8'#4'3A'#0#255#135#187#27
- +#133#184'?'#173#254'z'#189#1#202'&'#238#193#4#159'<'#255#20#243#167#176#31
- +#149#249#178'b'#31#190#189#207'p'#226#128#166#186#205'p'#255'm'#167'g'#229'\'
- +'&K>'#220'xo'#255'z'#247'u'#197#227#247'\'#10'[6'#172#202#230'G'#211'''*'#171
- +'w'#134#139#174#127'L'#234#203'H'#162'v'#235'z'#248#224#141#191#179'U'#248
- +#202#219'^'#4'm'#6#134#161#236'P6LZ'#0's'#8#134'Xkq'#242#7#216'['#182#131#189
- +'y'#19#203#11#16'E'#4':'#10#13#222#25#165#150'p'#187#209'h'#140#166#219#20'H'
- +#171#200#161#240'S'#246#10#173#254#214'd'#193#15#10'y^'#233#20#200'/'#170'd'
- +#4'`'#225'+'#253#132#213'_.'#204#241'K'#251'G'#158'Y<'#245#192#149#176'i'#221
- +#202#172#156#139#138'l'#254#244#232#127#7#245'Z'#183#171#13#238#188#246#168
- +#156#210#2'hq'#184#225#158'w'#192'h'#178'Jz'#29'?'#175#250#12#222'z'#233#175
- +#224#245'8'#147#247'Yl'#133'p'#237#157#175#225'oR'#153#246#243#9'#'#200#147
- +#29#132#216#188#193#8'x'#242#5'P'#181#224'w'#16#164#136'@'#172'S'#11
- +'P'#202#227#255'7'#181#208'~'#151#221'n'#15#167#219'!'#152'n'#2#184#30'w'#127
- +#20#175#254#172#183#127#245#238#184#234#235'p'#245'Ws'#157'}'#249'b'#159'd'
- +#216'o8-'#253#192#133'tn'#190'x'#31#136'g('#7#160';\'#247#151#183#152'&0'#24
- +';d'#213'_'#204#156#191#15#156'x'#174#180#3'G'#222'|'#225'.'#248
- +#254#203'wv'#184#191'x\5\v'#243#243#25'9'#167'0'#130'<'#22#19#194#130#145'd'
- +#243#16#210#4#218#155#183#130#179'uk'#215'r'#225#246#170'<'#255',u'#194#233
- +'L'#183'C0m'#146#135#194'O'#189#175'jP'#152#11#133#156#127'J'#249#205'+'#158
- +#4#249#197#227'q'#245'Ws'#131'6'#127#209#225'p'#196')'#203'2r^'#241#152'1'#234'#'#232#167
- +#228' >*@Z@'#211#150'o!'#24#10'B4'#210'Y#'#160'R'#196'o'#24#167#171'}'#200
- +#229'r'#133#210#233#16'L'''#1'\'#134#187#251#133#22#223'JV'#238#171#195#213
- +#127#15'0'#25#185')'#190#228#249#215#137'W'#255'af'#247#11#248#203'uG'#130
- +#167#195#158#213's'#206#156#191'/'#28'w'#214#224#227#250#143#254#249'\h'#172
- +#149#182'B'#176'+'#14':'#234'"X'#184#223#241#146#157#127#235#198#213#168#29
- +'u'#159#151' '#147#201#225#218#187#254#5#6'cf'#204#148#148#185#2'4v<'#16#6
- +#143#151'#'#129#246#166#205#224'j'#171'I'#169#17#192#127#154'&'#216#218#230
- ,'DC'#30'O:'#29#130#233'$'#128#159#196'#'#189')'#231#223'VT'#13#249'%'#213','
- +#219#143'y'#254'u'#157#147'|'#5#219#127#184#161#177#246'7x'#236#174's'#179'~'
- +#222#130#226'J'#184#228#230#193#231#247'?'#250#167#179#160#185'A'#250#10'A1'
- +#170#167#205#131#211'/'#249#235#208#15'4H'#4#253'^'#184#243#154'C{|'#188'j'
- +#210'l8'#235#138#7'3rn'#161'N'#128#204#0'J'#14#242#5#195#172'd'#152#204#0#183
- +#199#11#205#219'V'#162#22#16'Ji'#29#166'SFO'#221'i\'#224'-$'#128#208#140#25
- +'3'#210#162#5#164'E'#2#199#205':q'#14#200#228'?'#166#14#248'PC'#217#196'='
- +#193'h'#212'%'#195'~]m'#127'v'#1#195'L'#5'x'#246#129#203#160'f'#211#154#172
- +#159'W'#161'T'#193'M'#247#127'<'#232#215'?p'#203#9#224#180'7e'#253#186'{'#131
- +#209#156#15'W'#255#233#13'I'#175#225#214'K'#150'v'#186#232#187#193'y'#203#158
- +#128#178#202')i='#167'`'#138'u'#230#5#196'Y#Qj'#28'Bu'#2#20#26'lk'#218#8#238
- +#246':'#22'-'#16#210#131#21#242#196#191''''#231#181#156#145#151#151#231'okkK'
- +#139#22#144#30#2#152'}'#242#189#184#187'R'#156#248'c'#206'+'#133#162#242#25
- +'l'#245#167#141'l'#255#174#5'?'#195'L'#246#25#238#184'|'#191#140#21#0#245#133
- +#195'O'#186#6#230#238'y'#232#160'^{'#207#245'G0_@.'#129'4'#197#155#30#200'~'
- +#199'$1'#250#250'>+&'#236#12'g]'#249#240#0#142#216'?'#8#26'@gD'#160#179#135
- +' +'#22'r9'#160#173'v'#245#14'EB'#165'F'#215#156'Bs'#188#209'h4'#6#211#161#5
- +#12'Y'#4#11'&'#238#167#212#24#139#235'P'#160'K'#196#206#191#194#242'Y`'#205
- +'+J'#18#0'7'#211'O'#148#243#159#246#143'4'#243#168#223#182#14#158#185#255'b'
- +#201#206'o+('#131#139'oZ1'#168#215#222'u'#237#161#16#238#163'y'#137#20#184
- +#225#222#143'@'#174#148#206#17'x'#247#242#195'!'#24#240#246#248'8'#249#2#150
- +#223#243'>.j'#233#175'd'#20#198#139#209#198':'#9#135'"\'#15'A$'#0'2'#7#154'k'
- +#190'g'#201'\bg'#160'F'#17#185'~'#130#205#254'x'#186#180#128'!'#203#225#184
- +#217''''#29#130#135'yW'#172#254#235'tz('#157#184#7#152#244#26#214#229#135'e'
- +#253#241#171'?'#169#255#220#7#155#246#207'3'#227'xg'#197#159'a'#237#247#255
- +#25#250#129#134#128'E'#7#158#10'{'#29'|'#230#128'_'#247#231#171#15'D{2'#167
- +'F'#211'3\q'#199#27#160#207#144#163#173'?x'#232#182#19#192#237#236'}B'#242
- +#194#253'N'#130#165#135#157#147#145#243''''#135#138#196'83'#128#178#3'='#188
- +')`o'#169#1'g'#203#230'd'#219'0'#190'Jp'#213#228#188#230#223#163#6#224'N'#135
- +'/`'#168'b(C'#245#255'%'#220#159' '#174#250#179#20'TAA'#233'd'#182#242#147
- +#240#179#156#127'a'#180#215'0'#140#251#11'x'#152'~,'#174#190#199'ig'#18#244
- +#217#157'q'#249'#PZ9'#176'T'#218';'#175#220'/+3'#2#6#138#11#174#127#1'l'#133
- +#227'$;'#255'S'#247#156#7'-'#13#155'{}'#142#193'd'#131#203'n'#207'L'#253#2
- +#203#11#192#175'%'#154#156'''@y'#1'\'#207#0#143#199#3#205#219#190#235'j'#6'$'
- +#242#180#158#189#139#140#190'_'#210#161#5#12'I'#18'Kw>'#214'"W'#168#155#240
- +'G'#169#19'w'#252')'#170#154#7#22#139#141#9#191#208#231'O'#205#175#254#178'a'
- +#24#247#23'p'#215'5'#251'g'#188#250#175'?'#208'h'#13'p'#217'mo'#12'Hu'#206
- +#149'k'#239#138#11'oz'#5#204#214'B'#201#206#255#226#195#151#161'i'#247'K'#159
- +#207';'#227#138'G'#161#164'<'#189#206'@'#1#226'J'#193#0#211#2#194'L'#11' 3'
- +#160#165'n'#13#248#220#246#20'3@'#173#136'>2)'#223#241''''#157'N'#231#25#170
- +#22'0'#20'I'#148#141#155'u'#210'Y('#205'O'#138'c'#255':'#189#25'J&'#236#202
- +'B~F'#3#183#250'k'#133#138'?'#129#0'2'#242'1f'#30'w]'#189#159#212#151#144'DE'
- +#245',8'#233#194#254#135#208#238'^v@V*'#23#7#2#250#221','#187#251#163#172#159
- +#215#209'V'#7#171#190#252#23'4'#213'n'#128#182#230'm'#253'j'#235'V5i'#23'8'
- +#225#252#244'O?'#18'$'#150#141#26#143'u:'#3'}'#228#12'D"p'#182'7'#128#189#241
- +#215#20'3@&K'#212'M'#201'k'#222#27'??'#215'P'#181#128#161#17#192#236#147'?'
- +#199#253#18'.'#166#207'M'#248#181#22'q'#153#127'$'#248#194'`O'#173#134'k'#244
- +#169#16#226#254#195'P'#3#8#6#189#240#208'MGH}'#25')'#216#231'w'#23#194#188
- +#197#253'k'#184'y'#239#181#7'f'#165'rq '#160'^'#7#151#221#241#206#208#15#212
- +#7#162#209'0'#252#188#242#3#216#176#230'S'#166#238'G'#250#209#200#181'+'#228
- +'r'#5'\q'#231#251#236'w'#158'v'#240#209#0#193#25#200'B'#130#188'/'#192#231#11
- +'@'#243#214'o'#184#190#129#157'f'#0'X'#181#129'S'#202#173#190'OQ'#3#240'644'
- +#4#15'?'#252#240#216'`'#180#128'AKb'#217#204#227#170'er'#21#181#252#146#137
- +#213#255#226#234#221#209#246'7'#166#172#254#164#254#211#7''''#31#198#234#127
- +'['#211'Vx'#238#190'?H}'#25') '#15#245'YW?'#133'6ty'#159#207#253#235#242#131
- +'r'#142#0#242#138'*'#217#245'g'#18#159#189#243'wX'#245#5#229#26#12'='#13'z'
- +#241'Ag'#194#238#251#156#148#145#235'$'#225#23#18#131#184'"!./'#128#234#4#218
- +#234#215#131#167#163#169'Kjp'#236#141')'#5#142#171'U*'#149#203#135',1'#216#26
- +#129#193'J'#163#172'|'#246#201'7'#226#153'n'#23'{'#255#141#230#2'('#172#152
- +#205#173#254'z'#21#232#209#12#160'6'#223'*'#149#144#246';<'#133#159#176'm'
- +#195'w'#240#230#179'7I}'#25';'#128'<'#232#231#223#248#143'>'#159'w'#255#13
- +#135'd'#181'x'#169'?'#216#251#240#11'`'#151#133'Gf'#236#248#219'6'#174#132'7'
- +#159#185'1m'#199#179#228#149#194#217#203'2'#211#215'P'#152'+'#200':'#8'G'#185
- +#225#162'>'#161'i'#136#179#21#218#235#215#166'$'#5#201' '#209'19'#191'u'#145
- ,'\'#150'h'#195#197#215'+'#170#20#28#144#157'7h'#2'@'#245#159#234'S'#23#139'+'
- +#255#242'J'#167#131'-'#191#12#244'zU2'#244#199#138'~'#134'q'#222#191#128#159
- +#191#127#31'>~#'#251's'#254#250#131'I;/'#130#195'O'#238#157#156#30#188#241'P'
- +#201#18#152#186#3#149'8_v'#251#191'I'#183#206#200#241#253'^'#23''#232#163'7|'#247#217#10#248#230#163#204
- +#148#136#166#3#135#156'p=L'#153#181'W'#143#143'?q'#231#137#224#243'8'#164#190
- +#204'$'#170'&'#207#131'#'#207#252'S'#198#142#255#244#221#167#129#219#217#146
- +#246#227#238#182#247#137#176'`'#255'3'#210'~\'#241' '#145#168#168'y('#133#4
- +'I'#19'ho\'#7#30'gsJm'#128'^'#21'y'#180#210'b'#191#31'I'#193#129'&'#128'o0'
- +#206#192'A'#17'@'#197#156#147#247#195#235#252#143'X'#253#215#234#200#251'?'
- +#159#9#190#1'5'#0#193#249#199#133#254#134'o'#234#175#128#207#223'y'#4#214'~'
- +#155'y'#135#213'`'#161'Ti'#224#194'['#223#234#241#241#247'^'#186#3'6'#175#251
- +'R'#234#203#228#175'U'#13#231','#127'%c+'#233#251#175#222#9#155#214#14#174
- +#129'J'#223#215#174#129#243'o~3#'#206'@ae'#167'h@'#152#31'$B'#137'AD'#0'N{=8'
- +#155'6'#166#180#11'S'#202'c'#223'O'#202'k;'#7#175#165'='#18#137#184'='#30'Oh'
- +#160#13'C'#6'E'#0'h'#255#255#9#143#190'\'#28#254'3'#219'*'#209#4#152#204#236
- +#127#218'h'#188#183'Z'#24#243'5'#12#171#254#186#226#235#15#159#130#213'_'#190
- +'.'#245'e'#244#138#5#7#156#9's'#23'w?'#149'w'#203#250#175#224#253#151#239#144
- +#250#18#25#14';'#229'6'#24'?u'#183#140#28';'#232'w'#195#147#127'>'#161#215#2
- +#159#161'b'#202#172#189#225#128'c3'#215'+'#128#181#12#19#204#0#158#0'|^/'#180
- +#212'|'#151','#17#230#252#0#16#156'\'#208#182#31#138'Y'#227'`'#157#129#3#149
- +'L'#217#173#183#222'*{'#226#205'M_'#225#237'='#196#197'?y'#227'v'#6#171#173
- +#152#23'~n'#245#231#188#255#178'a'#217#240#179'+'#182#172#255#18'>x%s*k:'#160
- +#213#153#224#236#235'^'#237#254'A'#252#209#252#237#182#195'%o'#10'2e'#246#222
- +#176#255#209#215'd'#236#248#159#188'q/lX'#243'IF'#223#3'-|''_'#246'$s'#10#166
- +#27'I3 '#206#153#1','''#0#9#128#136#128#8' '#24#240#165#248#1#10#244#254'K'
- +#11#13#158#143'Q'#11#176'SH'#16#181#128#240'@'#204#128#1#19#192#148#221'N2'
- +#251'B'#178'v'#154#248#211'i'#255#171#160#164'zO'#208#235'u'#172#232#135#156
- +#127'Z>'#245'W>'#12#219'}w'#7'ZY'#158#185#235'D'#169'/'#163'O'#236'{'#212#213
- +'L'#200#186#195#11#247#158#14'^w'#187'd'#215'V4n2'#28'}^f'#29#169'O'#220'q'
- +#20'D#'#161#140#191#23'K'#254'88'#233#210#199#211'~'#220#174#237#195')'#26'@'
- +'$'#16' ?@'#211#6#240'8'#27#187#250#1'^'#172'0'#183#223#135'ZA'#171'N'#167's'
- +#15#180'Jp'#160#162')/'#159'}'#226'!'#9#144#191'#'#216#244#20#255#215#27#172
- +'PX9'#151#9'?'#249#0#152#250#175'$'#239#191#208#244'cd'#144#192'cl'#5#205#173
- +'l'#186#174'(.'#159#6'G'#158'so'#183#143#173#252#228'9X'#253'E'#223'!'#195'L'
- +' '#191'x'#2#28'{A'#250#203'j'#197#248'u'#213#7#240#223'w'#30#202#218'{Zt'
- +#240#249#176#243#238#135#167#245#152'|'#247#31#212#0#184'nA'#194'hq6^'#220
- +#209#4#142#166'_'#187#250#1#214'M'#206'o?'#31#9#160#9#205#0'g('#20#242#15#196
- +#12#24#136'X2I.'#159's'#242#221'x'#222'+'#197#14'@s~%'#235#253'G'#194#175'G'
- +#225#167'a'#31'D'#0'r'#133'l'#216#135#255#196'x'#225#222'S'#193#239'u'#14#253
- +'@'#25#132'Zk'#128'3'#175'}'#181#199#199#223'x'#252'rhk'#218'<'#128'#'#14#29
- +#214#130'r8'#254'"'#154#20#151#153#144#159#128#151#30'8'#27'<'#174#244'{'#254
- +'{'#2#245'5fV'#248
- +#219#26'7'#193#191#158#186'2+'#239'I'#140#25#187#30#6#11#14'Jo'#134'hgRPg'
- +#159#0#193#20'h'#175#253#129#245#8#16'u'#12#134'|'#157#247#230'b'#147#255'}'
- +#148#201#22'$'#128#14'2'#3'P'#3#136'B?'#162#1#3#17'O'#249#132'9G'#230#133#19
- +#250'f'#188#173'H'#150#255#170')'#254#191#16#237'~'#174#233#7#197#254'5|'#242
- +#15#215#245'w'#228'0'#128#179'm;'#188#241#152't'#13'A'#250#139#197#135']'#10
- +'S'#230#236#223#235#251'x'#243#241'K3n'#206#204'^x'#28#204#223#251#212#172
- +#188#231#183#159#190#10'I'#224#183#172#156'K'#12#149'Z'#11#167'-{-'#189#7'Mp'
- +'9'#1#228#8#140'D'#184'h'#128#16#18't'#182'lBS'#160'N'#1'D'#2'd'#226
- +#216#27#215#165'8'#2'U'#242#216'&4'#3'.'#198#219#13']'#204#128'>'#163#1#253
- +'&'#0'R'#255#191#217#164#186')'#145#144#221'"'#216#255'4'#247#207#156'?'#30
- +#172'E'#19#152#240#147#243#143'&'#1#177#220#127#249#200#178#255#5'|'#251#225
- +'c'#240#235#170#247#164#190#140'^ '#195#21#233#31'h'#154#245#175#133#213#170
- +#207'_'#128'u+'#223#198#31'T'#223'%'#177'}'#158#25'5'#194#9#211#23#194'B'#212
- +'@2'#209'B'#171'''|'#242#250#157'P'#251#219#183'Y;_W'#152'l%p'#204#5#233#27
- +'u&D'#2#132#226' V'#27#16#138'23 '#16#8'B'#203#182#175#240#251#138''''#29#129
- +'2Y'#194'7'#173#160#245'd4'#11#234'('#26'`6'#155';'#182'l'#217#18'Z'#183'n'
- +#29#153#1#189#170'y'#253'&'#128#165'K'#151'*6'#187#198#189#128#231';A'#236#0
- +#180#149'L'#7#147#181#132#9'?'#167#254'wv'#254'aC?F'#152#6#16#143'Ga'#5'j'#1
- +#180#207'E'#232#12'68'#238#146'g'#7#250#174#224#251'O'#158#133#223#214'|0@'
- +#141'@'#198#178#250'4:3'#20#148'N'#130#5#7'_'#12'jm'#250#231#234#245'z'#229
- +#236#251'8N'#210'JG'#146#135#211#174#253'WZ'#143#201'R'#131'y?'#0#155#29#128
- +#4'@'#27#17'A'#235#182#239' '#28#246#167#248#1#198'['#237#231'j'#20#225#245
- +'J'#165#178#9'W'#127#167'N'#167#11#244#167'6'#160#191#210')'#159'7o'#158#162
- +'9:'#141'hv'#174#152#0#10'*'#230#130#201'le'#194#175#213't'#134#255#134's'
- +#235#175#190#240#213'{'#15#194#230#28'u'#6#142#199#21'x'#175#223#15'>'#209
- +#134#242#29#234'6}'#7'M'#219#215#178'N4'#241'X'#132'U'#17#146#160#145#160'['
- +#242#203#153#176#23'W'#236#4#230'<'#233'Zy'#9#248#254#147#167'a'#253#247#131
- +#27#156#154'N,='#234'Z'#168#154#178'g'#218#142#215'u'#132#24'5'#10#9#242'Z@{'
- +#253'Oh'#246#216'S'#8#160#216#232#249#147'M'#235#251#24#239'k'#196#191#237
- +#161'P'#200#215#159#1'"'#253#145'Pf'#255#31'|'#240#193#170#181#141'ymx'#219
- +'$'#142#0#20'MX'#8#6#157#134'['#253#133#226#31#249#200'I'#0#234#14'$'#12#175
- +'=tF'#214'<'#233#253#6'~'#224'G'#254#225'Q0Z'#138#165#190#146#172#225#229#191
- +#158#136'Z'#203#192#27'|'#164#27#21#147'wC'#18#184'.m'#199'K'#13#7'v'#18#0
- +#141#21'w4'#253#6'^WC'#151#6'!'#254#23#139#244#174#151#209#254#175#139'F'#163
- +'mj'#181#218#211#159#18#225'~'#17#0#217#255#171'6'#199'+Cq'#237#214#164#3#16
- +#237'='#181'F'#143#4#176#27#203#250'c'#171#191'Z'#193#186#2')'#21'#'''#249
- +#167''''#216'['#182#192#7'/,'#203'h'#206#249'@Q9e'#15'X'#252#251#204#228#168
- +#231'"6'#253#248#1#172#252'8'#253#217'x'#131#129'Vo'#129#163'/z&'#173#199#20
- +#210#130#201#214''''#2#16#162#1#29#246':'#232'h'#221#156#18#9'0'#168'C'#159
- +'UZ\'#15#163'|'#214#14'$'#28#216#31#17#149#163#253'/'#175'q'#151#238#23#137
- +#201#223'O'#137#0#24#242'!'#191'b'#22#155#3'@'#177#127'F'#0#138#206#8#192'H'
- +#199#154#255#189#0#235'W'#190')'#245'e0'#144#231#253#152'K^'#204#170#243'Mj'
- +#188#249#232#217#16#240#229'Fb'#150#12#127#240'''^'#153#222'b1a'#148'x'#140
- +#207#7' '#2#8#134'#'#224#235#176#131#189#241#231#148'H'#128'F'#25#253#181#218
- +'f'#191#3#229's;'#254#221#20#12#6#157'J'#165#178#207#226#160'~'#17#192#140#25
- +'3'#148'n'#213#172#11#226#9#249#253'b'#2'0'#217#202#193'V<'#25'U'#255'N'#2'H'
- +#142#252#30#225#26#128#128#207'^'#191#29#154'j'#178'?*L'#12#242#190#239'}'
- +#204'MPR5['#234#143'#kh'#220#182#26'>'#255'gnT7'#10'8'#225#242'W@'#158'&'#2
- +'f'#170'='#223'#@'#240#3#176'~'#129#148#16#228#247'B'#235#246#149')'#4#160
- +#148#199#237#147#242'Z'#175'E'#185#164#9#221#13#129'@'#192#238#247#251'}&'
- +#147#169#215#226#160#190'D'#148#169#255'^'#175'W'#249'K'#147#237#190'xBv'#129
- +#152#0#172#197'S'#192#130'$'#160#161#8#128'J!'#234#254#3#204#30#29#13#4'@'
- +#248#238#195'G`'#235'/'#210'8'#5#233#251'Xr'#228#245'P6a'#174#212#31'CV'#241
- +#239#167'/'#6#143'3'#183'f'#29#238'{'#252#237'l'#28'^'#186#144#236#15' '#26
- +'%N&@'#24'5'#129#230'-_B4'#18'I'#18#0'">5'#191#229'r'#20#203#173#248'w]8'#28
- +#166'Va'#30'Q'#143#128'n'#253#0#253'"'#128#182#182'6'#213'fW'#217';'#137#132
- +'l?q'#17'P'#222#184#153'`4'#23#178#213#159#171#254#235','#0#26'%'#178#159#196
- +'/'#223#252#3#183'W'#135'~'#160#1#128':'#213'.8'#236'*('#159#180#187#212'o?'
- +#171'p'#182'l'#133#15'Wd'#174#164'x'#176#152#179#228't'#152'6'#255'wi;'#30'_'
- +#23#196'|'#0#177'(?D'#20'M'#0'r'#6#182'm'#255#1#194'A/'#171#9#16#136#162#210
- +#226#252#139'A'#29#254#142#252#0#161'P'#168#197'`0t'#212#214#214#6'{'#203#7
- +#232#147#0'('#254#143'j'#132#250#199'Z'#243'z'#27#205#196#146'wv'#1'RB'#209#132'E'#160#165#236'?u'#151#177#223#195#184
- +#253#247'PA'#171#211#234'O'#30#3'G3'#253'@'#211'O'#4'*'#181#30'v^t'#18'L'#154
- +'s'#176#212'oU'#18#248#221'm'#240#238#147#231'K}'#25#221'b'#210#156#131'`'
- +#151'}'#206'M'#235'1'#217'b'#194#143#14#139#242'&'#0#249#1'\'#246'm'#224'm'
- ,#175'I!'#0#139'6'#240'q'#153#201'M'#163#250#182#225#223#141#184'''?'#128#191
- +#188#188'<g'#255
- +#167'$'#0#201'G'#141#237#223#27#130'~'#23#172#254#244'Ih'#216#250'=2'#248#208
- +#179#212#244'hj'#237#188#231#9'0~'#250'^C>'#214'p'#198#127#223#248'?h'#169
- +#253'I'#234#203#232#22'S'#230#30#206#204#128'tB'#136#4'P80'#18#163'\'#0#218
- +'"'#172'1'#136#171'ecJ2'#16#170#255'?V'#152#29#143#201#229#242'mx'#127'='#154
- +#233#237'}u'#9#234'MTY'#251#175#239#190#251'N'#245'['#171'q~0'#170#254'R'#198
- +#229#246'2'#2#208#26#242#160#160'|6'#18#0'7'#248'S'#171#230#186#255#202'y'
- +#239#255#232#243#2't'#15#250#130'~'#254#250'%'#168#221#240'?'#22#178#234'o'#5
- +#30'y'#246#13#150'"('#169#154#3#147#231#28#2'f'#155#244'YwR#'#26#14#194#27
- +#143#158'"y['#179#158'0}'#215#163'`'#214#194#147#211'v'#248'1'#228#14#254#249#192#9'h'#3#167's'#208'gzA+'#255'A'
- +#167#167#127#230'A'#178',8'#193'E'#148#136#0'hX('#245#5'h'#221#250#5#27#248
- +'*Z'#145#187#141'N'#20'*'#13#28'}'#233#203#25
- +';'#190#160#248'PYp'#8'5'#0#31#18#128'?D3'#2'VA$'#232'N!'#128#234'<'#251#11
- +#26'Et='#222#220#138#191#231#237'h'#2#244#26#10#236#145#0'('#4'XXX'#168'B3'
- +#192#248'K'#147#237#159#241#132'l1{@ '#128'q'#179#193'h'#202#7#147#137''''#0
- +#26#3#206#183#1#207#4#9#188#243#216#185#224#239'E'#160#199#207#216#27'v?'#248
- +#18#230')^'#245#241#19#3'N'#191'U'#170#180#176#199'!'#151#193#184#201#163#171
- +#178'n8'#128'l'#223#215#239';6g3'#0#231#238's6'#211'&3'#5'!'#29#152'"'#1#212
- ,#25#200#235#11#177'\'#0'J'#4#10#251#157')'#4'0'#222#234#248#135'N'#21'YK&'#0
- +#229#2#224#234'O'#205'A\'#212'$t'#247#221'w'#143#12#136#0'('#7' '#20#10#25
- +#127'm-x'#27#9#128'IF'''#1#204#5#163#217#10'f'#163#22#180'H'#0#212#9'H'#166
- +#200'\'#15#128#143'W,'#7'{'#227#198#30#31'''/l'#193#184'i'#208'Z'#251#243#144
- +#206'SX1'#3#150#28'u#j'#19#218#204#188#145'1'#12#10#239'>q'#1'x]'#205'R_'#198
- +#14#160#26#141#195#255#144#217#182'd'#9'^d'#217#192#208'p'#20'<^'#158#0#234
- +#215'B8`O!'#128'J'#139#227#13#189'*L'#197#18#201'\'#0#212#226#157'H'#6#221
- +#230#2#244'J'#0'j'#181'Z'#19#139#197#140#155#28'E'#175#196#226#242#165#236#1
- +#222#203'o+'#157#131'&@>'#243#1'P$@'#145't'#2'f'#134#1'V~'#240' l'#203'R'#211
- +#13#5#146#201#220#253#206#131#234#153#251#15#253'`cH'#11#214'|'#254'LN'#166#1
- +#31'p'#234'=`+'#158#148#209's'#8#233#192'q'#158#0#220'D'#0#254'0'#18#192#26
- +'4'#1'\)'#4'0'#193#230'x]'#171#140#172#3'>'#27#144#186#4#247'6-'#168'O'#2#8
- +#135#195#166'm'#29#165'OF'#227'r'#166#227#8#4'`)'#153#9'f['#17#24'y'#2#160'f'
- +' '#178#12'N'#2'j'#174'Y'#3#255'}'#237#214#140'~'#208']a+'#158#8'K'#143#187
- +'-'#235#189#238#199#176'#'#130#254#14'x'#251'og'#230#212't'#230#146#9#187#192
- +'^'#199#220#146#241#243#8'EAqf'#2'D'#192#235#14#129#151#8#160'n'#21'DB'#30
- +#238'9<'#1'L'#180#181#189#162'R'#196'6Q='#128#208#30#12'I'#192#209'S2PO'#210
- +#154#204#2'D'#152'6'#180#218#238#143#198#21#201'('#0#17#128#185#136#250#194
- +#151#128#201#164#3#131'^'#197#17'@'#134#235#0'^'#187#247'('#180#131#178#251#3
- +#144#203#149'0{'#233#25'0y'#222'aY='#239#24'v'#196#166#213#239#194#143#159'<'
- +'!'#245'e0'#208#140#132'C'#207#251'{'#210#241#156#13#196#248'T`'#143''''#8'>'
- +'$'#0'J'#5#142#133#131')'#190#145')'#249'-+'#208#26#175#1'>'#25#8#247#13'('
- +#252#164#1#248#186#235#11#208''''#1#168'T*'#243'f{'#254#31#195'1'#197#25#236
- +#5'<'#1#152#10#166#176'D '#179'Y'#139#4#160'a'#4#192'f'#1'f'#144#4#200#14#244
- +'8'#26#135'~'#160'A'#192'RP'#9'{'#31#127#27'h'#141'y'#146#156#127#12#28'>}'
- +#233#6'h'#173#251'E'#210'k'#208#155#242#225#16#18#254',u`f&@'#28'X'#243#15'J'
- +#0'r'#187#3#204#7#208'F'#169#192#209#136#152#0#18#211#11'[^'#196#191#235'I'#3
- +'P('#20#219'"'#145'H'#3#222#223'>h'#2'@5'#194'R'#227'*'#188'>'#20'S^'#200'^'
- +#192#11#184')'#127'"'#152#11#171#192'l'#210#128#209#160#3#165#138'k'#6#154
- +#201'>'#0#171'>~'#156#173#2'R'#129'Z?'#239#188#240'$'#152#177'gzK>'#135#27
- +#220#246'zh'#216#252#29#11#183#6'|.'#8#5#220#172'V_'#165#214#129'Zg'#2#173
- +#222#12'Fk)TN['#12'zsAZ'#207'MCY'#222#127'J'#186#134#160#244#190#14'9'#231'a'
- +#166#25'f'#11#156#15#144'/'#7#14'F'#160#163'#'#192#178#1#219#182#254#143'/'
- +#20#226#228'Y.KDP'#3'x'#149'R'#128#129#171#5'`'#233#192#184#136#183#187'\.ow'
- +#147#130'z%'#0#170#3#192#23'['#234#189#197#151#6'"'#202'd'#23'F"'#1#131#181
- +#10#172'%'#19#193'd'#208#130#201#172'I'#154#0#178#12#134#210'i '#194#7'OH?'
- +#158#219'd+'#133#165''''#252#31#232'-'#133'R_J'#198'A'#130']'#187#225'Kh'#218
- +#242#3'ks'#22#244#216#7'4'#135#143#134#148#26#172#197'P1u'#1#236#180#240#184
- +#180#9#206#215'o'#221#13'u'#191'~'#153#213#207#194'Z4'#30#14'<'#235'>'#188
- +#149#253'|'#17#166#1#160#249#27'@'#193'w'#185#209#4#240#5#161'}'#235#23#220
- +'c<'#1'('#229#241#224#164#188#214#127#226'M'#154#18'L'#234#255#214#190':'#3
- +#245'J'#0#227#198#141#211#6#131'Ak'#141#211'r'#182'/'#172'Nz;H'#208#245#214
- +'r'#176'P='#0#154#0'&'#147'6'#217#15' '#211'x'#253#158'c'#210'2'#201'v'#168
- +#160#228#163'Is'#15#129#185#251#159''''#245#165#164#21'm'#245#235#161'n'#195
- +'W'#208'^'#183#142#173#178#209'4'#142'B'#167#207#172#160'b'''#152#179#247#153
- +#144'W:y'#200#199#219#188#250'='#248#241#227'''3>'#168#149#186'/O'#158#127'8'
- +#204#217#231#172#140#158#167'W$'#184#17'a'#1#180#253']'#164#1'x}`'#223#254#13
- +#255#16''''#207'*E'#204';)'#175#157#6'%'#146#218#207'4'#0#154#24'L#'#195#245
- +'z'#189#167#191#4#192#10#129#208'VPVVVjc'#177#152'e'#187#211'|'#162'7'#172
- +#185'+'#249#4'j'#9'f*'#5'['#201'4\'#253#181','#23'@'#165'Qr'#149#128#221#229
- +'j'#164#145#23#254#243#236#149',3,W@'#17#130'='#127'w5'#148'T'#15#207#190#252
- +'q$'#211#205'?~'#0'5'#235'>'#135#142#182#154'n'#11#174'2'#129#252#178#169#176
- +#232#152#27#217'H'#173'!]?'#10#255#143#31'?'#1'['#127#250#152#13'2M+'#240'w^'
- +'>y'#15#216#253#176'+'#178#155#23#210#141#12'%d'#192'f'#3#4#252'!'#232'p'#5
- +#192#235'q'#131#163'ne'#138#3'P'#163#140'vT'#219#236'4'#187#190#129#132#159
- +'6'#165'RY'#135'2'#220'6h'#2#136'D"'#214#6#183#249'w'#238#144#238'!'#241#147
- +#180#166'b'#176#149#206'`y'#0'&'#139#142'M'#7'b'#29#129'2'#252#217#172#251
- +#250#31#240#243#127'_'#200#222#151#209'O'#20#148'O'#135'%'#199#222'<,B'#134
- +'^\'#217'7'#174#252#23#218#241#223#131#223#211'.Y'#145#13#249'T'#166#237'~$'
- +#139#178#12#29'qX'#243#201'3Hd'#255'e'#205'C'#134#2#133#146#146#202#166#163
- +#224'_'#206#18'}r'#1'T'#13#24#141#198'P'#245#15#129#219#229#7#175#219#1#206
- +#134#31'S'#8'@'#167#140#216#171#172#246#143#128#215#0#168'"'#16#247#140#0#240
- +#182#183#187#138#192'~'#17'@'#179#199#184#175'3hxZ'#252'$'#141#161#0#242#198
- +#237#12'F'#163#14#205#0#29'k'#14#154#169'^'#0'b'#208'D'#222'7'#239#203#205
- ,#194#16#25#170#138';-8'#22'v^'#156#190#198#144#233'BG{'#29#252#244#233#211
- +#208#142'*~$'#228#151#250'rR`-'#154#0#251#159'y'#127#218'j1(g`'#195'7'#175'C'
- +#253#198#175#193#215'A'#3#173#251'&8r`'#22'V'#238#12'Sw;'#2#138#170'fI'#253
- +#145#236#0'z'#7#17'j'#7#230#9#162#9#224#199#247#213#14#206#198#212#238#200'z'
- +'U'#184#165#210#226#248#12':}'#0#228#4#172#29#18#1#144#9#208#234#209#237#209
- +#230'7'#254'#'#229#3#211'Z!'#191'b'#14#24'P'#253#183#152#245#172''''#0'u'#4
- +#202'F3'#208#127#221'w'#18#251#146's'#21'Z'#163#13#22#163'z'#155'?n'#154#212
- +#151#2#174#214#26#248#238#223#247#129#179')w'#204#166#238'@'#159#217'!'#231
- +#254#13#212#250#244#14':!'#19#193#217#188#21':Z'#183#129#27'I'#208#227'jfu"F'
- +'['#25'X'#11'+Y'#178#151#165#184':'#183#11#193'X'#166#31#215#11#192#235#13
- +#176'('#128#199#209#12#238#150'u)O3'#170'C'#141#21#22#215#127#249'N@d'#2'l'
- +#29#148#9'@'#155#216#9#232#244#171'f6z'#172')'#241'7'#133'J'#7#5'U'#187#131
- +#193#160#1'3'#154#0':'#150#11' '#239#182#31'X'#186')'#225#203#127#222#153'u'
- +#15#240'`0e'#215#195'a'#222#129#210#12#177#8#251#221#240#217#203'7'#131#163
- +'i'#147#212#31'C'#191'A'#5'Y'#135#156#255'(k'#135'>'#154#209#157#190'B'#9'pa'
- +'>'#9#168#3'M'#0'w'#251'v'#240#218'S'#167'#Y'#180#193#154'2S'#7'y'#6#27#248
- +'$ F'#0#209'ht@N@BJ'#24'P'#169'R'#149'nh-'#250#2'_'#165'I>'#3#5#189'p'#194'"'
- +'$'#0#29'X'#172'z'#208#27'5'#172'5x'#159'y'#0'i`'#131#230'mk'#224#211#23#174
- +#207#202#151'1T'#152#11'*'#224#128#179#238#205#170'o`'#235#154#255#192#202'w'
- +#31#206#154'C/'#157#160'<'#130#163#174'x!mSv'#135#5#250#180'P'#184#28#128'`0'
- +#2#30'w'#0#220#168#1#184'Z6@'#160'#5)'#174#208#224']W'#160#247#253'D'#137'@d'
- +#2#240#142#192#186'A'#135#1#137#0#240#133#164#147#21'ov'#20#191#30'K'#200''''
- +'$'#159#129#4#144'W1'#15'L'#22#27'j'#0#6'V'#19#160#226'C'#129']'#223'O&'#140
- +#130'W'#238'8l@'#241'h)A'#177#240#189'N'#184'%+'#145#130'O'#158'_'#14'-5'#185
- +'99'#167#191#176#20#141#135'C'#207#127'T'#234#203#144#4'='#5#209'('#2#16#12
- +#132'Q'#248#253#168#5#4#192'Q'#207#149#2#139'Qnv'#174'D3`'#19'%'#255#8#26#128
- +#144#8#132#154#128'o'#192#4' '#164#2#227#193#138#183'8'#10#30#12#199#20#139
- +#196#151'E]'#129','#249'e`'#178#234#192'd'#212#129'ZC~'#128#236#204#5'x'#239
- +#209#11#192#217#178'-+'#231'J'#23#166#237'q$'#204';(}'#195'#S'#128'6'#226'{'
- +#127#191'h'#216'}&=a'#194#236'}a'#193#145#185'7'#1'X'#10'P'#18#16'E'#0'('#4
- +#200#17'@'#16#218#183'}'#3#177'h0'#229'y'#19#243#218'>U+'#226#164#254#215#163
- +#224'3'' j'#2#245#129'@'#192#142'f'#128'w'#208#181#0#248'wQ'#141#211'v'#173
- +'?'#162'Jq'#191#27#242#171#217#20#27#179'Y'#159#12#5#210'x'#176#158'k'#12#211
- +#247#161#172#253#244'yX'#251#249#138#236#127#27'C'#196'n'#135']'#12'Sv;<'#189
- +#7'E'#251#240#237#135#207'cN'#174#145#3#25#28'~'#201'c`)'#172#146#250'B'#178
- +#131'^'#204#0'j'#6#18#165'n'#192'>'#206#254#247'z'#252#208#182#245#139#148#16
- +#160'\'#150#136'N'#201'o'#249#8#5#159#194#30'uB'#30#0'nD'#8#246#129#214#2'$'
- +#203#129#241#128'fd'#143#194'F'#143#229#20'wH'#151'B'#201'ZS'#9#228#143#155#1
- +'&'#179#14#204'V=h'#132#178#224',('#1'>W'#11#188'q'#239#169#153'?Q'#154'AYeG'
- +']'#189#2't'#166#244#21#21#189#247#247'K'#192#222#176'q'#232#7#202'1'#152#242
- +#199#193#17#151'?#'#245'eH'#10'a&'#0#245#1#240'y'#3','#7#192#237'p'#160#9#240
- +'Cj'#18#144'"'#234#169#206#179#127#129#247#181#161#204#210'J'#192'f'#3#12#182
- +#28'8'#165#31#0#218#15#133#142#128'ai'#139#215#248#160#248'Ij'#141#5#10#198
- +#207#3'#O'#0','#18#160'R'#176#142'A'#137','#12#7'}'#233#214'Cr"-x'#160'`?'
- +#236'+'#158'K'#203#177'H'#19#250#9#183#145#138'='#143#184#10'&'#205#31#157
- +#163#208'9$ '#30#163#8#0#239#0't'#250#193#213#214#0#238#214#245')'#4#128#182
- +#127'K'#133#197#245#3#222'l%'#199#31#240#229#192#168#193#147#167'pp'#13'A'
- +#168'%'#152#223#239'7!'#131#20'D'#19#170#201'['#157#133'o'#136'_'#163'P*'#161
- +#176'z1K'#6#162'H'#128#206#168'ERP'#246'/'#23' '#13#252#240#206#131#231#177
- +#24#239'p'#196#188#131#207#131#25#139#143#27#210'1'#236#13#191#193'{'#127#187
- +'(g{'#229#165#3'r'#133#18#142#185#246#21#208#26#173'R_J'#250#209#143#175#141
- +'u'#2'B'#251#159#28#128#140#0'P'#3'p6o'#1#175'c[J'#6'g'#158#206#191#173#200
- +#224#166#196#128'VJ'#254#17'z'#2#146#6'0'#232#150'`BO@T'#31#10#240'GV'#190
- +#201'Q'#242'J}'#246'F)'#191#167'A'#129'j'#227#207#184
- +#251#179'A'#189'6'#28#244#195#138#27'G'#167'c'#172#176'r''8'#248#194#7'Xr'
- +#213#136'@'#143#250'?O'#0#188#253'O+'#191#199#229'C'#18'p'#130#189'v%'#211#12
- +#4'('#229#177#224#228#252#246#175#240#249#2#1#212#0#231#4#164#209'`-h'#198
- +#187#131#136#1'M'#6#18#15#7#141'F'#163'6'#180'%J'#28'~'#221#190'->'#243#29
- +#226''''#170#212'z('#172#222#19#140'&'#29#152'mD'#0'\B'#144#208'&<'#27'j'#192
- +#11#215#31#8#145'P'#250#26'Wd'#3#244#3'>'#253#174#143#7#245#218'_'#254#251'*'
- +#172'|{'#244#14'DUi'#13#176#223#153#127'd~'#148#145#138#4'_'#0'D'#241#255#160
- +'?'#4#30#180#255#189#184'9[j'#192#221#250'['#138#227#215#160#14#219'+'#204
- +#142#213'('#252#14#138#251#211'<'#0'>'#19#144'*'#1'['#7'3'#28#148' G'#155#129
- +'U'#4#250'|>'#139'F'#163')'#142#199'a'#194'F{'#225#243#137#132','#217#29#129
- +#170#168#24#1'X,'#204#15'`'#160#210'`'#230#7'P$'#29#129';'#156'-'#205'N'#235
- +'_'#191'z'#19#190#249#231'_%'#249#162#6#11's'#193'88'#230#250#193#141#147#254
- +#247#131#23'@k'#141#180#141'1s'#1'TA8m'#193#239'a'#206#1#167'g'#181'G_Z'#209
- +#131#134'L+<'#133#255#200#254#15#160#253'/'#16'@{'#221'Z'#8#186'[S'#8#160#208
- +#224#221'R'#160#247'Q'#185'g;'#17'@'#127#235#0#196#167#239#14';d'#3#226'V'
- +#185#197#158#255#167'PL1#'#249'$'#20'rK'#241'N`-'#174#0#147'U'#143#4'`'#0#173
- +'A'#13'*%'#154#1#138#204#205#10#236#138'Wn;'#10'|'#206#214#236#156','#13#152
- +'0go'#216#231#140#255#27#212'k'#159'_~'#0'D'#130#185'U'#211'/%'#168#15'C'#233
- +#164']'#160'z'#151'}'#161'j'#230#226'a'#31'2dFz'#156'S'#255'#A'#222#254#167
- +#30#0#184'o'#222#252#5#196'#'#225#20#2#24'o'#181#175#210#169#162'-x'#179#29#6
- +#144#5#200'>'#187#222'>W'#241't d'#146'B4'#5'*'#154#188#182#179#221'!'#237
- +#209#201'''Q'#131'PK)'#228'W'#206'dQ'#0#163#197#0':'#147#150#21#6#201#149#217
- +#233#15'@h'#217#250#19#252#251#129#225#227'%^t'#194'r'#152#186#231#224'R'#130
- +#159#185'b'#201#176')'#132#146#2#148';'#160'3'#231#225#162'4'#30'J'#170'g'
- +#195#196'y'#251#131#9'5'#174'a'#131#4'7'#9#184#211#254#199#213#159'e'#0#182
- +#131#189#230#7'6"L'#144'c'#133'<'#30#153#146#223#246'5'#10#186#7'e'#141'V@'
- +#178#251#5#2'h'#196#197#219#217'S'#18#16#161'W'#2#16'&'#4#163#253'o'#212#233
- +'t'#249#241'x'#188#188'#'#168']'#220#232#177#220#156'|'#18#10#184'R'#163#131
- +#226#137#11#153#31#192'h3'#128#158#18#130#180#252#184#176#12'N'#12#238#138
- +#183#239#251#3#180'n'#27#218'l'#192'l'#225#212'?'#127#0#154'A6'#191'x'#242
- +#210#133#144'v;j'#132#131'HAo)'#128#252#242')P>mw'#152#186#224#240#156'4'#27
- +#216#234#159#224#212#255'('#170#255'd'#255#147#240'3'#251#191'y+'#218#255#155
- +'Xn'#128#0#163':'#212'^aq'#145'='#216#129#178#216#140#143#17#1#176#8#0'.'#220
- +#212';'#189#199#193#160#132'>'#9'@'#28#10#196#251#202#240#160#213#155#28'%'
- +#143#196#19'2'#29'{'#18'k'#5'.'#135#194#9'{'#128#201'f'#227#205#0#174'.@AZ'#0
- +#171#14#236'>)'#168#219#147#14#225#195#11#184#29#240#210#141#135#231'|^@~'
- +#197'T8r'#217#179#131'z-E'#0#158#191'f_'#169#223#194#176#135'J'#171#135#165
- +#167#222#2'U'#179#150'd'#252'\'#253#253#221#211#243'h'#177#140#199'x'#245'?'
- +#20#129#128'7'#136#194#239#227#226#255#219#127#132#128#167'-%'#2'Pd'#240'l'
- +#201#211#249#182#163#28#186#144'8'#154#132'$ '#218#227#202#223'b0'#24'X'#8'p'
- +#221#186'u'#20'7'#140'ww'#222#30#175#137'"'#1#223'}'#247#157'*'#16#8#232#208
- +#20#176#161#9'P'#138'D0~'#155'3'#255#250'`T9C8'#4#249#1#172#165#211'Q'#229
- +#170#2#163'@'#0'z'#13#168#132'h@'#182'T'#0#196#202#127'='#12'k?z1k'#231#27'('
- +#232#179'8'#254#246'7'#192#152'W:'#168#215#7#189'Nx'#241#218#209#25#2#204#4
- +#138#170'g'#194#129#23#220';hm,'#221'`'#222#127'Z'#253#163'Q'#8#163#250'O'
- +#246#191#151'%'#0#249#161#5#237#255'h'#23#251#191#218#214#190'J'#173#136'R'
- +#248#207#129#127'6R'#8#144#239#7'H'#154'@k$'#18'q{<'#158'Pw!@B'#175#4'@'#155
- +#16#9#160#230#160#212#23#0#239#171'j'#246'ZNv'#5'uG'#8'O$'#2#208'['#202' '
- +#175'b&'#18#0#154#1'f'#3'W'#23'@'#141'B'#217#200'0'#25'd'#205#14'@'#188#255
- +#224'%'#208#176'ae'#214#206'7'#16'L'#156#191'?'#236'}'#214#29'C:'#198#147#23
- +#238'.'#245#219#24'Q '#243'`'#223's'#239#204#138'6'#208#27'HB'#168#244'7'#30
- +'E'#2#8#161#250#31#8#129#223#205#169#255'n{+'#180'o_'#197'Z'#131'u'#14#2#137
- +#133'&'#229#181'}'#143#194#239#195'?'#237'|'#8#144#217#255#168#181#215#247
- +#214#12'T|'#206'^?'#27#161'3'#144'^'#175'7'#1#31#9#240#132#212'{'#214'uX'#151
- +''''#15'"''?'#128#22#138'''.b'#171'?e'#4#234'L|8'#144#175#13'`'#166'B'#22'?'
- ,#204'Wo>'#10#220'm'#245'Y'#3'p;'#202#27#253#221#209'S'#17#144#128'~'#17#0#213#4'x<'#30
- +#180#2#244'Vr'#4'"'#17'T5{'#244'G8'#2#198'dA;'#9#184'Zg'#132#162#137'{2'#2' '
- +#13'@'#199#178#2'5'#172'6@'#208#2#178#146#27',B'#243#230'5'#240#254'}'#23'B4'
- +#18#202#234'y'#197#216#237#168'K`'#246'Ag'#164#237'x/\'#181#31#174#6'C'#155
- +'~3'#134#238'A'#157#154'N'#185#247#163#172#159#151#171#252#227#212#255'p0'#12
- +'Ao'#144#9'?'#173#254'T'#244#229'j'#222#200#156#131#130#253#175'VD'#253#19
- +#243#236'?'#226#223#148#17#230'@'#18'`'#14'@'#222#254#167#134' }:'#0#9#253
- +#145'F9'#146#128#18'I'#128#210#127#205'h'#10#20'#'#9'T'#198#19#138')'#155#157
- +#133#183''''#18'2V'#149'A'#194'M'#13'B'#10'*'#231#161#25'P'#8#6#19#18#0#211#2
- +#136#0'T'#160#16'*'#4'3gK'#198#223#195'h'#197#180'%G'#193#226#211'o'#202#206
- +#201#184#170#31#142#0#248#216#127#208#23'd'#130#207#212#127#167#19#9#224';'
- +#212#12'"b'#251'?1)'#191'}'#21#170#255#228#8'"'#251#159#26#129#214'R'#248#15
- +#23'h'#234#1#208#136#194#239#232#203#254''''#244'G'#10#153'#'#16#15#166'"?'#0
- +#10'p>'#158#168#140#252#0#206#128'vi'#179#215#194#21'h'#147'#PFf'#128#14#205
- +#128#5#140#0'H'#3#224#162#1#252#244'`j'#24'*'#151'u'#27#17#200#240'P'#225'$'
- +#26#127']'#9#31'>|%D'#130#190'L|'#157'L'#203#153#186#232#8'Xr'#234#13'd'#23
- +'e'#228#28'O'#253'a7'#246#131#24'Cf`*('#131#19#239'zw'#200#199#233#235'7-<'
- +#206#21#254#196#208'LE'#2' '#231#31#18'@'#160#131'['#253#157'M'#155#192'M'
- +#222#255'h4'#169#254#235'U'#225#142'J'#139'c'#29#202'Q'#0#239's'#1#215#4#164
- +'V'#176#255'qk'#17#154#128#160#240'G'#249'S'#13#158#0#186#250#1#144'eJ'#240
- +'~'#234#215'\'#189#201'Q'#180'<'#22#151'S'#136#144#17#0'e'#255#217#202'g'#130
- +#185#176#140'#'#1'3o'#6'h'#133#204#192#206'nA;'#148'Bw'#185#154'L'#182#186
- +#219#248#191'7'#224#199'w'#159#2'O['#250'Zj'#149'M'#155#15#251'^xOF'#139'Q'
- +#234#214'~'#9#31#220'?z:'#1'I'#1'J_?'#231#137#31#134'D'#224#221')'#184']'#127
- +#207','#251'/'#193'y'#254#185#213'?'#138#230'j'#136'y'#255'I'#253#15'P'#243
- +#143'-'#223'@'#200#239'I'#137#255#151#24#221'[l'#186#0#165#249#250#241'>'#150
- +#0'$'#148#0#227#177#234'PKo'#235#143#253'/\C'#127#192#252#0#168#5'h'#220'n'
- +#183#5#217#165#8'OXIf@'#131#219'r'#130';'#164#221#141#29#140#198#131'+'#20
- +#172'8('#175'j&o'#6#232#144#0't'#160#210#169#147'Z'#128#16#17#200#5'8'#27#182
- +#194#183'/'#255#5#26'~]'#201#134'F'#14#4'T'#133'f-'#29#15#19#230#239#15';'
- +#239#127'2h'#12#153#207'&{'#239#238'?@'#195#250'o'#165#250#184'F'#13#246#189
- +#240'n'#168#222#245#128#140#158'#!'#168#255#148#249#23#137'B4'#200#169#255'd'
- +#255#7#220'T'#252#211#10#142#237#171'!'#134#143#197#249#231#202'e'#137#216
- +#228#252#182#213'2'#136#7#248#248'?9'#131'X'#252#31#229#170#6'o7'#160#156#182
- +'['#173'V__'#246'?'#161#223#4#128'f'#128'\'#156#15#128#251'rd'#155#9#193#152
- +'v'#238'v'#151#237'\v02'#3'P'#184#149#26'5'#20#146#25'`6'#161#9#192#145#128
- +'Z'#199#229#4#144'/@&'#242#5#236#176#234#15#225'"'#135#2'R'#177#234'~'#254#10
- +#26#214'}'#11'm'#219#214'1'#205#128'&'#203#138#175#130'VvKq'#5's'#16#149'M'
- +#159#15'e;e?#'#239#233'sw'#131'hX'#186#136#198'hA'#213'.K'#225#192#203#31#24
- +#212'k'#251'j'#132#155'L'#250#137'sC?c'#164#254#211#234#31#8'A'#136#188#255
- ,'l'#245'G'#245#191'a=x'#237#245')'#225'?'#179'&'#216'^fr'#209#196'W'#26#11
- +#228#22'*'#0#137#0#132#30#128#129'@'#192#137#230'z'#159#246#127'w'#215#214
- +#227#243#132'|'#0#178#1#168'0('#26#141#150'Q8'#16#31#155#176#197#145#127'a8'
- +#166','#226#252#0'\4'#192'R6'#13#204'EU,$H~'#0#202#9' -@'#201#198#135')'#144
- +#4#184#196#160#28'Q'#4#134#5'>z'#248'*'#216#246'}'#246'CT'#163#17#182#242'Ip'
- +#236#31#223#200#216#241')'#233''''#17#3'V'#214'M+'#249'C'#250#15#156#224#226#254'@'#158#255'8'#231#249#143#6#195','#243
- +#143#169#255#168#250#19#9#216'kV'#163#25'`gY'#172#130#250'o'#211#249#27'K'
- +#140#30'R'#247#131'|'#250'/'#27#3'F'#241#127'R'#255#169#1#8#154#19#142#190
- +#242#255#197#24#136#228'%'#195#129'V'#171#213#24#12#6#169'Sp'#25#17#0#238#171
- +'j'#156'yg'#4#162#170'*'#193#12#160#162#10#163#173#4'l'#21#179#144#0#180'<'#9
- +'hy_'#128#154'9'#3#169'T'#24'dBX'#176#135#14#194#144'$'#205'~^e'#250#191'3)A'
- +'~'#136#215#151#31#1#174#198#209#212#2'\zP'#133#224'9'#207#241'c'#214#135#26
- +#141#226#139#253#19#252#129#216#234#207'l'#127#170#250#139#176#208#31'9'#255
- +'H'#240#131'H'#0'>G'#27'8jWC$'#28'I'#241#254'O'#176#182#175#213#170'b'#30'R'
- +#255#241'O'#23'5'#0#1#222#254''''#239'?'#223#16#164#163#183#6' '#221']Z'#191
- +#223#134#16#14#164#254#0#248#183#21'U'#13#150#21'H='#2':'#130#186#5#141#30'3'
- +'+'#17'f'#177'~'#185#2'Tj5'#20'T'#239#10'z'#139#141'E'#2#136#0'4d'#10#176'f!'
- +'*'#166#5'0_'#128#140#159'(<'#194#132'w'#168#160#130#159#215#151#253#14#127
- +#16'cI?'#217#134'B'#165#129#179#158']'#157#222#131#242#131'>'#133#142'?'#204
- +#246'G'#2#8'3'#225#231#9#0#247#142#186#159#192#239'la'#142'iA'#253#215#169'"'
- +#238#241'V'#199#175#188#250'O'#9'@'#164#254#179#240#31'%'#255#144#250'O'#225
- +'?\'#160'='#253#9#255#9#24#16#1#208'&'#152#1#8#19#153#1#148#21'H'#4#128#143
- +'Umu'#22#156#25#142')'#11#133'.A'#20#247'7'#228#149#129'm'#220#206'I-@C$@CDY'
- +#179#16'!/'#128'F'#137'e?E8'#151'AQ'#136'7'#174';r'#172#234'O"'#168'tF8'#227
- +#201#244#246#148#16#135#253'('#238'O'#158#255'H'#16'U'#127'"'#0#15'n>'#170
- +#254#179#163#250#191#10#205#189'0'#243#15#8#234#127#185#217#185#193#168#14
- +#145#211#143#169#255#192#13#1#173#23#17'@'#147#160#254#163'lF'#250#10#255#9
- +#24#168#196'13'#160#176#176'PE#'#195#168':'#144#6#134#224#133'T'#145')'#224
- +#10#234#23'4{'#205#7#2#175#210'S'#21' '#211#2#198#239#14':'#139#5'4F'#29's'
- +#10#170#13'|'#207'@'#181#138'=G!'#231'g'#9#202#248'K'#234'O'#154#224'`'#223
- +#193'0@'#235#166#159#224#223#183#159'6,'''#31#143#20'h'#205'yp'#234'c_u'#255
- +'`_b'#213#205#239#151#21#251#240#163#190'H'#176#227#201#213#191#211#249'G'
- +#171#191#179#254'g\'#253#155'8'#231#31#175#254'k'#149#17#239'x'#171'}='#10'{'
- +#132#138#127#200#251'O'#237#191#240#200#181'|'#2#16#169#255#164'&v'#168'T'
- +#170'`w3'#0#251'{'#169'}>_0'#3'('#26#128#127'['#168'K'#16#158#188#130#8#0#168
- +'m'#184#179#240#244'HLa'#21'j'#3#148#168#234#27#243#202#193':n:'#168'Q'#11
- +#160#193'!D'#4'j'#22#18'$'#18'P'#240'aA9?V|'#16'W5'#130#176#229#235#247#224
- +#243'G'#174'a'#182#223#24#164#3#133#1#143#190#251#157#244#28#140#15#252'S.'
- +#127'"'#202#175#254'h'#223'G'#130'a^'#253#15#176#172#191'@'#135#19'W'#255#239
- +#185#213'?'#130'$'#193'1'#7#140'3w'#252'f'#214#4')'#244#23'F'#185#242#240#201
- +'?'#228#253#167#240'_'#13#202'"'#205#4'l'#31#136#247'_'#192'`D-'#165'8'#8#184
- +#193#161#204#25'H'#154#128'#`X'#208#234'3-'#21'F'#131#145'3P'#169#209'@'#225
- +#132#221'@k'#178'0'#19#128#242#2'Th'#6#8'Z'#0#171#20'Lv'#16#150'%'#157'&'#253
- +'m$:R'#176#254'?+'#224#235'g'#239#200'l'#14#244#24#250#133#233#251#159#8#11
- +#207#186'eP'#175'M'#249#221#242'!?'#230#253#143'q'#5'?'#156#237#31#134#8#31
- +#250#163#212'_'#218';'#27#214#129#223#209#8#209'H$'#25#251#215'('#162#254#9
- +#182'v'#234#250'K1}'#10#3'Q'#247#223#22'~'#213#175#193#191'k)'#249#167#175
- +#246#223#189']'#235#128#223#159#208'-'#24'm'#13'='#178#143#141#204#0#188#191
- +#146'i'#1'2Y'#229#22'{'#193'I'#145#184#194#196'r'#2#228#10'P'#170#149'`'#200
- +#175#2'k'#233'T\'#253#181'H'#2#168#5#232#185#196' V)H'#179#4'),'#168#232#140
- +#10#176#19#245#148'" zk'#178#228'?'#195#27#171'^{'#8'V'#191#254#176#212#151
- +'1'#6#30#135#223#186#2'J'#166#207#239#246#177#148#223'_/'#191#189#4#223#232
- ,'#E'#245#167#213'?'#24'a5'#255#17'?'#231#252#11#177#216#127#7#180'o['#9'Q$'#6
- +'z'#14#181#6#163#215#149#153':'#182'X'#180'A'#154#248#19#225'{'#255#145'&@+>'
- +#9'>'#133#255#234'q'#223#170#211#233#220'='#13#0#237#13#131'"'#0'J'#10'B'#150
- +'a'#205'B'#3#129#128#153'J'#132'c'#177'X'#5'e'#6'rZ'#128#17#181#0#227#158#130
- +'3'#144'T|'#138#255#231'O'#216#3'W'#127#19'G'#2#212'4T'#207#151#10#147'CP'
- +#221#233#16#148#241#166#128'l'#7#233#30#204#202#152#251#236#240#213#147#183
- +#192#175#31#189','#245'e'#140#129#7#253#6#207'~'#249#215#129#190'Jt;'#145#12
- +']'''#189#254'd'#207'Gx'#199#31#173#254#254'P'#210#251'O{W'#227#175#224'u'
- +#212#177'~'#0#148#31'@i'#194'jE4Pmk'#251#5#229'!'#138#199#160#252'o'#15'nT'
- +#250'['#207''''#255'lG'#217'#2p'#244#167#246#191#175#171#30#208#187'%g'#160
- +#201'dR'#163#218'a'#196#191'Yj0'#229#3#224#237'*|'#175#228#11'8>'#154'P'#232
- +#153'3'#16'Ww'#188'P0'#20#146#22'0'#133'9'#1'Y8'#144'6=_)H)'#194'h'#6'P'#18
- +#145'L('#22#202#206'lQIa'#175#217#0'o.'#251#157#212#151'1'#6#17'J'#166#205
- +#135#195'n'#127'iH'#199#232'n'#245#143#161#240#179#184#127'0'#196'9'#255'|A'
- +#206#1#232'qC{'#205'w'#168#25#132'x'#207'?'#183#250#151#24#221#219#172'Z'#127
- +#155#200#249#151','#253'%'#225'GY'#169'C'#185'k'#182'Z'#173'.'#148#195#192'@'
- +#156#127#2#6'M'#0#130'3'#16#153'G'#231'r'#185#200#233'W'#140#23'T'#1'\'#153
- +'pe'#155#207#184#208#30'0'#206'Kj'#1'H'#2'*'#141#22#242'(='#216'bE'#2#208'$'
- +#137#128#180#3#133'P($T'#11#138#251#6#140'`'#22'x'#251#250'c'#161'u'#211#26
- +#169'/c'#12'"'#28'q'#215#155'PP'#189#243#160'_'#207#249#252'D'#141'>H'#168'#'
- +#188#227'/'#192#173#254'L'#248'}AF'#4#174'z'#180#253#157'h'#251'S'#211#15'z.'
- +#190'T%'#139#134'&'#230#183#255','#227'l'#255#16#18#0#139#253#163'l4'#144#240
- +#227'mr'#0#178#206'?]b'#255#253'V'#255#9#131'&'#0#232#146#19#128#23'H'#163
- +#195'h'#0'[%nU1'#210#2#28#133#199#198'P'#180#217#160'p'#210#2'P'#192'u'#150
- +'"'#176'U'#204'fu'#1'I'#2'`'#14'A$'#1'V.'#204#153#2#192'L'#7#254#242'Fh'#170
- +#176#223#217#10'/'#159#183'p'#204#233#151'C0'#20#148#194#9#127#255'b'#208#175
- +#151#241#169#190#204#8#136'w'#198#252#185#130#31'A'#245#199#205#31'`'#197'?'
- +#1#23'e'#253#173#225'<'#255#209#206#213#191#216#232#169#177'i}'#173#252#234
- +'O'#153#127#212#5#150'B}'#245'T'#246'KN@Z'#253#145#0#156'~D'#127'S'#127'w'
- +#184#222'!|V'#201#10'A'#179#217#172'#g '#222#199'B'#130#184#175#162'=j'#1#11
- +#218#253#134#185#204#169'Ge'#194'D'#2'j'#13'X'#199#205#0'}~)S'#255#213#6#29
- +#211#6'Tz'#13#31#22#228'{'#6'$'#253#1#248#142'd'#217'm)'#158'-|'#244#231's'
- +#161#246#135'O'#165#190#140'1'#136'p'#240#205#207'C'#217#172#133#131'|5'#159
- +#236#203#219#253'B'#177'O'#156#217#254#188#234'O'#4#224#193#149'?'#192#217
- +#254#142#237'?@'#200#211#193'&'#1'1'#2#192#255'T'#242'hp'#162#205#142#182#127
- +'"'#202#135#254#216#234'/'#196#254#129#235#250'['#143'2'#215'N'#206'?'#170
- +#252#235#173#243'oo'#24#18#1#144'3p'#221#186'u'#172'QH '#16'0'#161#6'P'#128
- +#23'Im'#195#153#22#128'W2n'#155#179#224#247#225#184#202'"h'#1#148#2#172#209
- +#27#208#20#216#13#212#148#19' '#242#5'(u'#184'Qr'#16#159#27' h'#2'2'#161#157
- +'xOq'#193#158#222'E'#142'/'#172#207#158#176#19#174#12'c'#181#253#185#130#202
- +#249#251#192#254#215'='#193#253'1'#136#223#148'X'#248'i'#229#135'8'#151#238
- +'K'#142'='#177#227'/B'#234'?'#222#246#180#214#128#167'e'#243#14#171#127#185
- +#197#181#209#168#10'R'#184#143#250#190#177#208#31'n'#173'(_'#245'|'#209#15'%'
- +#0'5S'#230#31'j'#224#254#193'8'#255#4#12'uYMf'#6':'#28#14#189'R'#169#180#225
- +'E'#22#227'F'#137'AL'#11#240#133'5'#211#235#220#182'}'#4'-@'#193#180#0'5'#24
- +#11''''#128#185'x"'#175#5'p$'#192#180#0#161'u'#24#223'>'#172#147#4#248#203#29
- +'A'#138#192'sD'#0'c'#21'~9'#1#26#22'z'#242#243#171'Q'#251'T'#15#238#0#188#25
- +#215#185#242#243#170#127#152's'#252#145#131#143#179#253#3#16#246'"'#17'x=,'
- +#233''''#18#12'B'#140#250#253'E'#185#196#31#20'|G'#133#197#181#5#15#21#19'V'
- +#127#161#237#23#169#253#192#245#252'k'#224#203'~'#221'}'#245#253#239#11'C&'#0
- +'A'#11#160#182#225#168#9#144'/'#160#0#137#128#249#2#144#8'H'#19'(k'#240#216
- +#246#246#132#181#149'r'#150#29#168'`5'#0#10#10#11'V'#206#3#141#201#10#26'#g'
- +#10#168#146#17#1'5'#243#7#176'b!'#218#152'#'#145'+'#27#30'I'#166#192#138#211
- +'v'#129#144#215'%'#245'e'#140'zP'#225#218#161'w'#188#10'E'#211#230#13#234#245
- +#9#174#212#143#247#250#199#217'l'#191#4#223#230'+'#30#140'$W'#127#138#251'3'
- +#199#31#222'v5'#252#2'AWK'#202#234'/C'#218#168'F'#213'_)'#143#134'zZ'#253#5
- +#207'?n'#142#254#182#253#234#245#189#167#227#243#19#215#7'h4'#26#214'4'#148
- +'O'#15#166#188#128#242'h\^'#177#213'Yxp'#2#215'uA'#11'P'#168#212#160#181#20
- +#176'ra'#181#174'S'#3'P'#11'Z'#0#229#6#8'Q'#1#190#155'0'#136#202#134'G'#130
- +'_'#240#213's'#22#130#175#189'Q'#234#203#24#213#160#197'e'#191#27#158#132#10
- +'T'#255#7#140#132'x'#166#31#231#244'#Afv?'#173#252#225#8'K'#250#137#6'B'#172
- +#221'W'#132#247#250'S'#165#159#139#154'}'#160#240#211' '#16'a'#245'/'#212'{'
- +#234#10#244'>'#10#243'u]'#253'i'#236'7'#181#253#222#142#130#223'@U'#127'H'#8
- +#238#129#230#253'w'#251#254#211#241#25'v'#213#2#240#194#10#132#136#128#160#5
- ,'8'#2#198'9'#173'~'#211'l'#210#2'@'#161'`'#14'A'#5#154#2#150#178#157'@'#159
- +'W'#202#146#130#152#240#147#22#160#227'H'#128#181#15'S'#241#237#196'EY'#130
- +'2y'#186'.]Z'#252#235#210#3#193'Y'#187'Q'#234#203#24#189#192#223#210#146#203
- +#255#10#19#247#26#194#236#6#22#231#7#214#224#143#229#250#243'N'#191'X'#132#19
- +#254#8#175#250'G|'#156#6#16#246#243#142'?'#159#155#21#4#9'q'#127#149'<'#26
- +#168#206'k_'#143#199#139#241#171'?y'#254'Y'#213#31#173#254#184#175'U('#20#181
- +#180#250'k'#181'Z'#7#146#192#144'W'#127#246#17#164#235#163#236'N'#11' _'#0'p'
- +#17#1#26'$R'#180#213#153#191#127'8'#166#178#10#217#129'$'#220'j'#189#145#229
- +#6#168#13'z.)'#136'O'#17'V'#178#220#0#222#20'`'#141'D'#249#14'Bra'#196#24'$'
- +#213#128#225'J'#5#31#222'r24'#174#249'R'#234#203#24#149' '#13't'#191#27#159
- +#134#178'9'#139#7#252'Za'#213#231#179'}x'#187#159#19'~Z'#209'i'#245#143#133
- +'"'#201#176#31#229#252'GI'#248'q'#239'i'#217#10#222#214'm'#140' '#152#237'O9'
- +#255#248'_'#165#217#177#193#160#14'S'#166#31#9'4y'#134#133#145#223'Md'#251
- +#147#240#163'L'#213#167's'#245''''#164#141#0#186#243#5#0'7H'#180#146#15#13
- +#150#249'#'#234#9#181#238#252'%l'#29'Wt'#154#2#134#252'r0'#151'N'#229'j'#3
- +#152#6' r'#8'R'#247' '#149#146'+'#24#18#154#137#178','#193#225#239#24'l\'#243
- +#5#252#231#230#147#165#190#140'Q'#7'CA'#25#28'~'#223#187'h'#130#230#15#252
- +#197#157#195'y:'#139'|'#226#156#205'O'#182'?'#173#234'L'#245#167#132#31'a'
- +#245#199'-'#26#8#254#127'{_'#22'kYv'#158#181#246'x'#230's'#238'XsWwW'#187#219
- +'v'#187#227')'#241#0'v'#136#193#145#8#194'F'#8#5#148#4')'#145#176'P'#132#132
- +#20#241#18'!9'#188#0'/H'#188'!'#224#1'x'#2#9#17#144#128'XHH$`x'#128#7#144#172
- +'$'#216#198#221#158#186'k'#174'[w:'#243#176#7#254#239'_'#255'Z{'#237'}'#207
- +#173#186#213']w'#170#190'K'#218'w'#15#247#12#251#236#189#191#239#159#255#165
- +#166#253'='#181#243#222'wT2'#155#209'k'#23'\'#25#8#159'A;'#158'n'#223#232#238
- +#161#229#19#192#159#152#184'?:'#254#162#230'_'#233'Y'#127'n/'#145#254#0#255#7
- +'*'#27'}'#158#208')E'#4#136#173'V'#137#165'.'#139#22#128#174'A'#215'Q:|o'#208
- +#251'b'#127#214'x'#153'+'#255'B"'#129' d'#144#247#174#146')'#176'zUH@'#8#160
- +#225#248#3#184'V@'#155#2'l'#14#248#158'T'#15#150#127'I'#158#23'?'#201#243#206
- +'x'#28#144#198#191#254#181'O'#169#217#197'D'#159'''3'#232'ay'#245#203'_S'#191
- +#240#219#255#248'H/_'#250','#229#198#225'/'#137'>'#22#252#186#208''''#227'2_'
- +'m'#247'c'#129#218#191#24'C'#19#152'p'#155#175#249#184#207#182#191'Q'#253'=z'
- +#247'k'#171'['#127#28'x)'#138'}JY'#127#180#127'_<'#255'h'#251'u'#239'yK'#127
- +#254']'#207#243#242'.'#203#11#160#31'q'#21'~'#0#163#5'dyp'#229'G{'#27#191#152
- +#229'~'#13#0#246'E'#11#136#234#13#181#242#210'gT'#173#211#213'&'#128#144#0
- +#182#131'Z'#173'0'#5#196#31'P'#174#28'<'#191'Z'#192'w'#254#229'?P'#127#244
- +#187#23'U'#128#199'=z/}D'#253#153'o'#254#11#213#189'~'#235#253#127#8'W'#248
- +#228',ssW'#242'['#187#159'l'#250#217'\K'#127'V'#253#167'"'#253#231'j'#255#222
- +#247#213'd'#239'>{'#253'a&(N'#249'e'#199#223'{'#235#205#17'z'#251'C'#250#163
- +#3#12#247#251#163#5'Y'#128','#253#197#7#240'p>'#159#239':'#158#255#15','#253
- +'1'#158'7ll'#227'Pd'#7#146#22#128'9'#178'.!'#18' Q'#1#172'/'#239'Oko'#220#31
- +#174'~'#206#19#135#160'1'#5#226#246#138'Z}'#233#211'l'#2'@'#250'G-q'#8'J'#243
- +#16'?'#150'Ta3'#211#176';'#229#184#167'='#186#207#214'A'#244#244'G'#150#204
- +#213#191#250'K'#175'?'#243#172'D'#23#227'h'#163#181'y]'#253#220'_'#251#166'z'
- +#229#231#223'g'#193#149#17#252'z'#30#175#178#211#15#246#187#145#252'H'#248
- +#129#228'g'#2#152#217#176#31'r'#255'G'#219'w'#200#246#127#135'$'#255#140'I"O'
- +'u'#185'o=\'#244'_'#233'm'#191#157#231#252#137'\'#239'o'#26'~@'#250#211#254
- +'m4'#251#132#244#199#12#192#181'Z'#13'>'#130#217'Q'#27'~'#30'e'#251#6'x'
- +#138'/'#237#248#203'otw'#223'i'#199'3'#132#249#172#227#143#176#129#164#159'-'
- +'H|'#241#252#179#227#143'0'#180'3'#164#177#183#183'7{'#214#134#31'O'#27#199
- ,'B'#0'J*'#5#209'6'#140#206#187#213'h4`'#10'\VZ'#250#223#148#245#165'E'#26'\!'
- +#18#248'R'#166#194#136'I'#128#147'~"'#235#15#136#219#29#173#1#136'C'#16#25
- +#130'a='#226#181'o'#138#134'l'#142#128#152#3'b'#18#148#148#128'e'#191#242#164
- +#177#246#148'+'#253'?'#255#225'o'#169#31#253#193#191'='#225#147'z1'#6#188#249
- +#31#251#139#127']'#253#204'_'#254#155#207'>'#163#239#147#158#13#145#250#182
- +#194#207#218#252#162#250'/t'#184#143#19'z&s'#209#0'D'#253#167#237'>'#236#254
- +#253#251#252#154''#174
- +#230#163#254'i'#159#202#185#25'+/'#127'T}'#246#27#127'G]'#255#220'W'#223#215
- +#251#151#206'>g5'#254#188'P'#251#179'\l~'#29#235#207#165#188'W'#199#251#181
- +#218#159#10#248#19'&'#130#153#26'o'#223'S'#253#135'?`'#211' [,'#172#215#191
- +#17#206#251'/'#147#221'/'#223#4#213#31'&'#192#152#22#132#130#224#12#180#170
- +'?-'#152#231#15#14#193#145#211#236#243#185'I'#127#251#155#143'iX'#135' &'#20
- +'%'#192'cZ'#241'Mt'#14#130'/'#0#166#0#189#230#10'-k'#15'G'#189#183'v'''#205
- +#151#141'w_;'#250'b'#213'\'#135'?'#224'u'#21#213'$1'#168#17'["'#240'M[q'#19
- +#30#180'='#5'i'#9#138#217#134'r'#201#21'8'#15'n'#129'{'#255#231#191#169#255
- +#250';'#191'z'#218#167'q'#166'Gs'#253#138'z'#233#203'_S?'#243'+'#191#165#234
- +#171#155#207#245#179'M#'#15'//'#8#0#21'}'#153#16#0#219#253#146#230#11#149#30
- +'E> '#0#150#254#0#255'Tk'#1#179#193#158#218#187#253#135#244#191#194#238'W'
- +#176#251#189'd'#241#234#202#246#247'B'#178#255#149#168#254#180'L'#137#4'0'
- +#203'/:'#253#222#147'f'#159'w$'#1'h'#219'8'#254#158'W'#216#175':'#142#149#0
- +#224#16#252#214#183#190#197'MC'#136#201'Z'#244#195'`'#152']'#22'-'#0'$pM!J'
- +#160#188#149'w'#247#214#190'0Kk=eH'#0#210#157'H'#160's'#249'5'#186#233'/IRP'
- +#205'j'#1#8#13#194#28#240'b'#157'#'#160#195#131#18'"4'#25#131#158''''#10#192
- +#249#9#19#254#254#223#254'e'#245#240'";'#176'4'#26'kW'#212#205#159#255#154'z'
- +#235#24'@_'#26#206#196#157'6'#209'G&'#241#204#165#161'g.'#177'~V'#253#167#218
- +#238'O'#5#252')'#183#249#30#178#211'o1'#30'j'#233#159'&'#186'4'#152#237#254
- +#189'w'#218#209#180'oT'#127'z>9'#230'Ok4'#250#228'f'#31' '#0#244#249#203#178
- +#12#190#128#253#227'p'#252#185#227#184'aa'#29#130#244#163'j'#164#1'tMn'#0'H@'
- +#136#0#29#133#215#147'<'#218#248#233#222#250#23'3'#130#189'q'#10#194#31#0'{'
- +#191's'#245#227#170#209#187','#192#143#181'?'#192'5'#7'b]>\'#20#14'A'#11#208
- +'D'#144#151#10#136#156#159#251#164'_~'#18#254#129'C'#190#31's'#1#254#222#175
- +#127'A'#141#30#221'9'#129#147'8'#187#163#177'vYK'#250'_'#251'['#31#12#244'O{'
- +#194#141#202#159#231#142#237'o'#192#159#217#226#158'\'#178#252'8'#140'7[X'
- +#192'C'#242#167'Sc'#255#143#9#252#127#164'f'#163'}Q'#253#19#235'7Xo'#142#238
- +'m6'#251#144#240#244'Hz'#166#216'g'#12#144'#'#227'O'#21#210#255'.'#225#4#181
- +#254#187#180' '#230'?'#251#250#215#191#158'>O'#199#223#179'\'#158#231#241#249
- +#236#16#188'v'#237'ZD?'#166'I?'#142'M'#1':~]'#242#2#224#16#132'V'#176#218#159
- +'7n'#222#31#174'|'#138#253#1#220#16'$'#212#243#6#196#177#234'^{K'#213'z'#235
- +'L'#0'69'#168')'#249#1'5m'#10#232'D'#161'P'#207'1`'#252#2#158'8'#6#13#1'x:'
- +#195#235','#155#4#217'|'#170#254#227'o|^M'#182#31#156#246#169#156#232#208#160
- +#255#243#234#19#4'zl'#31#247'0A'#23#207#216#251#210#196#147#255'!'#192'5Y~'
- +#185#128#31#146'?'#19#181#127'!$'#144'Ng'#236#245#239#223#253#174#154#13'w4'
- +#248#209#223#15#170#127#134'x?'#236#254#157#183#229#27'!'#253#145#245'7'#161
- +#239#178'1'#127'I'#246'A'#143'?T'#254'm#'#227#143#204#229#217'q8'#254#220'q'
- +#18'0`-'#128#214#193#189'{'#247'0'#181'x'#11#141'C'#148#6#189'!'#1#248#5'6i{'
- +'e{'#210'}'#227#241#164#253#154'.'#24#242#25#208' '#129#176#214'P'#221#171'o'
- +'q'#255#128'@'#204#129#192#248#3#140'S'#208'!'#1#27#29'p'#27#140'B#p'#253#1
- +'v6'#226#167'\'#134#147'L)'#150's'#193#148#224#223#250#245#159'S'#211#189#173
- +#147#251#238#19#30'A\S'#221#151'^W'#215#190#240#139#234#245#191#240#13#213'X'
- +#127'N'#160'?'#202#253't<'#253'&'#191'7wm'#254#212'H'#254#2#252#25#131'_'''
- +#251'X'#181#31#14#192#217'L'#245#31'|_M'#247#183#216''#239#186#170#127#179#217#156#16
- +'^'#22#199#225#248'+]'#138#227#248#208'e'#223'cL'#1#218#174#199'q'#220'Y,'#22
- +'k'#196'vp'#2#26#18#192#246#6#189#180#247'`'#216'{s'#127#214#188'a'#253#1'a'
- +#164'g'#24#170#183'T'#239#198'[*nuu'#211#16'h'#2#13#153'h'#148#246#217#31'P3'
- +#230'@A'#2'z'#242'Q_'#151#17'{^'#209'r'#253'e'#245#234'/'#253'U'#181#249#214#23#143#241#203#158#208
- +#198'/'#175#188#206'H{'''#179'O'#247#242'3'#224#207'X'#234'g'#21#201#207#241
- +'~'#2'}'#6'{_'#136#0#165#189#147#157#247#24#252#186#181#151#158#212#211#207
- +#210#228#229#149#237#31#212#130#197#196#181#251#149#14#249#193#238#223#18#213
- +#31's'#252'q'#200#143#182'w'#8#15#195#231'Y'#236's'#132#203'vb'#195#166#9'_'
- +#191'~'#29#154'@'#11#181#2#240#7#208#15#191'*aA'#204'1'#8'=p5'#247#252#206
- +#157#254#234#167#198'I}'#213#23#167#160#23#232','#192#184#217'c'#18#8#26'uM'
- +#0'l'#18'D'#146')'#136#16#161'4'#18'A'#152#208#180#21#243#29#18'0'#221#133'<'
- +'!'#0#229#2#255'9D'#12#142'a6'#227#225#253#159#168#255#254#219#191#172#134
- +#247'~z'#130#183#236#217#6#8#186#190#178#169#214'>'#254#179#234#213'?'#251'+'
- +#234#218#159#248#165#163#191#249#176'k'#246'<'#158'PG'#218'kG'#191#201#231
- +#207'm#'#143#194#230'/'#210'{y'#153#27#169#191#208#192#135#148#135#250'O'#132
- +'0'#217#190#163'F[?"'#146#152'Ks'#15']'#223#143'?7'#187'{o7'#194#217#208#177
- +#251#231#244'l'#163#197#23#18'='#182'%'#215#159#193'O8'#128#25#176#141#132
- +#159#157#157#157#169'x'#253#13#248'_'#24#2#224#239's'#19#132#8#248#173'$I'
- +#216#31'@'#11'B'#130#208#4#216#31'@'#235#149'\'#249#157'w'#247#214'?='#205
- +#162#14#146#132#152#4#184'7'#0#145'@gMu'#174#189'%'#229#194#162#1#152#252#0
- +'h'#1#146'-X8'#6#203#154'@a'#18#248#197#228'#N1'#209'Y'#237'='#248#255#254
- +#205'?R?'#248'w'#255'DMw'#30#158#234'y'#4#245#166'jn\S+'#175'}'#130'$'#252
- +#159'R7'#190#244#231'T}'#253#202'i_'#158#202#200#203#210'_Rz='#227#236#147'r'
- +'^'#6#191#163#246'['#240#139#202#15#224#179'z'#207'*'#191#246#1#204'v'#31#168
- +#193#195#183#233'usn'#238#193#239'Cyo'#154#229'W'#187'{?'#236#196#147#190#168
- +'l'#214#238#23#167#223'.'#236'~ZX'#245#135#211#143'0'#240#152#222#187'O'#166
- +#241#4#9'?'#199#233#245#175#142#211'x'#202'}'#152#2#180#6#9'X'#127#0#217'?'
- +#151#29'S'#0#26#1#252#1#221'$'#243#187#239#246#215'?'#179#200#163#134'o'#204
- +#1#216#247'$'#233#153#4#174'|'#156'H'#160'nA'#207'f'#128'h'#4'L'#2#145'&'#1
- +#21#233#168#2#147'@h'#8'@r'#5'|'#129';'#214'2)'#225'Y'#159#166'|'#240#222#219
- +#234#143#255#249#223'W'#15#254#247#31#208'C99'#190'/'#162'k'#17#183'{'#170'u'
- +#245'e'#181#250#209#207#168'+'#159#251#170#186#250#249#175#210#245#175#159
- +#246'%x'#250'03L'#219#130#30'c'#231#23#253#251#140#167#223'H~V'#225#231'I'#1
- +'x'#6#255#156#155'{'#178'&@'#255#155#238#222'U'#163'G'#210#206'{Q'#168#253' '
- +#146#203#173'}L'#231#181#131'/q'#156'~H'#245'E'#188#127#15#133'='#180#141'F'
- +#144'P'#251#225#244'{D'#207#245#222'I'#218#253#238'8'#141'G|'#169'?@f'#22'b'
- +#167#160#210'Z'#0#182#215#233#1#236#204#147'`'#229#189#254#250#167#19#21#198
- +''#28#234'#p'#231'R'#217#151'I'
- +#184#15#142'>'#14#251#137#31'`'#188#253#30'-'#239'jR'#224'i'#188'S'#142#22#0
- +#252#27#205#193#237#245#198#240#145#11'~z'#182#140#221#15#240'o'#153'J?z'#230
- +#239#201'4'#223#232#240#131#6' '#199#150#237#247','#151#242#196#190#215#245#7
- +#208#197'h'#18#248'{'#164#10'm'#18#192#175'Hx'#144#179#4'iY'#3#9#204#210'x'
- +#237#246#254#250'''3'#207#15'Yr#<'#24'j'#18#8#27'm'#213'!'#18#136#154#29#2'~'
- +'h'#181#0#228#8'x'#236#20',H'#128#181#129'J'#152#208#212#17#24#18'`'#231' t'
- +#148#220#153#144#164'`'#132#234#147#246#244'+y'#10#4'1'#219'{'#172#230#253#29
- +'5'#31#236#210'zO-'#134#251'\9'#217'}'#249#13#213#185#249#250#217#149#224'G'
- +#189#142'K'#239'C'#17#222's[u'#219#16#159#11#254#170#212#151#220#254'L'#154
- +'z'#148#9'@K'#255#209#214#143#213'd'#239#30#189'n'#206#145#1'~'#159#228#248
- +#175#214'F'#15#174#180#251'w'#243#2#252#200#244#131#221#15#240#195#238#127','
- +'!'#191'{R'#223#15#27'n{:'#157#14#136#0#160#194'%''e'#247#31#245'r'#31#251'w'
- +'W'#243#3#200#28'@3'#209'Md'#10'*'#237#16#196#26'$'#176'J m'#141#23#181#205
- +#187#253#213#183#136#4#2'm'#207#11#9'p'#4#160#201#230'@D'#234#170#213#4#156
- +#181#23#11#17#24'M'#128'L'#2#21'j'#191#130'2s'#17#26's'#192'M'#30'2UEn'#163
- +#145'3l'#26'|'#232'F^'#10#226#8#224'M'#21#159#210#158'}'#137#239#187'i'#189
- +#218#230#215#128#207#13#248#173#228'_0'#200#217#241'7'#211#161#190#225#163
- ,#183#213#172#255'H'#146'|'#140#218#175'k'#251#187#209'd'#235'zw'#239'=m]d'
- +#153'x'#252#145#236#3#240'#'#151#127'['#233'y'#253#24#252#216'F'#178#207'I'
- +#198#251#15#27#167#253'('#151'R'#133'I'#11'h#'#25#136#180#128'K'#208#4'h'#31
- +'Z'#0'H'#0#164#176'B@lM'#147'x'#237'N'#127#245#19#169#23#198#218#179'/>'#1
- +#174#12#172#17#9'|L'#197#157'uM'#10#198#15'`'#192'/m'#198'=!'#2'_z'#10'('#19
- +'%'#16#231#160'2'#230#128#239#21#4'`'#174#214#139'>]'#241'y'#25'.'#234']sGl|'
- +'O'#202'wm'#3#143#170#179#207'8'#250#0'f'#212#243'/'#28#240#27#231#31#175#167
- +'j'#240#240#7#164'ImK'#140'?'#209#196#145'j'#240#175#213'F'#247'/'#183#145
- +#226'k'#193#159'I'#154'/g'#250')]'#226#251'H'#230#245#131#228#199#164#30#143
- +'1'#171#207'|>'#31#31'w'#170#239'Q.'#227'i'#223'F'#207'8'#5#209'@'#4']'#132
- +#208'P'#212#9#15'"O'#224#138#201#20#4#9'$y'#220#189#189#191#250#214'BE'#245
- +#18#9#136's'#176's'#249#13#21'w/'#177'/'#192'3'#181#2#177#244#16#176'&A'#164
- +#253#2'b'#14#168#208'/'#146#134#140'i '#13'F'#172'F`'#175#152#163#10#156#159
- +':'#163#23'f'#148#146'xl'#171'.}'#140#193#159'i'#201'oc'#251#169'n'#226#1#240
- +'+'''#204#151'K'#190'>'#171#244'3'#241#250#211#177'\B'#127#201't'#162#6#247
- +#191#175#18#228#246'''s'#157#21#232#128#127#163'1'#184#189#217#28'>'#210#138
- +'F'#150';'#146#31'*={'#252#149#238#237#7#240#223#151'p'#223'cH'#254#197'b1'
- +#186'v'#237#26#156#131''''#234#244#171#142#179#240#236'Z'#18#232't:1'#177'b'
- +#157'.T'#27#149#131#232'$'#4#2'0$ '#173#198'A'#2#205'L'#133#237#219#253#181
- +'7gY'#220#214'}'#0#196#174#143't)qk'#243#150'j'#172'^'#215#146#222#1#189#217
- +'f-'#160#166#147#139'8Dh'#219#142#7#133's0'#240#10#141#192'I rs'#137#205'f~'
- +#224'''='#225#10'?'#211#173'>'#175']'#130#142#248'h='#245#250','#191#178#185
- +#211#151#223#5#191#246#238#235#248#190'J'#181#202#175#4#176#156#155#159':'
- +#246#254'\'#131'?'#183'j'#191'd'#242#17#25'$'#147#161#234#223#255#158'Ji]H~'
- +#157#225#167#210','#191#220#217#255#201'j<'#217#21#193'o'#193#175#138#190'~'
- +#166#190#255#1#164#191#132#254#30#163#190#159#198#168#209'h'#204#143';'#207
- +#255'9'#222#165#227'?'#15'S:'#140#162#161#241'x'#140#134#162#29#169#25#184'd'
- +'4'#1#165#251#7#160#177'H'#143#174'X'#147#16#218#188#211'_'#251#216'8'#173
- +#173'x2'#239#160#206#254#211#18#191#190'rU'#181#214'oiM'#192#250#1'B'#157',$'
- +'d'#224'I%'#161#138#138#190#2#166#152'Hq'#132#192#244#23#240#203#145#2#167
- +#243'P.'#161#195#234#21#245#202#127#158'q'#228'O'#220'='#179#195'{'#234#129
- +#167#255#238'|'#201#207#21#144#27#129#175#14#11#237'9'#133'<*-b'#251#197#162
- +#129#207#210#127#190#144'p'#223'B'#180#129#5#255'o>'#216'a'#155'?'#157#142'u'
- +''''#31'Z'#148#128#223'#'#241#127#181#187#247#163'n8'#27','#3#191#210#225'>'
- +#128#31'-'#188#31#144'&'#203#14'?'#228#248'#'#220'G'#175#27#161#200'G'#157
- +#146#211#239#131#222#157'c='#23#248#3'~'#252#227#31#251'h%F'#154'@'#195#228#8
- +'`V!'#164#12#131#8'h'#141#164'!4'#26#237#210'Uk'#17#240#234#247#6'k'#175#15
- +#23#245#13'c'#14'0'#17'DP'#241#145':'#220'Sm2'#9'PG'#224'K?'#193#2#252#142'6'
- +#192#254#0'c'#14#232'm'#155'8Ti9f'#195#134#158#201'(tr'#207#171#253#7#204#173
- +'=KW'#250','#143#202#245#202#157#166#156'%'#208#27#162#200#164'eW'#150#29'H'
- +#231'Ui'#1'z'#227#237'O%'#212#151#207#231#142#195'O|'#0'D'#2#147#221#219'j'
- +#178#253#158#222'w$?>'#223#167#15#184#222#219'{'#167#21#204#199'K'#192'ob'
- +#253'h'#234#137'4_+'#249#233#153'}L'#160#223#165#231#23'5'#0' '#137'3'#1'~'
- +#231'2'#159#153#193'$'#240#189#239'}/@x'#16'$@Z@W'#26#137#184#154#0'"'#3#235
- +'('#28#162#27#129#18#227#248#254#160'wko'#222#188#234'['#245']k'#2#200#26#244
- +#227#26#153#4#31'Q'#181#206#166#150#248#174#244#23#223#128#206#17'0'#249#2
- +#129#205#30'TN'#6#161#237'@'#236#251#5#1'8m'#201#221#26#3#235#164#170#22#27
- +#157#181'+~F'#134'Wr'#228#185#155#249#1#240'k'''#159'H'#251#180#144#250#165
- +'t^'#168#251#137#238#215#175#9'@<'#254#226#237'7'#26#0#19#0#166#233#154'N'
- +#213#136#164#254'|'#180#171#227#251'IR'#2#127#160#146#217'K'#221#221#31#214
- +#131#197'T'#192'o'#28'~F'#242's'#129#15'r'#252#209#220#3#146#31#26#0#212#254
- +'('#138'v'#7#131#193#136#180#218#19'M'#243'='#210'u?'#237#19'XvN&<'#184#181
- +#181#21#211'Ek'#208#5'4$'#128'lA'#180#24#135')'#192'$@'#251']'#248#4#232'X'
- +#237#209#168#243#210#246#180'}SO8bH@2'#0#137#8#234#189#171#170#185#241'*'#131
- +#222's'#181#129'H'#147#129'''-'#199#149'q'#14'F'#21'm'#192'u'#16#154'z'#2'&'
- +#3'eg)'#202#29'2p'#181#255#220'!'#133#15'f'#26#188'(C'#210'u\'#137#159#23#181
- +#249#202'sT}'#199#201'W'#168#249'"'#245#197#214#231'2'#222#180'p'#242'1'#232
- +#165#148#215'z'#252#141#234'/'#170'>'#219#254#201'B-'#250#187'j'#184#245#14
- +#29#27#219#200#128#174#229#151#137';'#189#249#228#165#238#222#15#185#170#143
- +#235#8'l'#168#143'S|'#149'd'#249')'#237#224'C'#184#15'R'#255#1#212'~'#178#249
- +'w'#233#249#29'6'#155#205')i'#183#201'iz'#252#151#141#179#250#4#150'H'#160'A'
- +'c2'#153#160#145#8#155#3'B'#2' '#3#209#4'T'#151#128#136#190#131#181#253'Yc'
- +#243#225#168#251'Z'#166#194'PKn'#169'!'#8'C1'#9#186#164#13#188#193#213#132#0
- +'>'#28#129#158'D'#4#220#16#161#155'9'#168#156'Z'#2#229#18#129#231#23#179#22
- ,#251#198'I'#232'j'#3'E'#30'a'#238#148#25'z'#213#146#195#3#153'mg'#245#182#188
- +#223#187#249#4#127#134#233#191#167#156#198#28'|'#188#2'zP'#168#3'~'#211#173
- +#135'U}'#9#239')'#167'O?'#188#245#249#28#251#11'+'#249's)'#238#201'%'#207'?'
- +''''#240#143'wn'#171')-'#153'y]*R_f'#238'iG'#147#237#171#173#253#219#129#151
- +'&:'#151'(3e'#189#240#246'3'#248#149#206#242'CO?'#246#248#195#230'G'#168#15
- +#224#167'eH'#166#236#20#177#254#179#6'~}'#205#207#238#176#133'C'#4#254#136'.'
- +'b'#147'L'#130'.H@:'#10']6'#225'A%$'#128#16'!H`'#158#133#237#187#131#222#235
- +#179#172#214#230'y'#3#140'o'#192#132#10#163#186'j_zM'#197#221#205#2#248'f1'#4
- +#16'W'#142#7#186#211#144#178#243#19#6'em@'#26#143#148'#'#6#158#149#244#172#29
- +','#137#30#152#249#11#142'zG'#206#204#147#227#222#168#167#189' ?'#252#128'i'
- +#197#229'y'#14#248'3'''#150#175#28#27#223'Q'#247'y'#31#182#190#27#222'K'#11
- +#137#159#27#208''':'#181'7/'#145'@'#194#245#19'#'#146#250#243#225#142'h'#11
- +':'#188#167#138#30'~'#217#165'F'#255#246'Zc'#244#152'S{%'#212#167'tz/O'#223
- +'-s'#248'A'#237'7'#137'>'#15#207#19#248#143't'#239'N'#251#252#12#9#244#251
- +#253#184#213'j5'#232#226#162#197#248#154#132#4#225#16#188#12#173'@i'#18#232
- +'1'#9'('#175#158#7'~'#252'p'#208#189#185'?o]-'#146'|t'#184#15'&'#129'oL'#130
- +#245'W'#8#236#177#205#9#240'L'#5'a'#172'5'#6#171#9'p'#10'qPT'#21#210':'#15
- +#220')'#202#140'V'#224#21'D'#160#138#237'"JP'#172'K%'#200#206'f^9'#236'='#235
- +#173'z'#158'w'#245#153#31#215#188#152'>'#219'='#149#188#188#145';/'#178#245
- +#249'n'#18#143#177#243'MG^'#145#250'*u$'#191'c'#235#27'/?'#219#237#12#244'E'
- +#161#254#207#11'R'#192#255#23#240#242'?'#254'!i'#1#19#177#247'u|'#223'|n'#228
- +'/&'#215#218'{?i'#132's'#174#229#23'G'#4#236'}'#147#222';'#145'P'#31#171#253
- +'J'#194'}'#178'F'#169#239#222'y'#0#127#233#254#156#209#193#231'W%'#1'd'#12'"'
- +'Y'#136'.'#178'!'#1#152#5#151'0'#247#128#210'y'#2'm'#186#212'u'#146#184#241
- +'p'#222'X{0^'#185#149#145#236#215'@-'#155#4'H!'#6#9#196#157#13#201#7#144#136
- +#128#1#191')$'#10'+$ '#11#147#138'h'#6#156'N,'#145#130'\'#162#6'V'#27'x'#26
- +#17'8'#221#137'rG;'#240#202'^'#196''''#220#177#147#184#149#249#225#135'+'#167
- +'i'#140'{'#175#244'6'#167'<'#23#0'WO'#0'~^'#150#248#202#22#239'8N>c'#239#187
- +'v'#191#149#252#139#18#240'Y'#19#152'N'#213'd'#251#167'j6'#220'b'#130'@'#179
- +#15'+'#241'3=__'''#154'<'#190#210#234#223'!'#149'?'#205'm'#147'@]'#210#235'd'
- +#248#245#165#178#15#222#254'G'#146#215#255'H4'#129'}8'#252'666'#206'<'#248
- +#237#253'9'#227#195#146#128#18#159#128#146'2b"'#130#21'h'#2#146'%h'#178#5'9Y'
- +#136'$r'#155#192#211#160';'#23'''Y'#212#184';'#236#189'6Kk'#29'S'#0'd'#27#140
- +#8#184#163#214#26#19'APo'#21#17#1#167#138#208's'#251#10'<'#137#8#220#148'b'
- +#153#194#220#134#14#205#196'%'#165')'#204#202'k7'#132'h'#230'4'#176#135#14
- +#132#20#143'n:<'#151'q'#152'*o'#156'v'#246#144#145#236#230#127#249#146#216
- +#189'~'#157#14#227'I'#230#158'!'#2'k'#227'/Q'#247'S'#145#248#2'|'#181#208#149
- +'|J'#236'w'#215#222'7'#206'?E'#251#147#254'=5'#221#189#173#19#127#210'%*?}'
- +#209#229#198#224#189#149#198'h'#199#203'MI'#143#14#243')'#1'?'#173#199#180
- +#223#151#154'~4k'#132#196'GE'#31#182#183'I('#161#145'''{'#251#201'\=s'#14#191
- +'e'#227'<'#16#128'=OC'#2#251#251#251#17']'#228':]x'#174#29#136#162'h'#157#246
- +'a'#6'\'#18''''#225#134#212#14'th'#27'}'#4'b'#210#0#162'G'#195#206'K{U'#147
- +' '#212#201'C'#138#171#11'#U'#235']S'#245#181#27#156'M'#200#14'@'#199#4#0#1
- +'(''Dh'#136#192#148#24'+'#153#181'X'#249#229#198'#'#182#21'Y%'#179'P'#231#15
- +'-'''#3#207#209#255#139#222#4#166#151#161'{UN'#136#4#170#143#176#19#182'+m'
- +#229#5'Y'#149'CxN'#165#158#27#198'3N='''#150'oA'#159#154'm'#0'>#b'#0#160'u'
- +#17#143'Z'#20#13';'#173#199'?IJ>'#0#132#0#147#209#158#154#236#252'D-&'#131'B'
- +#213#135#169#128#207'pU'#254#238#238'O'#234'^2'#245't'#229'@'#213#211'?'#147
- +#22#222#168#234#219'q'#193#15'O'#127#24#134#232#235#223'_,'#22#227#25#141#243
- +#2'~'#140#243'B'#0#246'\'#221'<'#1'8'#252#232#194#183#232'p'#143'.'#254#186
- +'8'#7'A'#4#156','#132'V'#227'$'#129';$u'#27#180'_#'#240'E'#131'i}'#237#193
- +#164#247'j'#150#235#249#7#180#147'0`'#21#222#244#16#132'Y'#208'X{'#133#139
- +#138#188#208#137#6#200#220#3#134#8'4q'#4#162#29#136'&`{'#13'8]'#137#131#138
- +#163'P'#8#161'hF"'#19#152#28'H76'#161#195#162','#185#240#15'T='#3'G'#200'1'
- +#248#160'%'#203'y^yi'#25#240'z'#229'4'#218'TE|'#159'%'#189#153'l'#195#190#230
- +#160#154#207#246'~'#154#149#218'r+'#150#250#153#6#173#0'_'#137'='#175#164#131
- +#143'2'#4#144'h'#239#127':''u'#127#231']5'#239'?'#210#173#186'L'#26'p'#146#10
- +#209'h'#149#31#149'|'#151'['#253#187'P'#249'9'#188#143#254'}'#160'!m'#239#219
- +#24#191#1#191#210'e'#189#15'e'#198#222#199'R'#207'? '#1'4>K'#25'~G'#29#231
- +#137#0#236'9'#155#180'a'#218#142#26#141'F'#13#17#2#164#7#27#231#160'8'#5'/'
- +#217#218#1#29'&'#132's'#176#6#147' Sa'#252'h'#220'~'#169'?onz@'#166#137#20
- +#216'f!Z'#226#195',h'#192', B'#176'R'#223#1#188'Bd '#22'B'#16'M@9'#25#132#214
- +'I'#24'>A+8'#204'GP'#154#242#188#186'v:'#26'['#13#193#161#130#165#190#130'CB'
- +#143'O'#200#187#183#160'.%'#224#23#26'H.'#234'})Q'#199'%'#0#215#147'/'#158'}'
- ,#163#226#219'p'#158'q'#240'Y'#208#167'b'#231';'#158'}l'#11#192#181#202#175
- +#215':'#175#223'8'#2'%vO'#235#217#222'}5'#222#131#186'?'#211#199#229'3y'#157
- +#167'"'#245#147#201#149#230#254#237'f<'#27'z'#26#247'8'#15#146#250'%{'#223'&'
- +#248#208#178'C'#210#254'1'#9#153'G'#210#213'g'#155#128#191'K'#160#31#160#149
- +#23#13#152#8#231#10#252'K'#158#138's3,'#9#208#197#15'k4'#200#12'h"B'#16#4#193
- +#170#227#23#128'F'#0#18'X'#5'A B &A'#148#19#196''''#139#176#253'p'#178#242
- +#202','#141'ZE'#235#240#162'('#200#147'9'#10'k'#221'+'#170#182'rM'#5'h'#162
- +#17#154'y'#8#3#199#28'pM'#3#9#17#134'RK`'#10#140'l'#14'A Z'#129#201'$t'#218
- +#146'U'#137#160'j*'#148#202#146'+'#21#137#21'G'#162';'#242''''#146'A'#165#216
- +'f'#217'c'#235'Jw'#222#168#172'e;7'#137'<'#153#27#190'3'#137'<'#142#164'wc'
- +#249#2'|'#29#203'/'#192#175#137#192#9#241#217't^'#13'r'#237#3'H'#10''' -'#139
- +#225#14#219#249#9#171#251#186'I'#167#146'L>'#179#246#232#207'j}t'#127#189'1x'
- +#228#177#180#207'3'#147#214#171'$'#190'O'#203'\j'#249#135#226#233#135's'#15
- +#210#30#249#252'['#178#191'O'#207#220#160#223#239'O'#187#221#238#156#8' =o'
- +#224#175'>'#9#231'm'#148'J'#137'I'#19#136'%u'#152#157#131't'#140#181#1#144#0
- +#250#11#210'z'#141#253#2#202'k#}'#152#182'czDc rw'#218#186#180'=m_'#207'H'
- +#164#235#226#31#237'$'#132'fP'#168#249#145#170#181'/'#169#6#17#129#31'7'#180
- +#244'7j'#191'k'#14#24#127'@'#224#164#17#187#166#129#201'!p'#29#133#198'<'#176
- +#4#224'W'#18#139#180'G'#192#246'.'#180'='#11#141'iP'#152#3'n'#194'Q'#217';'
- +#239#29'XU"s'#202'Az'#217#181#144#187#161'='#137#215#231'y'#197#214#151'B'#29
- +#163#226'gy'#145#167'oSu'#139')'#183'\'#201'_H'#253#20'M5'#197'VO-'#9#184'a'
- +#190#220#170#251#198'!H'#18#127#184#173#166'{wU:'#27#22'f'#129#11'~'#241')'
- +#180#162#217'.I'#253';'#152#156#211'C/`}n'#172#242'+'#221#187#207#228#244#143
- +#140#167#159#182#183#197#219#191'Ej'#254'6'#9#24'h'#2'}'#147#215#239#244#241
- +'3'#192'?7'#224'w'#30#135's;,'#9#16#1#4#8#19#18#27#195'9'#216#154#205'f=h'#3
- +#244#127#244#26'D'#171'1h'#2#240#11#160'r'#144#211#135#17'% '#192'D'#244#17
- +'A'#146#249#241#163'I'#247#230'`'#214'X'#247'l'#241'O'#1'^?0 '#142#184#166#0
- +#206'B'#244#211'3'#166#0#167#13'['#208#23#161'A'#27'!'#136#180#244#207#131
- +#224'@wb'#235'#p*'#15#11'"P:'#164'h'#211#139#165']'#153'*L'#4#151#24#150'^"'
- +#175'r'#197#170#26#192'!'#14#190#18#15#184#245#246#216#204#242#146#189'o5'#0
- +'7W'#223#128#221'z'#244#141#202'/'#246'~'#166#167#219'V'#226#228#179#128#183
- +#29'{'#202#224#183#197'='#236#253'_'#168#217'`K'#205#246#239#17#240#199#146
- +#16#148'X'#147#1#251'J:'#246'D^2'#187#212#26#220'n'#215#166'}'#248#28'<'#143
- +'U~V'#252#233#146#177#163'Oz'#247'Me'#178'Nk'#239'C'#237#151#153'{9'#190#15
- +#149#159#20#206'1b'#252#245'z'#29#164'a'#234#249#237'U:O'#227#188#19#128#249
- +#13'H'#24#194#154'#'#4'p'#14#18#1'4E'#27'X5'#190#1'!'#1'6'#9'h'#191#7#191#0
- +'m'#195'A'#8'm'#128#222#231#251#163'$'#238'>'#28'uo.'#178#168#233#154#5#202
- +'I+V'#226''''#136#219#27#170#222#187#174#130'F'#235#160#212'7'#170#191'C'#4
- +#134'L'#148'K'#2#2'z'#229'U'#157#133#14')x'#166#10'Q9~'#130'J7cq$'#30#152#241
- +#232#176#154#3'[m'#231#188#196'm'#180'a6'#189'B+'#240#158#2'zW'#213#247'*'
- +#222'|'#29#215#207#172'Df'#7'`R'#168#251#158#1'}'#226'H~'#163#13'd'#134#8'2'
- +#142#223#207#6#143#24#248#217'bb'#237'~'#227#216#203'\u'#159#132#252'J}'#252
- +'p'#179'9x'#224#209#142#199#165#130#224#29#218'f%'#198':'#250'f'#210#187#207
- +'t'#238#133#167#223#130#31#19'v'#160#137#7#254#143#254'}'#163#209'h^'#241#244
- +'+u'#14#193#127#200#147'q.'#135#141#16#160#156#248#214#173'['#225#214#214'V'
- +#141#14#213#137#173#17'*'#236#145#250#134'b'#162'u''u'#24#251#200'#hC'#27#160
- +#237#26#251#6''#199#245'3'#201#231#183'R'#159#22
- +#19#226'c'#149#31#160#199#2#149'_'#8#1#29'|'#198#244#182')'#217#253' '#140
- +#132#180#206#236'<'#132#249#142#4#156#23'h'#176's'#240#219#223#254'6'#251#5
- +#232#166'E'#4#234':'#28#132'259'#155#4'XD'#27'0$'#208#165#183#146'>'#175#26#4
- +#167#24'f'#1#129'='#160#199'%'#220#157#183'6'#247'&'#173#203#137#10#226#3'D'
- +#224#23#246'>4'#130#176#209'!'#173'`'#147#8'a]'#249'a,m'#198#140#3#240'0'#167
- +#224'!'#5'F'#146'3'#224#149'|'#3#166#23'A1'#169#137'%'#2#153#224#196'LuV'#10
- +#18#10'7'#148#156#132#14#3'xF'#210'Wd'#153#145#246#7#28'{N'#252#222#149#252
- +#182'B'#207#237#200'c'#192'/'#132#160'\'#167#159#149#242#142#211#207#233#224
- +#131#255'-'#166#251'j1'#220#162'e'#155'I w'#205#128','#147#150'_'#236#220#195
- +'~'#222#138'g'#187#27#141#193#131'Z'#184#152#150#212'}'#199#214#151#182']'
- +#166'c/l'#249'}i'#226#193#158'~Z?Fl'#159#164#252'>='''#3'2/'#199#244','#205
- ,'{'#189#30#192#127'n'#237#253#165#128'9'#237#19'8'#166#223'T2'#9'h N'#211'di'
- +'O'#128#167#155'j'#137'@'#204#3#236#19#9#168#14#1#174'A'#251'u:'#30#25#179
- +#128'@'#21#236#205'Z'#27#187#227#230#229#133#10#235#218'F'#247#203#211#141#17
- +#1'('#223#183'ZA'#173#177#170'""'#131#176#185#162#163#4#230#181#142'3'#208'H'
- +'~'#255'0-'#192#152#8'&'#147#208#248#7#248#23'V2'#12#221#28#130#220#137#12#8
- +#27#152#196#220#131#209#130'Jz'#174#167#172'j/'#255'V'#226#245'+Iyc'#227#27
- +'{'#223'4'#227#176'Z'#128#1#186#172#165#192#166't'#220'M'#237'u'#215'('#203
- +#157#13#31'3'#240'S'#132#242'2'']W'#166#220#206'e'#209#192'O'#243'vm'#182#189
- +#217#24'>'#140'|H|'#28#23#191'>'#171#251#220'%'#208#205#232#227#240#30#242
- +#249'i'#189'/'#237#187#182#205'"'#206'?'#28#199'k'#166'F'#229''''#205'2;'#207
- +#246#254'a`y'#17'G'#201'$@'#168#176#213'j'#197#2'lT'#12'v'#197#25#184'J'#140
- +#143#232#0#22#248#5'D'#27'P-!'#2#152#5'a'#206'd'#128#174#225#190#191'7k'#174
- +#237#142'[W'#230'y'#216#176#206':'#3'|'#207'H'#242#162#2#17#154'@'#212#222' '
- +#173'`C'#5#141#142#227#252#11#184#231#160#231'8'#2#139#168'@u'#10'3'#207#2
- +#222'F'#5#2#209#4'\'#237#192#151#144#161#149#252'U'#7'`%'#159#192#12#183#149
- +'6'#239'+'#235#28#176#213'zF'#229'O'#171#234'~&fA'#230'T'#234#21#206'?~'#189
- +#209#0'*a'#191#18#9','#230'j6'#218'f'#208''''#211'A'#161'!'#152'L@'#199'l0}'
- +#0#16#210#235#198#147#199#27#4'|x'#246'M'#190#241#19#212'}k'#235#211#210#151
- +#238'='#12'~'#186#207#144#254#216#222#15#130#128#19'{h'#153#145#244'_ '#196
- +#247#162#168#252'K'#129#242#2#15'k'#18' J'#128#178'b'#186#185'54'#25'!R@'#227
- +'Q'#152#5'+ '#1#133'Y'#137'5'#9'@'#27#232#209#210#17#179#160#238'{~Lk'#16'A'
- +#8'"'#240#9'}'#251#179#250#234#206#164'ue'#150'!'#135#192#128#177#144#218#5
- +#176#3'K'#10'a'#212'Tq'#7'Z'#193#154#10'j'#141'2'#184#157#210'bo'#9'!'#184#9
- +'C'#133#25#224#21'~'#2'''R`o'#173'u'#11'H'#180#192'M$'#146'W'#185'~'#128#210
- +#172#185#178'*'#194'}'#174#244#207#156#233#180#225#240#203'd'#178#205#138#183
- +#191'*'#245#179#188#18#1'H'#212'b'#178#175#230'P'#241#199#187#156#216#147';6'
- +#189#251'~K '#244'}>1B'#183'6f'#224#7#200#15'6'#192#231#138#221'2'#240#149#6
- +'?'#128#143'N'#189'#'#201#229#223#23#240#195#185#135#25'y'#25#248#240#240'+M'
- +#14#211'N'#167'3G'#3#143'7'#223'|'#243#133'R'#249#15#0#228#180'O'#224#132'~#'
- +#155#4#208#6'h;Z]]'#141#160#13#200#140'D0'#11'z'#162#17#172#233#244'aM'#4#180
- +'&'#18'Pm'#186#235#220'l'#4'&'#129'o'#136' '#131'F'#224'y'#195#164#209#219
- +#153'4/O'#211'Z'#7#200#180#192'tH'#160'4'#231#128#152#0#232'I'#16#212'z*jt'
- +#201#168#232#210'~'#173#210'[`I'#231'!G'#213'/'#171#254'x'#173#18#159#128#241
- +#234'{'#182#152#168#8#4'x'#149#181'*7'#222'PE'#218#190#178#13'8'#157#146#221
- +#204#13#241#21#234#190'w'#192#23'P'#201#233'7'#145#0#2'v2'#27#170#20'v'#253
- +#164'O'#219#131'"'#219#207'x'#239#197#137#231#153#254'~v;'#231'p^'#167'6'#217
- +'^'#175#143#182'|'#143'sy'#213'2'#224';'#237#185#173#147'O'#233#9':'#160#214
- +#239#25#240#3#248'$'#12#246#200#222#135#3#16'z'#254#132'l'#253#217#139#230
- +#232'{'#26'8>,'#227#128'6P'#171#213'bz^0G'#22#166'*G'#159#129#30#28#133#240
- +#17#28#212#6'T'#211#152#5#4#180#18#17'(.'#25#11#163#253'yc}0k'#172#205#210
- +#168'Y'#0#180#172#198#27#245'>'#247#202#196#0'B'#8#27'+*'#170'wT'#0'B'#128#19
- +#209'!'#0#27#14#148#162#162'jc'#210#146#9#224'4"'#177'w'#185#218#140'D'#194
- +'~n'#233'n)'#12#232'j'#2#198#9#232#168#251'n'#184'/'#207'+I?yA'#0'H'#206'I'
- +#166'}'#150#244#201'tH'#255'J'#10''' '#155#20'i)4'#200'Q'#0'K&'#184#184'Y'
- +#138#4#158#149#218'x'#167#25#209#135'i'#204#231#154#160#24#248#0'<'#235#252
- +'b'#231'/*'#234#254'H'#226#250#198#214'G'#136'oW'#188#251'}'#186#215'C'#168
- +#251#176#245'www'#23'd'#231'sl'#255#19#159#248'D'#254#162#131#223'yB>4'#163
- +#164#13#192'7'#176#178#178#18#17#25#208'f'#204'}'#6'h'#1#216#225'(\1'#218#128
- +#210#26#2#250#18'"'#164'h'#136#0'Y'#132'1a.'#160'g=dg!'#20'r'#210#11#166'i'
- +#220#216#155'5'#215'G'#179#218'Z'#162#130#200'S'#5#25#20#146#220#169#7#240
- +#141#243#207#28#15#148#31'7Y;'#8#226#22'}B'#131#9#130#29#141#202'5'#3#156#181
- +#141#18#136#170#159#171#194'$'#200#171#209#1'U'#16#130#155#244#227'6'#222'4'
- +#7#149#201#4#212'$'#192' u'#18'}'#12#232#177'dp'#188#211#146'/'#198'l'#199'c'
- +#201#200'4/'#1#190#186'm'#181#137#204#250#20'`'#195'7'#195'y'#191'S'#159#236
- +'t'#163#233#158#199'I'#5'b'#143#232#188#131'Ll|l'#1#244#236#224's'#128#143
- +#134#29'#'#153#153#135#195'{'#198#222'7'#14'>'#216#249't'#175#199't'#159#167
- +'('#224'[b'#235';W'#224#197#29#31'6'#2#176#191#217'h'#3#155#155#155#254't:'
- +#13'1S1'#252#3'0'#11#232#223'-'#178#7#225#12'D6'#225#138'8'#7'W'#196'y'#168
- +#157#132#158#215#164#199#177'A'#159'V;@'#4#30#224#166'Q:'#152#215#187#253'Yc'
- +'}'#148#196'+'#185#22#233'V'#133'7)'#191'E'#135#225#162#243#176'K'#8#185#152
- +#0#164'x'#16#25#212#153#28#130#176#206')'#201'>'#214'd>'#148#10#139'J'#191
- +#244'`'#219#242'"G'#160#236#237#247'Jf@^$'#7#25'3'#1#248'K'#209'H'#19'@'#159
- +'p'#197']'#150#152#245#212#206#198#163#242#195#0#15#252'f%'#147#1#239'1'#251
- +#181'`1&'#21#127#167'GK'#232#193'!'#160'L'#237'0'#147'B'#154'iu'#223#177#241
- ,#171#18#223#216#249#3#1'?'#146'w'#0'~^'#144#194'K'#210#30#197';'#172#238'w'
- +#187#221#217#214#214'V'#226'x'#248'_X['#255#176#241'a$'#128#210'o_f'#22#208
- +#225#26#217#130#28'6$'#2#128'F'#208's'#23#209#6#208'k'#160'm'#136#128#128#140
- +'(CL'#251#16#211'Rc'#204#157#238'|'#180'*O'#9#206#251#179#198#234'h^'#235'M'
- +#211#168#157#230#162#25#24#199#158'r'#10#131'J'#132'`'#156#127#190'>ig'#187
- +#152#199#16']'#144#27'*'#8'"q:'#134'tX"'#17#158#164'"'#243#233#232#181'/Z'
- +#134#150#190#137#216#218'R)'#151'9'#139's'#28#146#28#18#158'_'#207#225'7'#7
- +#196#182#196#183#240#1#184#0'W'#165#130' 1#8T'#167#242#154#191#24#213#163#249
- +#176'G*>Zn'#23#17#8#145#246'8'#3#2'>x'#18#206'}''o'#223#134#244#164'K'#207
- +#184#2'|'#187#208'=d'#224'#'#172#135'L>"'#2#246#238'#'#149#151#8' '#251#176
- +'I}w|'#152#9#192#140#3'f'#1'B'#127#244'p'#196#198'QH'#255'o'#9#216#187#244' '
- +#245#184#150#128#136'@4'#2'v'#20'*'#204'T'#164#188':4'#2')4'#10#173'V'#224'#'
- +#29'E'#251#10#176#13#208#18#9#212#137#12#186#147'E'#220#157'$q'#139#224#16#26
- +'S'#161#232''''#232';'#205'D+'#246#190#152#2#150','#148#155'*l~'#150#252'@.'
- +#30':$$'#232#216#255#182'EW'#169'1'#191#201#250'S'#165'\'#0'['#221#167#138
- +#148'`'#6'u'#166'T'#158'/'#7'<'#214#181' '#25#215#131#249#176#25#207#251#237
- +'h6'#242#149'8'#243'<61'#140'moA'#175't'#202'.'#24#133#213'|Y'#230#198#179'o'
- +'T}'#19#211#151#5#158#254'>'#128'OD>'#140#162'h'#12#137'O'#199#167't'#127#23
- +'t<'#249'0'#170#251#203#198#5#1#20#195's'#205#130';w'#238#4#198'?'#128'9'#7
- +#232'!B'#205'@'#203#241#19#244'$'#140#200'k'#248#7#20'"'#6'9W'#26#214#161#209
- +#18#216#17'm@BQ'#24#248#30#200' '#160'c>'#180'^F'#165'/'#229'<'#244'wL$@'#132
- +#208#153'.'#162#206'4'#141#219#153#14#8#138#237'^T'#4#22'e'#194#170#168#10'T'
- +#254'R'#240#219#191'U'#207#127#241#207'J'#246'_'#197#7'`Gn'#205#0#3'z'#183
- +#145'g'#225'G(^g'#0#31#251#201#164#22#206#135#173'h>h'#147#164#15#252'4)^c'
- +#153#197#128'^Y'#21#255#160#180'/'#169#250#144#248'p'#224')'#1#187#164#242
- +#150#164#189#1'~'#171#213#154#141'F#'#246#236#147#169#151'~X'#213#253'e'#227
- +#130#0#202#227#128#127#192#16#1'=H'#28':'#164#127's2'#17#173'['#244#0#162#216
- +#168'+'#26#129#171#13#176#143#0#175#229#228'#'#223#135'Ya'#200' 8@'#6#128#174
- +#158'`'#132'a'#142'|<"'#132#246'x'#17#183#146'4'#168#207#179#176#190'H'#131
- +'Z'#170#160#219'k'#251#221'8'#245#140'K'#191'T'#13#184'$'#239#223#141#8#228
- +#203'~t5'#20'h'#134'['#251#239#185#210#221#253#191#6'n'#228#167#211#208#207
- +'fQ'#144#204#234#225'bL'#18'~'#16'.'#3#188#233#18'"'#182'C'#174#127#145#168
- +#248'E'#214#30'-'#11'g'#218'-'#171#234'+'#157#190#203#224#167'{'#224#18#192
- +#144'#'#179'I'#194#210#254#2#248'O'#31#23#4#176'|,%'#2'Z'#135#244'@'#177'F'#0
- +'`'#211#186'I*f'#139#236'J'#214#10#132#16#12#9'X"@'#19#18#218#6'y'#212'@'#6
- +' '#2#218#14#133#12'|'#218#151#194#2#206#177#169#16#130#178#128'N'#179' '#154
- +'fQm'#158#16')'#164'!'#19'C'#146#250#181'E'#22#214'r'#195#2'y'#17#247#207#221
- +#219#235#29#248'y2'#242#165#155#252#170'R'#11'0'#253'7'#240#178'E'#236#167
- +#179#200'O'#166'Q'#152#206#226' '#153#214'BZ'#252'd^'#10#31#28#4#188#212#222
- +#235#20']Ro'#178#220#168#19#185'JM'''#30'U'#150#246'('#207#157'J?>'#11'|'#168
- +#251't'#157#135#0#191#0#30'j>&'#221#132'I0E'#6#159#249#172'%'#192'_'#242'K?'
- +#188#227#130#0#158'<'#150#18#1'|'#4#237'6'#201#183#217#140';'#20#19#1#160#203
- +#144#169'5h'#201#186'm'#246#141#198#0#243'@i'#13#2#4#2'2`"'#144#133#181#2'!'
- +#4#175'B'#8#162#229#235'F'#0'E*'#191#201#243#247#2'"'#129'('#205#252' '#205
- +#149#159#229'~'#0#19'"'#203#184#160')'#160#181#143#207'&'#158#241#233'8'#142
- +#249'x'#15' '#233'{y'#202#139#162'Wy'#10#219#153'g'#142'y'#244#137'~'#158#6#4
- +'N'#218'N#?K0C'#14#127#181#237#249#167#247#204'1}Z'#185#20#11'j'#213#222#145
- +#240#12'B'#237#197#183'q{+'#237'Mi'#174#210#192#159'HW'#158#145'*'#128#15#169
- +#143#184'='#239#147#186#143#10#189'1'#173'!'#241#209#140'snl'#252'G'#143#30
- +'e'#23#192#127#250#184' '#128#163#13'K'#4#223#253#238'w=4%'#5#25#208#161#144
- +#164'N'#212'l6'#1'd'#214#10#232#129'lxz'#174'B'#180'('#3#240#153#4'h'#223#144
- +'C'#211#209#10'jB'#6#136#30'DJG'#16't'#20'A'#19#2#242#10#8#139#220#2'Dr'#130
- +#217'y^'#164#249#225#143#239#219'm'#140#220'sN'#250#224#207#240#14#252'#?'
- +#176#225#202#240#138#242' '#249#0'z;/'#210#133'9'#25#152#147'!3'#237'P'#212
- +#21'x'#158#199#217#3'.'#224#233'X"'#221'vy'#150#29#167'@'#7#224#7#152'a'#223
- +#143' '#229#165' '#135#215't|'#4#208'C'#210#3#244#240#230'c!'#2'^'#192#171'O'
- +#199#211#11#224'?'#219#184' '#128'g'#27'%"@'#212#224#210#165'K>I'#164#144#30
- +'D&'#3#180''''#4#168#145'a'#8'2'#192#2'2P'#152#202#220'Y'#132#8#140'i'#192
- +#230#1'k'#5#30';'#14']B`2'#160'c'#1'b'#8#162#29'0'#17#152#22' '#24'y'#145#223
- +#167'r'#183#11'`'#165#17#192#129'y'#9#151#254'J'#227#225'We'#253'_)'#227#164
- +#211'h'#215'L$'#130']'#25#231#157#150#242#136#238#231'6Vo='#248#6#240'R'#142
- +'k'#194'x'#0#255'd'#137#212#231'E'#18'vX'#189#23#21#127#14#208'c'#166']'#196
- +#241'WVV2x'#245#137#148#243#11#224'?'#219#184' '#128#247'7l^-'#194#135#244#16
- +'z'#198'<'#160#135#18#128'E'#143'B6'#17#224'/'#160'}'#16'B'#131#164#22#8#129
- ,'5'#0#172'}'#157'Q'#216#144'F'#165'L'#4'R'#177#200#239#177'D'#160#29#136#161
- +#199'A}'#144#129'v '#210#182#246#31'(]'#151' '#219#170#152'}'#132#165's'#209
- +'4'#200#156#244'!, '#160'Vy^v'#3'j'#183#164'W'#184#253#10'U>7'#157't'#217#129
- +''''#222'{'#165#165#188#5#190'S'#127#207'^|'#165#165'=/p'#236#161#209#6#253
- +'~'#168#243#19#172'%'#166'?!'#160'c'#31#196'0C=>'#169#247' '#142#132#142'!y'
- +#7#128#207#156'8'#190#156#253#5#232#159'e\'#16#192#7#27#150#8#240#0#186'Z'#1
- +'I'#168'`gg'#7'R;'#132#137#0#243#20'd'#0'p'#139#218'_'#23#240'#'#215#192#128
- +#159'5'#2'G30D`4'#3#215'g`'#9'Ai'#13#1'$'#16'pI?'#231#28's'#242#156'''`'#247
- +#12#17'('#19';8D'#19'p'#192#207#0'/'#8'AK~'#165'{'#230#27#213'>'#173#0#222
- +#196#233#141#138'o'#156'y'#0#191#241#228'O'#5#220'v'#27#199#1'~'#243#127#168
- +#245'x}'#20'Es'#0#31#210#30#234'='#17'jz'#227#198#141#20#160#135#180'w'#242
- +#245#249'|O'#251'a8'#143#227#130#0#158#223'8'#160#21#12#6#3#175#211#233#4#180
- +#248#244#0#179#153#0'I'#14'S'#129#30#234#152#30'n'#164#31'C'#202#215#232'X'
- +#141#142#25'S'#192#152#5#150#4#232#189#186'eY'#161#21#132'UBP'#154#20'x'#246
- +'$!'#4#156#147'/'#224#247'DK'#176#219#149#243#182#170#188'2'#210#221#181#225
- +'s''>/'#210']z'#234#25#208'/'#28#208'W'#213'|+'#245'E'#221#231#181#144#194#12
- +'*=IwH'#249#5'@O@_'#200'g&'#0'=T|c'#219#11#232#205'y'#186#235#139#241'>'#198
- +#5#1#28#207'Xj"'#208#218#7#25'@3'#160#7#157'M'#5','#4'nL'#127#142#233#206'"'
- +#151#16'|'#157'?`4'#6#248#22'P'#189#24#11#17'D'#134#16'@*'#244#186'RD'#1'D@'
- +#175'E'#196#194#19'2`"'#192#182#28#243#212#146'x`'#201#142'/'#0#159#27#21'_'
- +#21'j=7'#212#196'B'#223#195#192#167#207#157#211#246#1#2#192'B'#191'k'#230#2
- +#158#200#14#210#29#239'Y@'#194#131'H'#232'xj$'#189#1'=]'#175#188#162#226#187
- +#235#139#241#1#199#5#1#28#239#176#215#215'8'#14#141'f'#0'3aoo'#143#9'!@i'#218
- +'`'#16#192'l'#160#151#134' '#3#172'A'#8' '#7':'#206'k'#128#158'^'#202'k9'#30
- +#154#227'J'#252#4#202'1'#13#180'I'#192'f'#128'oH'#0#231#148'!.X'#144'@q'#178
- +#5#208'sQ'#237'-'#240#177#166#247'X'#201#175#196#161''''#4#176'0'#251#134#0
- +'d!<'''#6#228#144#236#176#223#23'Fk'#0#224#137#3#210#181#181#181#148'~?'#212
- +#250#140'L'#168#28#160#191'p'#232#157#204#184' '#128#147#27#165'D\'#233'Y'
- +#168'@'#8#208#12'n'#222#188#233'-#'#4#12#2'M '#160#14#5#212'au'#219#172#149
- +'&'#14#214#0'0'#0'v'#1'k6'#155#217't:'#205#232#156#243'e'#18'~'#9#224#171#219#23#227#152
- +#199#5#1#156#141'Q'#186#15#198'\'#192#182'1'#25#8'H'#30'H'#129'H'#192'#py'
- +#134#24#8#148#30#200#129#128#232#25'r'#160'}'#143'@j'#23':'#206#128#199'6>'
- +#19#219#4'V'#187#141#181#207#253'L'#148'"'#0#27#192#243'>}/o'#155#133#190'?'
- +#7#208#137'Dr'#128#156#190'+'#235#247#251'9'#129#222#2#29#146#189#221'n'#231
- +#6#236#248#156#11#192#159#205'qA'#0'gsT'#239#139''''#192'Q.1`'#13'r'#184'u'
- +#235#150'7'#28#14'-9'#224'8'#8#2'k'#179'O'#192#230'5'#8#3#235#245#245'u'#187
- +'m'#6#128#140'5Iy'#11'J'#2';o'#3#220'X?~'#252'8'#199'6@'#142#253'e@'#199#250
- +#16#176'/'#219#191#24#167'8.'#8#224'|'#141'e'#247#235#0'9`'#24#130'0'#3'D'
- +#177#236#3#161'Y`]'#175#215#15#0#211#128#218#29#6#224#24#0'9'#214#135#0#253
- +#176'c'#23#227#12#141#11#2'x1'#198#179#220#199#163#190#246#168#224#189#0#249
- +'9'#30#23#4'p1.'#198#135'x'#252#127'p'#251'ut'#3#215#244'"'#0#0#0#0'IEND'#174
- +'B`'#130'('#0#0#0#128#0#0#0#0#1#0#0#1#0' '#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0
- +#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#1#0#0#0#1#0#0#0#2#128#128#128#2'UUU'#3'@@@'#4'333'#5'III'#7'@@@'#8
- +'999'#9'999'#9'MMM'#10'FFF'#11'FFF'#11'FFF'#11'MMM'#10'999'#9'@@@'#8'@@@'#8
- +'UUU'#6'333'#5'UUU'#3#128#128#128#2#0#0#0#2#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#1#0#0#0#1#128#128#128#2'UUU'#3'UUU'#6'@@@'#8'FFF'#11'III'#14'<<'
- +'<'#17'III'#21'EEE'#26'DDD'#30'DDD"EEE%AAA''DDD)AAA+AAA+AAA+DDD)AAA''GGG$FFF'
- +'!DDD'#30'==='#25'@@@'#20'@@@'#16';;;'#13'FFF'#11'@@@'#8'333'#5'UUU'#3#128
- +#128#128#2#0#0#0#1#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0
- +#2'UUU'#3'+++'#6'999'#9'NNN'#13'CCC'#19'BBB'#27'GGG$DDD-CCC5DDD'#211'SC6'#219'W@0'#227'[>+'#235']<('#238'^<'''#240
- +'_<%'#243'`<#'#245'a;"'#247'a:!'#248'a;"'#246'`<$'#245'_<%'#242'^='''#240'\='
- +')'#237'Z=,'#233'V@1'#225'RD8'#217'NG?'#210'JHD'#204'IHC'#204'HHD'#204'GEC'
- +#203'FEC'#202'EED'#198'EED'#195'DDC'#190'DDC'#183'DDD'#172'DDD'#157'DDD'#138
- +'DDDtCCC\DDDDCCC.@@@'#28'DDD'#15'III'#7'UUU'#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'UUU'#3'@@'
- +'@'#8'KKK'#17'HHH CCC5CCCPDDDlCCC'#134'DDC'#156'EED'#172'FEC'#185'GFD'#193'G'
- +'FC'#198'HFC'#202'IGD'#203'PE;'#213'VA0'#227']<('#239'a;#'#246'd9'#30#254'g:'
- +#29#255'g:'#30#255'i<'#30#255'j='#31#255'j>'#30#255'k>'#30#255'l?'#31#255'l@'
- +#31#255'mA'#31#255'nA'#31#255'm@'#31#255'l@'#31#255'l?'#31#255'k>'#30#255'j>'
- +#30#255'j='#31#255'i<'#30#255'g:'#30#255'f:'#29#255'd9'#31#252'`<#'#245'[=*'
- +#236'UA3'#223'MF?'#210'IHC'#204'HFD'#204'FFC'#203'FFE'#200'DDC'#197'EED'#191
- +'DCC'#182'DDD'#170'CCC'#152'CCC'#129'DDDfDDDKDDD1FFF'#29'@@@'#16'III'#7'UUU'
- +#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'UUU'#3'II'
- +'I'#7'@@@'#16'@@@ FFF7DDDRCCCoCCC'#140'DDC'#163'EED'#180'EED'#191'FFC'#198'I'
- +'GD'#201'ME?'#208'UA2'#224'\<('#238'b9 '#250'f:'#29#255'h;'#30#255'j>'#30#255
- +'m@'#31#255'oB '#255'qD '#255'sF '#255'uH!'#255'|L#'#255#128'O$'#255#133'Q%'
- +#255#136'S&'#255#139'V'''#255#143'X('#255#145'Y)'#255#142'W('#255#139'U'''
- +#255#135'S&'#255#131'Q%'#255#128'O$'#255'yK"'#255'tG!'#255'rE '#255'pD '#255
- +'nA '#255'l@'#31#255'j='#31#255'g;'#30#255'e9'#29#255'a;!'#247'Z=+'#234'RB5'
- +#221'JGC'#207'HFD'#204'FEC'#203'FFE'#200'EED'#196'DDC'#189'DDD'#177'CCC'#159
- +'DDD'#135'CCCjBBBMBBB2FFF'#29'III'#14'UUU'#6#128#128#128#2#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#2'333'#5';;;'#13'BBB'#27'AAA3BBBQDDDqDDD'#142'EED'#165
- +'EDB'#183'FEC'#194'HFD'#200'IFB'#205'SA3'#223'^;&'#242'e8'#29#255'g;'#30#255
- +'j>'#31#255'mA'#31#255'pD!'#255'tG!'#255'~M#'#255#141'W('#255#151']*'#255#160
- +'c-'#255#169'i0'#255#178'n1'#255#181'q2'#255#182's3'#255#183't3'#255#184't3'
- +#255#184'v3'#255#185'v4'#255#186'w3'#255#185'v3'#255#184'u3'#255#184't3'#255
- +#183't3'#255#182'r3'#255#181'q2'#255#175'l1'#255#166'h/'#255#158'a,'#255#149
- ,'\*'#255#138'U('#255'zK"'#255'sF '#255'pC '#255'l@'#31#255'i='#31#255'g;'#30
- +#255'c8'#31#252'[<*'#237'RC8'#218'IGD'#205'HFD'#204'EED'#201'DDC'#198'EED'
- +#191'DDD'#179'CCC'#161'DDD'#136'CCCkEEEJDDD-@@@'#24'FFF'#11'@@@'#4#0#0#0#1#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'UUU'#3'999'#9'FFF'#22'CCC*DDDGDDDiCCC'#138'EED'#165'FEC'#184'FEC'#194
- +'HHD'#200'QC9'#216'[<*'#237'c8'#31#253'g;'#30#255'j>'#31#255'nA '#255'sF!'
- +#255'|M#'#255#141'W('#255#158'a,'#255#173'k1'#255#181'r3'#255#185'v4'#255#187
- +'y4'#255#189'{4'#255#191'~5'#255#193#129'5'#255#195#131'5'#255#196#132'6'#255
- +#197#134'6'#255#198#134'6'#255#199#136'6'#255#200#136'6'#255#200#137'6'#255
- +#199#136'6'#255#198#135'6'#255#198#134'6'#255#197#133'5'#255#196#132'6'#255
- +#195#131'5'#255#193#128'5'#255#191'~4'#255#188'z4'#255#186'x4'#255#184'u3'
- +#255#181'q2'#255#168'i/'#255#153'_+'#255#137'T'''#255'yJ"'#255'rE '#255'm@'
- +#31#255'i<'#31#255'f:'#30#255'b9!'#249'X>.'#232'MD>'#212'HFD'#204'EED'#202'E'
- +'ED'#198'EED'#192'CCC'#180'CCC'#160'DDD'#132'DDDbCCCACCC&CCC'#19'@@@'#8'UUU'
- +#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5
- +'III'#14'>>>!DDD'#255
- +#232#177'>'#255#234#179'?'#255#236#181'>'#255#236#182'?'#255#237#183'?'#255
- ,#237#183'?'#255#238#183'@'#255#238#184'?'#255#238#185'?'#255#238#184'?'#255
- +#238#183'@'#255#237#182'?'#255#237#183'?'#255#236#182'?'#255#236#181'>'#255
- +#234#179'>'#255#232#176'>'#255#230#175'>'#255#229#172'='#255#227#169'='#255
- +#224#167'='#255#220#161'<'#255#217#157'<'#255#213#153';'#255#209#148':'#255
- +#204#142'9'#255#198#135'8'#255#193#129'7'#255#188'{6'#255#183't5'#255#171'k2'
- +#255#142'W)'#255'tH"'#255'nA '#255'h<'#31#255'd7'#30#255'[:('#240'KD?'#211'G'
- +'FD'#204'DDC'#201'EDD'#195'CCC'#182'CCC'#159'CCC}EEEUBBB2@@@'#24'999'#9'UUU'
- +#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'333'#5'III'#14'BBB#EEECCCCkEEE'#145'DDC'#174'FFE'#192'KE@'#206'Z;)'
- +#238'c8'#30#255'i<'#31#255'oB!'#255'|M%'#255#153'_-'#255#178'o4'#255#186'x6'
- +#255#192#128'7'#255#198#135'9'#255#204#142':'#255#209#149';'#255#214#155'='
- +#255#219#161'>'#255#223#167'>'#255#227#170'>'#255#230#174'?'#255#232#177'@'
- +#255#235#181'A'#255#237#183'A'#255#238#185'A'#255#240#187'A'#255#241#188'A'
- +#255#242#189'B'#255#243#190'A'#255#244#191'B'#255#244#192'B'#255#244#191'B'
- +#255#244#192'B'#255#244#192'B'#255#245#193'A'#255#244#192'B'#255#244#192'B'
- +#255#244#191'B'#255#244#192'B'#255#244#191'B'#255#243#190'A'#255#242#189'B'
- +#255#240#187'A'#255#239#186'A'#255#238#184'@'#255#237#183'A'#255#235#179'@'
- +#255#232#176'?'#255#229#173'?'#255#226#169'?'#255#223#165'>'#255#218#160'='
- +#255#213#153'<'#255#208#147';'#255#202#140':'#255#196#133'9'#255#190'~7'#255
- +#184'v6'#255#173'l3'#255#145'Y+'#255'uH$'#255'm@ '#255'g;'#31#255'b7'#31#253
- +'U>/'#230'IEC'#206'FFE'#202'EED'#199'CCC'#189'DDD'#170'DDD'#139'BBBdCCC=BBB'
- +#31'@@@'#12'UUU'#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'UUU'#6'KKK'#17'DDD)EEENDDDxDCC'#157'DDC'#182'GGC'#197'T=1'#225'a7 '
- +#252'g;'#31#255'l@ '#255'wI$'#255#154'^.'#255#179'o6'#255#186'x7'#255#193#128
- +'9'#255#200#137':'#255#207#146'<'#255#212#153'>'#255#217#159'>'#255#222#166
- +'?'#255#227#170'@'#255#231#175'A'#255#234#180'B'#255#236#182'B'#255#238#185
- +'B'#255#240#187'B'#255#242#190'D'#255#243#191'C'#255#244#192'D'#255#245#193
- +'C'#255#246#194'D'#255#247#194'D'#255#247#196'E'#255#247#196'D'#255#247#196
- +'D'#255#248#197'D'#255#248#197'D'#255#248#197'D'#255#248#197'D'#255#248#197
- +'D'#255#248#197'D'#255#248#196'D'#255#247#196'D'#255#247#196'D'#255#247#195
- +'E'#255#246#195'D'#255#245#193'D'#255#245#193'C'#255#244#192'D'#255#243#191
- +'C'#255#242#189'C'#255#240#186'C'#255#238#184'C'#255#236#182'B'#255#233#179
- +'B'#255#230#174'A'#255#226#169'@'#255#221#164'?'#255#216#157'>'#255#211#151
- +'='#255#205#143'<'#255#198#135':'#255#191#127'8'#255#184'w7'#255#174'l4'#255
- +#144'X+'#255'rE"'#255'j> '#255'e9'#30#255'_8"'#247'O@8'#219'GFD'#204'DDC'#201
- +'CCC'#194'CCC'#178'DDD'#151'DDDqDDDGGGG$III'#14'@@@'#4#0#0#0#1#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#2'III'#7'@@@'#20'CCC.DDDVCCC'#130'EED'#165'DDC'#189
- +'LB='#207']7$'#244'd7'#31#255'j> '#255'qE"'#255#140'W+'#255#174'l5'#255#186
- +'x8'#255#193#129':'#255#200#138'<'#255#207#146'>'#255#213#155'?'#255#220#163
- +'@'#255#225#169'A'#255#229#174'B'#255#233#179'D'#255#236#182'D'#255#239#185
- +'D'#255#241#189'E'#255#242#190'E'#255#244#192'E'#255#245#194'E'#255#246#195
- +'F'#255#247#195'F'#255#247#196'G'#255#247#197'F'#255#248#197'F'#255#248#197
- +'F'#255#249#198'F'#255#249#198'G'#255#249#198'G'#255#249#198'G'#255#249#198
- +'G'#255#249#198'G'#255#249#198'G'#255#249#198'G'#255#249#198'G'#255#249#198
- +'G'#255#249#198'G'#255#249#198'G'#255#249#198'F'#255#248#197'F'#255#248#197
- +'F'#255#247#196'F'#255#247#196'F'#255#247#195'F'#255#246#194'F'#255#244#193
- +'F'#255#243#191'E'#255#242#190'E'#255#240#188'E'#255#238#185'D'#255#235#181
- +'D'#255#232#178'C'#255#228#172'C'#255#223#167'B'#255#218#161'@'#255#212#153
- +'?'#255#205#144'='#255#198#135';'#255#191#127'9'#255#183'u7'#255#167'g3'#255
- +#130'P('#255'oB"'#255'h< '#255'c7'#30#255'X:*'#237'HFB'#207'EEE'#202'DCC'#197
- +'DDD'#184'CCC'#160'CCCzEEENFFF(@@@'#16'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2
- +'III'#7'FFF'#22'BBB2CCC\DDD'#136'DDC'#171'EED'#192'Q?5'#219'a6'#31#252'f:'#31
- +#255'mA!'#255#127'N'''#255#164'f3'#255#182'u8'#255#190#127':'#255#199#138'='
- +#255#207#147'?'#255#213#155'A'#255#220#163'B'#255#225#170'D'#255#230#177'E'
- +#255#234#181'E'#255#237#184'F'#255#240#188'G'#255#242#189'G'#255#243#192'G'
- +#255#244#193'H'#255#245#194'H'#255#246#195'H'#255#247#196'H'#255#247#197'H'
- +#255#247#197'H'#255#248#198'H'#255#248#198'H'#255#248#197'H'#255#248#198'H'
- +#255#248#198'I'#255#249#198'I'#255#249#198'I'#255#249#198'I'#255#249#198'I'
- +#255#249#198'I'#255#249#198'I'#255#249#198'I'#255#249#198'I'#255#249#198'I'
- +#255#249#198'I'#255#249#198'I'#255#248#198'I'#255#248#198'H'#255#248#198'H'
- +#255#248#198'H'#255#248#198'H'#255#247#197'H'#255#247#196'I'#255#247#195'H'
- +#255#246#195'H'#255#245#195'H'#255#244#193'H'#255#243#191'G'#255#241#189'G'
- +#255#239#186'G'#255#236#183'F'#255#233#180'F'#255#229#175'D'#255#224#168'D'
- +#255#218#161'B'#255#211#153'@'#255#205#144'?'#255#196#134'='#255#188'{:'#255
- +#180'r8'#255#155'_/'#255'wJ$'#255'j? '#255'e8'#30#255']8#'#246'LB<'#213'FEE'
- +#203'EED'#199'DDD'#188'DDD'#165'DDD'#128'DDDSFFF,GGG'#18'+++'#6#0#0#0#1#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#2'III'#7'CCC'#23'BBB6DDDaCCC'#141'DDC'#174'GDB'#196'V:+'#233'c7'#30#255'h; '
- +#255'pC#'#255#146'Z-'#255#179'p7'#255#187'{;'#255#196#133'='#255#204#144'?'
- +#255#212#154'B'#255#219#163'E'#255#225#170'E'#255#230#176'G'#255#234#181'H'
- +#255#238#185'I'#255#240#189'I'#255#242#190'J'#255#243#192'J'#255#244#193'J'
- +#255#245#195'J'#255#246#195'J'#255#246#196'J'#255#247#196'K'#255#247#196'K'
- +#255#247#197'K'#255#247#197'K'#255#247#197'K'#255#247#197'J'#255#247#197'J'
- +#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'
- +#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'
- +#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#197'J'
- +#255#247#197'J'#255#247#197'J'#255#247#197'K'#255#247#197'K'#255#247#197'K'
- +#255#247#196'K'#255#246#196'K'#255#246#196'J'#255#246#195'J'#255#245#195'J'
- +#255#244#194'J'#255#243#191'I'#255#241#189'I'#255#239#188'I'#255#236#184'H'
- +#255#233#180'H'#255#228#174'G'#255#223#168'E'#255#217#160'C'#255#210#151'B'
- +#255#202#141'?'#255#193#130'<'#255#185'x:'#255#174'm6'#255#134'S*'#255'mA"'
- +#255'f:'#31#255'a6'#30#253'R>4'#224'FFE'#203'EED'#200'CCC'#190'DDD'#169'CCC'
- +#133'CCCXAAA/CCC'#19'+++'#6#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'CCC'#23'BBB6CCCcCCC'#144'EED'#177'JC>'#202
- +'[6"'#244'c8'#31#255'j?!'#255'xI&'#255#162'd2'#255#183'u:'#255#192#129'='#255
- +#200#140'@'#255#209#150'B'#255#217#160'E'#255#223#169'G'#255#229#176'H'#255
- +#233#181'J'#255#236#185'J'#255#239#188'K'#255#241#190'K'#255#242#192'K'#255
- +#243#193'L'#255#244#194'L'#255#245#195'L'#255#245#195'L'#255#245#195'L'#255
- +#246#196'L'#255#246#196'L'#255#246#196'L'#255#246#196'L'#255#246#196'M'#255
- +#246#196'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255
- +#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255
- +#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255
- +#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#196'M'#255
- +#246#196'M'#255#246#196'M'#255#246#196'L'#255#246#196'L'#255#246#196'L'#255
- +#246#196'L'#255#245#195'L'#255#245#196'L'#255#244#195'M'#255#244#194'L'#255
- +#243#193'L'#255#242#192'L'#255#241#190'K'#255#238#188'K'#255#236#184'J'#255
- +#232#179'I'#255#228#173'H'#255#222#166'F'#255#215#158'E'#255#207#148'B'#255
- +#198#137'?'#255#190'~<'#255#180'r9'#255#150']/'#255'qE$'#255'h< '#255'b6'#30
- +#255'W9*'#235'GED'#204'DDC'#201'DDD'#192'CCC'#172'CCC'#137'DDDZAAA/GGG'#18'3'
- +'33'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'+++'#6'II'
- +'I'#21'CCC5DDDbCCC'#145'DDC'#178'LB;'#206'^6 '#249'd8'#31#255'l@!'#255#131'Q'
- +'*'#255#172'k7'#255#186'z;'#255#196#133'?'#255#205#146'C'#255#213#156'E'#255
- +#220#165'G'#255#227#173'I'#255#232#180'K'#255#236#184'L'#255#238#187'L'#255
- ,#240#189'N'#255#241#191'N'#255#242#192'N'#255#243#193'N'#255#244#194'N'#255
- +#244#194'N'#255#244#194'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#194'O'#255#244#195'N'#255#244#194'N'#255
- +#243#193'N'#255#242#192'M'#255#241#190'N'#255#240#189'M'#255#237#186'M'#255
- +#235#182'L'#255#230#178'K'#255#225#171'I'#255#219#163'G'#255#211#153'D'#255
- +#202#143'B'#255#192#130'>'#255#183'u:'#255#164'f4'#255'yK&'#255'i=!'#255'c7'
- +#30#255'Z8%'#241'GEC'#205'DDC'#201'CCC'#193'DDD'#173'DDD'#136'BBBYDDD-KKK'#17
- +'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5'CCC'#19'BBB2CCC_DD'
- +'D'#143'DDC'#178'M@8'#211'_5'#31#251'e9'#31#255'lA"'#255#144'Y/'#255#179'r9'
- +#255#188'}='#255#198#138'B'#255#208#149'D'#255#217#161'H'#255#223#170'K'#255
- +#229#177'L'#255#234#181'M'#255#236#186'N'#255#239#188'O'#255#240#190'P'#255
- +#241#191'P'#255#242#192'P'#255#242#192'P'#255#242#193'P'#255#243#193'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#193'P'#255
- +#242#193'P'#255#242#192'O'#255#242#192'P'#255#241#192'P'#255#240#190'P'#255
- +#238#188'O'#255#236#185'N'#255#232#180'M'#255#228#175'L'#255#222#167'I'#255
- +#215#159'H'#255#205#147'D'#255#196#134'@'#255#186'y<'#255#173'm7'#255#130'O*'
- +#255'j?!'#255'c8'#31#255'[7#'#245'HDA'#208'DDC'#201'CCC'#193'CCC'#172'CCC'
- +#134'AAAVAAA+@@@'#16'@@@'#4#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'#4'<<<'#17'CCC.CC'
- +'C[CCC'#140'EED'#176'O>5'#213'_5'#30#253'e9'#31#255'nB#'#255#151'\1'#255#181
- +'s:'#255#191#129'@'#255#201#142'C'#255#211#154'G'#255#219#164'K'#255#226#173
- +'M'#255#231#179'O'#255#234#184'P'#255#237#187'Q'#255#239#189'Q'#255#240#190
- +'R'#255#240#191'Q'#255#241#192'R'#255#241#192'R'#255#241#192'R'#255#242#192
- +'R'#255#242#192'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#192'R'#255#242#192'R'#255#241#192'R'#255#241#192'R'#255#241#192
- +'R'#255#240#191'Q'#255#240#190'R'#255#238#189'Q'#255#236#186'P'#255#234#182
- +'O'#255#230#177'N'#255#224#171'L'#255#217#162'J'#255#208#150'F'#255#198#138
- +'C'#255#188'}>'#255#177'o:'#255#136'S,'#255'k?"'#255'c8'#31#255'\6!'#248'JC?'
- +#211'DCC'#201'CCC'#193'CCC'#171'BBB'#131'DDDRAAA''777'#14'UUU'#3#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +'UUU'#3';;;'#13'AAA''CCCTBBB'#135'DDC'#174'N=5'#213'`4'#29#254'e9'#31#255'oC'
- +'$'#255#156'`3'#255#181'u<'#255#193#131'A'#255#204#146'E'#255#213#157'I'#255
- +#221#167'M'#255#227#175'O'#255#232#180'Q'#255#235#184'R'#255#237#187'S'#255
- +#238#189'S'#255#239#190'S'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- ,#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#234#187'R'#255#202#161'G'#255#232#185'R'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#239#189'S'#255#238#188'R'#255#236#186'R'#255#234#184'Q'#255#231#179'Q'#255
- +#226#173'O'#255#219#165'L'#255#211#154'H'#255#201#142'E'#255#190#128'@'#255
- +#179'q:'#255#140'V.'#255'l@"'#255'c8'#31#255'\4'#31#250'JC>'#211'CCC'#201'DD'
- +'D'#192'CCC'#168'CCC~DDDKFFF!MMM'#10#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#2'333'#10'@@@ EEE'
- +'JCCC~EDD'#169'L?8'#208'^4'#30#253'd8 '#255'pD%'#255#159'b4'#255#182'v='#255
- +#194#132'C'#255#205#147'H'#255#215#160'L'#255#222#169'O'#255#228#176'Q'#255
- +#232#181'S'#255#235#185'T'#255#236#187'T'#255#237#188'U'#255#238#189'U'#255
- +#238#190'U'#255#238#190'U'#255#238#191'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#181#144'@'#255
- +';/'#21#255#21#16#7#255#9#7#3#255#2#2#1#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1
- +#1#255#7#6#3#255#17#14#6#255#31#25#11#255'2'''#18#255'SB'#29#255#157'}8'#255
- +#233#186'S'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#238#190'U'#255#238#190'U'#255
- +#238#190'U'#255#238#189'U'#255#237#188'U'#255#236#186'T'#255#234#184'T'#255
- +#231#180'S'#255#226#175'Q'#255#220#166'N'#255#212#156'K'#255#202#143'F'#255
- +#190#129'A'#255#179'r<'#255#145'Y0'#255'k?"'#255'c7'#31#255'[4 '#248'IC@'#209
- +'DDD'#200'CCC'#190'CCC'#163'DDDtCCCAEEE'#26'III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'==='#25'AAA?CCCsBBB'
- +#162'K?;'#202'^4'#30#252'c8 '#255'oB%'#255#160'b5'#255#183'v>'#255#194#134'D'
- +#255#205#148'J'#255#215#161'M'#255#223#171'Q'#255#228#177'T'#255#232#182'U'
- +#255#234#185'V'#255#236#187'V'#255#236#187'V'#255#237#188'W'#255#237#189'W'
- +#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'
- +#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'
- +#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'
- +#255#237#188'W'#255#237#188'W'#255#159'~:'#255#16#13#6#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255#16#13#6
- +#255'9-'#21#255'y`,'#255#208#165'M'#255#237#188'W'#255#237#188'W'#255#237#188
- +'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188
- +'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188
- +'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#189'W'#255#237#188
- +'W'#255#236#187'V'#255#235#186'V'#255#234#184'U'#255#231#180'U'#255#227#175
- +'R'#255#221#169'Q'#255#213#157'L'#255#202#144'H'#255#191#129'C'#255#180's='
- +#255#145'X0'#255'j>#'#255'b6'#31#255'Z5#'#245'GDB'#206'DDD'#200'CCC'#186'DDD'
- +#154'EEEhBBB6@@@'#20'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'@@@'#4'GGG'#18'AAA3DDDfCCC'#152'IA>'#195'\4 '#250'c7'#31#255'm@#'#255
- +#156'_5'#255#182'v?'#255#194#134'E'#255#206#148'K'#255#215#161'O'#255#223#171
- +'S'#255#228#178'V'#255#232#182'V'#255#233#185'X'#255#234#186'X'#255#235#187
- +'X'#255#236#187'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188
- +'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188
- +'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188
- +'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255'9-'#21
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#6
- +#5#2#255'$'#29#14#255'ZH"'#255#169#135'@'#255#234#186'X'#255#236#188'X'#255
- ,#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255
- +#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255
- +#236#188'X'#255#236#187'X'#255#235#187'Y'#255#235#186'X'#255#234#186'X'#255
- +#233#184'W'#255#231#180'W'#255#227#176'T'#255#221#169'R'#255#213#158'N'#255
- +#203#145'J'#255#192#130'D'#255#179's='#255#139'U/'#255'i="'#255'a5'#30#255'X'
- +'7%'#242'FDC'#204'CCC'#198'DDD'#180'CCC'#144'CCC[AAA+III'#14'UUU'#3#0#0#0#1#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#2'@@@'#12'AAA''CCCWCCC'#140'GB?'
- +#185'Z4!'#247'a6'#30#255'j?"'#255#151']2'#255#181't>'#255#194#133'F'#255#206
- +#149'M'#255#215#161'Q'#255#223#170'T'#255#228#178'W'#255#231#181'Y'#255#232
- +#183'Y'#255#233#185'Z'#255#234#185'Y'#255#234#186'Y'#255#234#186'Y'#255#234
- +#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234
- +#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234
- +#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234
- +#186'Z'#255#234#186'Z'#255'C5'#26#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#1#1#1#255#20#16#8#255'K;'#29#255#189#150'I'#255#234#186'Z'#255#234#186
- +'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186
- +'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Y'#255#234#186
- +'Y'#255#234#185'Y'#255#233#185'Z'#255#232#183'Y'#255#230#181'X'#255#226#176
- +'W'#255#221#169'T'#255#213#159'O'#255#203#145'K'#255#190#129'D'#255#178'p='
- +#255#134'Q-'#255'g;"'#255'`4'#29#255'U7('#238'CCC'#202'DDD'#195'DDD'#173'BBB'
- +#131'CCCL@@@ 999'#9#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'BBB'#27'CC'
- +'CEDDD|DDD'#170'V6%'#238'`5'#30#255'h<"'#255#145'Y1'#255#179's?'#255#192#132
- +'F'#255#205#148'M'#255#215#161'R'#255#222#171'U'#255#227#176'X'#255#230#181
- +'Z'#255#231#183'Z'#255#232#183'['#255#232#184'['#255#233#185'['#255#233#185
- +'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185
- +'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185
- +'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185
- +'['#255#233#185'['#255#233#185'['#255#127'd1'#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#13#11#5
- +#255'N>'#31#255#193#153'L'#255#233#185'['#255#233#185'['#255#233#185'['#255
- +#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255
- +#233#185'['#255#233#184'['#255#232#184'['#255#232#183'Z'#255#231#182'Z'#255
- +#229#180'Y'#255#226#175'X'#255#220#168'U'#255#213#158'R'#255#201#144'K'#255
- +#189#127'D'#255#175'n<'#255#128'N+'#255'e9 '#255'_3'#29#255'Q;1'#227'CCC'#201
- +'CCC'#191'CCC'#163'CCCrAAA;FFF'#22'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'#4'<<<'
- +#17'AAA3EEEhCCC'#156'R:/'#220'_3'#29#255'e: '#255#134'Q-'#255#178'p>'#255#190
- +#130'F'#255#203#145'M'#255#213#161'S'#255#221#170'W'#255#226#176'Z'#255#229
- +#180'Z'#255#230#182'\'#255#231#182'\'#255#231#183'\'#255#231#183'\'#255#231
- +#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231
- +#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231
- +#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231
- +#183'\'#255#231#183'\'#255#231#183'\'#255#180#142'G'#255#1#1#1#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#15#12#6#255'VE"'#255#215#171'V'#255
- +#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255
- +#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#182'\'#255
- +#230#181'['#255#228#178'['#255#225#175'Y'#255#219#168'W'#255#211#156'Q'#255
- +#200#142'K'#255#187'|D'#255#172'k<'#255'wF('#255'c7 '#255'^1'#30#254'K@:'#214
- +'DDD'#199'CCC'#184'CCC'#148'AAA^GGG+NNN'#13'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'MMM'#10'@'
- +'@@$DDDSDDD'#139'L?8'#197'^1'#29#254'c7 '#255'wG)'#255#173'l<'#255#188#127'E'
- +#255#201#144'N'#255#212#158'T'#255#220#169'X'#255#225#175'['#255#228#179'\'
- +#255#229#180'\'#255#230#181']'#255#230#181']'#255#230#182']'#255#230#182']'
- +#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'
- +#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'
- +#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'
- +#255#230#182']'#255#230#182']'#255#221#175'Y'#255#10#8#4#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1#255'4'
- +')'#21#255#184#146'J'#255#230#182']'#255#230#182']'#255#230#182']'#255#230
- +#182']'#255#230#182']'#255#230#182']'#255#230#182']'#255#230#181']'#255#229
- +#182']'#255#228#180']'#255#227#178'\'#255#224#174'['#255#218#166'W'#255#209
- +#155'R'#255#198#139'K'#255#184'zC'#255#162'd8'#255'l@$'#255'a5'#30#255'Z3 '
- +#249'FBA'#206'DDD'#196'CCC'#174'CCC'#129'BBBIFFF'#29'@@@'#8#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5'FF'
- +'F'#22'BBB>CCCvFA?'#174'Z3'#31#248'`5'#30#255'l@$'#255#163'd9'#255#184'{D'
- +#255#199#142'N'#255#210#156'T'#255#218#167'Y'#255#223#174'\'#255#226#177'^'
- +#255#228#179'^'#255#228#179'^'#255#228#180'_'#255#228#180'_'#255#228#180'_'
- +#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'
- +#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'
- +#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'
- +#255#228#180'_'#255#228#180'_'#255#228#180'_'#255'bM)'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#27#21#11#255#140'o;'#255#228#180'_'#255#228#180
- +'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180
- +'_'#255#228#179'^'#255#227#179'^'#255#226#176']'#255#222#172'['#255#216#164
- +'X'#255#207#152'R'#255#195#137'K'#255#181'tA'#255#149'Z3'#255'g<"'#255'_3'#29
- +#255'V6'''#239'CCC'#201'CCC'#190'CCC'#159'CCCkCCC5GGG'#18'@@@'#4#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'@@@'#12'CCC'
- +'*DDD^DDD'#150'U6('#230'^2'#28#255'f:!'#255#149'Z3'#255#181'uB'#255#195#137
- +'K'#255#208#154'T'#255#216#165'Y'#255#221#172']'#255#225#176'^'#255#226#178
- +'_'#255#227#178'_'#255#227#178'_'#255#227#179'_'#255#227#179'_'#255#227#179
- +'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179
- +'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179
- +'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179
- +'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#13#10#6#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'&'#30#16#255#208#164
- +'W'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#178
- +'_'#255#227#178'_'#255#226#179'`'#255#226#177'_'#255#224#176'^'#255#220#170
- +'\'#255#214#162'X'#255#205#149'R'#255#191#131'I'#255#177'p?'#255#131'O.'#255
- +'c7 '#255']1'#29#255'N;3'#222'DDD'#199'DDD'#181'CCC'#140'DDDSDDD"999'#9#0#0#0
- +#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'+++'#6'@@@'#24
- +'EEECCCC~K=7'#193']0'#28#255'b6'#31#255#129'M,'#255#177'o@'#255#191#131'J'
- +#255#204#149'S'#255#214#163'Z'#255#220#171']'#255#223#174'_'#255#225#176'`'
- +#255#225#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'
- +#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'
- +#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'
- ,#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'
- +#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#161'~D'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#4#3#2
- +#255#134'i9'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255
- +#226#177'`'#255#225#178'`'#255#225#177'`'#255#224#176'_'#255#222#174'^'#255
- +#219#169']'#255#212#159'X'#255#200#144'Q'#255#187'~G'#255#170'j<'#255'qB%'
- +#255'`5'#30#255'Z2'#31#250'FBA'#205'CCC'#193'DDD'#166'CCCsCCC9CCC'#19'@@@'#4
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'@@@'#12'AAA+BBB'
- +'aDBB'#155'Y3!'#244'_3'#29#255'l?$'#255#167'f;'#255#186'}H'#255#200#144'R'
- +#255#211#158'Y'#255#218#168']'#255#221#172'`'#255#223#174'a'#255#223#176'a'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255'hR.'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'qY2'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176
- +'b'#255#224#176'b'#255#224#176'b'#255#223#176'a'#255#223#174'`'#255#221#172
- +'_'#255#217#166']'#255#208#155'W'#255#196#139'O'#255#182'wE'#255#152'\5'#255
- +'e9!'#255'^2'#29#255'S7*'#233'DDD'#200'CCC'#183'DDD'#143'EEEUDDD"UUU'#9#0#0#0
- +#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5'@@@'#24'DDDDCCC~P8-'
- +#211']0'#29#255'c8!'#255#144'V2'#255#180'uD'#255#196#138'P'#255#207#155'X'
- +#255#215#165']'#255#220#171'`'#255#221#173'b'#255#222#174'a'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255'VD&'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#1#1#0#255#166#132'J'#255#222#175'b'#255#222#175'b'#255#222#175
- +'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#174'a'#255#221#173
- +'a'#255#219#170'`'#255#213#163'\'#255#205#150'V'#255#192#132'M'#255#176'oA'
- +#255'}K,'#255'a5'#31#255'\0'#28#254'I?;'#212'CCC'#194'DDD'#166'CCCrDDD8GGG'
- +#18'@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'FFF'#11'DDD)BBB`G@<'
- +#164'[1'#29#252'_3'#29#255'uD)'#255#174'l?'#255#189#130'L'#255#204#150'V'#255
- +#213#162'^'#255#217#168'`'#255#220#172'b'#255#221#173'b'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255'gQ.'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- ,#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#8#6#4#255#207#163']'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#172'b'#255#219#171'b'#255#217#167'`'#255#211#159'['#255#200#145'T'#255
- +#185'{H'#255#164'd;'#255'h<#'#255'^1'#29#255'X3#'#244'DDD'#200'CCC'#183'DDD'
- +#142'DDDSFFF!@@@'#8#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4'III'#21'EEE?DD'
- +'D|S5'''#222'\1'#28#255'c8!'#255#158'_8'#255#183'yH'#255#198#142'S'#255#209
- +#158'\'#255#215#166'`'#255#218#170'b'#255#219#171'c'#255#219#171'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#213
- +#168'b'#255#3#3#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'M<#'#255#219#172
- +'d'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172
- +'d'#255#219#171'd'#255#219#170'c'#255#217#168'b'#255#214#164'`'#255#207#153
- +'Z'#255#194#136'P'#255#178'rD'#255#139'R1'#255'a4'#31#255'\0'#28#255'L<5'#219
- +'CCC'#193'DDD'#164'CCCoCCC5@@@'#16'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'#8
- +'BBB#CCCWHA='#158'\0'#28#253'_3'#29#255'~I+'#255#175'nB'#255#191#133'O'#255
- +#205#151'Z'#255#213#163'a'#255#216#167'c'#255#217#169'c'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255'YF)'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#15#12#7#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#169'c'#255#217#168'c'#255
- +#215#166'b'#255#211#160'_'#255#201#147'W'#255#187#127'L'#255#169'h>'#255'l=$'
- +#255'^1'#29#255'W3"'#244'DDD'#199'DDD'#180'DDD'#136'DDDKBBB'#27'UUU'#6#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'UUU'#3'DDD'#15'EEE4BBBpS6)'#215'\1'#28#255'b7!'#255#158'_9'
- +#255#184'{J'#255#199#144'W'#255#209#158'_'#255#214#165'c'#255#216#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +'YD)'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#189#147'W'#255#217#168'd'
- +#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'
- +#255#217#168'd'#255#216#168'd'#255#215#167'c'#255#213#164'a'#255#207#154']'
- +#255#195#138'S'#255#179'tF'#255#139'R1'#255'`5'#30#255'\0'#28#255'K=7'#216'D'
- +'DD'#191'DDD'#157'CCCcAAA+FFF'#11#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'+++'#6'EEE'#26'BBBIE?='
- +#144'Z0'#28#252'^2'#29#255'zF*'#255#174'mB'#255#192#135'R'#255#205#152'\'#255
- +#211#161'b'#255#214#165'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255'jR1'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'fN/'#255#215#166'd'#255#215#166'd'#255#215#166'd'
- +#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'
- +#255#215#167'e'#255#214#164'c'#255#210#159'a'#255#202#148'Z'#255#187#128'N'
- +#255#168'f='#255'i;#'#255'\1'#28#255'V3#'#242'CCC'#197'DDD'#173'BBB{FFF>@@@'
- +#20'@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#1'MMM'#10'FFF(CCC_R6*'#206'\0'#28#255'`5'#31#255#154'\8'
- +#255#182'yJ'#255#199#144'Y'#255#208#156'`'#255#212#163'd'#255#213#165'd'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#135'h@'#255#2#1#1#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'b'
- +'L/'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165
- +'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#213#165'e'#255#213#164
- +'d'#255#211#161'c'#255#206#154'^'#255#194#139'U'#255#177'sF'#255#135'P/'#255
- +'^3'#29#255'[/'#27#255'J>9'#213'DDD'#185'CCC'#144'DDDSHHH III'#7#0#0#0#1#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3
- +'<<<'#17'DDD8DBAyZ0'#29#248'\1'#28#255'uB'''#255#172'lA'#255#190#132'Q'#255
- +#203#151'^'#255#209#160'c'#255#211#162'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#156'xK'#255#1#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'jQ2'#255#212
- +#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212
- +#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#162'e'#255#211
- +#162'd'#255#208#158'b'#255#200#147'['#255#186'~M'#255#165'd<'#255'd8!'#255'\'
- +'0'#28#255'T5'''#237'CCC'#193'DDD'#162'CCCjCCC.@@@'#12#0#0#0#2#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'333'#5'GGG'#25'BB'
- +'BIN:1'#174'[/'#27#255'^2'#29#255#145'T3'#255#180'vI'#255#196#142'Y'#255#206
- +#155'a'#255#209#161'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- ,#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255'O=&'#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'sX7'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#210
- +#161'f'#255#209#159'd'#255#204#153'`'#255#192#135'U'#255#175'pE'#255'~H+'#255
- +']0'#29#255'Z0'#28#253'FBA'#201'DDD'#176'CCC~FFF>CCC'#19'@@@'#4#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'999'#9'EEE%CCC[V3'
- +'$'#222'\0'#27#255'f7!'#255#167'd>'#255#187#128'Q'#255#200#148'^'#255#207#156
- +'d'#255#209#159'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160
- +'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160
- +'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160
- +'e'#255#209#160'e'#255#209#160'e'#255#151'tI'#255'2&'#25#255#27#21#13#255#15
- +#12#7#255#7#5#3#255#7#5#3#255' '#25#16#255'P='''#255#151'tI'#255#209#160'e'
- +#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'
- +#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'
- +#255#209#160'e'#255#209#160'e'#255#6#5#3#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#146'pF'#255#209#160'e'#255#209#160'e'#255
- +#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255
- +#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#159'e'#255
- +#206#155'c'#255#198#143'['#255#182'zM'#255#151'Y6'#255'^3'#29#255'[/'#27#255
- +'N:1'#222'DDD'#185'DDD'#142'DDDOIII'#28'+++'#6#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2';;;'#13'DDD1F@=x[/'#28#253'\1'#28
- +#255'~G+'#255#174'oE'#255#193#137'X'#255#203#151'b'#255#207#156'e'#255#207
- +#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208
- +#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208
- +#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255'x[;'
- +#255#15#12#8#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#4#3#2#255'bJ0'#255#208#158'f'#255#208#158'f'
- +#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'
- +#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255'3'''#25#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#1#255#208#158'f'
- +#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'
- +#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'
- +#255#208#158'f'#255#207#158'e'#255#206#156'd'#255#201#149'_'#255#189#131'T'
- +#255#169'h@'#255'j:#'#255'\0'#28#255'V3#'#242'DDD'#191'CCC'#156'BBB`AAA''333'
- +#10#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4'C'
- +'CC'#19'EEE?Q7+'#179'[/'#27#255'^1'#29#255#152'X6'#255#181'yM'#255#197#144']'
- +#255#204#153'c'#255#206#155'f'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#202#154'c'#255'6)'#27#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#14#10#7#255#178#135'W'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255'WB+'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- ,#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#29#22#14#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#205#156'e'
- +#255#203#151'c'#255#194#139'Z'#255#176'qH'#255#131'K-'#255'\1'#28#255'[/'#27
- +#255'HA='#204'DDD'#169'DDDqEEE4III'#14#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'+++'#6'BBB'#27'EEENW2!'#228'[/'#27#255'i9!'
- +#255#168'e?'#255#187#130'T'#255#200#147'`'#255#203#153'e'#255#205#154'e'#255
- +#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255
- +#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255
- +#205#154'e'#255#205#154'e'#255#199#150'a'#255#19#14#9#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#7#6#4#255#178#133'W'
- +#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'
- +#255#205#154'e'#255#205#154'e'#255#205#154'e'#255'S>)'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#128'a?'#255#205#154'e'#255#205#154'e'
- +#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'
- +#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'
- +#255#205#154'e'#255#204#154'e'#255#203#152'd'#255#197#145'^'#255#182'zO'#255
- +#157'Z8'#255']1'#29#255'[/'#27#255'P9.'#226'CCC'#179'CCC'#129'CCCA@@@'#20'@@'
- +'@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'999'#9'EEE%EA?'
- +'b[/'#27#253'\0'#27#255#127'F*'#255#173'nG'#255#191#136'Z'#255#200#149'c'#255
- +#202#152'e'#255#202#152'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#31#24#16#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#11#8#6#255#200#151'e'#255#202#153'e'#255#202#153'e'#255#202
- +#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255'O;'''
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255''''#29#19#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#152'e'#255#202#151'd'#255
- +#199#147'b'#255#188#130'U'#255#168'e@'#255'k:"'#255'[/'#27#255'V3$'#241'CCC'
- +#186'BBB'#142'EEENBBB'#27'+++'#6#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#2'@@@'#12'DDD-O:0'#146'[/'#27#255'\0'#28#255#145'R2'#255#179'wM'
- +#255#194#141'^'#255#200#148'c'#255#201#150'e'#255#201#150'e'#255#201#150'e'
- +#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'
- +#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'
- +#255';,'#30#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'S>*'#255#201#150'e'
- +#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'
- +#255#201#150'e'#255'K8&'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#29#22#14#255
- +#184#138']'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255
- ,#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255
- +#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255
- +#201#150'e'#255#200#149'd'#255#199#148'c'#255#191#136'['#255#173'mG'#255'}D('
- +#255'\0'#27#255'Z0'#28#253'DBB'#192'CCC'#152'DDDZBBB#@@@'#8#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#2'III'#14'CCC5T5'''#190'[/'#27#255
- +'_2'#29#255#162'^:'#255#184'}S'#255#195#142'`'#255#198#147'd'#255#199#148'd'
- +#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'
- +#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'
- +#255#199#148'd'#255#147'mJ'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#3#2#1#255#195#144'b'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255
- +#199#148'd'#255#199#148'd'#255#199#148'd'#255'H6$'#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#3#2#1#255#23#17#12
- +#255'qT8'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199
- +#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199
- +#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199
- +#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#198#146'c'#255#193
- +#140'^'#255#178'uN'#255#143'O1'#255'\0'#28#255'[/'#27#255'J=7'#208'CCC'#161
- +'DDDfAAA+FFF'#11#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'<<<'
- +#17'CCC=X1 '#227'[/'#27#255'm:"'#255#167'eA'#255#187#130'X'#255#195#143'a'
- +#255#196#144'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'
- +#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'
- +#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#19#14#10#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#135'cD'#255#197#145'c'#255#197
- +#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255'I5$'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#19#14#10#255'4&'#26#255'cI2'#255
- +#161'vP'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197
- +#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197
- +#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197
- +#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197
- +#145'c'#255#197#145'b'#255#196#144'c'#255#194#140'`'#255#182'|S'#255#159'\:'
- +#255']2'#28#255'[/'#27#255'Q8-'#226'DDD'#168'DDDqAAA3NNN'#13#128#128#128#2#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4':::'#22'G@/[/'#27
- +#254'[/'#27#255'}A&'#255#167'gD'#255#180'zW'#255#181'|Y'#255#181'|Y'#255#181
- +'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'
- +#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#136']C'#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#19#13#9#255#151'gJ'#255#181'|Y'#255#181'|Y'#255#181
- +'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'
- +#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#171'vU'#255'1"'#24#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'}V>'#255
- +#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181
- +'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'
- +#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255
- +#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181
- +'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'
- +#255#181'|Y'#255#181'|Y'#255#178'wT'#255#161'];'#255'k8 '#255'[/'#27#255'V3#'
- +#238'DDD'#151'CCCWFFF!@@@'#8#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'FFF'#11
- +'K:3?[/'#27#255'[/'#27#255#131'F*'#255#169'iH'#255#179'xV'#255#180'zW'#255
- +#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180
- +'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255'<)'#29#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#1#1#1#255'O6&'#255#180'{W'#255#180'{W'#255#180'{W'#255#180
- +'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'
- +#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255
- +#180'{W'#255#142'aE'#255#27#19#13#255#2#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255
- ,#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8#5#4#255
- +#135']A'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180
- +'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255'pL6'#255'+'#29#20#255'('#28#19
- +#255'*'#28#20#255'+'#29#21#255'-'#30#21#255'fF2'#255#180'{W'#255#180'{W'#255
- +#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180
- +'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'
- +#255#180'{W'#255#180'{W'#255#180'{W'#255#180'zX'#255#178'vU'#255#163'_>'#255
- +'r<"'#255'[/'#27#255'X2!'#243'CCC'#152'BBBYDDD"@@@'#8#0#0#0#1#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#2'FFF'#11'N8.J[/'#27#255'[/'#27#255#135'H,'#255#170'kI'#255
- +#178'wV'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179
- +'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'
- +#255#16#11#8#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#19#13#10#255#150'fJ'#255#179'yX'#255#179
- +'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'
- +#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255
- +#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179
- +'yX'#255'~V>'#255'=)'#30#255#19#13#9#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255'$'#24#17#255#172'uT'#255#179'yX'#255#179'yX'#255#179'yX'
- +#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#158'kN'#255'=)'#30#255#6
- +#4#3#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#6#4#3#255'?+'#31#255#164'oP'#255#179'yX'#255#179'yX'#255#179'yX'#255#179
- +'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'
- +#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255
- +#177'uU'#255#164'b@'#255'v?%'#255'[/'#27#255'Y1'#31#246'CCC'#152'BBBYDDD"@@@'
- +#8#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'FFF'#11'Q7+U[/'#27#255'\0'#28#255
- +#139'J-'#255#171'lL'#255#177'wW'#255#178'wV'#255#178'wV'#255#178'wV'#255#178
- +'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'
- +#255#178'wV'#255#172'sT'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1#255'O5&'#255#178'wV'#255#178'wV'
- +#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255
- +#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178
- +'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'
- +#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#176'wV'#255
- +'vO9'#255'7%'#27#255#16#10#8#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#11#8#6#255'9&'#28#255#137'\C'#255#178'wV'#255#178'wV'#255
- +#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255'M3%'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'4"'#25#255#178'wV'
- +#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255
- +#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178
- +'wV'#255#178'wV'#255#176'tT'#255#165'cC'#255'yA'''#255'[/'#27#255'Z0'#29#250
- +'DDD'#150'CCCWFFF!III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'MMM'#10'R4'
- +'''^[/'#27#255'\0'#28#255#142'M.'#255#171'nN'#255#177'uV'#255#177'wX'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255#177'wX'#255'gF3'#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#23#16#12#255#152'fK'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255
- +#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#173'uV'#255
- +#136'\D'#255#133'YB'#255#131'XA'#255#128'V@'#255#153'gL'#255#177'wX'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255'S8)'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255'"'#23#17#255#175'wX'#255#177'wX'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#175'tU'#255
- +#166'eE'#255'}B)'#255'\0'#28#255'[/'#28#253'CCC'#148'CCCTBBB'#31'III'#7#0#0#0
- ,#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'999'#9'V4%h[/'#27#255'\0'#28#255#145'O0'
- +#255#171'mN'#255#175'sU'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175
- +'uW'#255'*'#29#21#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2
- +#1#1#255'X;,'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175
- +'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'
- +#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175
- +'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'
- +#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255'^?/'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'$'#24#18#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175
- +'uW'#255#175'uW'#255#175'uW'#255#175'sT'#255#166'eE'#255#128'D*'#255'\0'#28
- +#255'[/'#27#255'ECB'#149'CCCP@@@'#28'UUU'#6#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'@@@'#8'W3#q[/'#27#255'\1'#29#255#150'Q1'#255#171'mN'#255#174'sU'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#15#10#8#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#4#3#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#29#19#14#255#156'iM'#255#175'uV'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'
- +#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'
- +#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#11#7#6#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255'sM9'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'tV'#255#174'rS'#255#167'fG'#255#131'G,'#255'\0'#28#255'[/'#27#255'GA?'#150
- +'CCCLGGG'#25'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'W3#k[/'#27
- +#255'\1'#29#255#149'P2'#255#169'lM'#255#174'qT'#255#175'tV'#255#175'tV'#255
- +#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175
- +'tV'#255#175'tV'#255#175'tV'#255#9#6#4#255#0#0#0#255#0#0#0#255#0#0#0#255#136
- +'ZC'#255'T8*'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#7#5#3#255
- +'bA0'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'
- +#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255
- +#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175
- +'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'
- +#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255
- +#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175
- +'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'
- +#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255
- +#165'nR'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#10#7#5#255#175'tV'#255#175
- +'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'
- +#255#175'tV'#255#175'tV'#255#175'tV'#255#174'sU'#255#173'qR'#255#166'eG'#255
- +#131'F,'#255'\0'#28#255'[/'#27#255'EA?'#145'DDDGFFF'#22'@@@'#4#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5'W3#\[/'#27#255'\1'#29#255#146'P3'#255#168
- +'jM'#255#173'pT'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'
- +#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#4#3#2#255#0#0#0#255#0#0#0#255#21#14#10#255#173'rU'#255#173'rU'#255#152'dK'
- +#255'dB1'#255'A+ '#255'D-!'#255#141']E'#255#173'rU'#255#173'rU'#255#173'rU'
- +#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173
- +'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'
- ,#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173
- +'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'
- +#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#169'pS'#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#139'\D'#255#173'rU'#255#173'rU'
- +#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#173'rU'#255#173'rU'#255#173'qT'#255#172'oR'#255#165'cF'#255#128'E+'#255'\0'
- +#28#255'[/'#27#255'CBA'#132'DDD@CCC'#19'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0'@@@'#4'U2"L[/'#27#255'\1'#29#255#143'N3'#255#168'hK'#255#172'oT'
- +#255#173'qU'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#1#1#1#255#0#0#0
- +#255#0#0#0#255'nI7'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173
- +'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'
- +#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173
- +'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'
- +#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173
- +'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'
- +#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#2#1#1#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255'H0$'#255#173'rV'#255#173'rV'#255#173'rV'
- +#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'qU'#255#171'nQ'#255#165'dF'#255'~D+'#255'\1'#29#255'Z0'#28
- +#252'CCCzCCC9@@@'#16#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U'
- +'UU'#3'T2#=[/'#27#255'\1'#29#255#140'N1'#255#166'gI'#255#171'oR'#255#173'qU'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#1#1#1#255#27#18#13#255'a@0'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173
- +'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173
- +'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173
- +'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255'$'#24#18#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#31#20#15#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173
- +'qU'#255#172'pT'#255#169'lP'#255#164'aD'#255'{C*'#255'\1'#29#255'Y0'#30#247
- +'CCCoBBB2;;;'#13#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128
- +#2'V6''-[/'#27#255'\1'#29#255#137'L0'#255#165'fH'#255#170'mQ'#255#172'pT'#255
- +#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172
- +'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#166'lS'#255#172'pU'#255#172'pU'
- +#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255
- +#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172
- +'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'
- +#255#172'pU'#255#172'pU'#255#172'pU'#255#168'nS'#255#134'WB'#255'b@0'#255'tK'
- +'9'#255#166'lS'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'
- +#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255
- +#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172
- +'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'
- +#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255
- +#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#129'T@'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- ,#255#0#0#0#255#0#0#0#255#22#14#11#255#172'pU'#255#172'pU'#255#172'pU'#255#172
- +'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'
- +#255#172'oT'#255#170'mP'#255#163'`C'#255'xB*'#255'\1'#29#255'Y1'#31#241'BBBd'
- +'CCC*MMM'#10#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'T7*'#29
- +'[/'#27#255'\1'#29#255#134'J0'#255#165'dG'#255#169'lQ'#255#171'pU'#255#172'q'
- +'W'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'
- +#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255
- +#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172
- +'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'
- +#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255
- +#135'YD'#255'$'#24#18#255#3#2#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#8#5#4#255#30#20#16#255'xO='#255#172'qW'#255#172'qW'#255#172'qW'#255
- +#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172
- +'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'
- +#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255
- +#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172
- +'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#14#9#7#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#20#13#10#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'
- +#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#171'oT'#255
- +#169'jM'#255#162'_A'#255's>'''#255'\1'#29#255'X2 '#234'CCCXDDD"@@@'#8#0#0#0#1
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'C><'#9'[/'#27#247'\1'#29#255
- +'}F-'#255#164'bE'#255#169'lO'#255#171'pT'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255
- +#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172
- +'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255
- +#172'qV'#255#172'qV'#255#154'eM'#255#22#15#11#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#25#17#13#255#136'ZE'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255
- +#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172
- +'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255
- +#172'qV'#255'U7*'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#17#11#9#255#172'qV'#255#172
- +'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#171'oT'#255#168'jM'#255#161'^@'#255'k;%'#255'\0'
- +#28#255'V3#'#220'CCCLEEE'#26'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'+++'#6'[/'#28#214'\1'#29#255't@)'#255#162'`B'#255#168'jO'#255
- +#172'pV'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173
- +'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'
- +#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255
- +#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173
- +'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#144'_I'#255#6#4#3
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'Z;-'#255
- +#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173
- +'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'
- +#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255
- +#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173
- +'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#171'pV'#255#3#2#1#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255'!'#22#17#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'
- +#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#172'qX'#255#171'oU'#255
- +#167'hM'#255#160'[>'#255'b5!'#255'\0'#28#255'S5'''#196'EEE?CCC'#19'@@@'#4#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'Z0'#29#176'\1'#29
- +#255'k:%'#255#162'^A'#255#169'jN'#255#173'qV'#255#174'sY'#255#174'sY'#255#174
- +'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- +#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255
- +#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174
- ,'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- +#255#151'dM'#255#4#2#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#1#1#1#255#136'YF'#255#174'sY'#255#174'sY'#255#174's'
- +'Y'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- +#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255
- +#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174
- +'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- +#255#174'sY'#255'5#'#27#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'G.$'#255#174'sY'#255#174'sY'#255
- +#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174
- +'sY'#255#174'sY'#255#172'pV'#255#167'gK'#255#153'X:'#255'^3'#31#255'\0'#28
- +#255'Q7+'#166'BBB2777'#14#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#2'Z0'#29#137'\0'#28#255'a5!'#255#160']>'#255#168'jN'#255
- +#173'sY'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175
- +'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'
- +#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255
- +#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175
- +'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#29#20#15#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8
- +#5#4#255#169'rX'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'
- +#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255
- +#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175
- +'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'
- +#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#156'jR'#255#1#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255'yQ?'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255
- +#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#174'u['#255#172'qV'#255#166
- +'gJ'#255#143'S6'#255'^2'#31#255'[/'#27#255'O;2'#130'CCC&999'#9#0#0#0#1#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'Z0'#29'a\0'#28#255
- +'^3'#31#255#153'W;'#255#168'jN'#255#174'tZ'#255#176'x_'#255#176'y_'#255#176
- +'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'
- +#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255
- +#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176
- +'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255'oL='#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255']@2'#255#176'y_'#255#176'y_'#255#176
- +'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255'Z=1'#255')'#28#22#255#26#18#14
- +#255#14#10#8#255#10#7#5#255#23#16#12#255'+'#30#23#255'E0&'#255#138'_J'#255
- +#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176
- +'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'
- +#255#176'y_'#255'#'#24#19#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#172'w]'#255#176'y_'#255#176'y_'#255
- +#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176
- +'y_'#255#175'w^'#255#172'rW'#255#165'fI'#255#134'K2'#255']1'#30#255'[/'#27
- +#255'H?:ZBBB'#27'+++'#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'X/'#29'7[/'#27#255'^2'#31#255#141'P5'#255#167'hK'#255#174
- +'sY'#255#177'x_'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'
- +#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255
- +#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177
- +'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'
- +#255#177'za'#255#177'za'#255#9#6#5#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255'%'#25#20#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255'bD6'#255#8
- +#6#4#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'>+"'#255#175'za'#255#177'za'#255#177'za'#255#177'za'
- +#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255
- +#177'za'#255#177'za'#255#177'za'#255#136'^K'#255#0#0#0#255#0#0#0#255#0#0#0
- ,#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#16#11#9#255#177'za'#255#177
- +'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'
- +#255#177'za'#255#177'za'#255#176'x^'#255#172'qV'#255#164'cF'#255'{E,'#255']1'
- +#30#255'Z0'#29#245'DDD'#255
- +'`5!'#255'\0'#28#255'T5'''#155'DDD'#30'III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z/'#28'w\0'#28#255
- +'`5!'#255#157'\?'#255#172'pU'#255#179'}d'#255#181#129'i'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255'.!'#27#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#2#1#1#255#166'va'#255#182#129'j'#255#182#129'j'#255'A.&'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#9#6#5#255#170'yd'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182
- +#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182
- +#129'j'#255#182#129'j'#255#182#129'j'#255#8#6#5#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#135'`O'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#181#128'h'#255#177'za'#255#169'kP'#255#139'Q7'
- +#255'^3'#31#255'\0'#28#255'N9/\GGG'#18'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'X.'#26'4\0'#28#255
- ,'^3'#31#255#141'S8'#255#170'mQ'#255#179'|c'#255#182#130'k'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#20#15#12#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'N8.'#255#184#132'm'#255#184#132'm'#255#184#132'm'
- +#255#22#16#13#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#21#15#13#255#182#130'm'#255#184#132'm'#255#184#132
- +'m'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132
- +'m'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255'N8.'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#23#17#13#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#183#131'l'#255#182#129'j'#255#177'x_'#255#167
- +'hK'#255'zG/'#255']1'#30#255'Z0'#28#241'@@@(MMM'#10#0#0#0#1#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'='#31
- +#18#3'[/'#27#238']1'#30#255'{G/'#255#167'hL'#255#177'za'#255#183#131'l'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#26#19#16#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#12#9#7#255#185#134'p'#255#185#134'p'#255#185#134'p'
- +#255#185#134'p'#255#3#2#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'U>4'#255#185#134'p'#255#185
- +#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185
- +#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#25#18
- +#15#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255'xWI'#255#185#134'p'#255#185#134'p'#255#185#134
- +'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134
- +'p'#255#185#134'p'#255#185#134'p'#255#184#134'o'#255#182#129'j'#255#175'v\'
- +#255#165'dG'#255'h;&'#255'\1'#29#255'X2 '#193'==='#25'+++'#6#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0'[/'#27#170'\1'#29#255'f9%'#255#164'bG'#255#175'v]'#255#183#131
- +'l'#255#186#135'r'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137
- +'s'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137
- +'s'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137
- +'s'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137
- +'s'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255'$'#27#23
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#129'_P'#255#186#137's'#255#186#137's'#255
- +#186#137's'#255#186#137's'#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255' '#23#19#255#186
- +#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186
- +#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186
- +#137's'#255#172#127'j'#255#7#5#4#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#12#9#7#255#186#137's'#255#186#137's'
- +#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'
- +#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#185#135'q'
- +#255#181#129'i'#255#173'qW'#255#149'X='#255'`5!'#255'\0'#28#255'V4%'#127'333'
- +#15#0#0#0#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z/'#27'O\0'#28#255'_4 '#255#144'U:'
- +#255#172'qV'#255#182#130'k'#255#187#137't'#255#188#139'u'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- ,#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255'1$'#31#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255':+$'#255#188#140'v'#255#188#140
- +'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#1#1#1#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#4#3#3#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255'}]N'#255'6("'
- +#255#14#11#9#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'S>5'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#139'u'#255#186#136'r'#255#180'~f'#255#169'kP'#255'|H1'#255'^2'#31#255'['
- +'/'#27#249'L=6+III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#5'[/'#27#235
- +']1'#30#255'wD/'#255#169'jO'#255#180#127'g'#255#187#137'u'#255#189#141'x'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255
- +#189#142'y'#255#189#142'y'#255'J7/'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#16#12#11#255#187#140'y'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#1
- +#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#181#136'u'#255#189#142'y'#255#189#142
- +'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142
- +'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142
- +'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#11#8#7#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#1#1#1#255#181#136's'#255#189#142'y'#255#189#142'y'#255#189
- +#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189
- +#142'y'#255#189#142'y'#255#189#142'y'#255#189#141'x'#255#186#136'q'#255#177
- +'za'#255#164'dG'#255'f:&'#255'\1'#29#255'Y1'#31#186'@@@'#16'UUU'#3#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z/'#27#147'\1'#29#255'b8$'#255#160'bF'#255
- +#177'y`'#255#186#137's'#255#190#143'z'#255#191#145'|'#255#191#145'|'#255#191
- +#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191
- +#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191
- +#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191
- +#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#162
- +'{i'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#1#1#1#255#162'{i'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255
- +#191#145'|'#255#191#145'|'#255#191#145'|'#255#2#1#1#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1
- +#1#1#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145
- +'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145
- +'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145
- +'|'#255#191#145'|'#255#5#4#3#255#0#0#0#255#0#0#0#255#0#0#0#255'&'#29#25#255
- +#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255
- +#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255
- +#191#145'|'#255#189#142'y'#255#184#134'o'#255#174'sY'#255#143'U;'#255'`5!'
- +#255'\0'#28#255'U3$`@@@'#8#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0'Z.'#27'5\0'#28#255'_4 '#255#137'Q8'#255#173'rX'#255#184#134'o'#255#190#144
- +'{'#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192
- +#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255
- +#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127
- +#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147
- +#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#14
- ,#11#9#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255' '
- +#24#21#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255
- +#192#147#127#255#192#147#127#255#192#147#127#255#4#3#3#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#8#6#5#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127
- +#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147
- +#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192
- +#147#127#255#192#147#127#255#192#147#127#255#1#1#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#137'iZ'#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147
- +#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192
- +#147#127#255#192#147#127#255#192#146'~'#255#189#142'y'#255#182#129'j'#255#169
- +'lP'#255'uD.'#255'^2'#31#255'[/'#28#237'NFB'#21'UUU'#3#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#211']1'#30#255'l>)'#255#167'iM'
- +#255#181#127'g'#255#190#143'z'#255#193#148#128#255#194#149#130#255#194#149
- +#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194
- +#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255
- +#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130
- +#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149
- +#130#255#194#149#130#255'G60'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255'ZE<'#255#194#149#130#255#194#149#130#255#194#149#130#255
- +#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#7#6#5#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#23#17#15#255#194#149#130#255#194#149#130#255#194#149#130
- +#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149
- +#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194
- +#149#130#255#194#149#130#255#194#149#130#255#179#137'x'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'-#'#30#255#194#149#130#255#194#149#130#255#194#149#130#255#194
- +#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255
- +#194#149#130#255#194#149#130#255#194#149#130#255#192#147#127#255#188#140'v'
- +#255#177'za'#255#156'_D'#255'a6#'#255'\1'#29#255'Y1'#31#153'@@@'#8#0#0#0#1#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z/'#27']\0'#28#255
- +'`5!'#255#143'V='#255#175'v]'#255#187#138'u'#255#193#149#129#255#195#152#132
- +#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152
- +#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195
- +#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255
- +#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133
- +#255#195#152#133#255#195#152#133#255#170#133't'#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#172#133'u'#255#195#152#133#255#195#152
- +#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#146
- +'rd'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'_JA'#255#195#152#133#255#195#152#133
- +#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152
- +#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195
- +#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#140'm`'#255#0#0
- +#0#255#0#0#0#255#6#5#4#255#186#145#127#255#195#152#133#255#195#152#133#255
- +#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133
- +#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#132#255#192#147
- +#127#255#185#134'p'#255#172'pU'#255'|I2'#255'^3'#31#255'\0'#28#250'R5()UUU'#3
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#3
- +'[/'#27#221']1'#30#255'oA,'#255#169'lP'#255#183#131'l'#255#192#147#127#255
- +#196#154#135#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136
- +#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155
- +#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197
- +#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255
- +#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#26#20#18#255
- ,#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8#6#5#255#197#155#136#255#197
- +#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255
- +#197#155#136#255#28#22#19#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#4#3#3#255#193#153#134#255
- +#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136
- +#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155
- +#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197
- +#155#136#255#182#143'~'#255'=0*'#255#7#5#5#255#130'fY'#255#197#155#136#255
- +#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136
- +#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#196#154
- +#136#255#195#152#133#255#190#144'{'#255#180'~f'#255#159'bG'#255'c8%'#255'\1'
- +#29#255'Z0'#30#163'III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'g\0'#28#255'a6#'#255#147'Y@'#255#177
- +'za'#255#190#143'z'#255#196#154#135#255#198#157#139#255#198#157#139#255#198
- +#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255
- +#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139
- +#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157
- +#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198
- +#157#139#255'<0+'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'*!'#29#255
- +#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139
- +#255#198#157#139#255#164#130's'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'?2,'#255#198
- +#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255
- +#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139
- +#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157
- +#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198
- +#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255
- +#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139
- +#255#198#157#139#255#198#156#138#255#195#152#132#255#187#138't'#255#173'sY'
- +#255#127'L5'#255'^3'#31#255'\0'#28#252'U3$,'#128#128#128#2#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#7
- +'[/'#27#229'^2'#31#255'qB.'#255#171'nS'#255#185#134'p'#255#194#151#131#255
- +#198#158#140#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142
- +#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160
- +#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200
- +#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255
- +#200#160#142#255#200#160#142#255#200#160#142#255'9.)'#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'hSJ'#255#200#160#142#255#200#160#142#255#200#160#142
- +#255#200#160#142#255#200#160#142#255#200#160#142#255'6+'''#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#6#5#5#255#184#148#131#255#200#160#142#255#200#160#142#255#200#160#142
- +#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160
- +#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200
- +#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255
- +#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142
- +#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160
- +#142#255#200#160#142#255#200#160#142#255#199#159#141#255#198#157#139#255#192
- +#147#127#255#181#127'g'#255#161'dI'#255'd:&'#255'\1'#29#255'Z0'#29#171'@@@'#4
- +#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'q\1'#29#255'a6#'#255#143'W?'#255#177'za'#255
- +#191#144'|'#255#198#157#139#255#200#161#144#255#201#162#145#255#201#163#145
- +#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163
- +#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201
- +#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255
- +#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255'=2,'#255#0#0
- ,#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255'!'#27#24#255#197#161#143#255#201#163#145#255
- +#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#197#161#143
- +#255#3#2#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#1#1#1#255#149'zl'#255#201#163#145#255#201#163#145
- +#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163
- +#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201
- +#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255
- +#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145
- +#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163
- +#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#162#145#255#200
- +#161#143#255#197#155#136#255#187#138'u'#255#173'rX'#255'|I3'#255'_4 '#255'\0'
- +#28#253'W1 2'#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#6'\0'#28#216'^2'#31#255
- +'i=)'#255#165'jP'#255#184#133'n'#255#196#152#134#255#201#162#145#255#202#164
- +#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202
- +#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255
- +#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148
- +#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165
- +#148#255'E82'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#2#255#1#1#1#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'.&"'#255#202#165#148#255#202#165#148
- +#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165
- +#148#255#146'wk'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'eRI'#255#202#165#148#255#202#165#148
- +#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165
- +#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202
- +#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255
- +#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148
- +#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165
- +#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202
- +#164#147#255#200#160#143#255#193#148#128#255#180'~f'#255#151'^D'#255'a7$'#255
- +'\1'#29#255'Z0'#28#156'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27
- +'D\0'#28#255'`5!'#255#128'N8'#255#175'v]'#255#190#143'{'#255#200#159#142#255
- +#203#165#150#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151
- +#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167
- +#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204
- +#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255
- +#204#167#151#255'N?9'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'vaW'#255
- +#204#167#151#255#160#131'w'#255'cRI'#255'WG@'#255#168#137'|'#255#204#167#151
- +#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167
- +#151#255#204#167#151#255#204#167#151#255#145'wk'#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'G:4'#255#204#167
- +#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204
- +#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255
- +#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151
- +#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167
- +#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204
- +#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255
- +#204#167#151#255#204#167#150#255#202#165#148#255#198#155#138#255#186#137's'
- +#255#171'nU'#255'oB.'#255'^2'#31#255'\0'#28#235'V2"'#21#0#0#0#1#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#169'\1'#29#255'c9&'#255#155'aH'#255
- +#182#128'j'#255#195#152#133#255#202#164#148#255#205#169#154#255#206#169#155
- +#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169
- +#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206
- +#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255
- +#206#169#155#255#206#169#155#255#206#169#155#255'VGA'#255#0#0#0#255#0#0#0#255
- ,#0#0#0#255#5#4#4#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169
- +#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206
- +#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255
- +#206#169#155#255#152'}r'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#2#1#1#255'vaY'#255#206#169#155#255#206#169#155#255#206#169
- +#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206
- +#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255
- +#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155
- +#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169
- +#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206
- +#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255
- +#205#167#152#255#201#162#145#255#192#147#127#255#177'za'#255#138'T='#255'`6"'
- +#255'\1'#29#255'[0'#29'e'#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0'[/'#27#27'\0'#28#243'^3'#31#255'pC/'#255#171'oU'#255#188#138'u'
- +#255#199#158#141#255#205#169#154#255#207#171#157#255#207#172#158#255#207#172
- +#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255
- +#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255'~i`'#255#0#0#0#255#0#0#0#255#0#0#0#255#22#18#16#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255
- +#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172
- +#158#255'/''$'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#9#7#7#255
- +#164#136'~'#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172
- +#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255
- +#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172
- +#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#171#157#255#204
- +#167#151#255#196#153#136#255#183#131'l'#255#160'fK'#255'f;('#255']1'#30#255
- +'[/'#27#199'te^'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'[/'#27'q\0'#28#255'`6"'#255#130'P9'#255#177'x`'#255#192#146
- +#127#255#203#164#149#255#208#173#159#255#209#175#161#255#209#175#161#255#209
- +#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255
- +#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161
- +#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175
- +#161#255#199#167#153#255#0#0#0#255#0#0#0#255#0#0#0#255'.&#'#255#209#175#161
- +#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175
- +#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209
- +#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255
- +#209#175#161#255'*$!'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'"'#28#26#255#197#165#153#255
- +#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161
- +#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175
- +#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209
- +#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255
- +#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161
- +#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175
- +#161#255#209#175#161#255#209#175#161#255#209#174#160#255#207#171#157#255#200
- +#160#144#255#188#139'w'#255#171'pV'#255'rD0'#255'^3'#31#255'\0'#28#250'\2'#30
- +'1'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0'[/'#27#1'[/'#27#184']1'#30#255'c9&'#255#148'^E'#255#182#128'j'#255#197
- +#154#136#255#206#170#155#255#210#176#163#255#211#178#164#255#211#178#165#255
- +#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165
- +#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178
- ,#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211
- +#178#165#255#12#10#9#255#0#0#0#255#0#0#0#255'MA<'#255#211#178#165#255#211#178
- +#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211
- +#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255
- +#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165
- +#255#211#178#165#255#178#150#139#255'D95'#255#9#7#7#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'VIC'#255#211#178#165#255#211#178#165
- +#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178
- +#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211
- +#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255
- +#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165
- +#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178
- +#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211
- +#178#165#255#211#178#165#255#211#178#164#255#209#176#162#255#204#167#151#255
- +#193#148#129#255#177'x`'#255#129'P9'#255'`6"'#255'\0'#28#255'[0'#28't'#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'[/'#27#21'\0'#28#229'^2'#31#255'i?+'#255#163'jP'#255#186#136
- +'s'#255#200#160#144#255#209#174#160#255#212#180#167#255#213#181#169#255#213
- +#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255
- +#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169
- +#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181
- +#169#255'.''%'#255#0#0#0#255',%#'#255#200#170#159#255#213#181#169#255#213#181
- +#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213
- +#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255
- +#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169
- +#255#213#181#169#255#213#181#169#255#213#181#169#255#139'vo'#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'.''$'#255#213#181#169#255#213#181#169
- +#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181
- +#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213
- +#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255
- +#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169
- +#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181
- +#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213
- +#181#169#255#213#181#169#255#212#180#168#255#211#178#165#255#207#171#157#255
- +#197#155#137#255#182#128'j'#255#148']E'#255'c9&'#255']1'#30#255'[/'#27#179#0
- +#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'?\0'#28#252'_4 '#255'tF1'#255#172
- +'sY'#255#190#142'z'#255#203#165#150#255#211#178#164#255#213#183#170#255#214
- +#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255
- +#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172
- +#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184
- +#172#255#127'ng'#255'{ib'#255#214#184#172#255#214#184#172#255#214#184#172#255
- +#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172
- +#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184
- +#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214
- +#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255' '#28#26#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#14#12#11#255#209#180#168#255#214#184#172
- +#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184
- +#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214
- +#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255
- +#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172
- +#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184
- +#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214
- +#184#172#255#214#184#172#255#214#184#172#255#213#182#169#255#209#176#161#255
- +#200#161#143#255#186#135'q'#255#161'gO'#255'h=*'#255'^2'#31#255'\0'#28#226'W'
- +'-'#26#19#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'}\1'#29#255'`6"'
- +#255'|M8'#255#175'x^'#255#192#147#127#255#205#170#154#255#213#181#169#255#215
- ,#185#173#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255
- +#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175
- +#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187
- +#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216
- +#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255
- +#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175
- +#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187
- +#175#255#216#187#175#255#216#187#175#255#216#187#175#255#187#162#151#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#2#255#180#156#146#255#216#187#175
- +#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187
- +#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216
- +#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255
- +#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175
- +#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187
- +#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216
- +#187#175#255#216#187#175#255#216#187#175#255#215#185#173#255#211#179#166#255
- +#202#165#148#255#188#139'w'#255#167'mU'#255'nC/'#255'^3'#31#255'\0'#28#251'Z'
- +'.'#27';'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#2'[/'#27
- +#170'\1'#29#255'a7$'#255#130'Q<'#255#178'{c'#255#195#151#132#255#208#173#159
- +#255#215#185#173#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189
- +#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217
- +#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255
- +#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178
- +#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189
- +#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217
- +#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255
- +#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255'.(&'#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#128'oi'#255#217#189#178#255#217#189#178
- +#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189
- +#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217
- +#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255
- +#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178
- +#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189
- +#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217
- +#189#178#255#217#189#178#255#217#188#177#255#213#183#170#255#205#168#153#255
- +#191#144'|'#255#170'rZ'#255'sF2'#255'`5!'#255'\0'#28#255'Z/'#27'g'#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#6'[/'#27
- +#188']1'#30#255'c9&'#255#136'V?'#255#180'~g'#255#197#154#136#255#209#176#162
- +#255#216#187#176#255#219#192#181#255#219#192#182#255#219#193#183#255#219#193
- +#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219
- +#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255
- +#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183
- +#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193
- +#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219
- +#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255
- +#219#193#183#255#219#193#183#255#158#138#131#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#1#1#1#255#131'sm'#255#219#193#183#255#219#193#183#255#219#193#183#255
- +#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183
- +#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193
- +#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219
- +#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255
- +#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183
- +#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#192
- +#182#255#218#191#180#255#215#185#173#255#207#172#156#255#193#147#128#255#174
- +'v^'#255'wJ6'#255'`6"'#255'\1'#29#255'[/'#27'~'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#12'[/'#27#203
- +']1'#30#255'c:'''#255#141'YC'#255#181#128'h'#255#198#155#138#255#210#177#164
- +#255#217#190#178#255#220#194#184#255#221#195#185#255#221#196#186#255#221#196
- +#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221
- +#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255
- +#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186
- +#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196
- +#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221
- +#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255
- +#221#196#186#255're_'#255#0#0#0#255#0#0#0#255#4#4#4#255#160#142#134#255#221
- +#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255
- +#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186
- +#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196
- +#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221
- +#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255
- +#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186
- +#255#221#196#186#255#221#196#186#255#221#195#185#255#219#193#183#255#216#187
- +#175#255#207#172#158#255#194#148#130#255#176'x_'#255'{M8'#255'a6#'#255'\1'#29
- +#255'[/'#27#148#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#21'\0'#28#217']1'#30#255'c:'''
- +#255#138'XB'#255#181#127'h'#255#197#156#137#255#211#178#164#255#218#191#180
- +#255#221#196#187#255#222#198#188#255#223#198#189#255#223#198#189#255#223#198
- +#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223
- +#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255
- +#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189
- +#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198
- +#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223
- +#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#221#196#187#255
- +#6#6#5#255#10#9#8#255#188#167#159#255#223#198#189#255#223#198#189#255#223#198
- +#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223
- +#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255
- +#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189
- +#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198
- +#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223
- +#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255
- +#222#198#188#255#221#196#186#255#217#188#177#255#208#173#159#255#193#149#129
- +#255#174'w^'#255'zM8'#255'a7$'#255'\1'#29#255'[/'#27#170'[/'#27#2#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0'[/'#27' \0'#28#223']1'#30#255'c:'''#255#132'T?'#255#180
- +'~g'#255#197#155#136#255#211#178#164#255#219#193#181#255#223#198#189#255#224
- +#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255
- +#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192
- +#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201
- +#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224
- +#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255
- +#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192
- +#255#224#201#192#255#224#201#192#255#134'xr'#255#205#184#176#255#224#201#192
- +#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201
- +#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224
- +#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255
- +#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192
- +#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201
- +#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224
- +#201#192#255#224#201#192#255#223#200#191#255#222#197#187#255#217#189#178#255
- +#207#172#158#255#192#147#127#255#171'u\'#255'vI6'#255'a6#'#255'\1'#29#255'[/'
- +#27#179'[/'#27#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#25'\'
- +'0'#28#209']1'#30#255'c9&'#255#128'Q='#255#177'{c'#255#195#151#133#255#209
- +#176#162#255#219#192#181#255#223#200#191#255#225#203#194#255#226#204#196#255
- +#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196
- +#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204
- +#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226
- +#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255
- +#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196
- +#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204
- +#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226
- +#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255
- +#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196
- +#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204
- +#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226
- +#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255
- +#226#204#196#255#226#204#196#255#226#203#195#255#225#202#193#255#222#198#188
- +#255#217#188#177#255#206#169#155#255#191#144'|'#255#168'qY'#255'rG3'#255'`6"'
- +#255'\1'#29#255'[/'#27#159'[/'#27#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0'[/'#27#15'\0'#28#193']1'#30#255'b8%'#255'yM8'#255#170
- +'u\'#255#192#146'~'#255#207#171#156#255#217#189#178#255#223#200#191#255#226
- +#205#197#255#227#206#198#255#228#207#199#255#228#207#199#255#228#207#199#255
- +#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199
- +#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207
- +#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228
- +#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255
- +#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199
- +#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207
- +#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228
- +#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255
- +#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199
- +#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207
- +#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228
- +#207#199#255#228#207#199#255#227#206#198#255#226#204#196#255#222#198#188#255
- +#215#185#173#255#202#165#148#255#187#137'u'#255#159'jR'#255'nD0'#255'`6"'#255
- +'\1'#29#255'[/'#27#137#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#8'[/'#27#175'\1'#29#255'`6"'#255'n'
- +'D0'#255#158'iR'#255#187#137'u'#255#202#165#148#255#215#186#174#255#223#199
- +#190#255#227#205#198#255#229#208#201#255#229#209#202#255#229#210#202#255#229
- +#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255
- +#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202
- +#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210
- +#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229
- +#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255
- +#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202
- +#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210
- +#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229
- +#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255
- +#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202
- +#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#209
- +#202#255#228#207#201#255#226#204#197#255#221#196#187#255#212#180#168#255#198
- +#157#140#255#183#130'l'#255#143'^G'#255'g>+'#255'_4 '#255'\1'#29#254'[/'#27
- +'q'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#3'[/'#27#132'\1'#29#254'_4 '#255'g>+'
- +#255#140'[F'#255#181#129'j'#255#198#155#138#255#211#178#165#255#221#195#185
- +#255#227#204#197#255#230#209#203#255#230#212#205#255#231#212#206#255#231#212
- +#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231
- +#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255
- +#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206
- +#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212
- +#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231
- +#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255
- +#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206
- +#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212
- +#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231
- +#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255
- +#231#212#206#255#231#211#206#255#230#211#205#255#229#209#201#255#225#203#194
- +#255#219#191#181#255#208#173#159#255#193#149#129#255#173'w`'#255'~Q='#255'c:'
- +''''#255'^2'#31#255'\0'#28#238'[/'#27'O'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0'[/'#27'F\0'#28#234'^2'#31#255'c:'''#255'zN:'#255#168's['#255
- +#190#143'{'#255#205#167#152#255#217#187#177#255#225#201#193#255#229#209#202
- +#255#232#213#207#255#232#214#209#255#233#215#210#255#233#215#210#255#233#215
- +#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233
- +#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255
- +#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210
- +#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215
- +#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233
- +#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255
- +#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210
- +#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215
- +#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233
- +#215#210#255#232#215#209#255#232#214#208#255#231#212#206#255#228#207#201#255
- +#223#198#189#255#213#182#170#255#200#160#144#255#186#136'r'#255#158'iR'#255
- +'pE2'#255'a7$'#255']1'#30#255'\0'#28#201'[/'#27#31#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#26'\0'#28#193']1'#30#255'`'
- +'6"'#255'iA.'#255#142']H'#255#179#128'h'#255#196#153#135#255#210#176#163#255
- +#220#194#184#255#227#205#198#255#231#212#206#255#233#216#211#255#234#217#212
- +#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218
- +#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234
- +#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255
- +#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213
- +#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218
- +#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234
- +#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255
- +#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213
- +#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#217
- +#212#255#234#216#211#255#233#215#210#255#230#211#205#255#226#203#195#255#218
- +#190#179#255#206#170#155#255#192#146#127#255#172'v`'#255#129'S?'#255'e<)'#255
- +'_4 '#255'\1'#29#255'[/'#27#143'[/'#27#5#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#3'[/'#27#127'\0'#28
- +#248'^3'#31#255'c:'''#255'sI6'#255#158'kT'#255#186#136's'#255#200#160#143#255
- ,#213#180#169#255#222#197#187#255#229#208#201#255#232#214#209#255#234#218#213
- +#255#235#219#215#255#236#220#215#255#236#220#216#255#236#220#216#255#236#220
- +#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236
- +#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255
- +#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216
- +#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220
- +#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236
- +#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255
- +#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216
- +#255#236#220#216#255#236#220#215#255#235#219#215#255#234#217#212#255#232#213
- +#207#255#227#205#198#255#219#193#183#255#209#176#162#255#196#153#136#255#181
- +#129'l'#255#145'`K'#255'lB0'#255'a7$'#255']1'#30#255'\0'#28#231'[/'#27'O'#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'$\0'#28#185'\1'#29#255'`5!'#255
- +'f=*'#255#128'S>'#255#166'r['#255#188#139'v'#255#201#161#145#255#213#181#169
- +#255#223#197#189#255#229#209#202#255#233#216#210#255#235#219#215#255#236#221
- +#217#255#237#222#219#255#238#223#220#255#238#223#220#255#238#223#220#255#238
- +#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255
- +#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220
- +#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223
- +#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238
- +#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255
- +#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220
- +#255#237#222#219#255#237#222#218#255#236#221#217#255#235#218#214#255#232#214
- +#208#255#228#206#199#255#220#193#184#255#210#176#163#255#197#155#137#255#184
- +#134'o'#255#155'iR'#255'uI7'#255'c:'''#255'^3'#31#255'\1'#29#252'[/'#27#144
- +'[/'#27#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'['
- +'/'#27'U\0'#28#228']1'#30#255'`6"'#255'g>,'#255#127'R?'#255#164'qZ'#255#188
- +#139'v'#255#200#159#144#255#211#179#166#255#220#194#184#255#228#206#199#255
- +#232#214#209#255#235#219#215#255#237#222#219#255#238#225#221#255#239#225#222
- +#255#239#225#222#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226
- +#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239
- +#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255
- +#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223
- +#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226
- +#223#255#239#226#223#255#239#226#223#255#239#225#222#255#238#225#221#255#238
- +#224#220#255#237#222#218#255#235#218#214#255#231#212#206#255#226#203#195#255
- +#218#191#180#255#209#174#160#255#197#154#136#255#184#132'o'#255#154'hR'#255
- +'uK8'#255'e;('#255'_4 '#255'\1'#29#255'\0'#28#197'[/'#27'/'#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27
- +#12'[/'#27#134'\0'#28#242'^2'#31#255'a5#'#255'g>+'#255'|Q='#255#160'lV'#255
- +#184#133'p'#255#196#152#134#255#207#170#156#255#216#187#175#255#224#200#192
- +#255#230#210#203#255#234#216#211#255#236#220#216#255#238#224#220#255#239#226
- +#223#255#240#227#225#255#240#228#225#255#240#228#225#255#241#229#226#255#241
- +#229#226#255#241#229#226#255#241#229#226#255#241#229#227#255#241#229#227#255
- +#241#229#227#255#241#229#227#255#241#229#227#255#241#229#227#255#241#229#227
- +#255#241#229#227#255#241#229#227#255#241#229#226#255#241#229#226#255#241#229
- ,#226#255#241#229#226#255#240#228#225#255#240#228#225#255#240#227#224#255#239
- +#225#222#255#238#223#220#255#236#220#215#255#233#215#210#255#228#207#201#255
- +#222#196#187#255#213#183#170#255#204#166#150#255#192#147#127#255#179#127'i'
- +#255#150'fO'#255'tI7'#255'e;('#255'`5!'#255']1'#30#255'\0'#28#223'[/'#27'`[/'
- +#27#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#17'[/'#27#127'\0'#28#238']1'
- +#30#255'`6"'#255'e<)'#255'rI6'#255#142'_J'#255#170'wa'#255#188#140'w'#255#199
- +#158#141#255#208#173#159#255#216#186#175#255#222#196#187#255#227#206#198#255
- +#232#213#208#255#235#219#214#255#237#222#218#255#238#224#220#255#239#226#223
- +#255#240#227#225#255#241#229#226#255#242#230#228#255#242#230#228#255#242#231
- +#229#255#242#231#229#255#242#231#229#255#242#231#229#255#242#231#229#255#242
- +#231#229#255#242#231#229#255#242#230#228#255#241#229#227#255#241#229#226#255
- +#240#227#225#255#239#225#222#255#238#224#220#255#236#221#217#255#234#218#213
- +#255#231#211#206#255#226#204#196#255#220#194#184#255#214#183#171#255#206#169
- +#155#255#196#153#135#255#185#135'r'#255#162'q['#255#134'XD'#255'lC1'#255'c:'
- +''''#255'_4 '#255']0'#30#255'\0'#28#217'[/'#27'`[/'#27#4#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#13'[/'#27'w\0'#28#233
- +']1'#30#255'_4 '#255'b8%'#255'h?-'#255'zN;'#255#149'dP'#255#170'xa'#255#187
- +#137't'#255#194#150#131#255#202#164#148#255#210#176#163#255#216#187#175#255
- +#220#194#184#255#224#200#192#255#228#207#199#255#231#212#206#255#234#217#211
- +#255#236#220#215#255#236#222#217#255#237#222#219#255#238#223#220#255#238#223
- +#220#255#238#224#220#255#238#223#220#255#237#223#219#255#237#223#218#255#236
- +#221#217#255#235#219#215#255#233#216#210#255#230#211#204#255#227#204#197#255
- +#223#199#190#255#219#192#183#255#215#185#173#255#208#173#159#255#200#160#144
- +#255#192#146#127#255#183#133'o'#255#164's\'#255#142']J'#255'rI7'#255'f=*'#255
- +'a6#'#255'^3'#31#255'\1'#29#255'\0'#28#210'[/'#27'X[/'#27#2#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0'[/'#27#5'[/'#27'P\0'#28#173'\1'#29#249']1'#30#255'`5!'#255'c9&'#255'g'
- +'>,'#255'qH6'#255#133'YE'#255#153'iT'#255#172'yd'#255#186#136'q'#255#191#144
- +'}'#255#196#153#136#255#202#162#146#255#207#171#156#255#211#178#165#255#214
- +#183#171#255#216#186#175#255#217#188#177#255#218#190#179#255#219#191#182#255
- +#219#192#182#255#219#192#181#255#218#189#179#255#217#187#177#255#215#185#173
- +#255#213#182#169#255#210#176#163#255#205#169#154#255#200#160#144#255#195#151
- +#133#255#190#142'z'#255#183#132'o'#255#167'u_'#255#148'eP'#255#127'S@'#255'm'
- +'E2'#255'f=*'#255'b7%'#255'_4 '#255']1'#30#255'\0'#28#235'[/'#27#147'[/'#27
- +'5'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'['
- ,'/'#27#18'[/'#27'i\0'#28#199'\1'#29#254']1'#30#255'_4 '#255'a6#'#255'd9('#255
- +'g>,'#255'oF3'#255'}Q>'#255#138'[G'#255#149'fQ'#255#160'oZ'#255#170'xa'#255
- +#176'}h'#255#180#128'l'#255#183#133'p'#255#186#136's'#255#188#138'u'#255#188
- +#139'v'#255#187#138'u'#255#186#135'r'#255#183#132'n'#255#178#128'j'#255#174
- +'|e'#255#168'v`'#255#158'mW'#255#146'bN'#255#133'YE'#255'yM;'#255'mC1'#255'g'
- +'>+'#255'c9&'#255'`6"'#255'^3'#31#255']1'#30#255'\0'#28#248'\0'#28#173'[/'#27
- +'O[/'#27#5#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#20'[/'#27'V\0'#28#153
- +'\0'#28#220'\1'#29#255']1'#30#255'^3'#31#255'`5!'#255'a7$'#255'c9&'#255'e;('
- +#255'f=*'#255'g>,'#255'i@.'#255'jB0'#255'mE2'#255'qH5'#255'tJ7'#255'qG5'#255
- +'lC1'#255'jA0'#255'h?-'#255'g>+'#255'e<)'#255'd:('#255'c9&'#255'a6#'#255'`5!'
- +#255'^2'#31#255']1'#30#255'\1'#29#252'\0'#28#201'[/'#27#134'[/'#27'C[/'#27#8
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0'[/'#27#31'[/'#27'_[/'#27#138'\0'#28#176'\0'#28#213'\0'#28
- +#248'\1'#29#255'\1'#29#255'\1'#29#255']1'#30#255'^2'#31#255'^2'#31#255'^3'#31
- +#255'^3'#31#255'^3'#31#255'^2'#31#255']1'#30#255']1'#30#255'\1'#29#255'\1'#29
- +#255'\1'#29#255'\0'#28#241'\0'#28#203'\0'#28#165'[/'#27#127'[/'#27'N[/'#27#15
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0'[/'#27#2'[/'#27'![/'#27'E[/'#27'U[/'#27'a[/'#27'm[/'#27'y[/'#27
- +#134'\0'#29#141'[/'#27#130'[/'#27'v[/'#27'j[/'#27'^[/'#27'Q[/'#27'=[/'#27#23
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#128#0#255#255
- +#255#255#255#255#255#255#255#255#255#255#255#224#0#0#3#255#255#255#255#255
- +#255#255#255#255#255#255#254#0#0#0#0'?'#255#255#255#255#255#255#255#255#255
- +#255#240#0#0#0#0#7#255#255#255#255#255#255#255#255#255#255#128#0#0#0#0#0#255
- +#255#255#255#255#255#255#255#255#254#0#0#0#0#0#0'?'#255#255#255#255#255#255
- +#255#255#248#0#0#0#0#0#0#15#255#255#255#255#255#255#255#255#224#0#0#0#0#0#0#3
- +#255#255#255#255#255#255#255#255#128#0#0#0#0#0#0#0#255#255#255#255#255#255
- +#255#254#0#0#0#0#0#0#0#0'?'#255#255#255#255#255#255#252#0#0#0#0#0#0#0#0#31
- +#255#255#255#255#255#255#240#0#0#0#0#0#0#0#0#7#255#255#255#255#255#255#224#0
- +#0#0#0#0#0#0#0#3#255#255#255#255#255#255#128#0#0#0#0#0#0#0#0#1#255#255#255
- +#255#255#255#0#0#0#0#0#0#0#0#0#0#127#255#255#255#255#254#0#0#0#0#0#0#0#0#0#0
- +'?'#255#255#255#255#252#0#0#0#0#0#0#0#0#0#0#31#255#255#255#255#248#0#0#0#0#0
- +#0#0#0#0#0#15#255#255#255#255#240#0#0#0#0#0#0#0#0#0#0#7#255#255#255#255#224#0
- +#0#0#0#0#0#0#0#0#0#3#255#255#255#255#192#0#0#0#0#0#0#0#0#0#0#1#255#255#255
- +#255#128#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#127
- +#255#255#254#0#0#0#0#0#0#0#0#0#0#0#0#127#255#255#254#0#0#0#0#0#0#0#0#0#0#0#0
- +'?'#255#255#252#0#0#0#0#0#0#0#0#0#0#0#0#31#255#255#248#0#0#0#0#0#0#0#0#0#0#0
- +#0#15#255#255#240#0#0#0#0#0#0#0#0#0#0#0#0#7#255#255#240#0#0#0#0#0#0#0#0#0#0#0
- +#0#7#255#255#224#0#0#0#0#0#0#0#0#0#0#0#0#3#255#255#192#0#0#0#0#0#0#0#0#0#0#0
- +#0#3#255#255#192#0#0#0#0#0#0#0#0#0#0#0#0#1#255#255#128#0#0#0#0#0#0#0#0#0#0#0
- +#0#1#255#255#128#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#127#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#127#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'
- +#252#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'#252#0#0#0#0#0#0#0#0#0#0#0#0#0#0#31#252#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#31#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#248#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#15#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#240#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#7#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3
- +#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#192#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#3#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#192#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#192#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#3#240#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#15#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15
- +#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#252#0#0#0#0#0#0#0#0#0#0#0#0#0#0#31#252#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#31#252#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'#254#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0'?'#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'#254#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#127#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#127#255#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#255#255#128#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#128#0#0#0#0#0#0#0#0
- +#0#0#0#0#1#255#255#128#0#0#0#0#0#0#0#0#0#0#0#0#1#255#255#192#0#0#0#0#0#0#0#0
- +#0#0#0#0#3#255#255#192#0#0#0#0#0#0#0#0#0#0#0#0#3#255#255#224#0#0#0#0#0#0#0#0
- +#0#0#0#0#7#255#255#224#0#0#0#0#0#0#0#0#0#0#0#0#15#255#255#240#0#0#0#0#0#0#0#0
- +#0#0#0#0#15#255#255#248#0#0#0#0#0#0#0#0#0#0#0#0#31#255#255#248#0#0#0#0#0#0#0
- +#0#0#0#0#0'?'#255#255#252#0#0#0#0#0#0#0#0#0#0#0#0#127#255#255#252#0#0#0#0#0#0
- +#0#0#0#0#0#0#255#255#255#254#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#0#0#0#0
- +#0#0#0#0#0#0#0#1#255#255#255#255#128#0#0#0#0#0#0#0#0#0#0#3#255#255#255#255
- +#128#0#0#0#0#0#0#0#0#0#0#7#255#255#255#255#192#0#0#0#0#0#0#0#0#0#0#15#255#255
- +#255#255#224#0#0#0#0#0#0#0#0#0#0#31#255#255#255#255#240#0#0#0#0#0#0#0#0#0#0
- +#31#255#255#255#255#248#0#0#0#0#0#0#0#0#0#0'?'#255#255#255#255#252#0#0#0#0#0
- +#0#0#0#0#0#127#255#255#255#255#254#0#0#0#0#0#0#0#0#0#1#255#255#255#255#255
- +#255#0#0#0#0#0#0#0#0#0#3#255#255#255#255#255#255#128#0#0#0#0#0#0#0#0#7#255
- +#255#255#255#255#255#224#0#0#0#0#0#0#0#0#15#255#255#255#255#255#255#240#0#0#0
- +#0#0#0#0#0#31#255#255#255#255#255#255#248#0#0#0#0#0#0#0#0#127#255#255#255#255
- +#255#255#254#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#128#0#0#0#0#0#0
- +#3#255#255#255#255#255#255#255#255#192#0#0#0#0#0#0#7#255#255#255#255#255#255
- +#255#255#240#0#0#0#0#0#0#31#255#255#255#255#255#255#255#255#252#0#0#0#0#0#0
- +#127#255#255#255#255#255#255#255#255#255#0#0#0#0#0#3#255#255#255#255#255#255
- +#255#255#255#255#224#0#0#0#0#15#255#255#255#255#255#255#255#255#255#255#252#0
- +#0#0#0#127#255#255#255#255#255#255#255#255#255#255#255#192#0#0#7#255#255#255
- +#255#255#255#255#255#255#255#255#255#254#0#1#255#255#255#255#255#255#255#255
- +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
- +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
- +#255#255#255#255#255#255#255#255#255'('#0#0#0'@'#0#0#0#128#0#0#0#1#0' '#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'#4'III'#7'III'#7
- +'333'#5#128#128#128#2#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'UUU'#6'DDD'
- +#15'FFF'#22'EEE'#26'DDD'#30'III#GGG/DDD'#30#255'j>'#31#253'g>#'#249'[>+'#235'PB8'#218'HE'
- +'C'#203'FEC'#195'EED'#184'DDD'#166'DDDqEEE4@@@'#20'@@@'#4#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1
- +'999'#9'BBB'#31'CCCPEDD'#143'FFE'#182'NB:'#211'Z?-'#231'g>#'#249'l?'#31#255
- +'zK$'#253#150']*'#255#165'h.'#255#172'm0'#255#180's2'#255#186'x4'#255#189'{4'
- +#255#192#127'5'#255#190'|4'#255#187'x4'#255#182'u3'#255#175'p1'#255#167'j/'
- +#255#156'b+'#255#131'R&'#254'oB '#255'i>!'#253'_>)'#238'S@6'#222'FEB'#203'DD'
- +'C'#190'DDD'#164'CCCkCCC.PPP'#16'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#2'CCC'#19'BBBBDDD'#136'EED'#179'LA9'
- +#209'`=&'#243'k?'#31#255#127'N&'#254#154'`,'#255#176'q1'#255#191'~5'#255#200
- +#138'7'#255#207#145'8'#255#210#149'9'#255#213#153'9'#255#217#157':'#255#219
- +#160';'#255#221#162';'#255#220#162':'#255#217#158':'#255#215#155':'#255#211
- +#151'9'#255#208#146'8'#255#203#141'8'#255#194#129'6'#255#183'v4'#255#163'f.'
- +#255#137'U('#254'qC"'#254'f'
- +'>>!+++'#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4'BBB'#27'CC'
- +'C[CCB'#165'LD='#203']<('#238'j> '#255#135'R('#254#176'p3'#255#193#128'7'#255
- +#202#139'9'#255#211#151';'#255#220#162'<'#255#227#170'>'#255#232#176'?'#255
- +#234#180'?'#255#237#182'?'#255#239#185'@'#255#241#187'@'#255#242#188'A'#255
- +#241#187'@'#255#240#185'A'#255#238#183'@'#255#235#180'@'#255#233#178'?'#255
- +#229#173'>'#255#222#165'='#255#215#156'<'#255#205#144':'#255#196#133'8'#255
- +#185'x5'#255#152'^-'#255'oC"'#254'd<#'#247'QA7'#220'FFE'#200'CCC'#180'CCC}AA'
- +'A/UUU'#9#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'CCC&DDDpECC'#180'X<,'#232'i='
- +'!'#254#128'O('#254#170'l3'#255#194#130':'#255#210#150'>'#255#220#163'?'#255
- +#227#171'A'#255#234#180'B'#255#240#187'D'#255#242#190'D'#255#244#193'E'#255
- +#246#194'D'#255#247#195'E'#255#248#197'E'#255#249#197'E'#255#249#198'E'#255
- +#249#197'E'#255#248#196'E'#255#247#195'E'#255#246#195'E'#255#245#194'D'#255
- +#243#191'D'#255#240#188'C'#255#236#183'C'#255#230#174'B'#255#223#165'@'#255
- +#215#156'?'#255#200#137';'#255#182'u6'#255#146'[,'#255'm@!'#254'`:%'#244'KA;'
- +#211'CCC'#189'CCC'#144'BBB>PPP'#16#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'999'#9'@@@4CCC'#133
- +'HD@'#192'_9$'#244'rE%'#254#164'h3'#255#191#127';'#255#206#146'?'#255#219#163
- +'C'#255#232#178'F'#255#238#185'G'#255#241#189'H'#255#244#193'H'#255#246#195
- +'I'#255#247#196'I'#255#247#197'J'#255#247#197'I'#255#247#198'I'#255#248#198
- +'I'#255#248#198'I'#255#248#197'I'#255#248#198'I'#255#248#198'I'#255#248#198
- +'I'#255#247#197'I'#255#247#197'I'#255#247#196'I'#255#246#196'I'#255#245#194
- +'H'#255#242#190'H'#255#239#187'H'#255#235#182'G'#255#224#168'D'#255#211#153
- +'A'#255#196#134'='#255#177'q7'#255#133'Q)'#254'e: '#253'N?7'#218'DDC'#195'CC'
- +'C'#160'FFFP@@@'#20#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'III'#7'FFF3CCC'#145'LB;'#204'd:"'#250'|L('#254#180's9'#255
- +#202#143'A'#255#216#159'F'#255#228#174'I'#255#236#184'K'#255#241#191'L'#255
- +#243#193'M'#255#244#194'M'#255#244#195'M'#255#245#196'M'#255#245#195'M'#255
- +#245#195'M'#255#245#195'M'#255#245#195'M'#255#245#195'M'#255#245#195'M'#255
- +#245#195'M'#255#245#195'M'#255#245#195'M'#255#245#195'M'#255#245#195'M'#255
- +#245#195'M'#255#245#195'M'#255#245#196'M'#255#245#195'M'#255#244#194'M'#255
- +#243#194'M'#255#242#192'M'#255#238#186'L'#255#232#179'J'#255#220#165'F'#255
- +#208#150'C'#255#190#127'<'#255#147'[.'#255'h< '#255'S=1'#228'EED'#199'DDD'
- +#168'BBBUGGG'#18#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +'@@@'#4'FFF(EEE'#134'P?5'#212'e:!'#254#137'U,'#254#186'z='#255#208#150'E'#255
- +#224#171'L'#255#233#181'O'#255#238#187'P'#255#240#191'P'#255#242#192'Q'#255
- +#242#193'Q'#255#242#193'Q'#255#242#193'P'#255#242#193'Q'#255#242#193'Q'#255
- +#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255
- ,#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255
- +#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255
- +#242#193'Q'#255#242#193'Q'#255#241#192'Q'#255#239#189'P'#255#234#184'O'#255
- +#228#175'M'#255#215#159'I'#255#194#132'@'#255#160'd3'#255'k?"'#254'X:*'#236
- +'FDC'#201'CCC'#164'AAAG;;;'#13#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U'
- +'UU'#3'BBB'#31'CCCvO=3'#211'f:'#31#255#150']2'#255#190#128'A'#255#211#155'I'
- +#255#226#175'Q'#255#234#185'S'#255#237#188'T'#255#238#190'T'#255#239#191'U'
- +#255#239#191'U'#255#239#191'U'#255#239#191'U'#255#239#191'U'#255#239#191'U'
- +#255#239#191'U'#255#239#191'U'#255#235#189'S'#255'|d,'#255'N>'#28#255'4*'#19
- +#255'=1'#22#255'WE'#31#255'w_*'#255#173#139'='#255#239#191'U'#255#239#191'U'
- +#255#239#191'U'#255#239#191'U'#255#239#191'U'#255#239#191'U'#255#239#191'U'
- +#255#239#191'U'#255#239#191'U'#255#239#190'T'#255#238#189'U'#255#236#187'S'
- +#255#230#179'R'#255#217#162'L'#255#198#138'D'#255#170'l8'#255'pC$'#254'Z8'''
- +#240'DBB'#197'CCC'#153'FFF:@@@'#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'FFF'#22
- +'BBBeJ?9'#195'b8 '#254#150']2'#255#194#133'E'#255#213#158'N'#255#226#176'T'
- +#255#233#185'W'#255#236#187'W'#255#236#188'X'#255#236#188'X'#255#236#188'X'
- +#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'
- +#255#236#188'X'#255'cO%'#255#4#3#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#18#14#7#255'A4'#24#255#134'k2'
- +#255#218#174'R'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'
- +#255#236#188'X'#255#236#188'X'#255#236#187'W'#255#234#186'W'#255#229#180'U'
- +#255#218#165'P'#255#201#143'H'#255#173'o<'#255'k>#'#254'S;-'#231'CCC'#193'CC'
- +'C'#141'DDD-fff'#5#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#12'DDDKFA='#179'`7 '#251#137'S-'
- +#255#192#131'E'#255#214#161'Q'#255#226#176'W'#255#231#183'Y'#255#233#185'['
- +#255#233#186'['#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'
- +#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'#255'L<'#29#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8#7#3#255'P'
- +'?'#31#255#203#161'N'#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'#255#234
- +#185'Z'#255#233#186'['#255#232#183'Z'#255#228#178'Y'#255#219#167'T'#255#201
- +#143'K'#255#163'g8'#255'f: '#255'O=4'#222'DDD'#188'CCCzBBB'#27#0#0#0#1#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U'
- +'UU'#3'GGG$D@@'#147'\6#'#245'{I*'#254#185'{C'#255#211#157'R'#255#225#175'Z'
- +#255#229#181'\'#255#230#183']'#255#230#183']'#255#230#183']'#255#230#183']'
- +#255#230#183']'#255#230#183']'#255#230#183']'#255#230#183']'#255#230#183']'
- +#255#230#183']'#255#138'm8'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#24#20#10#255'x_0'
- +#255#226#181'['#255#230#183']'#255#230#183']'#255#230#183']'#255#230#181'\'
- +#255#227#177'['#255#217#165'V'#255#196#136'J'#255#151']4'#255'b8 '#254'K@9'
- +#214'CCC'#175'AAAJ...'#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#16'CCC\V6'''#228'nA&'#254#178'tA'#255#205
- +#151'R'#255#221#172'\'#255#226#179'_'#255#228#180'_'#255#228#180'_'#255#228
- +#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228
- +#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#17#13#7#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#1#1#255'H9'#30#255#224#178']'
- +#255#228#180'_'#255#228#180'_'#255#227#179'^'#255#224#175']'#255#213#160'W'
- +#255#190#129'H'#255#137'T/'#255'^4 '#252'FB?'#201'CCC'#140'DDD"'#0#0#0#3#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4'FFF,J=7'
- +#175'`4'#30#255#165'g;'#255#200#144'Q'#255#217#166'\'#255#223#176'`'#255#225
- +#177'`'#255#225#177'a'#255#225#177'a'#255#225#177'a'#255#225#177'a'#255#225
- +#177'a'#255#225#177'a'#255#225#177'a'#255#225#177'a'#255#225#177'a'#255#225
- +#177'a'#255#218#171'^'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#11#9#5#255#196#154'U'#255#225#177'a'#255#225#177
- +'`'#255#224#177'a'#255#220#171'^'#255#208#154'W'#255#184'{F'#255'nA%'#254'T8'
- +'*'#233'DDD'#180'CCCX333'#15#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0'CCC'#19'CCCjY5#'#239'~J,'#254#191#132'M'#255#213#162']'#255
- ,#220#171'a'#255#221#173'c'#255#222#174'b'#255#222#174'b'#255#222#174'b'#255
- +#222#174'b'#255#222#174'b'#255#222#174'b'#255#222#174'b'#255#222#174'b'#255
- +#222#174'b'#255#222#174'b'#255#222#174'b'#255#154'yC'#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#15#11#6
- +#255#218#172'`'#255#222#174'b'#255#222#174'b'#255#221#173'b'#255#217#167'_'
- +#255#202#146'T'#255#156'a9'#255'^4'#30#254'G@='#206'DDD'#151'>>>)@@@'#4#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'AAA+L;4'#188'b6 '#254#170
- +'l@'#255#206#152'Z'#255#217#168'b'#255#219#171'd'#255#219#171'd'#255#219#171
- +'d'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171
- +'d'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171
- +'d'#255#219#171'd'#255#26#20#12#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'oW3'#255#219#171'd'#255#219
- +#171'd'#255#219#171'd'#255#218#169'c'#255#212#161'_'#255#187#127'L'#255'uD)'
- +#254'W6('#238'CCC'#182'CCC[III'#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0'@@@'#12'EBBS[3'#31#244#134'O/'#255#192#134'Q'#255#212#162'b'#255#215
- +#167'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216
- +#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216
- +#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#198
- +#154'\'#255#5#4#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'!'#25#15#255#216#168'd'#255#216#168'd'#255#216#168
- +'d'#255#216#168'd'#255#214#166'd'#255#202#147'Y'#255#161'e='#255'^2'#29#255
- +'J?:'#208'CCC'#137'EEE'#26#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'C'
- +'CC'#23'O9/'#171'`3'#31#254#174'pD'#255#203#150']'#255#212#163'e'#255#213#164
- +'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164
- +'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164
- +'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164
- +'e'#255#173#133'R'#255#3#2#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#22#17#11#255#213#164'e'#255#213#164'e'#255#213#164
- +'e'#255#213#164'e'#255#213#164'f'#255#209#158'a'#255#187#128'O'#255'yD)'#254
- +'W4$'#241'BBB'#169'DDD1@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'FFF(W4'
- +'$'#229'{E)'#255#191#134'T'#255#207#157'c'#255#210#160'f'#255#210#160'f'#255
- +#210#160'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255
- +#210#160'f'#255#152'tJ'#255'[E,'#255'K9$'#255'{]<'#255#196#149'_'#255#210#160
- +'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#159'yM'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'"'
- +#26#17#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#210
- +#160'f'#255#209#160'e'#255#199#146']'#255#156'_;'#255'\1'#28#254'FBA'#188'FF'
- +'FXNNN'#13#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'FFF'#11'F@=T\/'#28#253#151'\9'#255
- +#200#147'_'#255#207#156'e'#255#207#156'e'#255#207#156'e'#255#207#156'e'#255
- +#207#156'e'#255#207#156'e'#255#207#156'e'#255#178#135'W'#255'$'#27#17#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'N:&'#255#207#156'e'#255#207
- +#156'e'#255#207#156'e'#255#207#156'e'#255#207#156'e'#255#3#2#1#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'uX9'#255#207#156'e'#255#207
- +#156'e'#255#207#156'e'#255#207#156'e'#255#207#156'e'#255#207#157'e'#255#204
- +#153'b'#255#180'wK'#255'a4'#30#254'M;3'#216'DDD'#132'==='#25#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0'CCC'#19'N9.'#159'^2'#30#254#176'rI'#255#202#150'c'#255#203
- +#153'e'#255#203#153'f'#255#203#153'f'#255#203#153'f'#255#203#153'f'#255#203
- +#153'f'#255#163'zQ'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#29#22#15#255#203#153'f'#255#203#153'f'#255#203#153
- +'f'#255#203#153'f'#255#14#10#7#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- ,#0#0#255#4#3#2#255#203#153'f'#255#203#153'f'#255#203#153'f'#255#203#153'f'
- +#255#203#153'f'#255#203#153'f'#255#203#153'f'#255#203#152'e'#255#190#134'X'
- +#255'yC)'#254'V5&'#239'DDD'#165'FFF('#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0
- +'GGG'#25'V4%'#212's@&'#254#186#128'U'#255#199#148'd'#255#200#148'd'#255#200
- +#148'd'#255#200#148'd'#255#200#148'd'#255#200#148'd'#255#198#146'd'#255#12#9
- +#6#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#138'fE'#255#200#148'd'#255#200#148'd'#255#200#148'd'#255
- +#15#11#7#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'&'#28#19#255#145'kH'#255
- +#200#148'd'#255#200#148'd'#255#200#148'd'#255#200#148'd'#255#200#148'd'#255
- +#200#148'd'#255#200#148'd'#255#200#148'd'#255#194#141'^'#255#146'W6'#255'[0'
- +#28#254'EBB'#178'CCC9UUU'#6#0#0#0#0#0#0#0#0#0#0#0#0'JAA'#31'\1'#29#249#140'P'
- +'2'#255#190#135'\'#255#196#143'c'#255#196#143'c'#255#196#143'c'#255#196#143
- +'c'#255#196#143'c'#255#196#143'c'#255'>-'#31#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'&'
- +#28#19#255#196#143'c'#255#196#143'c'#255#196#143'c'#255#25#18#12#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#1
- +#255'*'#31#21#255'kM6'#255#187#137'_'#255#196#143'c'#255#196#143'c'#255#196
- +#143'c'#255#196#143'c'#255#196#143'c'#255#196#143'c'#255#196#143'c'#255#196
- +#143'c'#255#196#143'c'#255#196#143'c'#255#194#141'b'#255#170'kF'#255'\0'#28
- +#254'L<5'#203'CCCH333'#10#0#0#0#0#0#0#0#0#0#0#0#1'K3+@[/'#27#255#160'`>'#255
- +#190#136'_'#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'#255
- +#191#137'`'#255#189#135'`'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#30#21#15#255
- +#191#137'`'#255#191#137'`'#255#191#137'`'#255'aF1'#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#5#3#2#255#165'vS'#255#191#137'`'
- +#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'
- +#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'
- +#255#191#137'`'#255#191#137'`'#255#191#136'`'#255#178'vQ'#255'h7 '#253'Q8,'
- +#220'DDDV;;;'#13#0#0#0#0#0#0#0#0'UUU'#3'R4''^[/'#27#255#169'hF'#255#187#131
- +']'#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132
- +'^'#255'uS;'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'{W>'#255#187#132'^'#255
- +#187#132'^'#255#187#132'^'#255#185#130'^'#255#19#14#10#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#1#1#1#255#158'oO'#255#187#132'^'#255#187#132'^'
- +#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'
- +#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'
- +#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#181'{V'#255'r<"'#255'T6'''
- +#228'BBBd@@@'#16#0#0#0#0#0#0#0#0'UUU'#6'T5''}_2'#30#253#171'kI'#255#183'}Z'
- +#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255'. '#23#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#1#1#0#255'S9)'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'
- +#255#183'~Z'#255#173'xV'#255#31#21#15#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'b'
- +'C0'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'
- +#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255
- +#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#181'zV'#255'zA%'#255'X4$'
- +#237'DDDqCCC'#19#0#0#0#0#0#0#0#0'@@@'#8'U4%'#149'f5'#31#252#172'mK'#255#180
- +'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#6#4#3
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#19#13#9#255#153'gK'#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'
- +#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255'{S<'#255'+'#29#21#255#7
- +#4#3#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1
- +#255'gF3'#255#180'yX'#255#180'yX'#255#180'yX'#255#139']D'#255'+'#29#21#255#8
- +#6#4#255#8#6#4#255#16#11#8#255'W:*'#255#178'wV'#255#180'yX'#255#180'yX'#255
- +#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#179'yV'#255#131
- +'F+'#255'[3!'#245'CCCyIII'#21#0#0#0#0#0#0#0#0'UUU'#6'X3"'#165'n:"'#253#172'p'
- +'O'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#173'uU'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1
- +#0#0#255'P6'''#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'
- ,#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255
- +#177'wW'#255#177'wW'#255#158'jM'#255'W;+'#255''''#26#19#255'"'#23#17#255'%'
- +#25#18#255'W:+'#255#167'qS'#255#177'wW'#255#177'wW'#255#177'wW'#255'@+'#31
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#3#2#1#255
- +#149'dI'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177
- +'wW'#255#177'vV'#255#139'M0'#255'[1'#30#250'DDDpCCC'#19#0#0#0#0#0#0#0#0'UUU'
- +#3'Y1'#31#182'v>%'#255#172'oQ'#255#175'tW'#255#175'tW'#255#175'tW'#255#175't'
- +'W'#255#175'tW'#255'}S?'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#26#17#13#255#150'cK'#255#175'tW'#255#175'tW'#255#175'tW'#255
- +#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175
- +'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'
- +#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255
- +#175'tW'#255'dC2'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#9#6#4#255#169'pU'#255#175'tW'#255#175'tW'#255#175't'
- +'W'#255#175'tW'#255#175'tW'#255#174'sU'#255#145'S6'#255']0'#28#254'DBBd@@@'
- +#16#0#0#0#0#0#0#0#0#0#0#0#0'Z0'#30#175'v=%'#255#171'nP'#255#174'rV'#255#174
- +'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255'L2&'#255#0#0#0#255'/'#31#23#255
- +'}R>'#255' '#21#16#255'!'#22#17#255#139'[E'#255#174'rV'#255#174'rV'#255#174
- +'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'
- +#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255
- +#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174
- +'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255'?*'#31#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'6#'#27
- +#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#173'qT'#255
- +#145'S7'#255'\1'#29#254'AAAV;;;'#13#0#0#0#0#0#0#0#0#0#0#0#0'Z1'#30#150'n;$'
- +#252#169'jM'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255
- +#149'bI'#255'@* '#255#170'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'
- +#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255
- +#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172
- +'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'
- +#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255
- +'G/#'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#24#16#12#255#172'qU'#255#172'qU'#255#172'qU'#255#172
- +'qU'#255#172'qU'#255#171'oS'#255#138'N3'#255'\2'#31#249'DDDG999'#9#0#0#0#0#0
- +#0#0#0#0#0#0#0'X1!|g7#'#250#167'gI'#255#172'pT'#255#172'qU'#255#172'qU'#255
- +#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172
- +'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'
- +#255#172'qU'#255'P5('#255')'#27#20#255#27#18#13#255'5#'#26#255'pJ8'#255#172
- +'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'
- +#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255
- +#172'qU'#255#172'qU'#255#162'jO'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#9#6#4#255#172'qU'#255#172
- +'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#170'mR'#255#131'I.'#255'[4"'#241
- +'FFF7UUU'#6#0#0#0#0#0#0#0#0#0#0#0#0'Y1!`b5 '#251#164'cG'#255#172'pU'#255#173
- +'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'
- +#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255
- +#173'rW'#255'}S?'#255#9#6#5#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#16#11#8#255#152'dM'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255
- +#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173
- +'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255'$'#24#18#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#4#3#2#255#173'r'
- +'W'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#170'mQ'#255'|C*'#255
- +'W4$'#229'CCC&'#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0'X5!A^2'#31#254#162'bE'#255
- +#173'rV'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175
- +'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'
- +#255#175'tY'#255'{Q?'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#14#9#7#255#173'tY'#255#175'tY'#255#175'tY'#255
- +#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175
- +'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#132'XC'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#21
- +#14#11#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#174'tY'#255#170'm'
- +'P'#255't?('#254'U5&'#203'@@@'#24#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'X0'#24' ^2'
- +#31#255#156'\A'#255#175'v\'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'
- +#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255
- ,#177'y`'#255#177'y`'#255#177'y`'#255#11#8#6#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#136']J'#255#177
- +'y`'#255#177'y`'#255'7%'#30#255#9#6#5#255#13#9#7#255#16#11#9#255#26#18#14#255
- +#139'_K'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#177
- +'y`'#255#18#12#9#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'<)!'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#176
- +'x^'#255#169'kP'#255'j<&'#253'U4%'#168';;;'#13#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0'^2'#29#234#136'O4'#255#176'x^'#255#180'~f'#255#180'~f'#255#180'~f'
- +#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255
- +#180'~f'#255#180'~f'#255#180'~f'#255#146'gS'#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#139'bO'#255#170'x`'#255#20#14#11#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255']A4'#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255
- +#180'~f'#255'qO@'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#1#1#0#255#165't^'#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255
- +#178'zb'#255#162'dH'#255'_3'#31#254'R6)c@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0'[/'#29#153'r?)'#252#174'sZ'#255#182#129'j'#255#183#131'l'#255#183
- +#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183
- +#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255'ZA5'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#5#3#3#255#179#127'j'#255'uTE'#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'{XI'#255#183#131'l'
- +#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#20#15#12#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255':)"'#255#183#131'l'#255
- +#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#179'|c'#255#140
- +'R9'#255'\2'#31#248'@@6'#28#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +'[/'#29'E`5 '#252#166'iO'#255#183#131'l'#255#186#136'q'#255#186#136'q'#255
- +#186#136'q'#255#186#136'q'#255#186#136'q'#255#186#136'q'#255#186#136'q'#255
- +#186#136'q'#255#186#136'q'#255#186#136'q'#255#186#136'q'#255'\D8'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255'oQC'#255#186#136'q'#255'X@6'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#12#9#7#255#186#136'q'#255#186
- +#136'q'#255#186#136'q'#255#186#136'q'#255#186#136'q'#255#148'lZ'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#169'|g'#255#186#136'q'#255#186
- +#136'q'#255#186#136'q'#255#186#136'q'#255#185#134'q'#255#177'y`'#255'tB+'#254
- +'W2!'#194'III'#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@'#0#4'^3'
- +#30#245#144'W='#255#184#134'o'#255#189#141'x'#255#189#141'x'#255#189#141'x'
- +#255#189#141'x'#255#189#141'x'#255#189#141'x'#255#189#141'x'#255#189#141'x'
- +#255#189#141'x'#255#189#141'x'#255#189#141'x'#255'tWJ'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'('#30#26#255
- +#189#141'x'#255#189#141'x'#255'?/('#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#187#139'v'#255#189#141
- +'x'#255#189#141'x'#255#189#141'x'#255#189#141'x'#255#189#141'x'#255#172#128
- +'m'#255'_G<'#255#1#0#0#255#0#0#0#255'-"'#28#255#189#141'x'#255#189#141'x'#255
- +#189#141'x'#255#189#141'x'#255#189#141'x'#255#186#137's'#255#171'oU'#255'a6"'
- +#253'T5$jUUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\/'
- +#27#170'vD,'#252#181#128'h'#255#190#144'{'#255#192#146'~'#255#192#146'~'#255
- +#192#146'~'#255#192#146'~'#255#192#146'~'#255#192#146'~'#255#192#146'~'#255
- +#192#146'~'#255#192#146'~'#255#192#146'~'#255#186#142'z'#255#1#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#1#1#255#186#142'z'
- +#255#192#146'~'#255#192#146'~'#255'=.('#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#192#146'~'#255#192
- +#146'~'#255#192#146'~'#255#192#146'~'#255#192#146'~'#255#192#146'~'#255#192
- +#146'~'#255#192#146'~'#255#0#0#0#255#0#0#0#255#167#127'n'#255#192#146'~'#255
- +#192#146'~'#255#192#146'~'#255#192#146'~'#255#191#145'}'#255#186#137's'#255
- +#149'[A'#255'^1'#31#250'F:.'#22#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'\.'#28'H`5 '#252#164'jP'#255#190#143'z'#255#194#151#131
- +#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151
- +#131#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151#131#255#194
- +#151#131#255#27#21#18#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255' '#25#21#255#194#151#131#255#194#151#131#255#194#151#131#255'7*%'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#12#9#8#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151
- +#131#255#194#151#131#255#194#151#131#255#194#151#131#255#190#149#129#255#0#0
- ,#0#255'0% '#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151#131
- +#255#194#151#131#255#192#147#127#255#180'~f'#255'q@+'#252'Z0'#29#180#0#0#0#2
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0']0'
- +#28#199'{H2'#252#184#134'o'#255#196#153#134#255#197#156#137#255#197#156#137
- +#255#197#156#137#255#197#156#137#255#197#156#137#255#197#156#137#255#197#156
- +#137#255#197#156#137#255#197#156#137#255#197#156#137#255'G81'#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'WE='#255#197#156#137#255#197
- +#156#137#255#191#152#133#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#135'k^'#255#197#156#137#255#197
- +#156#137#255#197#156#137#255#197#156#137#255#197#156#137#255#197#156#137#255
- +#197#156#137#255#197#156#137#255#16#12#11#255#174#138'y'#255#197#156#137#255
- +#197#156#137#255#197#156#137#255#197#156#137#255#197#155#136#255#191#145'|'
- +#255#151'_F'#255'^3'#31#253'T2!-'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[0'#29'5_4 '#254#161'hP'#255#195#152#132
- +#255#200#161#143#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161
- +#144#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144#255#200
- +#161#144#255'xaW'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1
- +#255#171#138'{'#255#200#161#144#255#200#161#144#255#127'f\'#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255')!'#30#255
- +#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144
- +#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144#255#153'{n'
- +#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161
- +#144#255#198#156#138#255#181#128'h'#255'l>*'#252'Z1'#30#159#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0'^0'#27#173'uE/'#249#186#136'r'#255#201#162#145#255#203#165#150#255#203#165
- +#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203
- +#165#150#255#203#165#150#255#203#165#150#255#163#132'x'#255#0#0#0#255#0#0#0
- +#255#26#21#19#255',$!'#255'-%!'#255#156'~s'#255#203#165#150#255#203#165#150
- +#255#203#165#150#255'@4/'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#4#3#3#255#186#151#138#255#203#165#150#255#203#165
- +#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203
- +#165#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203#165#150#255
- +#203#165#150#255#203#165#150#255#203#165#150#255#203#164#149#255#195#152#132
- +#255#146'\D'#255'_3'#31#247'R3'#30#25#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z-'#30'"^4 '#252#155
- +'cK'#255#196#153#136#255#206#169#155#255#207#171#156#255#207#171#156#255#207
- +#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255
- +#207#171#156#255#203#167#152#255#0#0#0#255#0#0#0#255#193#159#145#255#207#171
- +#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207
- +#171#156#255'E94'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#15#12#11#255#182#150#137#255#207#171#156#255#207#171#156#255#207#171#156
- +#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171
- +#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207
- +#171#156#255#207#171#156#255#206#170#155#255#201#162#145#255#178'}f'#255'h<('
- +#250'[0'#28#129#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0']1'#29#130'f:&'#250#171'u'
- +'^'#255#202#164#148#255#210#176#163#255#210#177#164#255#210#177#164#255#210
- +#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255
- +#210#177#164#255#2#1#1#255#27#22#21#255#210#177#164#255#210#177#164#255#210
- +#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255
- +#210#177#164#255'I=8'#255#6#5#4#255#0#0#0#255#0#0#0#255#0#0#0#255'''!'#31#255
- +#206#175#162#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164
- +#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177
- +#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210
- +#177#164#255#210#176#163#255#206#170#155#255#188#139'w'#255'zI4'#252'^2'#29
- +#222']/'#23#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'^1'#29#181'oA-'
- +#249#182#132'n'#255#208#173#159#255#213#182#169#255#213#183#170#255#213#183
- +#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213
- +#183#170#255#12#10#9#255#159#136#127#255#213#183#170#255#213#183#170#255#213
- +#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255
- +#213#183#170#255#213#183#170#255#139'xo'#255#0#0#0#255#0#0#0#255'% '#30#255
- +#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170
- +#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183
- ,#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213
- +#183#170#255#213#183#170#255#211#178#165#255#196#152#134#255#136'T?'#254'`1 '
- +#243'U+'#28'$'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U+'#21#12
- +']2'#30#218'zK5'#251#192#146#127#255#212#180#168#255#216#187#176#255#217#188
- +#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217
- +#188#177#255'o`Z'#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188
- +#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217
- +#188#177#255#217#188#177#255#27#24#22#255#0#0#0#255#9#8#7#255#209#180#171#255
- +#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177
- +#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188
- +#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217
- +#188#177#255#215#185#173#255#202#163#147#255#152'cM'#255'`5 '#252'X.'#27'B'#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'].'#23'!_'
- +'3 '#241#135'V@'#254#197#155#137#255#215#185#173#255#219#193#183#255#220#194
- +#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220
- +#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255
- +#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184
- +#255#220#194#184#255#4#4#4#255#13#11#11#255#197#173#164#255#220#194#184#255
- +#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184
- +#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194
- +#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#183#255#218
- +#190#179#255#205#169#154#255#165'pY'#255'b8$'#252'[/'#27'h'#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Y1'#28'?_'
- +'3!'#249#132'T?'#252#193#148#130#255#215#186#174#255#223#198#189#255#223#200
- +#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223
- +#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255
- +#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191
- +#255#199#179#171#255#215#192#183#255#223#200#191#255#223#200#191#255#223#200
- +#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223
- +#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255
- +#223#200#191#255#223#200#191#255#223#199#190#255#219#192#183#255#203#165#150
- +#255#158'kS'#255'c9%'#251']0'#30#147#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z-'#25'3_3'#30
- +#234'wI5'#250#185#138'v'#255#215#186#174#255#225#203#194#255#227#205#197#255
- +#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197
- +#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205
- +#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227
- +#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255
- +#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197
- +#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#226#204
- +#196#255#220#194#183#255#200#159#143#255#144'_H'#254'a6"'#253'\1'#30'y'#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\3'#31#25'^2'#29#207'nB.'#249#175'~i'#255
- +#213#182#169#255#225#202#193#255#230#209#203#255#230#211#205#255#230#211#205
- +#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211
- +#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230
- +#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255
- +#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205
- +#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#210
- +#204#255#227#205#198#255#219#191#181#255#193#149#131#255#131'R='#251'_4 '#247
- +'Z0'#26'O'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'` '#8']0'
- +#28#169'e:'''#250#148'aL'#255#196#153#136#255#220#193#183#255#229#209#202#255
- +#233#216#210#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216#211
- +#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216
- +#211#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216#211#255#234
- +#216#211#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216#211#255
- +#234#216#211#255#234#216#211#255#234#216#211#255#233#216#211#255#231#212#206
- ,#255#224#200#192#255#207#171#156#255#168'va'#255'rE1'#249'^3'#31#230'Y,'#28
- +'.'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0'^1'#29'h`3'#31#237'nA/'#249#158'mW'#255#203#165#150#255#224#201#192
- +#255#232#213#208#255#235#219#215#255#237#222#218#255#237#222#218#255#237#222
- +#218#255#237#222#218#255#237#222#218#255#237#222#218#255#237#222#218#255#237
- +#222#218#255#237#222#218#255#237#222#218#255#237#222#218#255#237#222#218#255
- +#237#222#218#255#237#222#218#255#237#222#218#255#237#222#218#255#237#222#218
- +#255#236#220#216#255#233#216#211#255#228#206#200#255#213#182#170#255#177#131
- +'n'#255'}M:'#250'a6"'#253']1'#29#155'U1'#24#21#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'].'#23#11
- +']1'#29'~`5!'#246'tF5'#249#166'u`'#255#202#164#148#255#221#195#186#255#230
- +#210#203#255#234#218#213#255#238#224#220#255#240#227#224#255#240#227#225#255
- +#240#227#225#255#240#227#225#255#240#227#225#255#240#227#225#255#240#227#225
- +#255#240#227#225#255#240#227#225#255#240#227#225#255#240#227#225#255#239#225
- +#222#255#236#220#215#255#232#213#207#255#225#203#194#255#210#176#164#255#183
- +#138'u'#255#133'UA'#252'c9&'#254'^2'#30#178'\.'#26''''#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U1'#24#21']0'#30#147'`7"'#251'jA-'#249#133'UA'
- +#253#169'zf'#255#201#162#146#255#220#194#184#255#230#211#205#255#233#215#210
- +#255#234#217#212#255#236#220#215#255#237#222#218#255#238#223#220#255#237#222
- +#219#255#236#220#216#255#234#219#213#255#233#216#211#255#231#213#206#255#225
- +#203#194#255#209#174#160#255#181#136'u'#255#145'`L'#255'sG4'#249'c9&'#255'_2'
- +#30#198'].'#28'7'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0'U+'#28#18'\.'#27'^_1'#30#179'c7$'#248'h?,'#251#127
- +'Q;'#251#148'dN'#255#163't_'#255#175#129'n'#255#186#143'~'#255#198#157#141
- +#255#204#167#151#255#201#161#145#255#191#149#132#255#179#135'u'#255#167'ye'
- +#255#153'iT'#255#136'WC'#254'pE2'#249'c9&'#255'_3'#31#212'Z/'#27'|].'#29','#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U9'#28#9'\.'#26'N^0'#29#157'`'
- +'4 '#203'c6#'#230'c7%'#249'd:('#255'f=*'#255'i?-'#252'g>+'#255'e;('#255'd9&'
- +#253'b7$'#237'a5!'#214'_1'#30#180'\/'#26'lX,'#26#29#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'`0 '#16'[1'#24'*].'#27'B]1'#29'4\3'#31#25'UU'#0#3#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#248#15#255
- +#255#255#255#255#254#0#0#127#255#255#255#255#240#0#0#7#255#255#255#255#192#0
- +#0#1#255#255#255#255#0#0#0#0#255#255#255#252#0#0#0#0'?'#255#255#248#0#0#0#0
- +#31#255#255#240#0#0#0#0#7#255#255#192#0#0#0#0#3#255#255#128#0#0#0#0#1#255#255
- +#128#0#0#0#0#0#255#255#0#0#0#0#0#0#127#254#0#0#0#0#0#0#127#252#0#0#0#0#0#0'?'
- +#252#0#0#0#0#0#0#31#248#0#0#0#0#0#0#31#248#0#0#0#0#0#0#15#240#0#0#0#0#0#0#15
- ,#240#0#0#0#0#0#0#7#224#0#0#0#0#0#0#7#224#0#0#0#0#0#0#7#224#0#0#0#0#0#0#3#192
- +#0#0#0#0#0#0#3#192#0#0#0#0#0#0#3#192#0#0#0#0#0#0#1#192#0#0#0#0#0#0#1#192#0#0
- +#0#0#0#0#1#128#0#0#0#0#0#0#1#128#0#0#0#0#0#0#1#128#0#0#0#0#0#0#1#128#0#0#0#0
- +#0#0#1#128#0#0#0#0#0#0#1#128#0#0#0#0#0#0#1#192#0#0#0#0#0#0#1#192#0#0#0#0#0#0
- +#1#192#0#0#0#0#0#0#1#192#0#0#0#0#0#0#1#192#0#0#0#0#0#0#3#192#0#0#0#0#0#0#3
- +#224#0#0#0#0#0#0#3#224#0#0#0#0#0#0#7#224#0#0#0#0#0#0#7#224#0#0#0#0#0#0#7#240
- +#0#0#0#0#0#0#15#240#0#0#0#0#0#0#15#248#0#0#0#0#0#0#31#248#0#0#0#0#0#0#31#252
- +#0#0#0#0#0#0'?'#252#0#0#0#0#0#0#127#254#0#0#0#0#0#0#127#254#0#0#0#0#0#0#255
- +#255#0#0#0#0#0#1#255#255#128#0#0#0#0#3#255#255#192#0#0#0#0#7#255#255#224#0#0
- +#0#0#15#255#255#240#0#0#0#0#31#255#255#248#0#0#0#0'?'#255#255#254#0#0#0#0#127
- +#255#255#255#0#0#0#1#255#255#255#255#192#0#0#7#255#255#255#255#240#0#0#31#255
- +#255#255#255#254#0#0#255#255#255#255#255#255#248#31#255#255#255#255#255#255
- +#255#255#255#255#255'('#0#0#0'0'#0#0#0'`'#0#0#0#1#0' '#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'333'#5'UUU'#6'III'#7'@@@'#8'@@@'#8'III'#7
- +'UUU'#6'333'#5'UUU'#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'
- +#4'@@@'#8'@@@'#16'DDD1BBBMCCC_FCCrDBB'#129'FDD'#133'CCCvCCCcDDDRDDD('#240'l@!'#252'qE!'
- +#253'yJ$'#252#129'R&'#252#138'X)'#253#134'T('#253'}N%'#252'uG#'#252'oC"'#253
- +'h=#'#248'Z>.'#230'OC;'#211'FEC'#198'DDC'#187'BBB|CCC&999'#9#0#0#0#1#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#2'<<<'#17'CCCWEED'#170'OB9'#211'd=&'#244'qE"'#253#137'V)'#253
- +#164'h.'#255#186'y3'#255#194#130'5'#255#198#135'6'#255#203#140'7'#255#207#145
- +'8'#255#205#143'7'#255#201#137'7'#255#196#132'6'#255#192#127'5'#255#177'r1'
- +#255#152'_+'#254'{L%'#252'k?"'#251'[>-'#233'IEA'#203'EDD'#184'DDDq<<<'#30'@@'
- +'@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0'@@@'#4'BBB#EDD'#146'KB<'#205'a='''#242'yK&'#252#166'i/'#255#192#128'6'
- +#255#205#143'9'#255#217#159'<'#255#226#169'>'#255#230#173'>'#255#232#176'>'
- +#255#235#180'?'#255#237#182'@'#255#236#181'?'#255#234#178'>'#255#231#175'>'
- +#255#228#171'>'#255#223#165'<'#255#211#150':'#255#199#136'8'#255#182'v5'#255
- +#146'\,'#253'k@"'#252'W?1'#227'GFE'#199'CCC'#171'???=@@@'#8#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'III'#7'DDD8ECB'#170'[>,'#234'sF$'
- +#252#160'e0'#255#196#133';'#255#216#158'@'#255#227#170'A'#255#234#180'C'#255
- +#241#189'D'#255#245#193'E'#255#246#195'F'#255#247#195'F'#255#247#196'E'#255
- +#248#197'F'#255#248#197'E'#255#247#195'F'#255#247#194'F'#255#246#194'E'#255
- +#244#192'E'#255#238#184'C'#255#230#176'C'#255#223#166'A'#255#207#147'='#255
- +#182'w7'#255#138'V+'#253'h>#'#250'NA9'#215'CCC'#186'@@@[;;;'#13#0#0#0#1#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#8'EEENGC?'#189'b;%'#245#139'W-'#253#190
- +#127';'#255#212#153'B'#255#227#172'F'#255#239#186'I'#255#242#191'J'#255#244
- +#193'K'#255#246#195'K'#255#247#196'K'#255#247#196'K'#255#247#196'L'#255#247
- +#196'L'#255#247#196'L'#255#247#196'L'#255#247#196'L'#255#247#196'K'#255#247
- +#196'K'#255#246#196'K'#255#245#195'J'#255#243#193'J'#255#242#190'J'#255#234
- +#180'H'#255#221#165'E'#255#202#142'@'#255#173'o5'#255'oC$'#252'T?3'#225'CCC'
- +#193'AAAy@@@'#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'+++'#6'DDD@K@<'#198'g<"'#250#154
- +'a2'#254#200#141'B'#255#222#168'J'#255#234#183'N'#255#239#189'P'#255#242#192
- +'P'#255#242#193'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#243#193
- +'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#243#193
- ,'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#242#193
- +'P'#255#242#193'P'#255#241#191'P'#255#238#187'N'#255#229#176'L'#255#214#158
- +'G'#255#183'y;'#255'yJ)'#252'[=,'#236'CCB'#195'EEEoFFF'#11#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3
- +'CCC.J?;'#190'g=#'#252#167'k7'#255#205#147'H'#255#226#173'P'#255#235#186'T'
- +#255#238#189'T'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'
- +#255#239#190'U'#255#239#190'U'#255#191#152'D'#255'A4'#23#255'>1'#22#255'D6'
- +#24#255'H9'#26#255'RA'#29#255#146's4'#255#228#182'Q'#255#239#190'U'#255#239
- +#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#238#190'U'#255#237
- +#187'T'#255#232#182'S'#255#217#162'M'#255#191#129'B'#255#132'R-'#253'[9('#240
- +'DDD'#191'CCCW@@@'#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#1'>>>'#29'F@='#169'd9#'#250#165'i8'#255#208#151'L'#255
- +#226#174'U'#255#233#184'Y'#255#235#186'Y'#255#235#187'Y'#255#235#187'Y'#255
- +#235#187'Y'#255#235#187'Y'#255#235#187'Y'#255#235#187'Y'#255'<0'#23#255#1#1#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#0#0#0#255#6
- +#5#2#255'*!'#16#255'w^-'#255#227#181'W'#255#235#187'Y'#255#235#187'Y'#255#235
- +#186'Y'#255#234#186'Y'#255#231#181'X'#255#218#164'Q'#255#194#133'E'#255'{J*'
- +#252'U=/'#230'CCC'#186'EEE?@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0'333'#10'DAAw_9%'#244#150'^4'#254#204#148'N'#255#225#175
- +'Y'#255#230#181'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183
- +'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255'hR*'#255#1#1#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#1#1#0#255#1#1#0#255'*!'#17#255#164#130'B'#255#231#183'\'
- +#255#231#183'\'#255#231#182']'#255#228#179'['#255#217#165'V'#255#185'|C'#255
- +'nA'''#252'N>5'#219'CCC'#163'@@@'#20#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#128#128#128#2'@@@,W8*'#227#132'P/'#253#196#139'M'#255#220
- +#170'['#255#226#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227
- +#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#4#3#2
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0
- +#255#7#6#3#255#178#141'J'#255#227#179'_'#255#227#179'_'#255#225#176'^'#255
- +#211#158'U'#255#174'q?'#255'c9"'#252'GA>'#203'BBB]III'#7#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'FFF'#11'H>:'#150'e:#'#252#186'~H'#255#214#164'\'
- +#255#222#174'a'#255#223#175'b'#255#223#175'b'#255#223#175'b'#255#223#175'b'
- +#255#223#175'b'#255#223#175'b'#255#223#175'b'#255#223#175'b'#255#188#148'S'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#1#1#1#255#154'yC'#255#223#175'b'#255#223#175'a'#255
- +#220#171'`'#255#204#150'U'#255#145'Y5'#254'Y8('#238'CCC'#175'FFF'#29#0#0#0#1
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'AAA3Z7'''#236#148'\6'#255#207#154'Z'
- +#255#218#170'b'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'
- +#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'
- +#255#211#165'`'#255#6#5#3#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#1#255#219#171'd'#255#219
- +#171'd'#255#219#171'd'#255#215#166'`'#255#189#129'M'#255'h=$'#252'H>;'#207'E'
- +'EEhIII'#7#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'III'#7'K<5'#137'h;$'#252#188#130
- +'O'#255#213#164'b'#255#215#167'd'#255#215#167'd'#255#215#167'd'#255#215#167
- +'d'#255#215#167'd'#255#215#167'd'#255#215#167'd'#255#215#167'd'#255#215#167
- +'d'#255#215#167'd'#255#215#167'd'#255#168#130'N'#255#1#1#1#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#200#155']'#255#215#167'd'#255#215#167'd'#255#215#166'd'#255#205#153']'
- +#255#153'`:'#255'[6$'#243'CCC'#164';;;'#13#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'7'
- +'77'#14'Z5%'#229#150'[8'#255#203#150'^'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#142'mD'#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#145'pF'#255#211#162'e'#255#211#162
- +'e'#255#211#162'e'#255#210#159'd'#255#189#131'R'#255'f9#'#252'I@;'#202'===.'
- +#128#128#128#2#0#0#0#0#0#0#0#0#128#128#128#2'D??4]3'#30#252#181'yM'#255#206
- +#155'd'#255#207#157'f'#255#207#157'f'#255#207#157'f'#255#207#157'f'#255#205
- +#155'f'#255'S?('#255#1#1#1#255#1#0#0#255#3#2#1#255#15#11#7#255#169#128'S'#255
- ,#207#157'f'#255#207#157'f'#255#207#157'f'#255#16#12#8#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255#186#141'\'
- +#255#207#157'f'#255#207#157'f'#255#207#157'f'#255#207#157'e'#255#201#148'`'
- +#255#135'O0'#254'R9-'#226'BBBeIII'#7#0#0#0#0#0#0#0#0'UUU'#6'O8/'#141'o>'''
- +#251#193#139'['#255#203#151'e'#255#203#152'e'#255#203#152'e'#255#203#152'e'
- +#255#203#152'e'#255#23#17#11#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#1#1#1#255#153'rL'#255#203#152'e'#255#203#152'e'#255',!'#22#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255' '#24#16
- +#255#203#152'e'#255#203#152'e'#255#203#152'e'#255#203#152'e'#255#203#152'e'
- +#255#202#150'd'#255#165'jC'#255'\3!'#247'DDD'#151'MMM'#10#0#0#0#0#0#0#0#0'@@'
- +'@'#8'Z6%'#206#142'T5'#255#195#142'a'#255#198#145'c'#255#198#145'c'#255#198
- +#145'c'#255#198#145'c'#255'W@,'#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255'%'#27#19#255#198#145'c'#255#198#145'c'#255'U>+'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255#1#1#1#255#27#20#13#255'vW;'
- +#255#198#145'c'#255#198#145'c'#255#198#145'c'#255#198#145'c'#255#198#145'c'
- +#255#198#145'c'#255#198#145'c'#255#184'}S'#255'`4 '#252'FA>'#183'@@@'#12#0#0
- +#0#0#0#0#0#0'999'#9']2'#30#243#166'gD'#255#192#138'`'#255#192#139'a'#255#192
- +#139'a'#255#192#139'a'#255#190#137'a'#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8#6#4#255#192#139'a'#255#192#139
- +'a'#255#129']B'#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'Q;)'#255#192#139'a'
- +#255#192#139'a'#255#192#139'a'#255#192#139'a'#255#192#139'a'#255#192#139'a'
- +#255#192#139'a'#255#192#139'a'#255#192#139'a'#255#192#139'a'#255#188#132'['
- +#255'u@'''#252'M;3'#212'999'#18#0#0#0#0#0#0#0#0'FFF'#11'^1'#29#250#174'oK'
- +#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186#131'\'#255'vS:'#255#1#1
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255
- +'S:)'#255#186#131'\'#255#186#131'\'#255#184#129'\'#255'('#28#20#255#1#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255'Q9('#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186
- +#131'\'#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186
- +#131'\'#255#186#131'\'#255#186#130'['#255#131'I-'#255'Q9-'#221'FFF!'#0#0#0#1
- +#0#0#0#0'M33'#20'_2'#30#251#173'pN'#255#180'{X'#255#180'{X'#255#180'{X'#255
- +#180'{X'#255'-'#30#22#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#2#1#1#255'dE1'#255#180'{X'#255#180'{X'#255#180'{X'#255#180'{X'#255
- +#180'{X'#255'O6&'#255#2#1#1#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'G0#'#255#180'{X'#255#180'{X'#255#178'{X'#255'hH3'#255'U:)'#255
- +'mK5'#255#180'{X'#255#180'{X'#255#180'{X'#255#180'{X'#255#180'{X'#255#180'{X'
- +#255#180'{X'#255#139'P3'#255'U7)'#231'BBB2UUU'#3#0#0#0#0'T1&,c5 '#249#174'rQ'
- +#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#8#5#4#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#1#0#0#255#27#18#13#255#164'nQ'#255#178'wW'#255#178
- +'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'
- +#255#142'_F'#255'H0#'#255#20#13#10#255#25#16#12#255'9'''#28#255'lI5'#255#178
- +'wW'#255#178'wW'#255'kG4'#255#1#1#1#255#1#1#0#255#1#0#0#255#1#0#0#255#3#2#1
- +#255'zQ<'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#149
- +'W9'#255'Z5%'#238'DDD-'#128#128#128#2#0#0#0#0'Y3 Bj8#'#248#173'qS'#255#175't'
- +'W'#255#175'tW'#255#175'tW'#255#175'tW'#255#1#0#0#255#1#1#1#255#0#0#0#255#0#0
- +#0#255#5#3#3#255'cB2'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175
- +'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'
- +#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255
- +#173'rU'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#1
- +#1#255#152'eL'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#155'[>'
- +#255'\4"'#244'@@@'#28#0#0#0#1#0#0#0#0'X0!3g7"'#246#172'oR'#255#174'rV'#255
- +#174'rV'#255#174'rV'#255#166'lR'#255#7#5#3#255#131'VA'#255#155'fM'#255'oI7'
- +#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255
- +#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174
- +'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'
- +#255#153'dL'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255'<'''#29#255#174'rV'#255#174'rV'#255#174'rV'#255#173'qU'#255#151'Y'
- +'='#255']6%'#239'333'#15#0#0#0#0#0#0#0#0'O1'''#25'b3'#31#247#168'jN'#255#172
- +'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'
- +#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#136'XD'#255
- ,'U7*'#255'^=/'#255'kE5'#255#170'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255
- +#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172
- +'oU'#255#172'oU'#255#5#3#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'!'#21#16#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oT'#255
- +#143'R7'#255'Y6('#225'@@@'#12#0#0#0#0#0#0#0#0'333'#5'_2'#31#248#167'hL'#255
- +#172'qW'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172
- +'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255':&'#30#255#1#0#0#255
- +#1#1#0#255#1#1#1#255#1#1#0#255#4#2#2#255#133'WD'#255#172'qX'#255#172'qX'#255
- +#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172
- +'qX'#255#172'qX'#255'E.$'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#30#20#15#255#172'qX'#255#172'qX'#255#172'qX'#255#172'pV'#255
- +#134'K2'#255'V8)'#199'999'#9#0#0#0#0#0#0#0#0#0#0#0#1'_3'#30#239#164'fJ'#255
- +#175'w]'#255#175'w^'#255#175'w^'#255#175'w^'#255#175'w^'#255#175'w^'#255#175
- +'w^'#255#175'w^'#255#175'w^'#255#175'w^'#255'hF7'#255#1#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#7#5#4#255#175'w^'#255#175'w^'#255'{TB'
- +#255'X;/'#255']?2'#255#127'VD'#255#175'w^'#255#175'w^'#255#175'w^'#255#175'w'
- +'^'#255#165'qY'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1
- +#255'fF7'#255#175'w^'#255#175'w^'#255#175'w^'#255#175'v\'#255'{D-'#253'S5('
- +#154'333'#5#0#0#0#0#0#0#0#0#0#0#0#0'a3'#30#200#149'Z?'#255#179'|c'#255#179'}'
- +'e'#255#179'}e'#255#179'}e'#255#179'}e'#255#179'}e'#255#179'}e'#255#179'}e'
- +#255#179'}e'#255#179'}e'#255#19#13#11#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#2#1#1#255#179'}e'#255'E0'''#255#1#0#0#255#1#1#0#255
- +#1#1#0#255#0#0#0#255'R:/'#255#179'}e'#255#179'}e'#255#179'}e'#255#179'}e'#255
- +'.!'#26#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1#255#177'}e'#255#179
- +'}e'#255#179'}e'#255#179'}e'#255#175'v\'#255'g8$'#251'W7*O'#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0'[0'#29'lyD-'#249#181#128'i'#255#183#131'l'#255#183#131'l'#255
- +#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255
- +#183#131'l'#255#183#131'l'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'"'#25#20#255#183#131'l'#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255'B/'''#255#183#131'l'#255#183#131'l'#255
- +#183#131'l'#255#169'yd'#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255'#'#25#21
- +#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#167'lQ'#255
- +'^3'#31#248'@@@'#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Y1'#30#26'b5 '#244#178'z'
- +'c'#255#187#138't'#255#187#138'u'#255#187#138'u'#255#187#138'u'#255#187#138
- +'u'#255#187#138'u'#255#187#138'u'#255#187#138'u'#255#187#138'u'#255#2#2#1#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#170'~j'#255#177
- +#130'o'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#4#3#3
- +#255#187#138'u'#255#187#138'u'#255#187#138'u'#255#187#138'u'#255'jNB'#255#11
- +#8#7#255#0#0#0#255#0#0#0#255#152'p`'#255#187#138'u'#255#187#138'u'#255#187
- +#138'u'#255#186#136'r'#255#144'W?'#255']6#'#193'333'#5#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'`4'#31#217#160'gN'#255#190#143'{'#255#191#145'}'#255#191
- +#145'}'#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#191
- +#145'}'#255#191#145'}'#255#19#14#12#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'7*$'#255#191#145'}'#255#164'|k'#255#1#1#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#1#255#191#145'}'#255#191#145'}'#255
- +#191#145'}'#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#0#0#0#255#30#23
- +#20#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#187#138
- +'t'#255'p>('#249'Y2#U'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27
- +'huB+'#244#190#142'z'#255#195#152#132#255#195#152#132#255#195#152#132#255#195
- +#152#132#255#195#152#132#255#195#152#132#255#195#152#132#255#195#152#132#255
- +'A3,'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255#183#142'|'#255
- +#195#152#132#255#138'k]'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#9#7#6#255#195#152#132#255#195#152#132#255#195#152#132#255#195
- +#152#132#255#195#152#132#255#195#152#132#255#1#1#1#255#160'}m'#255#195#152
- +#132#255#195#152#132#255#195#152#132#255#194#150#131#255#167'pW'#255'`4 '#240
- +'M33'#10#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@'#0#4'`3'#30#229
- +#164'nU'#255#197#156#137#255#199#159#141#255#199#159#141#255#199#159#141#255
- +#199#159#141#255#199#159#141#255#199#159#141#255#199#159#141#255'x`U'#255#1#1
- +#1#255#0#0#0#255#0#0#0#255#0#0#0#255#18#14#13#255#199#159#141#255#199#159#141
- +#255' '#26#23#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255
- +#139'oc'#255#199#159#141#255#199#159#141#255#199#159#141#255#199#159#141#255
- +#199#159#141#255#199#159#141#255'^KC'#255#199#159#141#255#199#159#141#255#199
- +#159#141#255#199#159#141#255#192#147#127#255'rB-'#249'\1 k'#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\.'#28'Sn>('#243#194#149#131
- ,#255#202#165#148#255#203#165#149#255#203#165#149#255#203#165#149#255#203#165
- +#149#255#203#165#149#255#203#165#149#255#169#138'|'#255#0#0#0#255#1#1#1#255
- +#16#13#11#255#23#19#17#255#171#139'~'#255#203#165#149#255#203#165#149#255#3#3
- +#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'*"'#31#255#203#165
- +#149#255#203#165#149#255#203#165#149#255#203#165#149#255#203#165#149#255#203
- +#165#149#255#203#165#149#255#203#165#149#255#203#165#149#255#203#165#149#255
- +#203#165#149#255#201#162#145#255#163'mU'#255'_3'#31#227'U'#0#0#3#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'a3'#30#213#153
- +'eM'#254#204#167#151#255#207#172#158#255#207#172#158#255#207#172#158#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#205#170#156#255#0#0#0#255'<1.'
- +#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172
- +#158#255#20#16#15#255#1#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'?40'#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255
- +#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255#207#171#156#255#192#147#127#255'k<'''#244'Z.'#29'L'#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +'^/'#27'&b5!'#240#174'{f'#255#209#176#162#255#212#180#167#255#212#180#167#255
- +#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167#255#6#5#5#255
- +#179#151#140#255#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167
- +#255#212#180#167#255#212#180#167#255'gXR'#255#0#0#0#255#0#0#0#255'gXR'#255
- +#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167
- +#255#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167#255#212#180
- +#167#255#212#180#167#255#211#179#166#255#202#162#146#255#127'M7'#248'`2'#31
- +#169#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0'[/'#26'Fg:#'#242#190#145#127#255#214#184#172#255#216
- +#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255
- +'k]X'#255#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255#216
- +#187#176#255#216#187#176#255#216#187#176#255'E<8'#255#0#0#0#255'>63'#255#216
- +#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255
- +#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176
- +#255#216#187#176#255#216#187#175#255#210#176#163#255#147'_H'#252'`4'#31#210
- +'U++'#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\0'#29'trB-'#242#198#157#140#255#218#191
- +#180#255#221#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221
- +#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255
- +#221#195#185#255#221#195#185#255#221#195#185#255',''%'#255'920'#255#221#195
- +#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221
- +#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255
- +#221#195#185#255#220#194#184#255#213#183#170#255#162'oW'#255'b5 '#232'].'#23
- +#22#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'_1'#30#138'l>)'#242#187#143'|'
- +#255#221#196#186#255#225#202#193#255#225#203#194#255#225#203#194#255#225#203
- +#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225
- +#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255
- +#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194
- +#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203
- +#194#255#224#201#192#255#212#180#168#255#149'aK'#252'a5!'#230']2'#25')'#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#28'\d9$'#241#172
- +'|h'#255#222#197#187#255#228#206#200#255#230#209#203#255#230#209#203#255#230
- +#209#203#255#230#209#203#255#230#209#203#255#230#209#203#255#230#209#203#255
- +#230#209#203#255#230#209#203#255#230#209#203#255#230#209#203#255#230#209#203
- +#255#230#209#203#255#230#209#203#255#230#209#203#255#230#209#203#255#230#209
- +#203#255#230#209#203#255#230#209#203#255#229#209#202#255#226#204#197#255#208
- +#173#159#255#131'R;'#245'a3'#31#207'Y3'#26#20#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'].'#28'7a5!'#236#137'WB'#248#201
- +#163#148#255#229#210#202#255#233#215#210#255#234#217#212#255#234#217#212#255
- +#234#217#212#255#234#217#212#255#234#217#212#255#234#217#212#255#234#217#212
- +#255#234#217#212#255#234#217#212#255#234#217#212#255#234#217#212#255#234#217
- +#212#255#234#217#212#255#234#217#212#255#234#217#212#255#234#216#211#255#231
- +#212#206#255#221#195#185#255#174#128'm'#255'm>*'#242'`1'#29#163'f33'#5#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0'b'''#20#13'`2'#29#140'd8$'#241#151'hR'#251#211#179#167#255#233#215
- +#210#255#236#220#215#255#237#222#219#255#238#225#221#255#238#225#221#255#238
- +#225#221#255#238#225#221#255#238#225#221#255#238#225#221#255#238#225#221#255
- +#238#225#221#255#238#225#221#255#238#223#220#255#236#221#217#255#234#219#213
- +#255#227#205#198#255#188#146#128#255'wH2'#242'b5 '#219'].'#27'B'#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'X1'#29#26'a3'#30#168'f:$'#242#134'T?'
- +#246#179#136'v'#255#214#183#172#255#235#218#214#255#238#225#221#255#239#226
- +#223#255#240#227#224#255#240#227#225#255#240#227#225#255#239#226#223#255#239
- +#225#222#255#238#224#220#255#226#204#196#255#199#161#145#255#158'o['#254'rD-'
- +#239'b4"'#232'^2'#30'\'#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0'`+ '#24']/'#30'fd6#'#197'c8#'#243'vE0'#240#140'ZF'
- +#247#156'mY'#255#171#127'm'#255#184#143#127#255#178#136'v'#255#164'wd'#255
- +#148'dP'#252#130'Q;'#243'l<('#239'b6"'#234'b5!'#151'Z-'#29'>UU'#0#3#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0'].'#23#11'Z/'#29'G^4 fa4!'#130'd6!'#166'd7#'#194
- +'d7"'#182'c6"'#150'_3'#31's\0'#29'YY/'#30'+'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#224#3#255#255#255
- +#255#255#254#0#0#127#255#255#255#255#248#0#0#31#255#255#255#255#224#0#0#7#255
- +#255#255#255#192#0#0#3#255#255#255#255#128#0#0#1#255#255#255#255#0#0#0#0#127
- +#255#255#254#0#0#0#0#127#255#255#252#0#0#0#0'?'#255#255#248#0#0#0#0#31#255
- +#255#240#0#0#0#0#15#255#255#240#0#0#0#0#15#255#255#224#0#0#0#0#7#255#255#224
- +#0#0#0#0#3#255#255#192#0#0#0#0#3#255#255#192#0#0#0#0#3#255#255#192#0#0#0#0#1
- +#255#255#128#0#0#0#0#1#255#255#128#0#0#0#0#1#255#255#128#0#0#0#0#1#255#255
- +#128#0#0#0#0#1#255#255#128#0#0#0#0#0#255#255#128#0#0#0#0#0#255#255#128#0#0#0
- +#0#0#255#255#128#0#0#0#0#0#255#255#128#0#0#0#0#1#255#255#128#0#0#0#0#1#255
- +#255#128#0#0#0#0#1#255#255#128#0#0#0#0#1#255#255#192#0#0#0#0#1#255#255#192#0
- +#0#0#0#3#255#255#192#0#0#0#0#3#255#255#224#0#0#0#0#7#255#255#224#0#0#0#0#7
- +#255#255#224#0#0#0#0#15#255#255#240#0#0#0#0#15#255#255#248#0#0#0#0#31#255#255
- +#248#0#0#0#0'?'#255#255#252#0#0#0#0'?'#255#255#254#0#0#0#0#127#255#255#255#0
- +#0#0#0#255#255#255#255#128#0#0#1#255#255#255#255#192#0#0#3#255#255#255#255
- +#224#0#0#15#255#255#255#255#248#0#0#31#255#255#255#255#254#0#0#127#255#255
- +#255#255#255#192#7#255#255#255#255#255#255#255#255#255#255#255#255'('#0#0#0
- +' '#0#0#0'@'#0#0#0#1#0' '#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'CCC'#19'FFF'#22'UUU'#3#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#12'EAAGDDB'#133'DDC'#181'HC?'#205'LA;'#213
- +'JB='#212'FC@'#204'EED'#185'DDC'#145'DDDSFFF'#22#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'III'#14'EEBoLA;'#208'eE-'#235'xK('
- +#246#131'R)'#250#139'W*'#251#149'_,'#252#145'\+'#252#136'V*'#250#128'Q('#249
- +'rI)'#244'\D2'#227'FB?'#207'CCC'#134'DDD'#30#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0'EEENMA9'#206'oF)'#245#147']-'#252#187'}4'#255#211#150'9'#255#224
- +#167';'#255#230#174'='#255#234#179'>'#255#233#178'>'#255#228#171'='#255#221
- +#163'<'#255#205#143'8'#255#175'r2'#255#131'R*'#250'eC,'#238'FB?'#205'CCCoUUU'
- +#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'@@@'#4'GEA|dB+'#239#142'[.'#252#198#137'<'#255#227#172'C'#255
- +#236#183'E'#255#242#190'F'#255#246#195'G'#255#248#198'G'#255#249#199'H'#255
- +#249#198'H'#255#247#196'G'#255#245#193'G'#255#240#188'F'#255#234#180'D'#255
- +#220#163'A'#255#183'y8'#255'}O*'#250'WA4'#225'CCC'#152'<<<'#17#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'G@='#148
- +'lD*'#245#175'u8'#254#221#166'I'#255#234#182'M'#255#242#193'P'#255#243#194'O'
- +#255#244#195'O'#255#244#195'P'#255#244#195'P'#255#244#195'P'#255#244#195'P'
- +#255#244#195'P'#255#244#195'P'#255#243#194'O'#255#243#194'O'#255#240#190'O'
- +#255#230#179'L'#255#212#155'F'#255#148'^1'#252'`A.'#234'CCC'#171'@@@'#12#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'FA>vmB)'#247#189
- +#130'A'#255#224#172'P'#255#236#187'U'#255#238#189'W'#255#238#190'V'#255#238
- +#190'V'#255#238#190'V'#255'fQ%'#255#17#14#6#255#17#13#6#255#16#13#6#255',#'
- +#16#255#155'|8'#255#238#190'V'#255#238#190'V'#255#238#189'V'#255#238#189'W'
- +#255#233#184'U'#255#217#163'M'#255#164'l8'#254'_>+'#238'DDD'#147#128#128#128
- +#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'FDD=e?*'#243#183'}B'#255
- +#223#171'W'#255#232#183'['#255#232#183'\'#255#232#183'\'#255#232#183'\'#255
- +#232#183'\'#255'>1'#25#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#1#1#1#255#5#4#2#255#22#17#9#255'pX,'#255#218#171'V'#255#232#183'\'#255#230
- +#182'['#255#217#164'T'#255#152'a7'#252'V=1'#228'DDDb'#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#128#128#128#2'Z<-'#215#163'k='#254#217#166'['#255#226#178'`'
- +#255#226#179'a'#255#226#179'a'#255#226#179'a'#255#226#179'a'#255#226#179'a'
- +#255#5#4#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#3#3#1#255',#'#19#255#226#179'a'#255#225#177'_'
- +#255#208#154'T'#255#129'O1'#251'H?;'#205'@@@'#20#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0'J@<[vF,'#249#206#153'Y'#255#220#172'b'#255#220#172'c'#255#220#172'c'#255
- +#220#172'c'#255#220#172'c'#255#220#172'c'#255#205#160']'#255#4#3#2#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#1#0#0#255'.$'#21#255#220#172'c'#255#218#170'a'#255#190#132
- +'N'#255'c=)'#242'CCCz'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\9('#218#177'vG'#255
- +#213#164'c'#255#214#166'e'#255#214#166'e'#255#214#166'e'#255#214#166'e'#255
- +#214#166'e'#255#214#166'e'#255#214#166'e'#255'v\8'#255#2#2#1#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#11#9#5#255#214#166'e'#255#214#166'e'#255#209#159'a'#255#139'Y'
- +'6'#252'K>7'#206'333'#5#0#0#0#0#0#0#0#0'?;9'#19'mA+'#247#201#148'^'#255#209
- +#159'e'#255#209#159'e'#255#209#159'e'#255#146'oF'#255#18#14#9#255#21#16#10
- +#255'O<&'#255#209#159'e'#255#209#159'e'#255'$'#27#17#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#11#8#5#255#209#159'e'#255#209#159'e'#255#208#158'e'#255#185#128'Q'#255
- +'^9)'#240'BBB6'#0#0#0#0#0#0#0#0'P8-q'#144'Z:'#252#201#150'd'#255#202#151'd'
- +#255#202#151'd'#255'uW:'#255#2#1#1#255#0#0#0#255#0#0#0#255#1#0#0#255'-!'#22
- +#255#202#151'd'#255'ZC-'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#5#4#3#255'gM3'#255#202#151'd'
- +#255#202#151'd'#255#202#151'd'#255#197#145'`'#255'l@*'#248'CCBo'#0#0#0#0#0#0
- +#0#0'^7$'#194#171'pK'#255#194#140'a'#255#194#140'a'#255#194#140'a'#255#6#4#3
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#7#5#4#255#194#140'a'#255#139'eE'
- +#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#13
- +#9#6#255'wV<'#255#192#138'a'#255#194#140'a'#255#194#140'a'#255#194#140'a'#255
- +#194#140'a'#255#193#140'a'#255#137'T7'#252'K=6'#158#0#0#0#0#0#0#0#0'a6#'#220
- +#177'uQ'#255#185#129'['#255#185#129'['#255#127'Y>'#255#1#1#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#2#1#1#255'8'''#27#255#185#129'['#255#185#129'['#255'+'#30
- +#21#255#2#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#13#9#6#255#179'}Y'
- +#255#185#129'['#255#185#129'['#255#185#129'['#255#185#129'['#255#185#129'['
- +#255#185#129'['#255#185#129'['#255#152'^>'#255'P:1'#190#0#0#0#0#0#0#0#0'c7#'
- +#227#175'sS'#255#178'xW'#255#178'xW'#255','#30#21#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#5#4#3#255'uO:'#255#178'xW'#255#178'xW'#255#178'xW'#255#178'xW'#255'xP'
- +':'#255'('#26#19#255#10#7#5#255#10#7#5#255#28#19#13#255#168'rS'#255#163'nO'
- +#255#25#17#12#255#6#4#3#255#17#11#8#255'bB/'#255#178'xW'#255#178'xW'#255#178
- +'xW'#255#158'aB'#255'V9,'#210#0#0#0#0#0#0#0#0'f7"'#227#173'sT'#255#175'tW'
- +#255#175'tW'#255#15#10#7#255#13#8#6#255#5#4#3#255'+'#29#21#255#169'pU'#255
- +#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175
- +'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#17#11#8#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#2#2#1#255#136'ZD'#255#175'tW'#255#175'tW'#255#161'd'
- +'G'#255'[8('#211#0#0#0#0#0#0#0#0'e6"'#218#171'nR'#255#173'qV'#255#173'qV'#255
- +#136'YC'#255#173'qV'#255#173'qV'#255#173'qV'#255#173'qV'#255#173'qV'#255'sK9'
- +#255'uM:'#255#159'gN'#255#173'qV'#255#173'qV'#255#173'qV'#255#173'qV'#255#173
- +'qV'#255#173'qV'#255#173'qV'#255'5"'#27#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255'H/$'#255#173'qV'#255#173'qV'#255#153'^D'#255'Y8*'#188#0#0#0#0#0#0#0#0
- +'c5 '#203#170'kQ'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- ,#255#174'sY'#255#164'mU'#255#11#7#6#255#1#1#1#255#1#1#1#255#5#3#2#255#127'TA'
- +#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255
- +#128'UA'#255#2#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255'J1&'#255#174'sY'#255#174
- +'sY'#255#147'X?'#255'S8,'#140#0#0#0#0#0#0#0#0'd4'#30#153#162'gM'#255#178'{c'
- +#255#178'{c'#255#178'{c'#255#178'{c'#255#178'{c'#255#178'{c'#255'A-$'#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#20#14#11#255'xSB'#255#6#4#3#255#5#4#3
- +#255#18#12#10#255#170'u_'#255#178'{c'#255#178'{c'#255#9#6#5#255#0#0#0#255#0#0
- +#0#255#3#2#2#255#166's]'#255#178'{c'#255#178'{c'#255#131'P8'#252'S3$>'#0#0#0
- +#0#0#0#0#0'[/'#27'3'#137'T='#247#184#134'o'#255#184#134'o'#255#184#134'o'#255
- +#184#134'o'#255#184#134'o'#255#184#134'o'#255#14#10#9#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#1#1#1#255'\C7'#255#14#10#8#255#0#0#0#255#0#0#0#255#0#0#0#255#14#10
- +#8#255#184#134'o'#255#184#134'o'#255'xWI'#255#2#1#1#255#0#0#0#255#18#14#11
- +#255#184#134'o'#255#184#134'o'#255#183#131'l'#255'h:&'#240#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'n<%'#218#189#140'x'#255#190#143'z'#255#190#143'z'#255#190#143
- +'z'#255#190#143'z'#255#190#143'z'#255',!'#28#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#9#7#6#255#190#143'z'#255#9#7#6#255#0#0#0#255#0#0#0#255#0#0#0#255#5#4#3
- +#255#190#143'z'#255#190#143'z'#255#190#143'z'#255#159'xe'#255#0#0#0#255#140
- +'jZ'#255#190#143'z'#255#190#143'z'#255#175'yc'#255'b6"'#193#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'd4'#30#151#167's\'#254#196#154#135#255#196#154#135#255#196#154
- +#135#255#196#154#135#255#196#154#135#255'qYN'#255#0#0#0#255#0#0#0#255#1#1#1
- +#255'v]R'#255#194#152#133#255#5#4#4#255#0#0#0#255#0#0#0#255#0#0#0#255#10#8#7
- +#255#196#154#135#255#196#154#135#255#196#154#135#255#196#154#135#255'"'#27#24
- +#255#196#154#135#255#196#154#135#255#196#154#135#255#131'R<'#248'^1'#28'1'#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#14'o>('#224#198#157#140#255#202#163#146
- +#255#202#163#146#255#202#163#146#255#202#163#146#255#170#138'{'#255#0#0#0#255
- +#8#6#6#255#26#21#19#255#202#163#146#255#143'th'#255#1#1#1#255#0#0#0#255#0#0#0
- +#255#2#2#2#255#143'sg'#255#202#163#146#255#202#163#146#255#202#163#146#255
- +#202#163#146#255#191#155#138#255#202#163#146#255#202#163#146#255#183#135'r'
- +#255'd5 '#193#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'd3'#30'{'#156
- +'jS'#248#209#174#160#255#209#174#160#255#209#174#160#255#209#174#160#255#209
- +#174#160#255#2#2#2#255#205#172#158#255#209#174#160#255#209#174#160#255#169
- +#140#129#255#11#9#9#255#1#1#0#255#4#3#3#255#132'oe'#255#209#174#160#255#209
- +#174#160#255#209#174#160#255#209#174#160#255#209#174#160#255#209#174#160#255
- +#209#174#160#255#205#167#152#255'yG3'#235'[/'#27'"'#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'd4'#30#181#179#134'r'#254#215#185#173#255#215
- +#185#173#255#215#185#173#255#215#185#173#255'm^X'#255#215#185#173#255#215#185
- +#173#255#215#185#173#255#215#185#173#255#133'sk'#255#0#0#0#255#156#134'}'#255
- +#215#185#173#255#215#185#173#255#215#185#173#255#215#185#173#255#215#185#173
- +#255#215#185#173#255#215#185#173#255#214#183#172#255#143'^I'#243'b3'#29'`'#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#8'f6 '
- +#205#189#148#131#254#222#197#187#255#222#197#187#255#222#197#187#255#222#197
- +#187#255#222#197#187#255#222#197#187#255#222#197#187#255#222#197#187#255#127
- +'qk'#255#134'wq'#255#222#197#187#255#222#197#187#255#222#197#187#255#222#197
- +#187#255#222#197#187#255#222#197#187#255#222#197#187#255#220#193#183#255#159
- +'o['#247'd3'#30#147#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0'[/'#27#15'c3'#30#193#176#132'q'#248#228#206#199#255
- +#228#208#201#255#228#208#201#255#228#208#201#255#228#208#201#255#228#208#201
- +#255#228#208#201#255#228#208#201#255#228#208#201#255#228#208#201#255#228#208
- +#201#255#228#208#201#255#228#208#201#255#228#208#201#255#228#208#201#255#221
- +#196#186#255#141']I'#237'c3'#29#129#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#2'c3'#29#150
- +#135'XD'#231#208#176#164#255#235#219#215#255#235#219#215#255#235#219#215#255
- +#235#219#215#255#235#219#215#255#235#219#215#255#235#219#215#255#235#219#215
- +#255#235#219#215#255#235#219#215#255#235#219#215#255#232#214#209#255#189#149
- +#133#253'qA+'#220'a2'#29'O'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27
- +'"e4'#30#185#144'cO'#235#195#158#144#254#230#209#203#255#242#231#229#255#242
- +#231#229#255#242#231#229#255#242#231#229#255#242#231#229#255#241#230#226#255
- +#220#193#184#255#180#141'|'#251'zK6'#226'd3'#30#142'[/'#27#10#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#28'b3'#29'{g5'#30
- +#198'xH2'#218#137']J'#229#156'r`'#236#151'mZ'#234#132'VB'#227'q?)'#213'f4'#30
- +#182'_1'#28'W[/'#27#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#5'[/'
- +#27#30'[/'#27#22'[/'#27#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#252'?'#255
- +#255#192#3#255#255#0#0#255#254#0#0'?'#248#0#0#31#240#0#0#15#240#0#0#7#224#0#0
- +#7#192#0#0#3#192#0#0#3#192#0#0#1#128#0#0#1#128#0#0#1#128#0#0#1#128#0#0#1#128
- +#0#0#1#128#0#0#1#128#0#0#1#128#0#0#1#128#0#0#1#128#0#0#3#192#0#0#3#192#0#0#3
- +#192#0#0#7#224#0#0#7#240#0#0#15#240#0#0#31#248#0#0'?'#252#0#0#127#255#0#0#255
- +#255#192#3#255#255#252'?'#255'('#0#0#0#16#0#0#0' '#0#0#0#1#0' '#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +';;;'#13'ICB7M=4zL>6xFBA;@@@'#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0'III'#7'W;,'#171'nC('#245#145'`+'#250#181#127'2'#253#175
- +'z1'#253#139'\*'#250'h?&'#244'P=3'#159'@@@'#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0'K921d;'''#235#191#137'7'#254#249#198'E'#255#251#199'F'#255#251#200
- +'F'#255#251#200'F'#255#251#199'F'#255#246#194'E'#255#173'y3'#253'\9)'#229'E>'
- +';2'#0#0#0#0#0#0#0#0#0#0#0#0'>2,'#7'nC'''#238#223#171'N'#255#239#191'U'#255
- +#240#192'U'#255#164#131':'#255'@3'#23#255'J;'#26#255'~e-'#255#196#157'E'#255
- +#239#191'U'#255#212#159'J'#255'a<('#231'MMM'#10#0#0#0#0#0#0#0#0'[7('#183#195
- +#145'N'#254#228#180'_'#255#228#180'_'#255#228#180'_'#255'40'#255#210#176#163#255
- +#148'|s'#255'RD?'#255#210#176#163#255#140'fW'#243'[/'#27#2#0#0#0#0'tI6'#209
- +#216#188#178#255#221#195#185#255#213#188#178#255'$'#31#30#255#131'sn'#255'sf'
- +'`'#255#0#0#0#255'eYU'#255#221#195#185#255#221#195#185#255#204#180#170#255
- +#207#178#166#255'k>+'#182#0#0#0#0#0#0#0#0'[/'#27#31#156'xi'#240#232#213#207
- +#255#232#213#207#255#180#165#161#255#232#213#207#255#182#167#162#255'ICA'#255
- +#226#207#201#255#232#213#207#255#232#213#207#255#231#213#206#255#134'_O'#233
- +'[/'#27#12#0#0#0#0#0#0#0#0#0#0#0#0'd3'#30'e'#171#139'~'#240#239#226#224#255
- +#242#231#229#255#242#231#229#255#240#229#227#255#242#231#229#255#242#231#229
- +#255#242#231#229#255#235#221#216#255#153'uh'#236'a2'#29'?'#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0'\0'#27'*'#131'\I'#215#212#191#183#252#239#229#226#255
- +#253#250#252#255#253#249#250#255#236#223#220#255#204#180#172#250'yM;'#196'[/'
- +#27#23#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#3'[/'
- +#27'>c3'#29#131'uI4'#190'oA-'#183'b2'#29'v[/'#27'4'#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#248#31#172'A'#224#7#172'A'#192#3#172'A'#128#1#172'A'#128#1#172
- +'A'#0#0#172'A'#0#0#172'A'#0#0#172'A'#0#0#172'A'#0#0#172'A'#0#0#172'A'#128#1
- +#172'A'#128#1#172'A'#192#3#172'A'#224#7#172'A'#240#31#172'A'
-]);
-
diff --git a/Demos/FPC/Demo01/project1.manifest b/Demos/FPC/Demo01/project1.manifest
deleted file mode 100644
index 515fede..0000000
--- a/Demos/FPC/Demo01/project1.manifest
+++ /dev/null
@@ -1,17 +0,0 @@
-
-
-
- Your application description here.
-
-
-
-
-
-
-
-
-
-
-
-
-
\ No newline at end of file
diff --git a/Demos/FPC/Demo01/project1.rc b/Demos/FPC/Demo01/project1.rc
deleted file mode 100644
index cd8e7b0..0000000
--- a/Demos/FPC/Demo01/project1.rc
+++ /dev/null
@@ -1,7 +0,0 @@
-#define RT_MANIFEST 24
-#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
-#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
-#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
-
-CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest"
-MAINICON ICON "project1.ico"
diff --git a/Demos/FPC/Demo01/project1.res b/Demos/FPC/Demo01/project1.res
deleted file mode 100644
index 7c6cf3e..0000000
Binary files a/Demos/FPC/Demo01/project1.res and /dev/null differ
diff --git a/Demos/FPC/Demo01/unit1.lfm b/Demos/FPC/Demo01/unit1.lfm
deleted file mode 100644
index 6440e9d..0000000
--- a/Demos/FPC/Demo01/unit1.lfm
+++ /dev/null
@@ -1,93 +0,0 @@
-object Form1: TForm1
- Left = 290
- Height = 391
- Top = 175
- Width = 547
- Caption = 'Form1'
- ClientHeight = 391
- ClientWidth = 547
- LCLVersion = '0.9.30.2'
- object Panel1: TPanel
- Left = 0
- Height = 391
- Top = 0
- Width = 547
- Align = alClient
- ClientHeight = 391
- ClientWidth = 547
- TabOrder = 0
- object Memo1: TMemo
- Left = 1
- Height = 183
- Top = 1
- Width = 545
- Align = alTop
- TabOrder = 0
- end
- object PairSplitter1: TPairSplitter
- Left = 1
- Height = 8
- Top = 184
- Width = 545
- Align = alTop
- Position = 45
- object PairSplitterSide1: TPairSplitterSide
- Cursor = crArrow
- Left = 0
- Height = 8
- Top = 0
- Width = 45
- end
- object PairSplitterSide2: TPairSplitterSide
- Cursor = crArrow
- Left = 50
- Height = 8
- Top = 0
- Width = 495
- end
- end
- object Memo2: TMemo
- Left = 1
- Height = 152
- Top = 192
- Width = 545
- Align = alClient
- Lines.Strings = (
- 'print 2+2'
- )
- TabOrder = 2
- end
- object Panel2: TPanel
- Left = 1
- Height = 46
- Top = 344
- Width = 545
- Align = alBottom
- ClientHeight = 46
- ClientWidth = 545
- TabOrder = 3
- object Button1: TButton
- Left = 223
- Height = 25
- Top = 8
- Width = 75
- Caption = 'Execute'
- OnClick = Button1Click
- TabOrder = 0
- end
- end
- end
- object PythonEngine1: TPythonEngine
- IO = PythonGUIInputOutput1
- left = 96
- top = 48
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- DelayWrites = True
- UnicodeIO = False
- RawOutput = False
- Output = Memo1
- left = 338
- top = 48
- end
-end
diff --git a/Demos/FPC/Demo01/unit1.lrs b/Demos/FPC/Demo01/unit1.lrs
deleted file mode 100644
index 5063a98..0000000
--- a/Demos/FPC/Demo01/unit1.lrs
+++ /dev/null
@@ -1,25 +0,0 @@
-{ This is an automatically generated lazarus resource file }
-
-LazarusResources.Add('TForm1','FORMDATA',[
- 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3#135#1#3'Top'#3#175#0#5'W'
- +'idth'#3'#'#2#7'Caption'#6#5'Form1'#12'ClientHeight'#3#135#1#11'ClientWidth'
- +#3'#'#2#10'LCLVersion'#6#8'0.9.30.2'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Hei'
- +'ght'#3#135#1#3'Top'#2#0#5'Width'#3'#'#2#5'Align'#7#8'alClient'#12'ClientHei'
- +'ght'#3#135#1#11'ClientWidth'#3'#'#2#8'TabOrder'#2#0#0#5'TMemo'#5'Memo1'#4'L'
- +'eft'#2#1#6'Height'#3#183#0#3'Top'#2#1#5'Width'#3'!'#2#5'Align'#7#5'alTop'#8
- +'TabOrder'#2#0#0#0#13'TPairSplitter'#13'PairSplitter1'#4'Left'#2#1#6'Height'
- +#2#8#3'Top'#3#184#0#5'Width'#3'!'#2#5'Align'#7#5'alTop'#8'Position'#2'-'#0#17
- +'TPairSplitterSide'#17'PairSplitterSide1'#6'Cursor'#7#7'crArrow'#4'Left'#2#0
- +#6'Height'#2#8#3'Top'#2#0#5'Width'#2'-'#0#0#17'TPairSplitterSide'#17'PairSpl'
- +'itterSide2'#6'Cursor'#7#7'crArrow'#4'Left'#2'2'#6'Height'#2#8#3'Top'#2#0#5
- +'Width'#3#239#1#0#0#0#5'TMemo'#5'Memo2'#4'Left'#2#1#6'Height'#3#152#0#3'Top'
- +#3#192#0#5'Width'#3'!'#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#9'prin'
- +'t 2+2'#0#8'TabOrder'#2#2#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2'.'
- +#3'Top'#3'X'#1#5'Width'#3'!'#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2'.'
- +#11'ClientWidth'#3'!'#2#8'TabOrder'#2#3#0#7'TButton'#7'Button1'#4'Left'#3#223
- +#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7'Caption'#6#7'Execute'#7'OnClick'
- +#7#12'Button1Click'#8'TabOrder'#2#0#0#0#0#0#13'TPythonEngine'#13'PythonEngin'
- +'e1'#2'IO'#7#21'PythonGUIInputOutput1'#4'left'#2'`'#3'top'#2'0'#0#0#21'TPyth'
- +'onGUIInputOutput'#21'PythonGUIInputOutput1'#11'DelayWrites'#9#9'UnicodeIO'#8
- +#9'RawOutput'#8#6'Output'#7#5'Memo1'#4'left'#3'R'#1#3'top'#2'0'#0#0#0
-]);
diff --git a/Demos/FPC/Demo01/unit1.pas b/Demos/FPC/Demo01/unit1.pas
deleted file mode 100644
index 5cbb82e..0000000
--- a/Demos/FPC/Demo01/unit1.pas
+++ /dev/null
@@ -1,50 +0,0 @@
-unit Unit1;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
- Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
- StdCtrls, ExtCtrls, PairSplitter, PythonEngine, PythonGUIInputOutput;
-
-type
-
- { TForm1 }
-
- TForm1 = class(TForm)
- Button1: TButton;
- Memo1: TMemo;
- Memo2: TMemo;
- PairSplitter1: TPairSplitter;
- PairSplitterSide1: TPairSplitterSide;
- PairSplitterSide2: TPairSplitterSide;
- Panel1: TPanel;
- Panel2: TPanel;
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- procedure Button1Click(Sender: TObject);
- private
- { private declarations }
- public
- { public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{ TForm1 }
-
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo2.Lines );
-end;
-
-initialization
- {$I unit1.lrs}
-
-end.
-
diff --git a/Demos/FPC/Demo06/Project1.lpi b/Demos/FPC/Demo06/Project1.lpi
deleted file mode 100644
index 5524bdb..0000000
--- a/Demos/FPC/Demo06/Project1.lpi
+++ /dev/null
@@ -1,262 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Demos/FPC/Demo06/Project1.lpr b/Demos/FPC/Demo06/Project1.lpr
deleted file mode 100644
index 0f530ff..0000000
--- a/Demos/FPC/Demo06/Project1.lpr
+++ /dev/null
@@ -1,20 +0,0 @@
-program Project1;
-
-{$MODE Delphi}
-
-uses
-{$IFDEF MSWINDOWS}
- Forms, Interfaces,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms,
-{$ENDIF}
- Unit1 in 'Unit1.pas' {Form1};
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
diff --git a/Demos/FPC/Demo06/Project1.res b/Demos/FPC/Demo06/Project1.res
deleted file mode 100644
index 7c6cf3e..0000000
Binary files a/Demos/FPC/Demo06/Project1.res and /dev/null differ
diff --git a/Demos/FPC/Demo06/Unit1.lfm b/Demos/FPC/Demo06/Unit1.lfm
deleted file mode 100644
index a3dea7d..0000000
--- a/Demos/FPC/Demo06/Unit1.lfm
+++ /dev/null
@@ -1,166 +0,0 @@
-object Form1: TForm1
- Left = 233
- Height = 337
- Top = 175
- Width = 528
- Caption = 'Demo of Python'
- ClientHeight = 337
- ClientWidth = 528
- Color = clBtnFace
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- LCLVersion = '0.9.30.2'
- object Splitter1: TSplitter
- Cursor = crVSplit
- Left = 0
- Height = 3
- Top = 145
- Width = 528
- Align = alTop
- ResizeAnchor = akTop
- end
- object Memo1: TMemo
- Left = 0
- Height = 121
- Top = 148
- Width = 528
- Align = alClient
- Lines.Strings = (
- 'import sys'
- 'import spam'
- 'print spam.foo(''hello world'', 1)'
- 'p = spam.CreatePoint( 10, 25 )'
- 'print "Point:", p'
- 'p.x = 58'
- 'print p.x, p'
- 'p.OffsetBy( 5, 5 )'
- 'print p'
- 'print "Current value of var test is: ", test'
- 'test.Value = "New value set by Python"'
- 'print "getdouble: ", spam.getdouble()'
- )
- ScrollBars = ssVertical
- TabOrder = 1
- end
- object Panel1: TPanel
- Left = 0
- Height = 68
- Top = 269
- Width = 528
- Align = alBottom
- BevelOuter = bvNone
- ClientHeight = 68
- ClientWidth = 528
- TabOrder = 0
- object Button1: TButton
- Left = 6
- Height = 25
- Top = 8
- Width = 115
- Caption = 'Execute script'
- OnClick = Button1Click
- TabOrder = 0
- end
- object Button2: TButton
- Left = 168
- Height = 25
- Top = 8
- Width = 91
- Caption = 'Load script...'
- OnClick = Button2Click
- TabOrder = 1
- end
- object Button3: TButton
- Left = 264
- Height = 25
- Top = 8
- Width = 89
- Caption = 'Save script...'
- OnClick = Button3Click
- TabOrder = 2
- end
- object Button4: TButton
- Left = 368
- Height = 25
- Top = 8
- Width = 89
- Caption = 'Show var test'
- OnClick = Button4Click
- TabOrder = 3
- end
- object Edit1: TEdit
- Left = 368
- Height = 21
- Top = 32
- Width = 161
- TabOrder = 4
- Text = 'Edit1'
- end
- end
- object Memo2: TMemo
- Left = 0
- Height = 145
- Top = 0
- Width = 528
- Align = alTop
- Lines.Strings = (
- 'Memo2'
- )
- TabOrder = 2
- end
- object PythonEngine1: TPythonEngine
- InitScript.Strings = (
- 'import sys'
- 'print "Python Dll: ", sys.version'
- 'print sys.copyright'
- 'print'
- )
- IO = PythonGUIInputOutput1
- left = 8
- end
- object PythonType1: TPythonType
- Engine = PythonEngine1
- OnInitialization = PythonType1Initialization
- TypeName = 'Point'
- Prefix = 'Create'
- Services.Basic = [bsGetAttr, bsSetAttr, bsRepr, bsStr]
- Services.InplaceNumber = []
- Services.Number = []
- Services.Sequence = []
- Services.Mapping = []
- left = 72
- end
- object PythonModule1: TPythonModule
- Engine = PythonEngine1
- OnInitialization = PythonModule1Initialization
- ModuleName = 'spam'
- Errors = <>
- left = 104
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = '.*.py'
- Filter = 'Python files|*.py|Text files|*.txt|All files|*.*'
- left = 176
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = '.*.py'
- Filter = 'Python files|*.py|Text files|*.txt|All files|*.*'
- left = 208
- end
- object PythonDelphiVar1: TPythonDelphiVar
- Engine = PythonEngine1
- Module = '__main__'
- VarName = 'test'
- OnGetData = PythonDelphiVar1GetData
- OnSetData = PythonDelphiVar1SetData
- OnChange = PythonDelphiVar1Change
- left = 136
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- UnicodeIO = True
- RawOutput = False
- Output = Memo2
- left = 40
- end
-end
diff --git a/Demos/FPC/Demo06/Unit1.pas b/Demos/FPC/Demo06/Unit1.pas
deleted file mode 100644
index 458c636..0000000
--- a/Demos/FPC/Demo06/Unit1.pas
+++ /dev/null
@@ -1,304 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ComCtrls, ExtCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QDialogs, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput;
-
-type
- TForm1 = class(TForm)
- PythonEngine1: TPythonEngine;
- Memo1: TMemo;
- PythonType1: TPythonType;
- PythonModule1: TPythonModule;
- Panel1: TPanel;
- Button1: TButton;
- Splitter1: TSplitter;
- Button2: TButton;
- Button3: TButton;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- PythonDelphiVar1: TPythonDelphiVar;
- Button4: TButton;
- Edit1: TEdit;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure PythonModule1Initialization(Sender: TObject);
- procedure PythonType1Initialization(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- procedure PythonDelphiVar1Change(Sender: TObject);
- procedure PythonDelphiVar1GetData(Sender: TObject; var Data: Variant);
- procedure PythonDelphiVar1SetData(Sender: TObject; Data: Variant);
- private
- { D�clarations priv�es }
- public
- { D�clarations publiques }
- end;
-
- PyPointRec = record
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- po_x : Integer;
- po_y : Integer;
- end;
- PPyPoint = ^PyPointRec;
-
- function spam_foo( self, args : PPyObject ) : PPyObject; cdecl;
- function spam_CreatePoint( self, args : PPyObject ) : PPyObject; cdecl;
- function spam_getdouble( self, args : PPyObject ) : PPyObject; cdecl;
-
- procedure PyPoint_dealloc(obj : PPyObject); cdecl;
- function PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
- function PyPoint_setattrfunc(obj : PPyObject; key : PAnsiChar; value : PPyObject) : Integer; cdecl;
- function PyPoint_repr(obj : PPyObject) : PPyObject; cdecl;
-
-var
- Form1: TForm1;
-
-implementation
-{$R *.lfm}
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo1.Lines );
-end;
-
-// Here's an example of functions defined for the module spam
-
-function spam_foo( self, args : PPyObject ) : PPyObject; cdecl;
-begin
- with GetPythonEngine do
- begin
- ShowMessage( 'args of foo: '+PyObjectAsString(args) );
- Result := ReturnNone;
- end;
-end;
-
-// This function is used to create a PyPoint instance
-function spam_CreatePoint( self, args : PPyObject ) : PPyObject; cdecl;
-var
- x, y : Integer;
- p : PPyPoint;
-begin
- with GetPythonEngine do
- begin
- // We want x and y values as argument
- if PyArg_ParseTuple( args, 'ii:CreatePoint',@x, @y) <> 0 then
- begin
- new(p);
- with p^ do
- begin
- ob_refcnt := 1;
- ob_type := TypeByName('Point');
- // or we could write, because it's quicker:
- // ob_type := Form1.PythonType1.TheTypePtr;
- po_x := x;
- po_y := y;
- end;
- Result := PPyObject(p);
- end
- else
- Result := nil;
- end;
-end;
-
-function spam_getdouble( self, args : PPyObject ) : PPyObject; cdecl;
-// you need to pass floating point numbers as doubles to Py_BuildValue
-Const
- x : double = 2.7172;
- y : double = 3.14159;
- z : double = 1.2e-12;
-begin
- with GetPythonEngine do
- begin
- Result := Py_BuildValue('(iiddid)',42,815,x,y,4711,z);
- end;
-end;
-
-procedure TForm1.PythonModule1Initialization(Sender: TObject);
-begin
- // In a module initialization, we just need to add our
- // new methods
- with Sender as TPythonModule do
- begin
- AddMethod( 'foo', spam_foo, 'foo' );
- AddMethod( 'CreatePoint', spam_CreatePoint,
- 'function CreatePoint'+LF+
- 'Args: x, y'+LF+
- 'Result: a new Point object' );
- AddMethod( 'getdouble', spam_getdouble, 'getdouble' );
- end;
-end;
-
-// Here's an example of a new type object.
-// That's more complex than a new module, but here's a
-// template that you can follow.
-
-// Here's the destructor of the object
-procedure PyPoint_dealloc(obj : PPyObject); cdecl;
-begin
- Dispose(obj);
-end;
-
-// Here's the read access to the attributes of an object.
-// In fact it is called each time you write:
-// object.value
-// object.method(args)
-function PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
-begin
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- // Check for attribute x
- if key = 'x' then
- Result := PyInt_FromLong( po_x )
- // Check for attribute y
- else if key = 'y' then
- Result := PyInt_FromLong( po_y )
- else
- begin
- // Else check for a method
- Result := Py_FindMethod( MethodsByName('PythonType1'), obj, key);
- // or we could write, because it's quicker:
- // Result := Py_FindMethod( Form1.PythonType1.MethodsData, obj, key);
- if not Assigned(Result) then
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
- end;
- end;
-end;
-
-// Here's the write access to the attributes of an object.
-// In fact it is called each time you write:
-// object.value = 1
-function PyPoint_setattrfunc(obj : PPyObject; key : PAnsiChar; value : PPyObject) : Integer; cdecl;
-begin
- Result := -1;
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- // Check for attribute x
- if key = 'x' then begin
- if PyInt_Check(value) then
- begin
- po_x := PyInt_AsLong(value);
- Result := 0;
- end
- else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Attribute "%s" needs an integer',[key])));
- // Check for attribute y
- end else if key = 'y' then begin
- if PyInt_Check(value) then
- begin
- po_y := PyInt_AsLong(value);
- Result := 0;
- end
- else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Attribute "%s" needs an integer',[key])));
- end else
- PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
- end;
-end;
-
-// Here's how an object should be represented, when printed for instance.
-function PyPoint_repr(obj : PPyObject) : PPyObject; cdecl;
-begin
- with GetPythonEngine, PPyPoint(obj)^ do
- begin
- Result := PyString_FromString( PAnsiChar(Format('(%d, %d)',[po_x, po_y]) ) );
- end;
-end;
-
-// Here's a method of the object PyPoint
-function PyPoint_OffsetBy(self, args : PPyObject) : PPyObject; cdecl;
-var
- x, y : Integer;
-begin
- with GetPythonEngine, PPyPoint(self)^ do
- begin
- if PyArg_ParseTuple( args, 'ii:OffsetBy',@x, @y) <> 0 then
- begin
- Inc( po_x, x );
- Inc( po_y, y );
- Result := ReturnNone;
- end
- else
- Result := nil;
- end;
-end;
-
-procedure TForm1.PythonType1Initialization(Sender: TObject);
-Var
- PyType : PyTypeObject;
-begin
- with (Sender as TPythonType) do
- begin
- // In the initialization of a new type, we must
- // define the attributes of this type
- PyType := TheType;
- with PyType do
- begin
- tp_basicsize := sizeof(PyPointRec);
- tp_dealloc := PyPoint_dealloc;
- tp_getattr := PyPoint_getattr;
- tp_setattr := PyPoint_setattrfunc;
- tp_repr := PyPoint_repr;
- tp_str := PyPoint_repr;
- end;
- TheType := PyType;
- // And then add the methods of the object, if needed
- AddMethod( 'OffsetBy', PyPoint_OffsetBy, 'OffsetBy(dx, dy)' );
- end;
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
- with OpenDialog1 do
- begin
- if Execute then
- Memo1.Lines.LoadFromFile( FileName );
- end;
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
- with SaveDialog1 do
- begin
- if Execute then
- Memo1.Lines.SaveToFile( FileName );
- end;
-end;
-
-procedure TForm1.Button4Click(Sender: TObject);
-begin
- ShowMessage( 'Value = ' + PythonDelphiVar1.ValueAsString );
-end;
-
-procedure TForm1.PythonDelphiVar1Change(Sender: TObject);
-begin
- with Sender as TPythonDelphiVar do
- ShowMessage( 'Var test changed: ' + ValueAsString );
-end;
-
-procedure TForm1.PythonDelphiVar1GetData(Sender: TObject;
- var Data: Variant);
-begin
- Data := Edit1.Text;
-end;
-
-procedure TForm1.PythonDelphiVar1SetData(Sender: TObject; Data: Variant);
-begin
- Edit1.Text := Data;
-end;
-
-end.
diff --git a/Demos/FPC/Demo25/fpc-res.res b/Demos/FPC/Demo25/fpc-res.res
deleted file mode 100644
index cd6c436..0000000
Binary files a/Demos/FPC/Demo25/fpc-res.res and /dev/null differ
diff --git a/Demos/FPC/Demo25/link.res b/Demos/FPC/Demo25/link.res
deleted file mode 100644
index 9c94a2f..0000000
--- a/Demos/FPC/Demo25/link.res
+++ /dev/null
@@ -1,420 +0,0 @@
-SEARCH_DIR(C:\P4D\temp\)
-SEARCH_DIR(C:\lazarus\lcl\units\i386-win32\)
-SEARCH_DIR(C:\lazarus\lcl\units\i386-win32\win32\)
-SEARCH_DIR(C:\lazarus\packager\units\i386-win32\)
-SEARCH_DIR(.\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\zlib\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-jedi\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\winceunits\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\unzip\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\tcl\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\symbolic\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\sqlite\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\sdl\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\regexpr\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\pxlib\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\postgres\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\pcap\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\oracle\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\openssl\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\opengl\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\openal\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\oggvorbis\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\odbc\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\numlib\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\mysql\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\mad\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\libpng\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\libgd\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\lexyacc\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\imagemagick\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\ibase\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\httpd22\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\httpd20\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\httpd13\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\hash\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\gtk2\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\gtk1\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\graph\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\gdbint\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fv\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fppkg\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fpmkunit\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fpgtk\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fftw\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-web\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-registry\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-process\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-passrc\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-net\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-json\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-fpcunit\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-db\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\chm\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\cdrom\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\cairo\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\bfd\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\a52\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\units\i386-win32\)
-SEARCH_DIR(C:\lazarus\fpc\2.2.4\bin\i386-win32\)
-INPUT(
-C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\system.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\lineinfo.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\exeinfo.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\strings.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\windows.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\objpas.o
-C:\lazarus\lcl\units\i386-win32\win32\interfaces.o
-C:\lazarus\lcl\units\i386-win32\forms.o
-C:\Delphi\Components\P4D\Demos\FPC\Demo25\unit1.o
-C:\lazarus\lcl\units\i386-win32\lresources.o
-C:\P4D\temp\p4dlaz.o
-C:\lazarus\lcl\units\i386-win32\interfacebase.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\types.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\classes.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\sysutils.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\math.o
-C:\lazarus\lcl\units\i386-win32\lclstrconsts.o
-C:\lazarus\lcl\units\i386-win32\lcltype.o
-C:\lazarus\lcl\units\i386-win32\lclproc.o
-C:\lazarus\lcl\units\i386-win32\lmessages.o
-C:\lazarus\lcl\units\i386-win32\graphtype.o
-C:\lazarus\lcl\units\i386-win32\graphmath.o
-C:\lazarus\lcl\units\i386-win32\themes.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\rtlconsts.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\typinfo.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\sysconst.o
-C:\lazarus\lcl\units\i386-win32\fpcadds.o
-C:\lazarus\lcl\units\i386-win32\avglvltree.o
-C:\lazarus\lcl\units\i386-win32\fileutil.o
-C:\lazarus\lcl\units\i386-win32\wsreferences.o
-C:\lazarus\lcl\units\i386-win32\masks.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\contnrs.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\gettext.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\messages.o
-C:\lazarus\lcl\units\i386-win32\tmschema.o
-C:\lazarus\lcl\units\i386-win32\lclintf.o
-C:\lazarus\lcl\units\i386-win32\graphics.o
-C:\lazarus\lcl\units\i386-win32\imglist.o
-C:\lazarus\lcl\units\i386-win32\dynqueue.o
-C:\lazarus\lcl\units\i386-win32\lazconfigstorage.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpimage.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpcanvas.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpwritebmp.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpwritepng.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\pngcomn.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpreadpnm.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpwritepnm.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpreadjpeg.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpwritejpeg.o
-C:\lazarus\lcl\units\i386-win32\intfgraphics.o
-C:\lazarus\lcl\units\i386-win32\lclrescache.o
-C:\lazarus\lcl\units\i386-win32\icnstypes.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\clipping.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\bmpcomn.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpimgcmn.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\zstream.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\zbase.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\gzio.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\dos.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\hash\crc.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\zdeflate.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\zinflate.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\trees.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\adler.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\infblock.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\infutil.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\infcodes.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\inftrees.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\paszlib\inffast.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jpeglib.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdapimin.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdatasrc.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdapistd.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jmorecfg.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdeferr.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jinclude.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jerror.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jmemmgr.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdmarker.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdinput.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcomapi.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jutils.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jmemnobs.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdmaster.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdcolor.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdsample.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdpostct.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jddctmgr.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdphuff.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdhuff.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdcoefct.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdmainct.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jquant1.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jquant2.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdmerge.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdct.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jidctfst.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jidctint.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jidctflt.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jidctred.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcapistd.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcapimin.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jdatadst.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcparam.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcinit.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcmarker.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcphuff.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jchuff.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcmaster.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jccolor.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcsample.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcprepct.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcdctmgr.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jccoefct.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jcmainct.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jfdctint.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jfdctfst.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\pasjpeg\jfdctflt.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpreadbmp.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-image\fpreadpng.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\syncobjs.o
-C:\lazarus\lcl\units\i386-win32\lclclasses.o
-C:\lazarus\lcl\units\i386-win32\wslclclasses.o
-C:\lazarus\lcl\units\i386-win32\wsimglist.o
-C:\lazarus\lcl\units\i386-win32\wsproc.o
-C:\lazarus\lcl\units\i386-win32\wsfactory.o
-C:\lazarus\lcl\units\i386-win32\controls.o
-C:\lazarus\lcl\units\i386-win32\menus.o
-C:\lazarus\lcl\units\i386-win32\utrace.o
-C:\lazarus\lcl\units\i386-win32\propertystorage.o
-C:\lazarus\lcl\units\i386-win32\actnlist.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\rttiutils.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\strutils.o
-C:\lazarus\lcl\units\i386-win32\wsmenus.o
-C:\lazarus\lcl\units\i386-win32\maps.o
-C:\lazarus\lcl\units\i386-win32\lclversion.o
-C:\lazarus\lcl\units\i386-win32\customtimer.o
-C:\lazarus\lcl\units\i386-win32\clipbrd.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\custapp.o
-C:\lazarus\lcl\units\i386-win32\helpintfs.o
-C:\lazarus\lcl\units\i386-win32\wscontrols.o
-C:\lazarus\lcl\units\i386-win32\wsforms.o
-C:\lazarus\lcl\units\i386-win32\win32\win32int.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\activex.o
-C:\lazarus\lcl\units\i386-win32\translations.o
-C:\lazarus\lcl\units\i386-win32\comctrls.o
-C:\lazarus\lcl\units\i386-win32\buttons.o
-C:\lazarus\lcl\units\i386-win32\extctrls.o
-C:\lazarus\lcl\units\i386-win32\stdctrls.o
-C:\lazarus\lcl\units\i386-win32\win32\win32def.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\commctrl.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\variants.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\ctypes.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\varutils.o
-C:\lazarus\lcl\units\i386-win32\stringhashlist.o
-C:\lazarus\lcl\units\i386-win32\lconvencoding.o
-C:\lazarus\lcl\units\i386-win32\toolwin.o
-C:\lazarus\lcl\units\i386-win32\extendedstrings.o
-C:\lazarus\lcl\units\i386-win32\textstrings.o
-C:\lazarus\lcl\units\i386-win32\wsstdctrls.o
-C:\lazarus\lcl\units\i386-win32\popupnotifier.o
-C:\lazarus\lcl\units\i386-win32\wsextctrls.o
-C:\lazarus\lcl\units\i386-win32\imagelistcache.o
-C:\lazarus\lcl\units\i386-win32\wsbuttons.o
-C:\lazarus\lcl\units\i386-win32\wscomctrls.o
-C:\lazarus\lcl\units\i386-win32\wstoolwin.o
-C:\lazarus\lcl\units\i386-win32\win32\win32proc.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsfactory.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsbuttons.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsextctrls.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsmenus.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsspin.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsstdctrls.o
-C:\lazarus\lcl\units\i386-win32\win32\win32themes.o
-C:\lazarus\lcl\units\i386-win32\arrow.o
-C:\lazarus\lcl\units\i386-win32\calendar.o
-C:\lazarus\lcl\units\i386-win32\spin.o
-C:\lazarus\lcl\units\i386-win32\checklst.o
-C:\lazarus\lcl\units\i386-win32\win32\win32extra.o
-C:\lazarus\lcl\units\i386-win32\lclmessageglue.o
-C:\lazarus\lcl\units\i386-win32\dialogs.o
-C:\lazarus\lcl\units\i386-win32\buttonpanel.o
-C:\lazarus\lcl\units\i386-win32\wsdialogs.o
-C:\lazarus\lcl\units\i386-win32\extdlgs.o
-C:\lazarus\lcl\units\i386-win32\grids.o
-C:\lazarus\lcl\units\i386-win32\wscalendar.o
-C:\lazarus\lcl\units\i386-win32\wsarrow.o
-C:\lazarus\lcl\units\i386-win32\wsspin.o
-C:\lazarus\lcl\units\i386-win32\wsextdlgs.o
-C:\lazarus\lcl\units\i386-win32\wschecklst.o
-C:\lazarus\lcl\units\i386-win32\dynamicarray.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\xmlcfg.o
-C:\lazarus\lcl\units\i386-win32\maskedit.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\dom.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\xmlread.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\xmlwrite.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\avl_tree.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-xml\xmlutils.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\uriparser.o
-C:\lazarus\lcl\units\i386-win32\wsgrids.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsarrow.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wscalendar.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wschecklst.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wscomctrls.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wscontrols.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsdialogs.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsextdlgs.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsforms.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsgrids.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsimglist.o
-C:\lazarus\lcl\units\i386-win32\win32\win32uxtheme.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\shlobj.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\shellapi.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\commdlg.o
-C:\lazarus\lcl\units\i386-win32\pairsplitter.o
-C:\P4D\temp\PythonEngine.o
-C:\P4D\temp\PythonGUIInputOutput.o
-C:\lazarus\lcl\units\i386-win32\wspairsplitter.o
-C:\P4D\temp\TinyWideStrings.o
-C:\P4D\temp\MethodCallBack.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-registry\registry.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\fcl-base\inifiles.o
-C:\P4D\temp\VarPyth.o
-C:\lazarus\packager\units\i386-win32\lazaruspackageintf.o
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\sysinitpas.o
-)
-GROUP(
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpsystem.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpwindows.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpsysutils.a
-C:\lazarus\lcl\units\i386-win32\libimplclintf.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpdos.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpactivex.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpcommctrl.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpvarutils.a
-C:\lazarus\lcl\units\i386-win32\win32\libimpwin32wsforms.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpshlobj.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpshellapi.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\winunits-base\libimpcommdlg.a
-C:\lazarus\fpc\2.2.4\units\i386-win32\rtl\libimpsysinitpas.a
-)
-SEARCH_DIR("/usr/i686-pc-cygwin/lib"); SEARCH_DIR("/usr/lib"); SEARCH_DIR("/usr/lib/w32api");
-OUTPUT_FORMAT(pei-i386)
-ENTRY(_mainCRTStartup)
-SECTIONS
-{
- . = SIZEOF_HEADERS;
- . = ALIGN(__section_alignment__);
- .text __image_base__ + ( __section_alignment__ < 0x1000 ? . : __section_alignment__ ) :
- {
- *(.init)
- *(.text .stub .text.* .gnu.linkonce.t.*)
- *(SORT(.text$*))
- ___CTOR_LIST__ = .; __CTOR_LIST__ = . ;
- LONG (-1);*(.ctors); *(.ctor); *(SORT(.ctors.*)); LONG (0);
- ___DTOR_LIST__ = .; __DTOR_LIST__ = . ;
- LONG (-1); *(.dtors); *(.dtor); *(SORT(.dtors.*)); LONG (0);
- *(.fini)
- PROVIDE (etext = .);
- *(.gcc_except_table)
- }
- .data BLOCK(__section_alignment__) :
- {
- __data_start__ = . ;
- *(.data .data.* .gnu.linkonce.d.* .fpc*)
- *(.data2)
- *(SORT(.data$*))
- __data_end__ = . ;
- *(.data_cygwin_nocopy)
- }
- .rdata BLOCK(__section_alignment__) :
- {
- *(.rdata)
- *(.rodata .rodata.* .gnu.linkonce.r.*)
- *(SORT(.rdata$*))
- *(.eh_frame)
- ___RUNTIME_PSEUDO_RELOC_LIST__ = .;
- __RUNTIME_PSEUDO_RELOC_LIST__ = .;
- *(.rdata_runtime_pseudo_reloc)
- ___RUNTIME_PSEUDO_RELOC_LIST_END__ = .;
- __RUNTIME_PSEUDO_RELOC_LIST_END__ = .;
- }
- .pdata BLOCK(__section_alignment__) : { *(.pdata) }
- .bss BLOCK(__section_alignment__) :
- {
- __bss_start__ = . ;
- *(.bss .bss.* .gnu.linkonce.b.*)
- *(SORT(.bss$*))
- *(COMMON)
- __bss_end__ = . ;
- }
- .edata BLOCK(__section_alignment__) : { *(.edata) }
- .idata BLOCK(__section_alignment__) :
- {
- SORT(*)(.idata$2)
- SORT(*)(.idata$3)
- /* These zeroes mark the end of the import list. */
- LONG (0); LONG (0); LONG (0); LONG (0); LONG (0);
- SORT(*)(.idata$4)
- SORT(*)(.idata$5)
- SORT(*)(.idata$6)
- SORT(*)(.idata$7)
- }
- .CRT BLOCK(__section_alignment__) :
- {
- ___crt_xc_start__ = . ;
- *(SORT(.CRT$XC*)) /* C initialization */
- ___crt_xc_end__ = . ;
- ___crt_xi_start__ = . ;
- *(SORT(.CRT$XI*)) /* C++ initialization */
- ___crt_xi_end__ = . ;
- ___crt_xl_start__ = . ;
- *(SORT(.CRT$XL*)) /* TLS callbacks */
- /* ___crt_xl_end__ is defined in the TLS Directory support code */
- ___crt_xp_start__ = . ;
- *(SORT(.CRT$XP*)) /* Pre-termination */
- ___crt_xp_end__ = . ;
- ___crt_xt_start__ = . ;
- *(SORT(.CRT$XT*)) /* Termination */
- ___crt_xt_end__ = . ;
- }
- .tls BLOCK(__section_alignment__) :
- {
- ___tls_start__ = . ;
- *(.tls .tls.*)
- *(.tls$)
- *(SORT(.tls$*))
- ___tls_end__ = . ;
- }
- .rsrc BLOCK(__section_alignment__) :
- {
- *(.rsrc)
- *(SORT(.rsrc$*))
- }
- .reloc BLOCK(__section_alignment__) : { *(.reloc) }
- .stab BLOCK(__section_alignment__) (NOLOAD) : { *(.stab) }
- .stabstr BLOCK(__section_alignment__) (NOLOAD) : { *(.stabstr) }
- .debug_aranges BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_aranges) }
- .debug_pubnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_pubnames) }
- .debug_info BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_info) *(.gnu.linkonce.wi.*) }
- .debug_abbrev BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_abbrev) }
- .debug_line BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_line) }
- .debug_frame BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_frame) }
- .debug_str BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_str) }
- .debug_loc BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_loc) }
- .debug_macinfo BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_macinfo) }
- .debug_weaknames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_weaknames) }
- .debug_funcnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_funcnames) }
- .debug_typenames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_typenames) }
- .debug_varnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_varnames) }
- .debug_ranges BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_ranges) }
-}
diff --git a/Demos/FPC/Demo25/ppas.bat b/Demos/FPC/Demo25/ppas.bat
deleted file mode 100644
index 0261eff..0000000
--- a/Demos/FPC/Demo25/ppas.bat
+++ /dev/null
@@ -1,16 +0,0 @@
-@echo off
-c:\lazarus\fpc\2.2.4\bin\i386-win32\windres.exe --include c:/lazarus/fpc/222A9D~1.4/bin/I386-W~1/ -O res -o C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.res C:/Delphi/COMPON~1/P4D/Demos/FPC/Demo25/project1.rc --preprocessor=c:\lazarus\fpc\2.2.4\bin\i386-win32\cpp.exe
-if errorlevel 1 goto linkend
-SET THEFILE=C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.exe
-echo Linking %THEFILE%
-c:\lazarus\fpc\2.2.4\bin\i386-win32\ld.exe -b pe-i386 -m i386pe --gc-sections --subsystem windows --entry=_WinMainCRTStartup -o C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.exe C:\Delphi\Components\P4D\Demos\FPC\Demo25\link.res
-if errorlevel 1 goto linkend
-c:\lazarus\fpc\2.2.4\bin\i386-win32\postw32.exe --subsystem gui --input C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.exe --stack 16777216
-if errorlevel 1 goto linkend
-goto end
-:asmend
-echo An error occured while assembling %THEFILE%
-goto end
-:linkend
-echo An error occured while linking %THEFILE%
-:end
diff --git a/Demos/FPC/Demo25/project1.lpi b/Demos/FPC/Demo25/project1.lpi
deleted file mode 100644
index 5c2c9df..0000000
--- a/Demos/FPC/Demo25/project1.lpi
+++ /dev/null
@@ -1,286 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Demos/FPC/Demo25/project1.lpr b/Demos/FPC/Demo25/project1.lpr
deleted file mode 100644
index 3f84c6e..0000000
--- a/Demos/FPC/Demo25/project1.lpr
+++ /dev/null
@@ -1,21 +0,0 @@
-program project1;
-
-{$mode objfpc}{$H+}
-
-uses
- {$IFDEF UNIX}{$IFDEF UseCThreads}
- cthreads,
- {$ENDIF}{$ENDIF}
- Interfaces, // this includes the LCL widgetset
- Forms, Unit1, LResources, P4DLaz
- { you can add units after this };
-
-{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
-
-begin
- {$I project1.lrs}
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
-
diff --git a/Demos/FPC/Demo25/project1.lrs b/Demos/FPC/Demo25/project1.lrs
deleted file mode 100644
index 2747aa9..0000000
--- a/Demos/FPC/Demo25/project1.lrs
+++ /dev/null
@@ -1,5237 +0,0 @@
-LazarusResources.Add('MAINICON','ICO',[
- #0#0#1#0#6#0#0#0#0#0#1#0' '#0#226#145#0#0'f'#0#0#0#128#128#0#0#1#0' '#0'('#8#1
- +#0'H'#146#0#0'@@'#0#0#1#0' '#0'(B'#0#0'p'#154#1#0'00'#0#0#1#0' '#0#168'%'#0#0
- +#152#220#1#0' '#0#0#1#0' '#0#168#16#0#0'@'#2#2#0#16#16#0#0#1#0' '#0'h'#4#0#0
- +#232#18#2#0#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#1#0#0#0#1#0#8#6#0#0#0'\r'
- +#168'f'#0#0#145#169'IDATx'#218#236']'#5#128#28#245#213#127#235'n'#231'w9I.N'
- +#136#144#4#139#17#220'['#220#221#138';!'#184'|'#180#148#2#197'Kq'#13'R('#20
- +'(V'#180#197#3#9'!'#144#144#16#187#156#219#202#173#251'~'#239#253'gfo'#246'r'
- +'~'#187';{'#242#131#201#236#173#204#204#202#251#253#159'?'#25#140'a'#12'c'#24
- +#181#144'I}'#1'c'#24#195#24#164#195#24#1#140'a'#12#163#24'c'#4'0'#134'1'#140
- +'b'#140#17#192#24#198'0'#138'1F'#0'c'#24#195'('#198#24#1#140'"'#140#155'}2}'
- +#223#6#220'L'#184#25'q'#11#227#230#161#173#225#167#21#17#169#175'o'#12#217
- +#199#24#1#12'c'#160'@'#155'q7'#21#183'i'#184'M'#198#173#8'8'#225'N'#217'd2'
- +#153'p'#155#132#191#167#239'<'#132#155''''#145'H0B'#224'7'#175#232'v'#7'n'
- +#219'p'#219#128#219'F'#220'j'#145'4'#18'R'#127#6'c'#24#26#198#8' '#199#129'B'
- +'.'#199#221'x'#224#132'|'#170#176#161'P'#211#223'%='#189'N'#214#195'7+'#235
- +#230'+O@'#207'r'#156#232#249#161#0#146#197'&'#232'$'#132#228#134#196#224#145
- +#250's'#27'C'#255'0F'#0'9'#6#20'x'#18#234#189'q'#219#7#183'=P'#208'ie'#215
- +#136#159'#'#22'nA'#160'e'#194#157#226#199'DO'#20'nwG'#12'b!O'#240#127'$R'#238
- +#236#230'q'#209#157']I'#2#159#211#136#187#181#184'}'#198'o'#171#145#20'bR'
- +#127#182'c'#216#17'c'#4' 1P'#224#11'p'#183#20'8'#161#223#27#5'u'#186#240'X'
- +#167'L'#239'('#228't'#155#219#0#228#244#12#185#140'{'#158#140'{'#157#140#191
- +'!'#235#250'|'#232'<'#166' '#196#130#252#146'ps'#27'pRM'#255#203#184#191#197
- +#143#209#235#196#247'AbGb'#232'B'#10#29#248#248#255#160#147#16'~'#26'3'#31'r'
- +#3'c'#4#144'e'#160#192'[p'#183#23#240#171'<'#10#229'L'#224#191#7#177#192#203
- +'8)'#6#185'\'#158#20'h'#185#156#187'_.'#227#4#158#30#163#219#10'z'#142#188
- +#203#227#252#30'D'#247#201#21#10#220'+AF{P@\'#22#135'D,'#134#194#26#131'8'
- +#238#227#241#24'/'#216'qn'#31'O'#0#222#194#251#241#223'8@'#28#255#137#199#185
- +#191#227#137#4#187#157#224#239'#'#2#136''''#186''''#134'nH'#193#129#247#127
- +#14''#193#238#139#11'['#146'(R'#9#161#139#217'A&'
- +#195#10#220#158'G2'#248'E'#234#239'k4a'#140#0'2'#4#20'z%'#238#246#7'N'#232
- +#127#143'{'#29#221'/'#172#230#226#21'^,'#240'$'#172'$'#224'J'#165#2#148#180
- +'W)A'#163#214'3'#1#215#144#176'ku'#160#209#242'B'#175'V'#129#10#159#175'T'
- +#202#217's'#233'u'#10#185'p'#172'.'#26#129#130'3'#21#184#251#216#149'p'#23
- +#202'Vn'#224'Vo'#129#4#226#156#128#198'x'#1#142#197'8'#161#142'E'#19#16'E!'
- +#143'D'#227#16'Eb'#8'!'#9#132#131'~n'#11's'#251#16'#'#135'0>/'#134#207#225'6'
- +#129#16#24'A'#136#8#129#206#215'U;'#192#251#215#224#238#5#220'^B2h'#150#250
- +'{'#28#233#24'#'#128'4'#3#5#127'.'#238'N'#197#237'D'#20#190'b'#186'O,'#244
- +#130#170#174#144#209'*.c'#2#175#228#133'^'#173'T'#162'P'#171'Ao'#178#130'^o'
- +#3#157#209#10'Z'#29#10#187'J'#129#171'=nL'#208#233#182#156#221'V)'#21#201'=#'
- +#11'%G'#0'D$r9g'#247#211#185#146'&'#3#179#8'd)'#206'AnE'#134#20'5'#30'e'#149
- +#187#29#231'6"'#128'h'#156#132'9'#158'$'#128'H'#132#246'1'#238#182'h'#31#198
- +'}8'#24#130#128#175#3#252'^'''#248'}N'#8#5'}'#236'1'#129#16#162#177#174#132
- +#16'g'#218#1#153#24#220'5'#177']'#12#175#225'c'#224#200#224'M$'#3#191#212#223
- +#237'H'#196#24#1#164#1'('#244#21#184';'#25#183'SQ'#184'v'#162#251#186#21'z~'
- +#133#231'Vv'#18'^'#20'x'#149#10#244'('#232'z'#163#13#12#6#220#27#204#184#226
- +#227#170#175'Q'#130'V'#173'`'#194'O'#127#171'U'#188#192#171':'#133'^'#197#142
- +#195#173#254't'#31'g&p'#171#127#210#148#160#235#224#29#132#130#250#159#18#9
- +#224#205#0#178#245#133#21#153#217#251#252#223'$'#155'$'#160#209'8'#183#250'w'
- +#146#0#10'2'#145#0#222#14'G8'#2#160'=m'#161'H'#20#205#132#24#4#195#220#237'@'
- +' '#0'~'#143#139#145#1#145'B'#136#204#8#188#159'#'#131#24'gJ'#224'qbq'#193
- +#223#176#131#153#224'E2'#248'''pd@>'#131#184#212#223#249'H'#193#24#1#12#1'('
- +#248#243'pw='#10#219#17#192'-'#174#12'rN'#210'8'#149'\&O'#170#244'*'#21#9#178
- +#146#9#188#193'd'#195'}'#30'nf'#208'jT'#160#19#132#30'7'#29#19'~%G'#4'<'#9
- +#168#149#220#202'O'#171'<'#169#253#10#165#12#148'ra'#213#167's'#164#10'>]'#2
- +'wA'#188#192#11#209#129'D*'#1'$U'#239#164'g'#159#255#139#183#215#227#188'3P'
- +#16#206'(o'#14#16#9#196#4'2Hj'#5#164#1#160#208#147#224#135#163'l'#31#8'E!('
- +#222'P'#240#253'>'#31#4#188'.'#240'!'#25#248'<'#14'4'#27#130#248#218'(#'#5'F'
- +#4#140#12'x"'#232#226'3'#192#191')'#25#233'/'#184'='#131'D'#16#146#250'70'
- +#220'1F'#0#131#0#10#254'"'#220#221#128#194'v'#16#253#157'\'#237'y'#207''#198#147'BLl'#30#136#136#0#133'>'#16'N%'#1#250
- +';'#16#196'-'#20#129'` '#2#30#183#3'<'#174'f'#240'x'#218'Q;'#8'32 '#13'C'#236
- +'d'#20'L'#4#17#17#144#227#240'^'#220#30'C"'#240'I'#253#155#24#174#24'#'#128#1
- +#0#5#159#156'z7'#162'0-'#161#191#185#24'<-'#181#220'j'#159'j'#203#163'0'#235
- +'t`'#182#20#131#201'V'#2'F'#147#25#244'Z'#21#24'p'#163#189'^G'#130#174'b'#194
- +#175#21'V|'#141#130#9'='#17#6#19#252#164#131#143#183#229#153#195#16'D6='''
- +#224#178#174#241#254'.'#215'-'#147#13#236'k'#22''''#1#137's'#4#128#251#159'#'
- +#2#193'THtF'#16#146#132'@'#26'B$'#158'4'#11'B'#145'N'#141' '#200#147'A '#24#1
- +'?'#146#128#31'I'#192#239#167#219#184#5#130#224'v'#181#129#219#217#194'i'#6
- +','#242#16'c'#14#199#164#137#16#139#167'h'#5'x'#187#29'/'#233'~'#220#30'F"'
- +#232#144#250'72'#220'0F'#0'}'#128'/'#160#249#29'p+'#254#174't'#31#23'^'#239
- +#12#209'1!Ur'#234#189'V'#171#1#147#165#136#173#244'&K'#30'/'#236'j0'#232'T'
- +#201'M'#199#147#128'V'#195#169#248#156#208'+83A'#201#31'O.'#178#231'{'#17'v'
- +#254'&'#183#239'A'#208#7'"'#255'='#165#254'v%'#133'D'#167#154#176#3')p^'#255
- +#4#243#27#196'D'#142'C'#210#10#194#188'_'#128#153#7'A'#142#8'|'#129'0n'#17
- +#182#249'i'#143'Z'#128#23#205#4#15#18#1#145#129#223#239#193#215'E'#153'f'#192
- +#162#11#188#19#177#139#175#128#146#141#30#193#253'}H'#4#237'R'#255'n'#134#11
- +#198#8#160#7#240'9'#248#199#1'g'#227'S'#178#206#14#130#175#18#236'z\'#189#13
- +'&+X'#243#199#161#224#23#162#144#235'P'#232'U`'#228#5#158#8#192#168#231#132
- +'^'''#8'>'#9#189'Z'#145't'#230'q'#26#132'8'#254'/J'#254#17'.'#170#15'u>['#232
- +#202#17']'#201#128#249#14#4#13'A'#228'?`'#209#4'2'#17'b'#228','#140'32 '#159
- +#0#167#13#136#8#0'5'#2'/'#146#130#159#255#219#227'qA'#135#179#25':'#28#141'h'
- +'R'#132'92Hj'#5';'#16#129#31#207#255#24#238#239'A"h'#148#224#227#25'V'#24'#'
- +#128'n'#128#194#191#27#238#30'EA'#163#144'^'#138#224'+yU_'#141'6'#188#6'7'
- +#163'9'#15'l'#133#149'`'#177#230#163#176#227'J'#143#130'n'#212#171#217'mN'
- +#232#213'('#244'h'#235'k95_'#205'<'#250#188#7'_'#217#25#183#239'N'#173'g'#231
- +#22'.j8|S]'#202#7'RR'#135'E'#230'B,'#193#231#20#240#161'Cf"'#136'|'#3'$'#244
- +'^A+'#240#163'6 '#236'}~p'#180#213'!'#17'4'#224#243#130#140#8':#'#9#169'D'
- +#128#231#14#224'%'#220#137#219'_'#198#156#133'=c8'#252#172#178#6#20#252'<'
- +#220#221#137#194'w.'#240'2'#152'"'#248#188#154#175'A'#219#221'd)`'#130'oE5'
- +#223'hP3'#161'7'#25'4L'#232#13#188#202#159#180#241#153#224#139#156'y'#188'z/'
- +#8#190'8'#127'?'#165#208'g'#128#182'{'#174#161''''#167'b2'#225#136'O2'#226
- +#180#2'!'#140'H>'#130'X'#167#143#0#137#192'C'#194#207#8' '#12'n'#220'{'#188
- +'~p'#182#215#131#203'^'#15'A'#127#144#249#10'z!'#2#170'X'#188#24'I'#224'?R'
- +#127#30#185#136#225#253#11'K'#19'x;'#255','#220#238'B'#161#203#23#156'{2'#133
- +#160#234's+'#183#22'W|'#147#181#8#242#138'+'#193'l'#182#129#137#9'='''#248'&'
- +'#'#238'Q'#240'uL'#229'W'#177#24#190#134'9'#243'RU|qr'#14#8#222'z'#254':d#'
- +#248#235#216#161'z0'#25'f'#228'3'#17#197'&'#2'i'#5'Q^+ '#18#8'F'#152#22#224
- +#245#133#192'C$'#224'#R'#8#129#215#27#0#167#189#1#156#168#21'P'#174'A('#140
- +'D@9'#9'T'#215#192';'#11#227#157#213#141#175#225#238#10'$'#130#6#169'?'#139
- +'\'#194#200#253#197#245#19'('#252#187#224#238'o('#152'{'#136#195'y,'#227#142
- +'6'#18'|T'#227'-'#214#18#176#21'U'#160#224'['#153#208#155'I'#232'y'#225'g'#26
- +#128#150#19'|q'#248'N'#156#158'+'#8'>'#147#249#212'z'#222#209#9'Q'#232'1'#233
- +'7'#224#137#128#204#132#8#159'tDQ'#0#166#17#132#200'9'#136#155#143#211#8#220
- +'H'#6'D'#4#28')'#4#145#8#26#145#8'j'#193#239#247'!qt'#18#1#167'm'#196#5'm'
- +#128#26#156#220#138#219#3'H'#4'Q'#169'?'#130'\'#192'h'#253#249#9'Uyw'#160'0^'
- +#128'{'#133#160#238#179'"'#27#222#185'G'#9':'#228#205'/('#169'F'#193'71a'#239
- +'I'#240#5#199#30'K'#203'U'#202'S'#236'zN'#232#187#177#235#199#176'C'#30'BB'
- +#172#25#176#236'CN+'#8'G'#163#157'D'#192#251#4'8m'#128'#'#2#143'@'#4'm'#13
- +#224'h'#169'A'#205'!'#192#136' '#194#155#6']'#204#2'*8'#186#16'I'#224#11#169
- +#223#191#212#24#149#191'E'#20#254'Spw'#15#229#234'''Km'#21'|J-+'#190'A;'#222
- +'hB'#193#159#4#182#252'"&'#244'f#'''#252'f^'#240#13#188'W_'#219'e'#197'O&'
- +#231#240'R'#223#25#162#147#250']'#231'>D'#193#4'n/'#242#21'$S'#144'{'#210#8
- +#188'!'#232' '#18#160'}'#135#23#218#155#183#130#203#217#4#193'`'#152#249#21
- +#136#8#226#172#246' %'#153#232'y'#220']'#141'D'#208'&'#245'{'#151#10#163#234
- +'g'#137#130'O'#141'0'#31'G'#193'?'#145#254#22'Vh'#5#191#234#171'U*'#180#225
- +'5'#204#185'WP2'#30','#6#29'XL'#26#176#24'9'#2#160'U'#159#9#190'F'#136#225'+'
- +'9'#167#30#139#219#11'y'#255'\'#213']'#231'''<'#170'>'#226#244'A'#228'@L@gM'
- +#2#249#9'"'#2#17#136#162#6#130'Y'#208#225#9'22'#160#205#225'h'#135#246#166'M'
- +'H'#10#29#156'6'#192#242#8#226#156#127#160'S'#27#160'P'#225#137'H'#2#255#147
- +#250'-K'#129'Q'#243#235'D'#225#159#141#187#127#160#144'N'#17'V}'#5#159'i'#199
- ,#169#251'h'#215'['#11#160#176't2'#218#251'f&'#244'V'#163#22#204'D'#0#6'-S'
- +#251'){'#143#4#159#203#244#227#146'u'#196'e'#183'];'#248#140'a'#232#16#151#11
- +#11#230'A,'#193#167#30'G'#184#228'"'#230','#196#205#195#155#5#29#222' '#18'A'
- +#136#237#221'H'#8#237#173#181#224'l'#217#14#254'`'#16'B'#225'0'#159'f'#28'Oj'
- +#24#192'U'#30#222#130#251';G['#161#209#168#248#165#162#240#159#135#187#7'PH'
- +#181'2'#190#6'_H'#217#165#144#158#222'`'#196#21#127'"'#228#229#151#178#149
- +#158'V}+['#249'9'#193'7'#232#213'l'#213#167#172'='#242#234's'#9';\'#201#173
- +'Pp'#195'>'#204'Q'#241'iJ'#131#206'DDn'#229'N'#166#31#147'F'#16#229#170#16')'
- +#143#128#210#138#189#188'I'#224#18#17'A'#135#219#11'mM'#155#161#195#209#130
- +'&'#4#146#0'%'#19#9#209#130'Nm'#224'#<'#193')H'#2#173'R'#191#223'laD'#255'd'
- +#249'N<'#143#137'U~'#193#214#167'D'#30#29#174#250'yE'#168#238#23'O'#0#179'Y'
- +#199#4'>'#185#242#27'9[_H'#217'e'#169#186#138#212#226#155#222#26'm'#142'!3'
- +#224#139#21#147#14#195'd>A'#148'K7'#230'2'#11'9"'#224#28#132'H'#4'n$'#0#242
- +#13#144'Y`o'#133#246#230'M'#224#243'x:'#181#129'h\'#28')h'#194'3'#156#140'$'
- +#240#153#212#239'5'#27#24#177'?]^'#229#127#141#186#234#138'='#252#172#180'VE'
- +'N>#'#148#148#239#4'V[>'#191#226'k'#25#1#144#202'O'#241'}'#178#245'uj~'#213
- +#23'j'#237'E^}'#246#225#141#216'O/'#247#145'$'#2#232#236'AH)'#199'Q'#190#0
- +#137#10#142#168#208#200#231#227#136#128#132#223#229#9'2'#31'A'#135''''#0#173
- +#13#191#177#208'a'#144'O-'#142'&C'#134#236#200#184'K'#220#142#251#255#27#233
- +'&'#193#136#252#9#163#240#255#1'w'#247#139'U~'#174#147#14#197#244'U`'#177#21
- +'Cq'#249'4'#176#153#13'('#252'Z&'#252#164#242's'#153'|\'#234'.'#173#250'\5'
- +#30#223'aG&'#235'6'#23#127#12#210'"'#145'd'#1#224#27#152#242'D'#16#137#179
- +#162'#"'#2#31#239'$'#228#132'?'#4'N'#158#8#236'm'#13#208#214#248#27'j'#11'A'
- +#150'D$D'#10'D&'#193#167#192'i'#3'#'#182'5'#217#136#250'%'#243'*?y'#249'O'
- +#160#191#197'*'#191'FM'#130#173#129#252#210'j(,'#169'bj'#190#213#162#5#155'I'
- +#155#12#241#137#227#249'B'#18'Ogn>$k'#236#199#144'['#160#214#229#157#185#4
- +#188'Y'#192#218#152'qY'#133#212#153'('#192#215#23'0'#223#0#145#128';'#128#166
- +#1#238#157'Nh'#169'_'#15'^O'#7#231#27#216#209'$h'#1#206'/'#240#177#212#239'3'
- +#19#24'1'#191'f'#20'~'#26#139#245#30#10#255#188#174'I=\\'#159'T'#254#25'`'
- +#203#207'c+'#190#205#164#3#171'Y'#203#135#247#212#172'XGH'#221'e'#13'7'#146
- +#234#190'h'#229#151#250'M'#142#161'G'#136'|'#132#220','#131'8'#223#201'('#193
- +'7)'#9'sNB'#210#6#220#188'9@'#190#1#167#155#246#254#164'I'#16#224#27#146'DY'
- +#155#244'$'#9'P'#214#224#217'H'#2#207'K'#253'>'#211#141#17#241#155'F'#225#159
- +#128#187#255#160#240'O'#18#132#159'b'#243#228#229'gi'#188#182'"T'#249#167#163
- +#192#163#202#143'B'#159#135#155#133'_'#249#141'|}'#190#154'o'#192'A'#141':'
- +#229'2Q'#231#220#17#241#9#141'B'#240#13'L'#200#128#23'Z'#153#9#185#3'T['#224
- +#241#134#185'('#1'j'#1#14#212#6#220#168#21#180#183#212'C['#243'&'#214#152#132
- +#202#142#133#156#1#222'/'#128'<'#144'X'#134'$p'#143#212'o-'#157#24#246'?o'
- +#222#217#247#1#10#127#137#216#222#167#226#29#157'V'#203#210'x'#11'H'#229''';'
- +#223#204#169#252't'#155'e'#243#233':='#252#201#10'='#161':O'#234'76'#134#161
- +'#'#193#165#26#11'-'#200#163#188#147#144#186#19#177#188#1'_8'#169#13'8'#153
- +'F'#16'@'#147#160#3'Z'#234#214'1'#147#128#146#135'('#5'YD'#2't'#172#187'qw'
- +#237'H'#153'l4'#172#127#231'('#252'4a'#231'-'#20'~'#139' '#252','#163#143'T~'
- +#131#1#138'+f@^^A'#167#224#155#185'0'#31#9'?+'#213#229#227#250'B'#231#29#232
- +'R'#142';'#134#145#1'q'#163#211'd'#164' '#202#165#19#11#225'Br'#14':'#220#28
- +#9#208#214'Z'#191#1'\'#246'&'#212#24#194','#170#16''''#191#0'$M'#130#231#240
- +#128#231#140#132#130#162'a'#251'sG'#225'?'#10'w/'#161#240'k'#132#240#28#169
- +#252'j'#170#213'7'#153#160#164'r6'#216'lff'#235#219#204#218#164#189'/'#180
- +#228'R'#243#173#183#200#209''''#212#225#143#9#255#200#133#144'H'#148'lJ'#130
- +'&A'#24#237#252#16'_n'#204#162#4'nN'#27' '#147#128#162#4'-'#13#155#192#209'Z'
- +#203#234#9'('#162' '#174'%@'#18#248'7'#30#238'8$'#129#128#212#239'm('#24#150
- +'?y>'#204'G%'#188'r'#193#211'/8'#251#168#15'_i'#213'L'#176'YM'#144'G'#206'>'
- +#139'.'#25#226#211#179'&'#29#202'd'#223'='#161'D'#151#251' '#134#229'G1'#134
- +#1'B<'#216'Th^J+'#188'@'#2'd'#18#144'c'#208#217#17'`'#251#182#230#237#208#214
- +#180#9#130#129'03'#7#186'D'#8#190#194'C'#30#142'$'#224#148#250'}'#13#22#195
- +#238'W'#143#194#127'3'#10#238'mt['#16'~5_'#193'g'#177#22'@i'#229'L'#176'Z'
- +#245'L'#240#137#0#200#233#199#132#159'o'#201'%'#30#160#193'>'#128#177'e'#127
- +#212'A<'#2']'#156''
- +#129#253#135#147'c0'#231#197#1#133#159#198'o'#189#141#178#175#18#219#252':'
- +#173#26#10#203#166'@Aq%'#243#240''''#133#159'<'#253'$'#252#201#10'>'#174'tW6'
- +#22#219#135#223#29'0'#11#2#254#29#167'hi'#181':'#184#231#161#151'`'#234#244
- +'YR_'#162'd'#224'9 '#233#23#136'D'#184#209'f'#228#28'd'#21#133#148''''#208#17
- +'d'#161'B'#167#203#141'$'#240#19'x<'#29#221#145#192';x'#168'#'#145#4'bR'#191
- +#167#254' '#167'e'#130#239#207#255')'#10#191'A,'#252#180#242#23#148'N'#130
- +#162#210#241'I'#225#23'r'#250#5#225#231'Fi'#203'E='#249'r'#250#173'f'#5''''
- +#31#181#16#218#219#186#175'kQ('#148'p'#239'#'#175#192#244#25#187'H}'#153#146
- +'AhP'#10#2#9'D'#185#225'%b'#18'pv'#8#155#27#154'j'#214#128#215#227'fm'#201
- +#187'8'#6#159'F'#2'8['#234#247#211#31#228#172'T'#160#240'O'#193#221'W('#184#5
- +'B'#146#143' '#252#249'EU'#156#205#207#132#159#203#235'gi'#189'z.'#179#143#28
- +#131#138#148#148'^'#24#157'F'#127#23','#191#252#20#248'i'#245#183'=>N$p'#215
- +#131'/'#194#140#153#243#165#190'T'#233#144#28'f'#2#201#129#167'D'#2#212#127
- +#144#230#18#8'$@'#230#128#195#233'B'#18#248#17'|>'#127'2:'#192'&'#21'q'#14
- +#198'?#'#9'\'''#245#219#233#11'9)'#21'('#252#165#184#251#26#133#127#188'8'
- +#195#143'9'#252#10#199'AI'#197'N,'#185''''#143#247#246#179#236'>'#157#154#13
- +#215'd'#194'/j'#211#149#179'oR'#2#216#219'Z'#224#180#227#150#224#15#180#231
- +#18'w'#185'B'#1'w'#222#251'<'#204#156#179#155#212#151'+'#9#196#195'P'#133#206
- +'CD'#2'!VC'#16'e'#221#135#133'""'#202#21' '#199' i'#2#1#170#31#160#241#230
- +#204#28'H'#8'$@s'#8#238#151#250'='#245#134#156#147#13#190']'#247#255'Pxg%'
- +#133#31#127#148#26#190#168#167#140#226#252#164#242'S'#156#223',R'#251#213'JP'
- +#170#184'>}c!'#190#158'q'#255']'#215#194''''#31#190#217#235's'#228'r'#5#252
- +#249#129#21'h'#14#204#149#250'r%'#133#16'*'#20'r'#5'h'#132#25#149#21#139#205
- +#1#210#4#236#237#173#208#178#253'g'#8#132#130#140'('#132#218#129#4'7R'#249
- +#148#134#159'^zI'#234#247#210#19'rJJP'#248#201#21#253#17#141#223#22#170#250
- +#148'|'#134#159#217#146#7'%'#19'fC'#158#201#0'6'#171#150#197#250#217#202#143
- +#194#175#213'(S'#187#246#228#212#187#202'-'#196#227'Q8'#254#176'y'#16#194#31
- +'ko'#208'hu'#240#220'k_'#130'^o'#148#250#146'%'#133#216'1('#152#3#204''''#224
- +#237'L'#27'&'#231' '#151','#180#129#235'0'#20'I!'#129#8#30#225'0$'#129#156#28
- +'M'#150'S'#162#130#4#240#16#10#255#197#226#146'^'#141#138'r'#251'-P:a'#23'\'
- +#249#141'l'#213'g'#194'o'#226'V~-'#133#250'D'#243#246'r'#234#13#229'('#222
- +#254#231#179#240#244#223#255#220#231#243#202'+'#171#225#225#167#222#147#250
- +'r%Grr'#17#175#9#4#187#144#128#144''''#208#218'T'#3#246#166#205#157'$'#208
- +#217'O'#192#145'H'#196'vi\'#251'J'#173#212#239#165'+rF^'#248#226#158#127#138
- +#19'}'#168'A'#7'5'#242'('#173#154#11'y63W'#213#199#215#242#147#195#143'*'#250
- +#132#129#28#178#177#149#127'@8'#251#132'%'#224't'#244'='#15'c'#191#131#143
- +#133#11#175#184']'#234#203#149#28'B1'#17'9'#249'"|'#187'1.O '#204'J'#137#137
- +#4':P'#19'hi'#220#4#246#214#237#16#162#198'"'#169'ME'#190#142#4#28'K['#127'{'
- +'?"'#245'{'#17'#''D'#134'o'#232#241'#'#149#245#10#225'>'#18'~'#157'^'#15#165
- +#227'w'#1#155#205#154't'#248'Y'#153#218#175#225#235#248';'#213'~!'#183#127#12
- +#253#195'/?}'#7#183',;'#163'_'#207#189#234#134#251'`'#193#146#131#164#190'd'
- +#201#145#28'Y'#22#227#204#1#210#4'|B'#155#177'dw'#161' 4'#213#173#131#14#190
- +#148'85<'#24#191#27'M'#129'k!e'#144#186#180#144'\jx'#187#255'K'#20#254']'#187
- +#134#251#138'+w'#134#130#130#210'd'#172#191#179'}'#151#138#235#207#207#183
- +#232#22#6'}'#140'a`8'#239#228#165#168#5#244#221#2#159#194#131#15'='#253#1#20
- +#22#149'I}'#201#146#131'K'#27#230'5'#1#190#185#8'M.'#166#218#1#18'~'#135''''
- +#192'Z'#140'5m'#253#17''
- +#202#242'3'#25#185#149#159#230#241'q'#133'=\'#168'Oj'#6#251#237#215#31#225
- +#230'kNM'#185#143'H'#224#222#199#222#134#210#210'*'#137#175#174'wl\'#183#26
- +'n'#185#246#180'~?'#127#238#174'{'#193#178'['#30#145#250#178's'#2#180'|s-'
- +#200#169#187#16#154#3'An"'#17#235','#212#17#20#149#17#175'Ov'#27#22#249#3#190
- ,#12'y['#246'n'#223#242#177#228#29#133'$'#147#31#20'~'#146#14#178#251'm'#226
- +'4_='#218#253'e'#19#230#161#221'oa'#130#207'9'#253'h'#229'W'#179#22'^\I'#175
- +'<9r[j'#220'y'#243'y'#240#243#143#223#236'p'#127'qi'#5#220#247'xnz'#208#219
- +'['#155#224#213#23#30#128'5?|'#1'>'#175'{@'#175'='#243#130#27'`'#255'CN'#144
- +#250'-H'#14'![0'#193#135#7'I'#192'i"'#145#208'^'#140'5'#20'Am'#160#185#238'W'
- +'p'#182#215'C8'#196'u'#26'&'#194#224#15'pg'#253'O+n'#0#137'M'#1'ID'#8#133'_'
- +#5'\'#178#207#30#226'L?'#157'F'#3'E'#21';'#163#250'_'#146'l'#229'%T'#246'Q3'
- +#15#214#194'K)'#227#166#239#230#130#244'#'#206'8z.D#;:v'#149'J'#21'<'#251#198
- +'j'#169'//'#137'p8'#12#239#188#254#4#252#247#227'7'#193#209#222'2'#232#227
- +#200#240#187':'#253#188#235'`'#191'1'#18'H'#166#13#11#227#203'Y'#162#144'P7'
- +#144#236'%'#224'GS`5x'#221#174#29#252#1'h1'#30'R'#183'f'#197#135' !'#9'HE'#0
- +'w'#161#240'/'#163#219#10#161#139#175'F'#9#249#133#227#161#168'|2o'#247'wv'
- +#239'e'#225#190'd'''#159#220'q'#248#213'l^'#15'7]'#221#179' <'#241#202#183
- +#160#213#234'%'#189#198'`'#208#15#127#185#245#15#176'y'#227#207#189#166#0#15
- +#20#147#167#205#134#229#183'?'#1'j'#181'V'#210#247'''5'#18#162'a'#165'\'#142
- +#0'?{'#128'H'#128#138#134'<\'#205'@'#179#216#31#208'i'#10#180'i'#212#138#217
- +'['#191#127#190#25'$"'#129#172'K'#18#10#255#28#220#253#128#4#160#16#199#251
- +#141'f'#206#238#183#176#6#158#188#221'o'#224'j'#250#233'q*'#238#145#201'd9'
- +#21#239#127#255'_'#207#193'+'#207#253#181#199#199#175#189#237'q'#216'i'#214
- +#238#146']'#223#166#13'?'#193#221'('#252#161'Pf'#202#211#213#26'-\t'#245#221
- +'0g'#254#18#201#222#163#212'H$'''#18#9#21#132#220'\'#194'dk1'#26'C'#198'g'#10
- +#182'5n`'#13'F'#187#148#15#191#220#240#211#10#234'w'#193#15'8'#203'.'#178'*J'
- +'('#252't'#190#175#197#170#191'`'#247#151#140'G'#187#223'jN'#246#239#167'Q]'
- +#212#193'W'#173#22'M'#229#205#21#201#231#241#183'{'#151#193#247'_'#247#156
- +#225'y'#197#13#15#195#172#185#139'$'#185#182#230#198#237'p'#253#165'G'#166'u'
- +#213#239#9#187'.'#216#31'.'#188#234'nI'#222'g'#174'@('#30'bN'#193#8#231#15
- +#160'Qd'#212'i'#216#201#166#19#147'?`='#184#218#27'v('#26#146#203#18#251#213
- +#173'y'#137#166#17'g'#157#4#178'M'#0#231#2'7'#187#143#169#254#148#234#171'U'
- +#171'Q'#237#223#9#237#254'q,'#212'G'#4'@'#19'z'#141#186'N'#187'_'#220#202'+'
- +#151'p'#203'U'#199'A}'#237#166#30#31'?'#245#188#27'a'#233#254'GKrm'#203'/:'
- +#12'W'#157#236#181#168'3'#154#173'p'#205#205#143'Cy'#213'dI'#222'o.@p'#10'F'
- +#226#220'(2'#214'iX(!&'#18#240#248#161'q'#235#15#224#247'y'#216'0R'#145')'
- +#176#161#208#28#223'e'#205#23'/'#135'`'#164#18#0#10#127#1#238'6'#162#240#231
- +#145',+'#168#194#15#5#220'l-'#130#210#170#217#220#136'nQ'#129#15#169#254#201
- +#210#222#28#136#245'w'#135#171#207';'#0':\'#237'=>>{'#222#18#184#248#218#236
- +'W'#131#174#250#246#19#248#251'_'#175#201#250'y'#169#148#248#162'k'#254#138
- +'Z'#207#226#172#159';W@>'#129'x'#12#152#199#159':'#10#249#168#183#160#159's'
- +#10#18#17#216#219'['#160#165'v-'#155':'#20#21'B'#131'@?'#239#196#245'{L'#14
- +#255#229#181#215'^'#139'C'#22'I '#155#4#240'4'#10#255#153'B'#194#15'e'#242'i'
- +#181#26'('#171#222#21'l'#22'+X-'#26#150#227'o'#210#11#241'~E'#206'W'#247']y'
- +#206#190#224#245#184'z|'#220'`'#180#192'}O}'#154#245#235'z'#230'o'#183#192'7'
- +#255#253#183'$'#159#9'iw'''#156#185#12#246'>0'#247#19#161'2'#1'nE'#231'z'#11
- +'R'#166' '#181#26'gIB'#194'@R'#26'8R'#251#11#184#28'M]K'#135'}'#10'Yd'#230'Y'
- +'G'#236#180#253#214'[o'#205#154')'#144#21#209'B'#225'_'#136#187'/'#196'M=)'
- +#225''''#191'x'#2#20#150'M'#228#236'~'#190#159#31#27#209#205''''#251#200#20
- +'|'#154'o'#142#142#228#190#242#156#165'L'#157#235#13#203'n'#127#22#170''''
- +#207#204#234'u'#253#241#186#147#160#174'f'#163#148#31#13#236'{'#200#201'p'
- +#236#169'WJz'#13'R!'#217'e'#152'2'#5'Q'#19#160#162'!'#174#155#16'_='#232'rC'
- +#211#214#239'!'#16#12'tI'#16#138#191'5'#217#214'x'#204#231#159#127'.h'#1#25
- +''''#129#140'K'#22#10#191#18'w'#171'Q'#246'g'#138#29#127#6#163#9'W'#255#221
- +'P'#232'u'#220#234'o'#20'B~'#156#221#175#148'Q?'#191#172'\'#226#160'q'#229'Y'
- +'KX'#152#173'7L'#156':'#27#174#186#229')v'#155#190#232#141#235#190#135'_~'
- +#252#2'j6'#255#2#173'-u'#16#14#5#161#176#184#28'f'#238#178#24#150#236#127','
- +#216#242#139#135'|]w\{<4'#214'm'#145#250#227#129'='#150#28#6#167#157#127#171
- +#212#151'!'#13'(*'#144#224#187#9#133'R'#203#135'iko'#222#14#237'M'#155' '#28
- +#230'M'#1#222'!'#168#144#197#143#216'}r'#244#223#217'2'#5#178'A'#0#201'~'#254
- +#130#227#143'V'#255#226#138'Y'#144'_X'#194#170#251#204#204#235#175'f3'#251'4'
- +#194#164'^'#5#191#242#231#174#252#195#21'g.'#198'/0'#216#231#243'*''L'#135
- +#246#214#6'^['#232#253';'#173#154'8'#3'.^'#246' '#232#141#230'A_'#215#223#239
- +#189#18'~^'#253#133#212#31#15#195#137'g]'#7#139#246'=J'#234#203#200':'#196
- +#249#1#194#172#1#242#7'P4'#192#229#14#129#27'I'#160'q'#219#15#204#132#236#146
- +#27#176#173#196#26#155'S]'#20#243'e'#131#4'2*^('#252#229#184#251#21#133#223
- +'(8'#254'h'#245'7'#219#138#161#164'r&'#179#249#201#243'o'#22#169#254#148#240
- +#195#138'j'#134#193#140#238'+'#206'\'#4#209'H8'#237#199#165#234#187#227#207
- ,#188#22#246'\'#250#251'A'#189#254#173#151#31#130#143#223'}A'#234#143#135#129
- +'4'#190#229#127'Z'#1#165#229#19#165#190#148#172'#9'#131#144'R'#133#249#209'c'
- +'n'#26'I'#206#180#128#16'8'#236'm'#208'R'#187#134#213#10#136#27#138#202'e'
- +#137'?'#21')6'#222#186'j'#213'*j-'#158'QS '#211#4#240','#238'N'#231#194'x\'
- +#165#159'N'#167#129#210#9#187#162#218'o'#6'3o'#247#155'x'#213'_'#165'Rt'#198
- +#251's\'#248#9'W'#158#177'p'#135'A'#27#233#2'}'#6'W'#160#233'@'#26#193'@'#225
- +#180#183#192#173#151#255'N'#234#143''''#9#157#222#8'w<'#244'>(G'#227#240#145
- +#132#184#167' '#167#5#176#198#162#158#16#155'@'#220'Z'#255'+t8'#26#152'C0'#22
- +#139#9#164#17#210'(";W'#154'[k>'#255#252's'#129#4'2'#130#140#137#25'_'#236
- +#179#25#127#200#202'd'#147#15'\'#225#243'J&Aa'#201#4'&'#248#22'>'#219#143#188
- +#254'B'#194#143#208#214'K6'#28'4'#128'3'#22#160#234#150#185#249#15#148'F'#252
- +#199'G>'#4#165'j'#224#130#243#199'k'#143#131#214#166#237'R~<)'#168#24'?'#13
- +#174#190#253'9'#169'/#'#171'H'#206#31#20'G'#5#130'\'#150' E'#5#152'&'#224#246
- +'A'#211#182#149#16#240#7#146#25#130'd6'#160#22#240#216#30#147'#'#151#226#203
- +'c'#153'4'#5'2I'#0#127#195#221#5#194#234'O'#171#187#222'`'#198#213#127'>'#174
- +#252#186#164#234'O1'#127#13#175#250#11#173#188's5'#236#215#21'W"'#1'd:'#211
- +'n'#206'n'#251#194#233#23#253'q'#192#175'['#245#205#135#240#226#223'o'#145
- +#234#163#233#22'{'#29'x'#2#28'q'#210#229'R_FV'#145'L'#21'&_'#0#223'T4'#16#226
- +#18#132'H'#3' "ho'#169#5'{'#211#198#174'a'#193#160'Y'#23#157#174#143'ln'#200
- +#164')'#144#17'Q'#227#251#250'oCa'#214#8#171#191#150#194'~'#227'v'#130#130
- +#194'q,'#233#135'R}'#169#198#159#10'}'#146#173#189#134'Y['#175#171#207'^'#136
- +'_lf'#9'@'#173#209#193#157#127#31'\.'#193'u'#231#239#3#225#12#213#1#12#22#231
- +'^y'#31'L'#155#185#135#212#151#145'u'#136'G'#145'S'#130#16#171#21#224'K'#135
- +'I'#19' -'#192#231#245'$'#147#131#226#156'/'#224#129#137#214#198#229#133#133
- +#133#145'Li'#1#153'"'#128'{pw'#149#216#246'7'#24'q'#245#175#222#21'W}m'#146#0
- +'('#215'_'#163'Q'#138'r'#253'3'#253'5'#164#23#203#206'Y'#196#190#172'L'#131
- +#132'f'#234#206#3'/*'#250#199'3'#127#130#149'_H'#147#16#212#19#242#10'J'#225
- +#250#191#252'S'#234#203#200':'#132#4'!'#161'V'#128#229#6#8#166'@W-'#128#250#8
- +#178'(B'#194'k'#209#248#166#203'|'#155'Z'#143'='#246#216'h&'#18#132#210'.r('
- +#252#249#184#219'.'#158#231'G*~~'#233'4(('#174'`'#182#191'9'#153#238#171'J'
- +#233#231'?'#220#176#252#188#197#25#245#1#8#152#188#211#174'H'#2#15#12#248'u~'
- +#159#27'n'#187#252#224#164'-'#154'+'#184#244#198#167#161'|'#252'4'#169'/#'
- +#235'`i'#194#162#178'a'#214'U'#152#143#10'Px'#176'i'#203'w'#224#247#251#152
- +#22' D'#4#20#178#248'_'#198#233'jn'#213'h4'#145'L8'#4'3A'#0#255#135#187#27
- +#133#184'?'#173#254'z'#189#1#202'&'#238#193#4#159'<'#255#20#243#167#176#31
- +#149#249#178'b'#31#190#189#207'p'#226#128#166#186#205'p'#255'm'#167'g'#229'\'
- +'&K>'#220'xo'#255'z'#247'u'#197#227#247'\'#10'[6'#172#202#230'G'#211'''*'#171
- +'w'#134#139#174#127'L'#234#203'H'#162'v'#235'z'#248#224#141#191#179'U'#248
- +#202#219'^'#4'm'#6#134#161#236'P6LZ'#0's'#8#134'Xkq'#242#7#216'['#182#131#189
- +'y'#19#203#11#16'E'#4':'#10#13#222#25#165#150'p'#187#209'h'#140#166#219#20'H'
- +#171#200#161#240'S'#246#10#173#254#214'd'#193#15#10'y^'#233#20#200'/'#170'd'
- +#4'`'#225'+'#253#132#213'_.'#204#241'K'#251'G'#158'Y<'#245#192#149#176'i'#221
- +#202#172#156#139#138'l'#254#244#232#127#7#245'Z'#183#171#13#238#188#246#168
- +#156#210#2'hq'#184#225#158'w'#192'h'#178'Jz'#29'?'#175#250#12#222'z'#233#175
- +#224#245'8'#147#247'Yl'#133'p'#237#157#175#225'oR'#153#246#243#9'#'#200#147
- +#29#132#216#188#193#8'x'#242#5'P'#181#224'w'#16#164#136'@'#172'S'#11
- +'P'#202#227#255'7'#181#208'~'#151#221'n'#15#167#219'!'#152'n'#2#184#30'w'#127
- +#20#175#254#172#183#127#245#238#184#234#235'p'#245'Ws'#157'}'#249'b'#159'd'
- +#216'o8-'#253#192#133'tn'#190'x'#31#136'g('#7#160';\'#247#151#183#152'&0'#24
- +';d'#213'_'#204#156#191#15#156'x'#174#180#3'G'#222'|'#225'.'#248
- +#254#203'wv'#184#191'x\5\v'#243#243#25'9'#167'0'#130'<'#22#19#194#130#145'd'
- +#243#16#210#4#218#155#183#130#179'uk'#215'r'#225#246#170'<'#255',u'#194#233
- +'L'#183'C0m'#146#135#194'O'#189#175'jP'#152#11#133#156#127'J'#249#205'+'#158
- +#4#249#197#227'q'#245'Ws'#131'6'#127#209#225'p'#196')'#203'2r^'#241#152'1'#234'#'#232#167
- +#228' >*@Z@'#211#150'o!'#24#10'B4'#210'Y#'#160'R'#196'o'#24#167#171'}'#200
- +#229'r'#133#210#233#16'L'''#1'\'#134#187#251#133#22#223'JV'#238#171#195#213
- +#127#15'0'#25#185')'#190#228#249#215#137'W'#255'af'#247#11#248#203'uG'#130
- +#167#195#158#213's'#206#156#191'/'#28'w'#214#224#227#250#143#254#249'\h'#172
- +#149#182'B'#176'+'#14':'#234'"X'#184#223#241#146#157#127#235#198#213#168#29
- +'u'#159#151' '#147#201#225#218#187#254#5#6'cf'#204#148#148#185#2'4v<'#16#6
- +#143#151'#'#129#246#166#205#224'j'#171'I'#169#17#192#127#154'&'#216#218#230
- ,'DC'#30'O:'#29#130#233'$'#128#159#196'#'#189')'#231#223'VT'#13#249'%'#213','
- +#219#143'y'#254'u'#157#147'|'#5#219#127#184#161#177#246'7x'#236#174's'#179'~'
- +#222#130#226'J'#184#228#230#193#231#247'?'#250#167#179#160#185'A'#250#10'A1'
- +#170#167#205#131#211'/'#249#235#208#15'4H'#4#253'^'#184#243#154'C{|'#188'j'
- +#210'l8'#235#138#7'3rn'#161'N'#128#204#0'J'#14#242#5#195#172'd'#152#204#0#183
- +#199#11#205#219'V'#162#22#16'Ji'#29#166'SFO'#221'i\'#224'-$'#128#208#140#25
- +'3'#210#162#5#164'E'#2#199#205':q'#14#200#228'?'#166#14#248'PC'#217#196'='
- +#193'h'#212'%'#195'~]m'#127'v'#1#195'L'#5'x'#246#129#203#160'f'#211#154#172
- +#159'W'#161'T'#193'M'#247#127'<'#232#215'?p'#203#9#224#180'7e'#253#186'{'#131
- +#209#156#15'W'#255#233#13'I'#175#225#214'K'#150'v'#186#232#187#193'y'#203#158
- +#128#178#202')i='#167'`'#138'u'#230#5#196'Y#Qj'#28'Bu'#2#20#26'lk'#218#8#238
- +#246':'#22'-'#16#210#131#21#242#196#191''''#231#181#156#145#151#151#231'okkK'
- +#139#22#144#30#2#152'}'#242#189#184#187'R'#156#248'c'#206'+'#133#162#242#25
- +'l'#245#167#141'l'#255#174#5'?'#195'L'#246#25#238#184'|'#191#140#21#0#245#133
- +#195'O'#186#6#230#238'y'#232#160'^{'#207#245'G0_@.'#129'4'#197#155#30#200'~'
- +#199'$1'#250#250'>+&'#236#12'g]'#249#240#0#142#216'?'#8#26'@gD'#160#179#135
- +' +'#22'r9'#160#173'v'#245#14'EB'#165'F'#215#156'Bs'#188#209'h4'#6#211#161#5
- +#12'Y'#4#11'&'#238#167#212#24#139#235'P'#160'K'#196#206#191#194#242'Y`'#205
- +'+J'#18#0'7'#211'O'#148#243#159#246#143'4'#243#168#223#182#14#158#185#255'b'
- +#201#206'o+('#131#139'oZ1'#168#215#222'u'#237#161#16#238#163'y'#137#20#184
- +#225#222#143'@'#174#148#206#17'x'#247#242#195'!'#24#240#246#248'8'#249#2#150
- +#223#243'>.j'#233#175'd'#20#198#139#209#198':'#9#135'"\'#15'A$'#0'2'#7#154'k'
- +#190'g'#201'\bg'#160'F'#17#185'~'#130#205#254'x'#186#180#128'!'#203#225#184
- +#217''''#29#130#135'yW'#172#254#235'tz('#157#184#7#152#244#26#214#229#135'e'
- +#253#241#171'?'#169#255#220#7#155#246#207'3'#227'xg'#197#159'a'#237#247#255
- +#25#250#129#134#128'E'#7#158#10'{'#29'|'#230#128'_'#247#231#171#15'D{2'#167
- +'F'#211'3\q'#199#27#160#207#144#163#173'?x'#232#182#19#192#237#236'}B'#242
- +#194#253'N'#130#165#135#157#147#145#243''''#135#138#196'83'#128#178#3'='#188
- +')`o'#169#1'g'#203#230'd'#219'0'#190'Jp'#213#228#188#230#223#163#6#224'N'#135
- +'/`'#168'b(C'#245#255'%'#220#159' '#174#250#179#20'TAA'#233'd'#182#242#147
- +#240#179#156#127'a'#180#215'0'#140#251#11'x'#152'~,'#174#190#199'ig'#18#244
- +#217#157'q'#249'#PZ9'#176'T'#218';'#175#220'/+3'#2#6#138#11#174#127#1'l'#133
- +#227'$;'#255'S'#247#156#7'-'#13#155'{}'#142#193'd'#131#203'n'#207'L'#253#2
- +#203#11#192#175'%'#154#156'''@y'#1'\'#207#0#143#199#3#205#219#190#235'j'#6'$'
- +#242#180#158#189#139#140#190'_'#210#161#5#12'I'#18'Kw>'#214'"W'#168#155#240
- +'G'#169#19'w'#252')'#170#154#7#22#139#141#9#191#208#231'O'#205#175#254#178'a'
- +#24#247#23'p'#215'5'#251'g'#188#250#175'?'#208'h'#13'p'#217'mo'#12'Hu'#206
- +#149'k'#239#138#11'oz'#5#204#214'B'#201#206#255#226#195#151#161'i'#247'K'#159
- +#207';'#227#138'G'#161#164'<'#189#206'@'#1#226'J'#193#0#211#2#194'L'#11' 3'
- +#160#165'n'#13#248#220#246#20'3@'#173#136'>2)'#223#241''''#157'N'#231#25#170
- +#22'0'#20'I'#148#141#155'u'#210'Y('#205'O'#138'c'#255':'#189#25'J&'#236#202
- +'B~F'#3#183#250'k'#133#138'?'#129#0'2'#242'1f'#30'w]'#189#159#212#151#144'DE'
- +#245',8'#233#194#254#135#208#238'^v@V*'#23#7#2#250#221','#187#251#163#172#159
- +#215#209'V'#7#171#190#252#23'4'#213'n'#128#182#230'm'#253'j'#235'V5i'#23'8'
- +#225#252#244'O?'#18'$'#150#141#26#143'u:'#3'}'#228#12'D"p'#182'7'#128#189#241
- +#215#20'3@&K'#212'M'#201'k'#222#27'??'#215'P'#181#128#161#17#192#236#147'?'
- +#199#253#18'.'#166#207'M'#248#181#22'q'#153#127'$'#248#194'`O'#173#134'k'#244
- +#169#16#226#254#195'P'#3#8#6#189#240#208'MGH}'#25')'#216#231'w'#23#194#188
- +#197#253'k'#184'y'#239#181#7'f'#165'rq '#160'^'#7#151#221#241#206#208#15#212
- +#7#162#209'0'#252#188#242#3#216#176#230'S'#166#238'G'#250#209#200#181'+'#228
- +'r'#5'\q'#231#251#236'w'#158'v'#240#209#0#193#25#200'B'#130#188'/'#192#231#11
- +'@'#243#214'o'#184#190#129#157'f'#0'X'#181#129'S'#202#173#190'OQ'#3#240'644'
- +#4#15'?'#252#240#216'`'#180#128'AKb'#217#204#227#170'er'#21#181#252#146#137
- +#213#255#226#234#221#209#246'7'#166#172#254#164#254#211#7''''#31#198#234#127
- +'['#211'Vx'#238#190'?H}'#25') '#15#245'YW?'#133'6ty'#159#207#253#235#242#131
- +'r'#142#0#242#138'*'#217#245'g'#18#159#189#243'wX'#245#5#229#26#12'='#13'z'
- +#241'Ag'#194#238#251#156#148#145#235'$'#225#23#18#131#184'"!./'#128#234#4#218
- +#234#215#131#167#163#169'Kjp'#236#141')'#5#142#171'U*'#149#203#135',1'#216#26
- +#129#193'J'#163#172'|'#246#201'7'#226#153'n'#23'{'#255#141#230#2'('#172#152
- +#205#173#254'z'#21#232#209#12#160'6'#223'*'#149#144#246';<'#133#159#176'm'
- +#195'w'#240#230#179'7I}'#25';'#128'<'#232#231#223#248#143'>'#159'w'#255#13
- +#135'd'#181'x'#169'?'#216#251#240#11'`'#151#133'Gf'#236#248#219'6'#174#132'7'
- +#159#185'1m'#199#179#228#149#194#217#203'2'#211#215'P'#152'+'#200':'#8'G'#185
- +#225#162'>'#161'i'#136#179#21#218#235#215#166'$'#5#201' '#209'19'#191'u'#145
- ,'\'#150'h'#195#197#215'+'#170#20#28#144#157'7h'#2'@'#245#159#234'S'#23#139'+'
- +#255#242'J'#167#131'-'#191#12#244'zU2'#244#199#138'~'#134'q'#222#191#128#159
- +#191#127#31'>~#'#251's'#254#250#131'I;/'#130#195'O'#238#157#156#30#188#241'P'
- +#201#18#152#186#3#149'8_v'#251#191'I'#183#206#200#241#253'^'#23''#232#163'7|'#247#217#10#248#230#163#204
- +#148#136#166#3#135#156'p=L'#153#181'W'#143#143'?q'#231#137#224#243'8'#164#190
- +#204'$'#170'&'#207#131'#'#207#252'S'#198#142#255#244#221#167#129#219#217#146
- +#246#227#238#182#247#137#176'`'#255'3'#210'~\'#241' '#145#168#168'y('#133#4
- +'I'#19'ho\'#7#30'gsJm'#128'^'#21'y'#180#210'b'#191#31'I'#193#129'&'#128'o0'
- +#206#192'A'#17'@'#197#156#147#247#195#235#252#143'X'#253#215#234#200#251'?'
- +#159#9#190#1'5'#0#193#249#199#133#254#134'o'#234#175#128#207#223'y'#4#214'~'
- +#155'y'#135#213'`'#161'Ti'#224#194'['#223#234#241#241#247'^'#186#3'6'#175#251
- +'R'#234#203#228#175'U'#13#231','#127'%c+'#233#251#175#222#9#155#214#14#174
- +#129'J'#223#215#174#129#243'o~3#'#206'@ae'#167'h@'#152#31'$B'#137'AD'#0'N{=8'
- +#155'6'#166#180#11'S'#202'c'#223'O'#202'k;'#7#175#165'='#18#137#184'='#30'Oh'
- +#160#13'C'#6'E'#0'h'#255#255#9#143#190'\'#28#254'3'#219'*'#209#4#152#204#236
- +#127#218'h'#188#183'Z'#24#243'5'#12#171#254#186#226#235#15#159#130#213'_'#190
- +'.'#245'e'#244#138#5#7#156#9's'#23'w?'#149'w'#203#250#175#224#253#151#239#144
- +#250#18#25#14';'#229'6'#24'?u'#183#140#28';'#232'w'#195#147#127'>'#161#215#2
- +#159#161'b'#202#172#189#225#128'c3'#215'+'#128#181#12#19#204#0#158#0'|^/'#180
- +#212'|'#151','#17#230#252#0#16#156'\'#208#182#31#138'Y'#227'`'#157#129#3#149
- +'L'#217#173#183#222'*{'#226#205'M_'#225#237'='#196#197'?y'#227'v'#6#171#173
- +#152#23'~n'#245#231#188#255#178'a'#217#240#179'+'#182#172#255#18'>x%s*k:'#160
- +#213#153#224#236#235'^'#237#254'A'#252#209#252#237#182#195'%o'#10'2e'#246#222
- +#176#255#209#215'd'#236#248#159#188'q/lX'#243'IF'#223#3'-|''_'#246'$s'#10#166
- +#27'I3 '#206#153#1','''#0#9#128#136#128#8' '#24#240#165#248#1#10#244#254'K'
- +#11#13#158#143'Q'#11#176'SH'#16#181#128#240'@'#204#128#1#19#192#148#221'N2'
- +#251'B'#178'v'#154#248#211'i'#255#171#160#164'zO'#208#235'u'#172#232#135#156
- +#127'Z>'#245'W>'#12#219'}w'#7'ZY'#158#185#235'D'#169'/'#163'O'#236'{'#212#213
- +'L'#200#186#195#11#247#158#14'^w'#187'd'#215'V4n2'#28'}^f'#29#169'O'#220'q'
- +#20'D#'#161#140#191#23'K'#254'88'#233#210#199#211'~'#220#174#237#195')'#26'@'
- +'$'#16' ?@'#211#6#240'8'#27#187#250#1'^'#172'0'#183#223#135'ZA'#171'N'#167's'
- +#15#180'Jp'#160#162')/'#159'}'#226'!'#9#144#191'#'#216#244#20#255#215#27#172
- +'PX9'#151#9'?'#249#0#152#250#175'$'#239#191#208#244'cd'#144#192'cl'#5#205#173
- +'l'#186#174'(.'#159#6'G'#158'so'#183#143#173#252#228'9X'#253'E'#223'!'#195'L'
- +' '#191'x'#2#28'{A'#250#203'j'#197#248'u'#213#7#240#223'w'#30#202#218'{Zt'
- +#240#249#176#243#238#135#167#245#152'|'#247#31#212#0#184'nA'#194'hq6^'#220
- +#209#4#142#166'_'#187#250#1#214'M'#206'o?'#31#9#160#9#205#0'g('#20#242#15#196
- +#12#24#136'X2I.'#159's'#242#221'x'#222'+'#197#14'@s~%'#235#253'G'#194#175'G'
- +#225#167'a'#31'D'#0'r'#133'l'#216#135#255#196'x'#225#222'S'#193#239'u'#14#253
- +'@'#25#132'Zk'#128'3'#175'}'#181#199#199#223'x'#252'rhk'#218'<'#128'#'#14#29
- +#214#130'r8'#254'"'#154#20#151#153#144#159#128#151#30'8'#27'<'#174#244'{'#254
- +'{'#2#245'5fV'#248
- +#219#26'7'#193#191#158#186'2+'#239'I'#140#25#187#30#6#11#14'Jo'#134'hgRPg'
- +#159#0#193#20'h'#175#253#129#245#8#16'u'#12#134'|'#157#247#230'b'#147#255'}'
- +#148#201#22'$'#128#14'2'#3'P'#3#136'B?'#162#1#3#17'O'#249#132'9G'#230#133#19
- +#250'f'#188#173'H'#150#255#170')'#254#191#16#237'~'#174#233#7#197#254'5|'#242
- +#15#215#245'w'#228'0'#128#179'm;'#188#241#152't'#13'A'#250#139#197#135']'#10
- +'S'#230#236#223#235#251'x'#243#241'K3n'#206#204'^x'#28#204#223#251#212#172
- +#188#231#183#159#190#10'I'#224#183#172#156'K'#12#149'Z'#11#167'-{-'#189#7'Mp'
- +'9'#1#228#8#140'D'#184'h'#128#16#18't'#182'lBS'#160'N'#1'D'#2'd'#226
- +#216#27#215#165'8'#2'U'#242#216'&4'#3'.'#198#219#13']'#204#128'>'#163#1#253
- +'&'#0'R'#255#191#217#164#186')'#145#144#221'"'#216#255'4'#247#207#156'?'#30
- +#172'E'#19#152#240#147#243#143'&'#1#177#220#127#249#200#178#255#5'|'#251#225
- +'c'#240#235#170#247#164#190#140'^ '#195#21#233#31'h'#154#245#175#133#213#170
- +#207'_'#128'u+'#223#198#31'T'#223'%'#177'}'#158#25'5'#194#9#211#23#194'B'#212
- +'@2'#209'B'#171'''|'#242#250#157'P'#251#219#183'Y;_W'#152'l%p'#204#5#233#27
- +'u&D'#2#132#226' V'#27#16#138'23 '#16#8'B'#203#182#175#240#251#138''''#29#129
- +'2Y'#194'7'#173#160#245'd4'#11#234'('#26'`6'#155';'#182'l'#217#18'Z'#183'n'
- +#29#153#1#189#170'y'#253'&'#128#165'K'#151'*6'#187#198#189#128#231';A'#236#0
- +#180#149'L'#7#147#181#132#9'?'#167#254'wv'#254'aC?F'#152#6#16#143'Ga'#5'j'#1
- +#180#207'E'#232#12'68'#238#146'g'#7#250#174#224#251'O'#158#133#223#214'|0@'
- +#141'@'#198#178#250'4:3'#20#148'N'#130#5#7'_'#12'jm'#250#231#234#245'z'#229
- +#236#251'8N'#210'JG'#146#135#211#174#253'WZ'#143#201'R'#131'y?'#0#155#29#128
- +#4'@'#27#17'A'#235#182#239' '#28#246#167#248#1#198'['#237#231'j'#20#225#245
- +'J'#165#178#9'W'#127#167'N'#167#11#244#167'6'#160#191#210')'#159'7o'#158#162
- +'9:'#141'hv'#174#152#0#10'*'#230#130#201'le'#194#175#213't'#134#255#134's'
- +#235#175#190#240#213'{'#15#194#230#28'u'#6#142#199#21'x'#175#223#15'>'#209
- +#134#242#29#234'6}'#7'M'#219#215#178'N4'#241'X'#132'U'#17#146#160#145#160'['
- +#242#203#153#176#23'W'#236#4#230'<'#233'Zy'#9#248#254#147#167'a'#253#247#131
- +#27#156#154'N,='#234'Z'#168#154#178'g'#218#142#215'u'#132#24'5'#10#9#242'Z@{'
- +#253'Oh'#246#216'S'#8#160#216#232#249#147'M'#235#251#24#239'k'#196#191#237
- +#161'P'#200#215#159#1'"'#253#145'Pf'#255#31'|'#240#193#170#181#141'ymx'#219
- +'$'#142#0#20'MX'#8#6#157#134'['#253#133#226#31#249#200'I'#0#234#14'$'#12#175
- +'=tF'#214'<'#233#253#6'~'#224'G'#254#225'Q0Z'#138#165#190#146#172#225#229#191
- +#158#136'Z'#203#192#27'|'#164#27#21#147'wC'#18#184'.m'#199'K'#13#7'v'#18#0
- +#141#21'w4'#253#6'^WC'#151#6'!'#254#23#139#244#174#151#209#254#175#139'F'#163
- +'mj'#181#218#211#159#18#225'~'#17#0#217#255#171'6'#199'+Cq'#237#214#164#3#16
- +#237'='#181'F'#143#4#176#27#203#250'c'#171#191'Z'#193#186#2')'#21'#'''#249
- +#167''''#216'['#182#192#7'/,'#203'h'#206#249'@Q9e'#15'X'#252#251#204#228#168
- +#231'"6'#253#248#1#172#252'8'#253#217'x'#131#129'Vo'#129#163'/z&'#173#199#20
- +#210#130#201#214''''#2#16#162#1#29#246':'#232'h'#221#156#18#9'0'#168'C'#159
- +'UZ\'#15#163'|'#214#14'$'#28#216#31#17#149#163#253'/'#175'q'#151#238#23#137
- +#201#223'O'#137#0#24#242'!'#191'b'#22#155#3'@'#177#127'F'#0#138#206#8#192'H'
- +#199#154#255#189#0#235'W'#190')'#245'e0'#144#231#253#152'K^'#204#170#243'Mj'
- +#188#249#232#217#16#240#229'Fb'#150#12#127#240'''^'#153#222'b1a'#148'x'#140
- +#207#7' '#2#8#134'#'#224#235#176#131#189#241#231#148'H'#128'F'#25#253#181#218
- +'f'#191#3#229's;'#254#221#20#12#6#157'J'#165#178#207#226#160'~'#17#192#140#25
- +'3'#148'n'#213#172#11#226#9#249#253'b'#2'0'#217#202#193'V<'#25'U'#255'N'#2'H'
- +#142#252#30#225#26#128#128#207'^'#191#29#154'j'#178'?*L'#12#242#190#239'}'
- +#204'MPR5['#234#143'#kh'#220#182#26'>'#255'gnT7'#10'8'#225#242'W@'#158'&'#2
- +'f'#170'='#223'#@'#240#3#176'~'#129#148#16#228#247'B'#235#246#149')'#4#160
- +#148#199#237#147#242'Z'#175'E'#185#164#9#221#13#129'@'#192#238#247#251'}&'
- +#147#169#215#226#160#190'D'#148#169#255'^'#175'W'#249'K'#147#237#190'xBv'#129
- +#152#0#172#197'S'#192#130'$'#160#161#8#128'J!'#234#254#3#204#30#29#13#4'@'
- +#248#238#195'G`'#235'/'#210'8'#5#233#251'Xr'#228#245'P6a'#174#212#31'CV'#241
- +#239#167'/'#6#143'3'#183'f'#29#238'{'#252#237'l'#28'^'#186#144#236#15' '#26
- +'%N&@'#24'5'#129#230'-_B4'#18'I'#18#0'">5'#191#229'r'#20#203#173#248'w]8'#28
- +#166'Va'#30'Q'#143#128'n'#253#0#253'"'#128#182#182'6'#213'fW'#217';'#137#132
- +'l?q'#17'P'#222#184#153'`4'#23#178#213#159#171#254#235','#0#26'%'#178#159#196
- +'/'#223#252#3#183'W'#135'~'#160#1#128':'#213'.8'#236'*('#159#180#187#212'o?'
- +#171'p'#182'l'#133#15'Wd'#174#164'x'#176#152#179#228't'#152'6'#255'wi;'#30'_'
- +#23#196'|'#0#177'(?D'#20'M'#0'r'#6#182'm'#255#1#194'A/'#171#9#16#136#162#210
- +#226#252#139'A'#29#254#142#252#0#161'P'#168#197'`0t'#212#214#214#6'{'#203#7
- +#232#147#0'('#254#143'j'#132#250#199'Z'#243'z'#27#205#196#146'wv'#1'RB'#209#132'E'#160#165#236'?u'#151#177#223#195#184
- +#253#247'PA'#171#211#234'O'#30#3'G3'#253'@'#211'O'#4'*'#181#30'v^t'#18'L'#154
- +'s'#176#212'oU'#18#248#221'm'#240#238#147#231'K}'#25#221'b'#210#156#131'`'
- +#151'}'#206'M'#235'1'#217'b'#194#143#14#139#242'&'#0#249#1'\'#246'm'#224'm'
- ,#175'I!'#0#139'6'#240'q'#153#201'M'#163#250#182#225#223#141#184'''?'#128#191
- +#188#188'<g'#255
- +#167'$'#0#201'G'#141#237#223#27#130'~'#23#172#254#244'Ih'#216#250'=2'#248#208
- +#179#212#244'hj'#237#188#231#9'0~'#250'^C>'#214'p'#198#127#223#248'?h'#169
- +#253'I'#234#203#232#22'S'#230#30#206#204#128'tB'#136#4'P80'#18#163'\'#0#218
- +'"'#172'1'#136#171'ecJ2'#16#170#255'?V'#152#29#143#201#229#242'mx'#127'='#154
- +#233#237'}u'#9#234'MTY'#251#175#239#190#251'N'#245'['#171'q~0'#170#254'R'#198
- +#229#246'2'#2#208#26#242#160#160'|6'#18#0'7'#248'S'#171#230#186#255#202'y'
- +#239#255#232#243#2't'#15#250#130'~'#254#250'%'#168#221#240'?'#22#178#234'o'#5
- +#30'y'#246#13#150'"('#169#154#3#147#231#28#2'f'#155#244'YwR#'#26#14#194#27
- +#143#158'"y['#179#158'0}'#215#163'`'#214#194#147#211'v'#248'1'#228#14#254#249#192#9'h'#3#167's'#208'gzA+'#255'A'
- +#167#167#127#230'A'#178',8'#193'E'#148#136#0'hX('#245#5'h'#221#250#5#27#248
- +'*Z'#145#187#141'N'#20'*'#13#28'}'#233#203#25
- +';'#190#160#248'PYp'#8'5'#0#31#18#128'?D3'#2'VA$'#232'N!'#128#234'<'#251#11
- +#26'Et='#222#220#138#191#231#237'h'#2#244#26#10#236#145#0'('#4'XXX'#168'B3'
- +#192#248'K'#147#237#159#241#132'l1{@ '#128'q'#179#193'h'#202#7#147#137''''#0
- +#26#3#206#183#1#207#4#9#188#243#216#185#224#239'E'#160#199#207#216#27'v?'#248
- +#18#230')^'#245#241#19#3'N'#191'U'#170#180#176#199'!'#151#193#184#201#163#171
- +#178'n8'#128'l'#223#215#239';6g3'#0#231#238's6'#211'&3'#5'!'#29#152'"'#1#212
- ,#25#200#235#11#177'\'#0'J'#4#10#251#157')'#4'0'#222#234#248#135'N'#21'YK&'#0
- +#229#2#224#234'O'#205'A\'#212'$t'#247#221'w'#143#12#136#0'('#7' '#20#10#25
- +#127'm-x'#27#9#128'IF'''#1#204#5#163#217#10'f'#163#22#180'H'#0#212#9'H'#166
- +#200'\'#15#128#143'W,'#7'{'#227#198#30#31'''/l'#193#184'i'#208'Z'#251#243#144
- +#206'SX1'#3#150#28'u#j'#19#218#204#188#145'1'#12#10#239'>q'#1'x]'#205'R_'#198
- +#14#160#26#141#195#255#144#217#182'd'#9'^d'#217#192#208'p'#20'<^'#158#0#234
- +#215'B8`O!'#128'J'#139#227#13#189'*L'#197#18#201'\'#0#212#226#157'H'#6#221
- +#230#2#244'J'#0'j'#181'Z'#19#139#197#140#155#28'E'#175#196#226#242#165#236#1
- +#222#203'o+'#157#131'&@>'#243#1'P$@'#145't'#2'f'#134#1'V~'#240' l'#203'R'#211
- +#13#5#146#201#220#253#206#131#234#153#251#15#253'`cH'#11#214'|'#254'LN'#166#1
- +#31'p'#234'=`+'#158#148#209's'#8#233#192'q'#158#0#220'D'#0#254'0'#18#192#26
- +'4'#1'\)'#4'0'#193#230'x]'#171#140#172#3'>'#27#144#186#4#247'6-'#168'O'#2#8
- +#135#195#166'm'#29#165'OF'#227'r'#166#227#8#4'`)'#153#9'f['#17#24'y'#2#160'f'
- +' '#178#12'N'#2'j'#174'Y'#3#255'}'#237#214#140'~'#208']a+'#158#8'K'#143#187
- +'-'#235#189#238#199#176'#'#130#254#14'x'#251'og'#230#212't'#230#146#9#187#192
- +'^'#199#220#146#241#243#8'EAqf'#2'D'#192#235#14#129#151#8#160'n'#21'DB'#30
- +#238'9<'#1'L'#180#181#189#162'R'#196'6Q='#128#208#30#12'I'#192#209'S2PO'#210
- +#154#204#2'D'#152'6'#180#218#238#143#198#21#201'('#0#17#128#185#136#250#194
- +#151#128#201#164#3#131'^'#197#17'@'#134#235#0'^'#187#247'('#180#131#178#251#3
- +#144#203#149'0{'#233#25'0y'#222'aY='#239#24'v'#196#166#213#239#194#143#159'<'
- +'!'#245'e0'#208#140#132'C'#207#251'{'#210#241#156#13#196#248'T`'#143''''#8'>'
- +'$'#0'J'#5#142#133#131')'#190#145')'#249'-+'#208#26#175#1'>'#25#8#247#13'('
- +#252#164#1#248#186#235#11#208''''#1#168'T*'#243'f{'#254#31#195'1'#197#25#236
- +#5'<'#1#152#10#166#176'D '#179'Y'#139#4#160'a'#4#192'f'#1'f'#144#4#200#14#244
- +'8'#26#135'~'#160'A'#192'RP'#9'{'#31#127#27'h'#141'y'#146#156#127#12#28'>}'
- +#233#6'h'#173#251'E'#210'k'#208#155#242#225#16#18#254',u`f&@'#28'X'#243#15'J'
- +#0'r'#187#3#204#7#208'F'#169#192#209#136#152#0#18#211#11'[^'#196#191#235'I'#3
- +'P('#20#219'"'#145'H'#3#222#223'>h'#2'@5'#194'R'#227'*'#188'>'#20'S^'#200'^'
- +#192#11#184')'#127'"'#152#11#171#192'l'#210#128#209#160#3#165#138'k'#6#154
- +#201'>'#0#171'>~'#156#173#2'R'#129'Z?'#239#188#240'$'#152#177'gzK>'#135#27
- +#220#246'zh'#216#252#29#11#183#6'|.'#8#5#220#172'V_'#165#214#129'Zg'#2#173
- +#222#12'Fk)TN['#12'zsAZ'#207'MCY'#222#127'J'#186#134#160#244#190#14'9'#231'a'
- +#166#25'f'#11#156#15#144'/'#7#14'F'#160#163'#'#192#178#1#219#182#254#143'/'
- +#20#226#228'Y.KDP'#3'x'#149'R'#128#129#171#5'`'#233#192#184#136#183#187'\.ow'
- +#147#130'z%'#0#170#3#192#23'['#234#189#197#151#6'"'#202'd'#23'F"'#1#131#181
- +#10#172'%'#19#193'd'#208#130#201#172'I'#154#0#178#12#134#210'i '#194#7'OH?'
- +#158#219'd+'#133#165''''#252#31#232'-'#133'R_J'#198'A'#130']'#187#225'Kh'#218
- +#242#3'ks'#22#244#216#7'4'#135#143#134#148#26#172#197'P1u'#1#236#180#240#184
- +#180#9#206#215'o'#221#13'u'#191'~'#153#213#207#194'Z4'#30#14'<'#235'>'#188
- +#149#253'|'#17#166#1#160#249#27'@'#193'w'#185#209#4#240#5#161'}'#235#23#220
- +'c<'#1'('#229#241#224#164#188#214#127#226'M'#154#18'L'#234#255#214#190':'#3
- +#245'J'#0#227#198#141#211#6#131'Ak'#141#211'r'#182'/'#172'Nz;H'#208#245#214
- +'r'#176'P='#0#154#0'&'#147'6'#217#15' '#211'x'#253#158'c'#210'2'#201'v'#168
- +#160#228#163'Is'#15#129#185#251#159''''#245#165#164#21'm'#245#235#161'n'#195
- +'W'#208'^'#183#142#173#178#209'4'#142'B'#167#207#172#160'b'''#152#179#247#153
- +#144'W:y'#200#199#219#188#250'='#248#241#227'''3>'#168#149#186'/O'#158#127'8'
- +#204#217#231#172#140#158#167'W$'#184#17'a'#1#180#253']'#164#1'x}`'#223#254#13
- +#255#16''''#207'*E'#204';)'#175#157#6'%'#146#218#207'4'#0#154#24'L#'#195#245
- +'z'#189#167#191#4#192#10#129#208'VPVVVjc'#177#152'e'#187#211'|'#162'7'#172
- +#185'+'#249#4'j'#9'f*'#5'['#201'4\'#253#181','#23'@'#165'Qr'#149#128#221#229
- +'j'#164#145#23#254#243#236#149',3,W@'#17#130'='#127'w5'#148'T'#15#207#190#252
- +'q$'#211#205'?~'#0'5'#235'>'#135#142#182#154'n'#11#174'2'#129#252#178#169#176
- +#232#152#27#217'H'#173'!]?'#10#255#143#31'?'#1'['#127#250#152#13'2M+'#240'w^'
- +'>y'#15#216#253#176'+'#178#155#23#210#141#12'%d'#192'f'#3#4#252'!'#232'p'#5
- +#192#235'q'#131#163'ne'#138#3'P'#163#140'vT'#219#236'4'#187#190#129#132#159
- +'6'#165'RY'#135'2'#220'6h'#2#136'D"'#214#6#183#249'w'#238#144#238'!'#241#147
- +#180#166'b'#176#149#206'`y'#0'&'#139#142'M'#7'b'#29#129'2'#252#217#172#251
- +#250#31#240#243#127'_'#200#222#151#209'O'#20#148'O'#135'%'#199#222'<,B'#134
- +'^\'#217'7'#174#252#23#218#241#223#131#223#211'.Y'#145#13#249'T'#166#237'~$'
- +#139#178#12#29'qX'#243#201'3Hd'#255'e'#205'C'#134#2#133#146#146#202#166#163
- +#224'_'#206#18'}r'#1'T'#13#24#141#198'P'#245#15#129#219#229#7#175#219#1#206
- +#134#31'S'#8'@'#167#140#216#171#172#246#143#128#215#0#168'"'#16#247#140#0#240
- +#182#183#187#138#192'~'#17'@'#179#199#184#175'3hxZ'#252'$'#141#161#0#242#198
- +#237#12'F'#163#14#205#0#29'k'#14#154#169'^'#0'b'#208'D'#222'7'#239#203#205
- ,#194#16#25#170#138';-8'#22'v^'#156#190#198#144#233'BG{'#29#252#244#233#211
- +#208#142'*~$'#228#151#250'rR`-'#154#0#251#159'y'#127#218'j1(g`'#195'7'#175'C'
- +#253#198#175#193#215'A'#3#173#251'&8r`'#22'V'#238#12'Sw;'#2#138#170'fI'#253
- +#145#236#0'z'#7#17'j'#7#230#9#162#9#224#199#247#213#14#206#198#212#238#200'z'
- +'U'#184#165#210#226#248#12':}'#0#228#4#172#29#18#1#144#9#208#234#209#237#209
- +#230'7'#254'#'#229#3#211'Z!'#191'b'#14#24'P'#253#183#152#245#172''''#0'u'#4
- +#202'F3'#208#127#221'w'#18#251#146's'#21'Z'#163#13#22#163'z'#155'?n'#154#212
- +#151#2#174#214#26#248#238#223#247#129#179')w'#204#166#238'@'#159#217'!'#231
- +#254#13#212#250#244#14':!'#19#193#217#188#21':Z'#183#129#27'I'#208#227'jfu"F'
- +'['#25'X'#11'+Y'#178#151#165#184':'#183#11#193'X'#166#31#215#11#192#235#13
- +#176'('#128#199#209#12#238#150'u)O3'#170'C'#141#21#22#215#127#249'N@d'#2'l'
- +#29#148#9'@'#155#216#9#232#244#171'f6z'#172')'#241'7'#133'J'#7#5'U'#187#131
- +#193#160#1'3'#154#0':'#150#11' '#239#182#31'X'#186')'#225#203#127#222#153'u'
- +#15#240'`0e'#215#195'a'#222#129#210#12#177#8#251#221#240#217#203'7'#131#163
- +'i'#147#212#31'C'#191'A'#5'Y'#135#156#255'(k'#135'>'#154#209#157#190'B'#9'pa'
- +'>'#9#168#3'M'#0'w'#251'v'#240#218'S'#167'#Y'#180#193#154'2S'#7'y'#6#27#248
- +'$ F'#0#209'ht@N@BJ'#24'P'#169'R'#149'nh-'#250#2'_'#165'I>'#3#5#189'p'#194'"'
- +'$'#0#29'X'#172'z'#208#27'5'#172'5x'#159'y'#0'i`'#131#230'mk'#224#211#23#174
- +#207#202#151'1T'#152#11'*'#224#128#179#238#205#170'o`'#235#154#255#192#202'w'
- +#31#206#154'C/'#157#160'<'#130#163#174'x!mSv'#135#5#250#180'P'#184#28#128'`0'
- +#2#30'w'#0#220#168#1#184'Z6@'#160'#5)'#174#208#224']W'#160#247#253'D'#137'@d'
- +#2#240#142#192#186'A'#135#1#137#0#240#133#164#147#21'ov'#20#191#30'K'#200''''
- +'$'#159#129#4#144'W1'#15'L'#22#27'j'#0#6'V'#19#160#226'C'#129']'#223'O&'#140
- +#130'W'#238'8l@'#241'h)A'#177#240#189'N'#184'%+'#145#130'O'#158'_'#14'-5'#185
- +'99'#167#191#176#20#141#135'C'#207#127'T'#234#203#144#4'='#5#209'('#2#16#12
- +#132'Q'#248#253#168#5#4#192'Q'#207#149#2#139'Qnv'#174'D3`'#19'%'#255#8#26#128
- +#144#8#132#154#128'o'#192#4' '#164#2#227#193#138#183'8'#10#30#12#199#20#139
- +#196#151'E]'#129','#249'e`'#178#234#192'd'#212#129'ZC~'#128#236#204#5'x'#239
- +#209#11#192#217#178'-+'#231'J'#23#166#237'q$'#204';(}'#195'#S'#128'6'#226'{'
- +#127#191'h'#216'}&=a'#194#236'}a'#193#145#185'7'#1'X'#10'P'#18#16'E'#0'('#4
- +#200#17'@'#16#218#183'}'#3#177'h0'#229'y'#19#243#218'>U+'#226#164#254#215#163
- +#224'3'' j'#2#245#129'@'#192#142'f'#128'w'#208#181#0#248'wQ'#141#211'v'#173
- +'?'#162'Jq'#191#27#242#171#217#20#27#179'Y'#159#12#5#210'x'#176#158'k'#12#211
- +#247#161#172#253#244'yX'#251#249#138#236#127#27'C'#196'n'#135']'#12'Sv;<'#189
- +#7'E'#251#240#237#135#207'cN'#174#145#3#25#28'~'#201'c`)'#172#146#250'B'#178
- +#131'^'#204#0'j'#6#18#165'n'#192'>'#206#254#247'z'#252#208#182#245#139#148#16
- +#160'\'#150#136'N'#201'o'#249#8#5#159#194#30'uB'#30#0'nD'#8#246#129#214#2'$'
- +#203#129#241#128'fd'#143#194'F'#143#229#20'wH'#151'B'#201'ZS'#9#228#143#155#1
- +'&'#179#14#204'V=h'#132#178#224',('#1'>W'#11#188'q'#239#169#153'?Q'#154'AYeG'
- +']'#189#2't'#166#244#21#21#189#247#247'K'#192#222#176'q'#232#7#202'1'#152#242
- +#199#193#17#151'?#'#245'eH'#10'a&'#0#245#1#240'y'#3','#7#192#237'p'#160#9#240
- +'Cj'#18#144'"'#234#169#206#179#127#129#247#181#161#204#210'J'#192'f'#3#12#182
- +#28'8'#165#31#0#218#15#133#142#128'ai'#139#215#248#160#248'Ij'#141#5#10#198
- +#207#3'#O'#0','#18#160'R'#176#142'A'#137','#12#7'}'#233#214'Cr"-x'#160'`?'
- +#236'+'#158'K'#203#177'H'#19#250#9#183#145#138'='#143#184#10'&'#205#31#157
- +#163#208'9$ '#30#163#8#0#239#0't'#250#193#213#214#0#238#214#245')'#4#128#182
- +#127'K'#133#197#245#3#222'l%'#199#31#240#229#192#168#193#147#167'pp'#13'A'
- +#168'%'#152#223#239'7!'#131#20'D'#19#170#201'['#157#133'o'#136'_'#163'P*'#161
- +#176'z1K'#6#162'H'#128#206#168'ERP'#246'/'#23' '#13#252#240#206#131#231#177
- +#24#239'p'#196#188#131#207#131#25#139#143#27#210'1'#236#13#191#193'{'#127#187
- +'(g{'#229#165#3'r'#133#18#142#185#246#21#208#26#173'R_J'#250#209#143#175#141
- +'u'#2'B'#251#159#28#128#140#0'P'#3'p6o'#1#175'c[J'#6'g'#158#206#191#173#200
- +#224#166#196#128'VJ'#254#17'z'#2#146#6'0'#232#150'`BO@T'#31#10#240'GV'#190
- +#201'Q'#242'J}'#246'F)'#191#167'A'#129'j'#227#207#184
- +#251#179'A'#189'6'#28#244#195#138#27'G'#167'c'#172#176'r''8'#248#194#7'Xr'
- +#213#136'@'#143#250'?O'#0#188#253'O+'#191#199#229'C'#18'p'#130#189'v%'#211#12
- +#4'('#229#177#224#228#252#246#175#240#249#2#1#212#0#231#4#164#209'`-h'#198
- +#187#131#136#1'M'#6#18#15#7#141'F'#163'6'#180'%J'#28'~'#221#190'->'#243#29
- +#226''''#170#212'z('#172#222#19#140'&'#29#152'mD'#0'\B'#144#208'&<'#27'j'#192
- +#11#215#31#8#145'P'#250#26'Wd'#3#244#3'>'#253#174#143#7#245#218'_'#254#251'*'
- +#172'|{'#244#14'DUi'#13#176#223#153#127'd~'#148#145#138#4'_'#0'D'#241#255#160
- +'?'#4#30#180#255#189#184'9[j'#192#221#250'['#138#227#215#160#14#219'+'#204
- +#142#213'('#252#14#138#251#211'<'#0'>'#19#144'*'#1'['#7'3'#28#148' G'#155#129
- +'U'#4#250'|>'#139'F'#163')'#142#199'a'#194'F{'#225#243#137#132','#217#29#129
- +#170#168#24#1'X,'#204#15'`'#160#210'`'#230#7'P$'#29#129';'#156'-'#205'N'#235
- +'_'#191'z'#19#190#249#231'_%'#249#162#6#11's'#193'88'#230#250#193#141#147#254
- +#247#131#23'@k'#141#180#141'1s'#1'TA8m'#193#239'a'#206#1#167'g'#181'G_Z'#209
- +#131#134'L+<'#133#255#200#254#15#160#253'/'#16'@{'#221'Z'#8#186'[S'#8#160#208
- +#224#221'R'#160#247'Q'#185'g;'#17'@'#127#235#0#196#167#239#14';d'#3#226'V'
- +#185#197#158#255#167'PL1#'#249'$'#20'rK'#241'N`-'#174#0#147'U'#143#4'`'#0#173
- +'A'#13'*%'#154#1#138#204#205#10#236#138'Wn;'#10'|'#206#214#236#156','#13#152
- +'0go'#216#231#140#255#27#212'k'#159'_~'#0'D'#130#185'U'#211'/%'#168#15'C'#233
- +#164']'#160'z'#151'}'#161'j'#230#226'a'#31'2dFz'#156'S'#255'#A'#222#254#167
- +#30#0#184'o'#222#252#5#196'#'#225#20#2#24'o'#181#175#210#169#162'-x'#179#29#6
- +#144#5#200'>'#187#222'>W'#241't d'#146'B4'#5'*'#154#188#182#179#221'!'#237
- +#209#201'''Q'#131'PK)'#228'W'#206'dQ'#0#163#197#0':'#147#150#21#6#201#149#217
- +#233#15'@h'#217#250#19#252#251#129#225#227'%^t'#194'r'#152#186#231#224'R'#130
- +#159#185'b'#201#176')'#132#146#2#148';'#160'3'#231#225#162'4'#30'J'#170'g'
- +#195#196'y'#251#131#9'5'#174'a'#131#4'7'#9#184#211#254#199#213#159'e'#0#182
- +#131#189#230#7'6"L'#144'c'#133'<'#30#153#146#223#246'5'#10#186#7'e'#141'V@'
- +#178#251#5#2'h'#196#197#219#217'S'#18#16#161'W'#2#16'&'#4#163#253'o'#212#233
- +'t'#249#241'x'#188#188'#'#168']'#220#232#177#220#156'|'#18#10#184'R'#163#131
- +#226#137#11#153#31#192'h3'#128#158#18#130#180#252#184#176#12'N'#12#238#138
- +#183#239#251#3#180'n'#27#218'l'#192'l'#225#212'?'#127#0#154'A6'#191'x'#242
- +#210#133#144'v;j'#132#131'HAo)'#128#252#242')P>mw'#152#186#224#240#156'4'#27
- +#216#234#159#224#212#255'('#170#255'd'#255#147#240'3'#251#191'y+'#218#255#155
- +'Xn'#128#0#163':'#212'^aq'#145'='#216#129#178#216#140#143#17#1#176#8#0'.'#220
- +#212';'#189#199#193#160#132'>'#9'@'#28#10#196#251#202#240#160#213#155#28'%'
- +#143#196#19'2'#29'{'#18'k'#5'.'#135#194#9'{'#128#201'f'#227#205#0#174'.@AZ'#0
- +#171#14#236'>)'#168#219#147#14#225#195#11#184#29#240#210#141#135#231'|^@~'
- +#197'T8r'#217#179#131'z-E'#0#158#191'f_'#169#223#194#176#135'J'#171#135#165
- +#167#222#2'U'#179#150'd'#252'\'#253#253#221#211#243'h'#177#140#199'x'#245'?'
- +#20#129#128'7'#136#194#239#227#226#255#219#127#132#128#167'-%'#2'Pd'#240'l'
- +#201#211#249#182#163#28#186#144'8'#154#132'$ '#218#227#202#223'b0'#24'X'#8'p'
- +#221#186'u'#20'7'#140'ww'#222#30#175#137'"'#1#223'}'#247#157'*'#16#8#232#208
- +#20#176#161#9'P'#138'D0~'#155'3'#255#250'`T9C8'#4#249#1#172#165#211'Q'#229
- +#170#2#163'@'#0'z'#13#168#132'h@'#182'T'#0#196#202#127'='#12'k?z1k'#231#27'('
- +#232#179'8'#254#246'7'#192#152'W:'#168#215#7#189'Nx'#241#218#209#25#2#204#4
- +#138#170'g'#194#129#23#220';hm,'#221'`'#222#127'Z'#253#163'Q'#8#163#250'O'
- +#246#191#151'%'#0#249#161#5#237#255'h'#23#251#191#218#214#190'J'#173#136'R'
- +#248#207#129#127'6R'#8#144#239#7'H'#154'@k$'#18'q{<'#158'Pw!@B'#175#4'@'#155
- +#16#9#160#230#160#212#23#0#239#171'j'#246'ZNv'#5'uG'#8'O$'#2#208'['#202' '
- +#175'b&'#18#0#154#1'f'#3'W'#23'@'#141'B'#217#200'0'#25'd'#205#14'@'#188#255
- +#224'%'#208#176'ae'#214#206'7'#16'L'#156#191'?'#236'}'#214#29'C:'#198#147#23
- +#238'.'#245#219#24'Q '#243'`'#223's'#239#204#138'6'#208#27'HB'#168#244'7'#30
- +'E'#2#8#161#250#31#8#129#223#205#169#255'n{+'#180'o_'#197'Z'#131'u'#14#2#137
- +#133'&'#229#181'}'#143#194#239#195'?'#237'|'#8#144#217#255#168#181#215#247
- +#214#12'T|'#206'^?'#27#161'3'#144'^'#175'7'#1#31#9#240#132#212'{'#214'uX'#151
- +''''#15'"''?'#128#22#138'''.b'#171'?e'#4#234'L|8'#144#175#13'`'#166'B'#22'?'
- ,#204'Wo>'#10#220'm'#245'Y'#3'p;'#202#27#253#221#209'S'#17#144#128'~'#17#0#213#4'x<'#30
- +#180#2#244'Vr'#4'"'#17'T5{'#244'G8'#2#198'dA;'#9#184'Zg'#132#162#137'{2'#2' '
- +#13'@'#199#178#2'5'#172'6@'#208#2#178#146#27',B'#243#230'5'#240#254'}'#23'B4'
- +#18#202#234'y'#197#216#237#168'K`'#246'Ag'#164#237'x/\'#181#31#174#6'C'#155
- +'~3'#134#238'A'#157#154'N'#185#247#163#172#159#151#171#252#227#212#255'p0'#12
- +'Ao'#144#9'?'#173#254'T'#244#229'j'#222#200#156#131#130#253#175'VD'#253#19
- +#243#236'?'#226#223#148#17#230'@'#18'`'#14'@'#222#254#167#134' }:'#0#9#253
- +#145'F9'#146#128#18'I'#128#210#127#205'h'#10#20'#'#9'T'#198#19#138')'#155#157
- +#133#183''''#18'2V'#149'A'#194'M'#13'B'#10'*'#231#161#25'P'#8#6#19#18#0#211#2
- +#136#0'T'#160#16'*'#4'3gK'#198#223#195'h'#197#180'%G'#193#226#211'o'#202#206
- +#201#184#170#31#142#0#248#216#127#208#23'd'#130#207#212#127#167#19#9#224';'
- +#212#12'"b'#251'?1)'#191'}'#21#170#255#228#8'"'#251#159#26#129#214'R'#248#15
- +#23'h'#234#1#208#136#194#239#232#203#254''''#244'G'#10#153'#'#16#15#166'"?'#0
- +#10'p>'#158#168#140#252#0#206#128'vi'#179#215#194#21'h'#147'#PFf'#128#14#205
- +#128#5#140#0'H'#3#224#162#1#252#244'`j'#24'*'#151'u'#27#17#200#240'P'#225'$'
- +#26#127']'#9#31'>|%D'#130#190'L|'#157'L'#203#153#186#232#8'Xr'#234#13'd'#23
- +'e'#228#28'O'#253'a7'#246#131#24'Cf`*('#131#19#239'zw'#200#199#233#235'7-<'
- +#206#21#254#196#208'LE'#2' '#231#31#18'@'#160#131'['#253#157'M'#155#192'M'
- +#222#255'h4'#169#254#235'U'#225#142'J'#139'c'#29#202'Q'#0#239's'#1#215#4#164
- +'V'#176#255'qk'#17#154#128#160#240'G'#249'S'#13#158#0#186#250#1#144'eJ'#240
- +'~'#234#215'\'#189#201'Q'#180'<'#22#151'S'#136#144#17#0'e'#255#217#202'g'#130
- +#185#176#140'#'#1'3o'#6'h'#133#204#192#206'nA;'#148'Bw'#185#154'L'#182#186
- +#219#248#191'7'#224#199'w'#159#2'O['#250'Zj'#149'M'#155#15#251'^xOF'#139'Q'
- +#234#214'~'#9#31#220'?z:'#1'I'#1'J_?'#231#137#31#134'D'#224#221')'#184']'#127
- +#207','#251'/'#193'y'#254#185#213'?'#138#230'j'#136'y'#255'I'#253#15'P'#243
- +#143'-'#223'@'#200#239'I'#137#255#151#24#221'[l'#186#0#165#249#250#241'>'#150
- +#0'$'#148#0#227#177#234'PKo'#235#143#253'/\C'#127#192#252#0#168#5'h'#220'n'
- +#183#5#217#165#8'OXIf@'#131#219'r'#130';'#164#221#141#29#140#198#131'+'#20
- +#172'8('#175'j&o'#6#232#144#0't'#160#210#169#147'Z'#128#16#17#200#5'8'#27#182
- +#194#183'/'#255#5#26'~]'#201#134'F'#14#4'T'#133'f-'#29#15#19#230#239#15';'
- +#239#127'2h'#12#153#207'&{'#239#238'?@'#195#250'o'#165#250#184'F'#13#246#189
- +#240'n'#168#222#245#128#140#158'#!'#168#255#148#249#23#137'B4'#200#169#255'd'
- +#255#7#220'T'#252#211#10#142#237#171'!'#134#143#197#249#231#202'e'#137#216
- +#228#252#182#213'2'#136#7#248#248'?9'#131'X'#252#31#229#170#6'o7'#160#156#182
- +'['#173'V__'#246'?'#161#223#4#128'f'#128'\'#156#15#128#251'rd'#155#9#193#152
- +'v'#238'v'#151#237'\v02'#3'P'#184#149#26'5'#20#146#25'`6'#161#9#192#145#128
- +'Z'#199#229#4#144'/@&'#242#5#236#176#234#15#225'"'#135#2'R'#177#234'~'#254#10
- +#26#214'}'#11'm'#219#214'1'#205#128'&'#203#138#175#130'VvKq'#5's'#16#149'M'
- +#159#15'e;e?#'#239#233'sw'#131'hX'#186#136#198'hA'#213'.K'#225#192#203#31#24
- +#212'k'#251'j'#132#155'L'#250#137'sC?c'#164#254#211#234#31#8'A'#136#188#255
- ,'l'#245'G'#245#191'a=x'#237#245')'#225'?'#179'&'#216'^fr'#209#196'W'#26#11
- +#228#22'*'#0#137#0#132#30#128#129'@'#192#137#230'z'#159#246#127'w'#215#214
- +#227#243#132'|'#0#178#1#168'0('#26#141#150'Q8'#16#31#155#176#197#145#127'a8'
- +#166','#226#252#0'\4'#192'R6'#13#204'EU,$H~'#0#202#9' -@'#201#198#135')'#144
- +#4#184#196#160#28'Q'#4#134#5'>z'#248'*'#216#246'}'#246'CT'#163#17#182#242'Ip'
- +#236#31#223#200#216#241')'#233''''#17#3'V'#214'M+'#249'C'#250#15#156#224#226#254'@'#158#255'8'#231#249#143#6#195','#243
- +#143#169#255#168#250#19#9#216'kV'#163#25'`gY'#172#130#250'o'#211#249#27'K'
- +#140#30'R'#247#131'|'#250'/'#27#3'F'#241#127'R'#255#169#1#8#154#19#142#190
- +#242#255#197#24#136#228'%'#195#129'V'#171#213#24#12#6#169'Sp'#25#17#0#238#171
- +'j'#156'yg'#4#162#170'*'#193#12#160#162#10#163#173#4'l'#21#179#144#0#180'<'#9
- +'hy_'#128#154'9'#3#169'T'#24'dBX'#176#135#14#194#144'$'#205'~^e'#250#191'3)A'
- +'~'#136#215#151#31#1#174#198#209#212#2'\zP'#133#224'9'#207#241'c'#214#135#26
- +#141#226#139#253#19#252#129#216#234#207'l'#127#170#250#139#176#208#31'9'#255
- +'H'#240#131'H'#0'>G'#27'8jWC$'#28'I'#241#254'O'#176#182#175#213#170'b'#30'R'
- +#255#241'O'#23'5'#0#1#222#254''''#239'?'#223#16#164#163#183#6' '#221']Z'#191
- +#223#134#16#14#164#254#0#248#183#21'U'#13#150#21'H='#2':'#130#186#5#141#30'3'
- +'+'#17'f'#177'~'#185#2'Tj5'#20'T'#239#10'z'#139#141'E'#2#136#0'4d'#10#176'f!'
- +'*'#166#5'0_'#128#140#159'(<'#194#132'w'#168#160#130#159#215#151#253#14#127
- +#16'cI?'#217#134'B'#165#129#179#158']'#157#222#131#242#131'>'#133#142'?'#204
- +#246'G'#2#8'3'#225#231#9#0#247#142#186#159#192#239'la'#142'iA'#253#215#169'"'
- +#238#241'V'#199#175#188#250'O'#9'@'#164#254#179#240#31'%'#255#144#250'O'#225
- +'?\'#160'='#253#9#255#9#24#16#1#208'&'#152#1#8#19#153#1#148#21'H'#4#128#143
- +'Umu'#22#156#25#142')'#11#133'.A'#20#247'7'#228#149#129'm'#220#206'I-@C$@CDY'
- +#179#16'!/'#128'F'#137'e?E8'#151'AQ'#136'7'#174';r'#172#234'O"'#168'tF8'#227
- +#201#244#246#148#16#135#253'('#238'O'#158#255'H'#16'U'#127'"'#0#15'n>'#170
- +#254#179#163#250#191#10#205#189'0'#243#15#8#234#127#185#217#185#193#168#14
- +#145#211#143#169#255#192#13#1#173#23#17'@'#147#160#254#163'lF'#250#10#255#9
- +#24#168#196'13'#160#176#176'PE#'#195#168':'#144#6#134#224#133'T'#145')'#224
- +#10#234#23'4{'#205#7#2#175#210'S'#21' '#211#2#198#239#14':'#139#5'4F'#29's'
- +#10#170#13'|'#207'@'#181#138'=G!'#231'g'#9#202#248'K'#234'O'#154#224'`'#223
- +#193'0@'#235#166#159#224#223#183#159'6,'''#31#143#20'h'#205'yp'#234'c_u'#255
- +'`_b'#213#205#239#151#21#251#240#163#190'H'#176#227#201#213#191#211#249'G'
- +#171#191#179#254'g\'#253#155'8'#231#31#175#254'k'#149#17#239'x'#171'}='#10'{'
- +#132#138#127#200#251'O'#237#191#240#200#181'|'#2#16#169#255#164'&v'#168'T'
- +#170'`w3'#0#251'{'#169'}>_0'#3'('#26#128#127'['#168'K'#16#158#188#130#8#0#168
- +'m'#184#179#240#244'HLa'#21'j'#3#148#168#234#27#243#202#193':n:'#168'Q'#11
- +#160#193'!D'#4'j'#22#18'$'#18'P'#240'aA9?V|'#16'W5'#130#176#229#235#247#224
- +#243'G'#174'a'#182#223#24#164#3#133#1#143#190#251#157#244#28#140#15#252'S.'
- +#127'"'#202#175#254'h'#223'G'#130'a^'#253#15#176#172#191'@'#135#19'W'#255#239
- +#185#213'?'#130'$'#193'1'#7#140'3w'#252'f'#214#4')'#244#23'F'#185#242#240#201
- +'?'#228#253#167#240'_'#13#202'"'#205#4'l'#31#136#247'_'#192'`D-'#165'8'#8#184
- +#193#161#204#25'H'#154#128'#`X'#208#234'3-'#21'F'#131#145'3P'#169#209'@'#225
- +#132#221'@k'#178'0'#19#128#242#2'Th'#6#8'Z'#0#171#20'Lv'#16#150'%'#157'&'#253
- +'m$:R'#176#254'?+'#224#235'g'#239#200'l'#14#244#24#250#133#233#251#159#8#11
- +#207#186'eP'#175'M'#249#221#242'!?'#230#253#143'q'#5'?'#156#237#31#134#8#31
- +#250#163#212'_'#218';'#27#214#129#223#209#8#209'H$'#25#251#215'('#162#254#9
- +#182'v'#234#250'K1}'#10#3'Q'#247#223#22'~'#213#175#193#191'k)'#249#167#175
- +#246#223#189']'#235#128#223#159#208'-'#24'm'#13'='#178#143#141#204#0#188#191
- +#146'i'#1'2Y'#229#22'{'#193'I'#145#184#194#196'r'#2#228#10'P'#170#149'`'#200
- +#175#2'k'#233'T\'#253#181'H'#2#168#5#232#185#196' V)H'#179#4'),'#168#232#140
- +#10#176#19#245#148'" zk'#178#228'?'#195#27#171'^{'#8'V'#191#254#176#212#151
- +'1'#6#30#135#223#186#2'J'#166#207#239#246#177#148#223'_/'#191#189#4#223#232
- ,'#E'#245#167#213'?'#24'a5'#255#17'?'#231#252#11#177#216#127#7#180'o['#9'Q$'#6
- +'z'#14#181#6#163#215#149#153':'#182'X'#180'A'#154#248#19#225'{'#255#145'&@+>'
- +#9'>'#133#255#234'q'#223#170#211#233#220'='#13#0#237#13#131'"'#0'J'#10'B'#150
- +'a'#205'B'#3#129#128#153'J'#132'c'#177'X'#5'e'#6'rZ'#128#17#181#0#227#158#130
- +'3'#144'T|'#138#255#231'O'#216#3'W'#127#19'G'#2#212'4T'#207#151#10#147'CP'
- +#221#233#16#148#241#166#128'l'#7#233#30#204#202#152#251#236#240#213#147#183
- +#192#175#31#189','#245'e'#140#129#7#253#6#207'~'#249#215#129#190'Jt;'#145#12
- +']'''#189#254'd'#207'Gx'#199#31#173#254#254'P'#210#251'O{W'#227#175#224'u'
- +#212#177'~'#0#148#31'@i'#194'jE4Pmk'#251#5#229'!'#138#199#160#252'o'#15'nT'
- +#250'['#207''''#255'lG'#217'#2p'#244#167#246#191#175#171#30#208#187'%g'#160
- +#201'dR'#163#218'a'#196#191'Yj0'#229#3#224#237'*|'#175#228#11'8>'#154'P'#232
- +#153'3'#16'Ww'#188'P0'#20#146#22'0'#133'9'#1'Y8'#144'6=_)H)'#194'h'#6'P'#18
- +#145'L('#22#202#206'lQIa'#175#217#0'o.'#251#157#212#151'1'#6#17'J'#166#205
- +#135#195'n'#127'iH'#199#232'n'#245#143#161#240#179#184#127'0'#196'9'#255'|A'
- +#206#1#232'qC{'#205'w'#168#25#132'x'#207'?'#183#250#151#24#221#219#172'Z'#127
- +#155#200#249#151','#253'%'#225'GY'#169'C'#185'k'#182'Z'#173'.'#148#195#192'@'
- +#156#127#2#6'M'#0#130'3'#16#153'G'#231'r'#185#200#233'W'#140#23'T'#1'\'#153
- +'pe'#155#207#184#208#30'0'#206'Kj'#1'H'#2'*'#141#22#242'(='#216'bE'#2#208'$'
- +#137#128#180#3#133'P($T'#11#138#251#6#140'`'#22'x'#251#250'c'#161'u'#211#26
- +#169'/c'#12'"'#28'q'#215#155'PP'#189#243#160'_'#207#249#252'D'#141'>H'#168'#'
- +#188#227'/'#192#173#254'L'#248'}AF'#4#174'z'#180#253#157'h'#251'S'#211#15'z.'
- +#190'T%'#139#134'&'#230#183#255','#227'l'#255#16#18#0#139#253#163'l4'#144#240
- +#227'mr'#0#178#206'?]b'#255#253'V'#255#9#131'&'#0#232#146#19#128#23'H'#163
- +#195'h'#0'[%nU1'#210#2#28#133#199#198'P'#180#217#160'p'#210#2'P'#192'u'#150
- +'"'#176'U'#204'fu'#1'I'#2'`'#14'A$'#1'V.'#204#153#2#192'L'#7#254#242'Fh'#170
- +#176#223#217#10'/'#159#183'p'#204#233#151'C0'#20#148#194#9#127#255'b'#208#175
- +#151#241#169#190#204#8#136'w'#198#252#185#130#31'A'#245#199#205#31'`'#197'?'
- +#1#23'e'#253#173#225'<'#255#209#206#213#191#216#232#169#177'i}'#173#252#234
- +'O'#153#127#212#5#150'B}'#245'T'#246'KN@Z'#253#145#0#156'~D'#127'S'#127'w'
- +#184#222'!|V'#201#10'A'#179#217#172'#g '#222#199'B'#130#184#175#162'=j'#1#11
- +#218#253#134#185#204#169'Ge'#194'D'#2'j'#13'X'#199#205#0'}~)S'#255#213#6#29
- +#211#6'Tz'#13#31#22#228'{'#6'$'#253#1#248#142'd'#217'm)'#158'-|'#244#231's'
- +#161#246#135'O'#165#190#140'1'#136'p'#240#205#207'C'#217#172#133#131'|5'#159
- +#236#203#219#253'B'#177'O'#156#217#254#188#234'O'#4#224#193#149'?'#192#217
- +#254#142#237'?@'#200#211#193'&'#1'1'#2#192#255'T'#242'hp'#162#205#142#182#127
- +'"'#202#135#254#216#234'/'#196#254#129#235#250'['#143'2'#215'N'#206'?'#170
- +#252#235#173#243'oo'#24#18#1#144'3p'#221#186'u'#172'QH '#16'0'#161#6'P'#128
- +#23'Im'#195#153#22#128'W2n'#155#179#224#247#225#184#202'"h'#1#148#2#172#209
- +#27#208#20#216#13#212#148#19' '#242#5'(u'#184'Qr'#16#159#27' h'#2'2'#161#157
- +'xOq'#193#158#222'E'#142'/'#172#207#158#176#19#174#12'c'#181#253#185#130#202
- +#249#251#192#254#215'='#193#253'1'#136#223#148'X'#248'i'#229#135'8'#151#238
- +'K'#142'='#177#227'/B'#234'?'#222#246#180#214#128#167'e'#243#14#171#127#185
- +#197#181#209#168#10'R'#184#143#250#190#177#208#31'n'#173'(_'#245'|'#209#15'%'
- +#0'5S'#230#31'j'#224#254#193'8'#255#4#12'uYMf'#6':'#28#14#189'R'#169#180#225
- +'E'#22#227'F'#137'AL'#11#240#133'5'#211#235#220#182'}'#4'-@'#193#180#0'5'#24
- +#11''''#128#185'x"'#175#5'p$'#192#180#0#161'u'#24#223'>'#172#147#4#248#203#29
- +'A'#138#192'sD'#0'c'#21'~9'#1#26#22'z'#242#243#171'Q'#251'T'#15#238#0#188#25
- +#215#185#242#243#170#127#152's'#252#145#131#143#179#253#3#16#246'"'#17'x=,'
- +#233''''#18#12'B'#140#250#253'E'#185#196#31#20'|G'#133#197#181#5#15#21#19'V'
- +#127#161#237#23#169#253#192#245#252'k'#224#203'~'#221'}'#245#253#239#11'C&'#0
- +'A'#11#160#182#225#168#9#144'/'#160#0#137#128#249#2#144#8'H'#19'(k'#240#216
- +#246#246#132#181#149'r'#150#29#168'`5'#0#10#10#11'V'#206#3#141#201#10#26'#g'
- +#10#168#146#17#1'5'#243#7#176'b!'#218#152'#'#145'+'#27#30'I'#166#192#138#211
- +'v'#129#144#215'%'#245'e'#140'zP'#225#218#161'w'#188#10'E'#211#230#13#234#245
- +#9#174#212#143#247#250#199#217'l'#191#4#223#230'+'#30#140'$W'#127#138#251'3'
- +#199#31#222'v5'#252#2'AWK'#202#234'/C'#218#168'F'#213'_)'#143#134'zZ'#253#5
- +#207'?n'#142#254#182#253#234#245#189#167#227#243#19#215#7'h4'#26#214'4'#148
- +'O'#15#166#188#128#242'h\^'#177#213'Yxp'#2#215'uA'#11'P'#168#212#160#181#20
- +#176'ra'#181#174'S'#3'P'#11'Z'#0#229#6#8'Q'#1#190#155'0'#136#202#134'G'#130
- +'_'#240#213's'#22#130#175#189'Q'#234#203#24#213#160#197'e'#191#27#158#132#10
- +'T'#255#7#140#132'x'#166#31#231#244'#Afv?'#173#252#225#8'K'#250#137#6'B'#172
- +#221'W'#132#247#250'S'#165#159#139#154'}'#160#240#211' '#16'a'#245'/'#212'{'
- +#234#10#244'>'#10#243'u]'#253'i'#236'7'#181#253#222#142#130#223'@U'#127'H'#8
- +#238#129#230#253'w'#251#254#211#241#25'v'#213#2#240#194#10#132#136#128#160#5
- ,'8'#2#198'9'#173'~'#211'l'#210#2'@'#161'`'#14'A'#5#154#2#150#178#157'@'#159
- +'W'#202#146#130#152#240#147#22#160#227'H'#128#181#15'S'#241#237#196'EY'#130
- +'2y'#186'.]Z'#252#235#210#3#193'Y'#187'Q'#234#203#24#189#192#223#210#146#203
- +#255#10#19#247#26#194#236#6#22#231#7#214#224#143#229#250#243'N'#191'X'#132#19
- +#254#8#175#250'G|'#156#6#16#246#243#142'?'#159#155#21#4#9'q'#127#149'<'#26
- +#168#206'k_'#143#199#139#241#171'?y'#254'Y'#213#31#173#254#184#175'U('#20#181
- +#180#250'k'#181'Z'#7#146#192#144'W'#127#246#17#164#235#163#236'N'#11' _'#0'p'
- +#17#1#26'$R'#180#213#153#191#127'8'#166#178#10#217#129'$'#220'j'#189#145#229
- +#6#168#13'z.)'#136'O'#17'V'#178#220#0#222#20'`'#141'D'#249#14'Bra'#196#24'$'
- +#213#128#225'J'#5#31#222'r24'#174#249'R'#234#203#24#149' '#13't'#191#27#159
- +#134#178'9'#139#7#252'Za'#213#231#179'}x'#187#159#19'~Z'#209'i'#245#143#133
- +'"'#201#176#31#229#252'GI'#248'q'#239'i'#217#10#222#214'm'#140' '#152#237'O9'
- +#255#248'_'#165#217#177#193#160#14'S'#166#31#9'4y'#134#133#145#223'Md'#251
- +#147#240#163'L'#213#167's'#245''''#164#141#0#186#243#5#0'7H'#180#146#15#13
- +#150#249'#'#234#9#181#238#252'%l'#29'Wt'#154#2#134#252'r0'#151'N'#229'j'#3
- +#152#6' r'#8'R'#247' '#149#146'+'#24#18#154#137#178','#193#225#239#24'l\'#243
- +#5#252#231#230#147#165#190#140'Q'#7'CA'#25#28'~'#223#187'h'#130#230#15#252
- +#197#157#195'y:'#139'|'#226#156#205'O'#182'?'#173#234'L'#245#167#132#31'a'
- +#245#199'-'#26#8#254#127'{_'#22'kYv'#158#181#246'x'#230's'#238'XsWwW'#187#219
- +'v'#187#227')'#241#0'v'#136#193#145#8#194'F'#8#5#148#4')'#145#176'P'#132#132
- +#20#241#18'!9'#188#0'/H'#188'!'#224#1'x'#2#9#17#144#128'XHH$`x'#128#7#144#172
- +'$'#216#198#221#158#186'k'#174'[w:'#243#176#7#254#239'_'#255'Z{'#237'}'#207
- +#173#186#213']w'#170#190'K'#218'w'#15#247#12#251#236#189#191#239#159#255#165
- +#166#253'='#181#243#222'wT2'#155#209'k'#23'\'#25#8#159'A;'#158'n'#223#232#238
- +#161#229#19#192#159#152#184'?:'#254#162#230'_'#233'Y'#127'n/'#145#254#0#255#7
- +'*'#27'}'#158#208')E'#4#136#173'V'#137#165'.'#139#22#128#174'A'#215'Q:|o'#208
- +#251'b'#127#214'x'#153'+'#255'B"'#129' d'#144#247#174#146')'#176'zUH@'#8#160
- +#225#248#3#184'V@'#155#2'l'#14#248#158'T'#15#150#127'I'#158#23'?'#201#243#206
- +'x'#28#144#198#191#254#181'O'#169#217#197'D'#159'''3'#232'ay'#245#203'_S'#191
- +#240#219#255#248'H/_'#250','#229#198#225'/'#137'>'#22#252#186#208''''#227'2_'
- +'m'#247'c'#129#218#191#24'C'#19#152'p'#155#175#249#184#207#182#191'Q'#253'=z'
- +#247'k'#171'['#127#28'x)'#138'}JY'#127#180#127'_<'#255'h'#251'u'#239'yK'#127
- +#254']'#207#243#242'.'#203#11#160#31'q'#21'~'#0#163#5'dyp'#229'G{'#27#191#152
- +#229'~'#13#0#246'E'#11#136#234#13#181#242#210'gT'#173#211#213'&'#128#144#0
- +#182#131'Z'#173'0'#5#196#31'P'#174#28'<'#191'Z'#192'w'#254#229'?P'#127#244
- +#187#23'U'#128#199'=z/}D'#253#153'o'#254#11#213#189'~'#235#253#127#8'W'#248
- +#228',ssW'#242'['#187#159'l'#250#217'\K'#127'V'#253#167'"'#253#231'j'#255#222
- +#247#213'd'#239'>{'#253'a&(N'#249'e'#199#223'{'#235#205#17'z'#251'C'#250#163
- +#3#12#247#251#163#5'Y'#128','#253#197#7#240'p>'#159#239':'#158#255#15','#253
- +'1'#158'7ll'#227'Pd'#7#146#22#128'9'#178'.!'#18' Q'#1#172'/'#239'Oko'#220#31
- +#174'~'#206#19#135#160'1'#5#226#246#138'Z}'#233#211'l'#2'@'#250'G-q'#8'J'#243
- +#16'?'#150'Ta3'#211#176';'#229#184#167'='#186#207#214'A'#244#244'G'#150#204
- +#213#191#250'K'#175'?'#243#172'D'#23#227'h'#163#181'y]'#253#220'_'#251#166'z'
- +#229#231#223'g'#193#149#17#252'z'#30#175#178#211#15#246#187#145#252'H'#248
- +#129#228'g'#2#152#217#176#31'r'#255'G'#219'w'#200#246#127#135'$'#255#140'I"O'
- +'u'#185'o=\'#244'_'#233'm'#191#157#231#252#137'\'#239'o'#26'~@'#250#211#254
- +'m4'#251#132#244#199#12#192#181'Z'#13'>'#130#217'Q'#27'~'#30'e'#251#6'x'
- +#138'/'#237#248#203'otw'#223'i'#199'3'#132#249#172#227#143#176#129#164#159'-'
- +'H|'#241#252#179#227#143'0'#180'3'#164#177#183#183'7{'#214#134#31'O'#27#199
- ,'B'#0'J*'#5#209'6'#140#206#187#213'h4`'#10'\VZ'#250#223#148#245#165'E'#26'\!'
- +#18#248'R'#166#194#136'I'#128#147'~"'#235#15#136#219#29#173#1#136'C'#16#25
- +#130'a='#226#181'o'#138#134'l'#142#128#152#3'b'#18#148#148#128'e'#191#242#164
- +#177#246#148'+'#253'?'#255#225'o'#169#31#253#193#191'='#225#147'z1'#6#188#249
- +#31#251#139#127']'#253#204'_'#254#155#207'>'#163#239#147#158#13#145#250#182
- +#194#207#218#252#162#250'/t'#184#143#19'z&s'#209#0'D'#253#167#237'>'#236#254
- +#253#251#252#154''#174
- +#230#163#254'i'#159#202#185#25'+/'#127'T}'#246#27#127'G]'#255#220'W'#223#215
- +#251#151#206'>g5'#254#188'P'#251#179'\l~'#29#235#207#165#188'W'#199#251#181
- +#218#159#10#248#19'&'#130#153#26'o'#223'S'#253#135'?`'#211' [,'#172#215#191
- +#17#206#251'/'#147#221'/'#223#4#213#31'&'#192#152#22#132#130#224#12#180#170
- +'?-'#152#231#15#14#193#145#211#236#243#185'I'#127#251#155#143'iX'#135' &'#20
- +'%'#192'cZ'#241'Mt'#14#130'/'#0#166#0#189#230#10'-k'#15'G'#189#183'v'''#205
- +#151#141'w_;'#250'b'#213'\'#135'?'#224'u'#21#213'$1'#168#17'["'#240'M[q'#19
- +#30#180'='#5'i'#9#138#217#134'r'#201#21'8'#15'n'#129'{'#255#231#191#169#255
- +#250';'#191'z'#218#167'q'#166'Gs'#253#138'z'#233#203'_S?'#243'+'#191#165#234
- +#171#155#207#245#179'M#'#15'//'#8#0#21'}'#153#16#0#219#253#146#230#11#149#30
- +'E> '#0#150#254#0#255'Tk'#1#179#193#158#218#187#253#135#244#191#194#238'W'
- +#176#251#189'd'#241#234#202#246#247'B'#178#255#149#168#254#180'L'#137#4'0'
- +#203'/:'#253#222#147'f'#159'w$'#1'h'#219'8'#254#158'W'#216#175':'#142#149#0
- +#224#16#252#214#183#190#197'MC'#136#201'Z'#244#195'`'#152']'#22'-'#0'$pM!J'
- +#160#188#149'w'#247#214#190'0Kk=eH'#0#210#157'H'#160's'#249'5'#186#233'/IRP'
- +#205'j'#1#8#13#194#28#240'b'#157'#'#160#195#131#18'"4'#25#131#158''''#10#192
- +#249#9#19#254#254#223#254'e'#245#240'";'#176'4'#26'kW'#212#205#159#255#154'z'
- +#235#24'@_'#26#206#196#157'6'#209'G&'#241#204#165#161'g.'#177'~V'#253#167#218
- +#238'O'#5#252')'#183#249#30#178#211'o1'#30'j'#233#159'&'#186'4'#152#237#254
- +#189'w'#218#209#180'oT'#127'z>9'#230'Ok4'#250#228'f'#31' '#0#244#249#203#178
- +#12#190#128#253#227'p'#252#185#227#184'aa'#29#130#244#163'j'#164#1'tMn'#0'H@'
- +#136#0#29#133#215#147'<'#218#248#233#222#250#23'3'#130#189'q'#10#194#31#0'{'
- +#191's'#245#227#170#209#187','#192#143#181'?'#192'5'#7'b]>\'#20#14'A'#11#208
- +'D'#144#151#10#136#156#159#251#164'_~'#18#254#129'C'#190#31's'#1#254#222#175
- +#127'A'#141#30#221'9'#129#147'8'#187#163#177'vYK'#250'_'#251'['#31#12#244'O{'
- +#194#141#202#159#231#142#237'o'#192#159#217#226#158'\'#178#252'8'#140'7[X'
- +#192'C'#242#167'Sc'#255#143#9#252#127#164'f'#163'}Q'#253#19#235'7Xo'#142#238
- +'m6'#251#144#240#244'Hz'#166#216'g'#12#144'#'#227'O'#21#210#255'.'#225#4#181
- +#254#187#180' '#230'?'#251#250#215#191#158'>O'#199#223#179'\'#158#231#241#249
- +#236#16#188'v'#237'ZD?'#166'I?'#142'M'#1':~]'#242#2#224#16#132'V'#176#218#159
- +'7n'#222#31#174'|'#138#253#1#220#16'$'#212#243#6#196#177#234'^{K'#213'z'#235
- +'L'#0'69'#168')'#249#1'5m'#10#232'D'#161'P'#207'1`'#252#2#158'8'#6#13#1'x:'
- +#195#235','#155#4#217'|'#170#254#227'o|^M'#182#31#156#246#169#156#232#208#160
- +#255#243#234#19#4'zl'#31#247'0A'#23#207#216#251#210#196#147#255'!'#192'5Y~'
- +#185#128#31#146'?'#19#181#127'!$'#144'Ng'#236#245#239#223#253#174#154#13'w4'
- +#248#209#223#15#170#127#134'x?'#236#254#157#183#229#27'!'#253#145#245'7'#161
- +#239#178'1'#127'I'#246'A'#143'?T'#254'm#'#227#143#204#229#217'q8'#254#220'q'
- +#18'0`-'#128#214#193#189'{'#247'0'#181'x'#11#141'C'#148#6#189'!'#1#248#5'6i{'
- +'e{'#210'}'#227#241#164#253#154'.'#24#242#25#208' '#129#176#214'P'#221#171'o'
- +'q'#255#128'@'#204#129#192#248#3#140'S'#208'!'#1#27#29'p'#27#140'B#p'#253#1
- +'v6'#226#167'\'#134#147'L)'#150's'#193#148#224#223#250#245#159'S'#211#189#173
- +#147#251#238#19#30'A\S'#221#151'^W'#215#190#240#139#234#245#191#240#13#213'X'
- +#127'N'#160'?'#202#253't<'#253'&'#191'7wm'#254#212'H'#254#2#252#25#131'_'''
- +#251'X'#181#31#14#192#217'L'#245#31'|_M'#247#183#216''#239#186#170#127#179#217#156#16
- +'^'#22#199#225#248'+]'#138#227#248#208'e'#223'cL'#1#218#174#199'q'#220'Y,'#22
- +'k'#196'vp'#2#26#18#192#246#6#189#180#247'`'#216'{s'#127#214#188'a'#253#1'a'
- +#164'g'#24#170#183'T'#239#198'[*nuu'#211#16'h'#2#13#153'h'#148#246#217#31'P3'
- +#230'@A'#2'z'#242'Q_'#151#17'{^'#209'r'#253'e'#245#234'/'#253'U'#181#249#214#23#143#241#203#158#208
- +#198'/'#175#188#206'H{'''#179'O'#247#242'3'#224#207'X'#234'g'#21#201#207#241
- +'~'#2'}'#6'{_'#136#0#165#189#147#157#247#24#252#186#181#151#158#212#211#207
- +#210#228#229#149#237#31#212#130#197#196#181#251#149#14#249#193#238#223#18#213
- +#31's'#252'q'#200#143#182'w'#8#15#195#231'Y'#236's'#132#203'vb'#195#166#9'_'
- +#191'~'#29#154'@'#11#181#2#240#7#208#15#191'*aA'#204'1'#8'=p5'#247#252#206
- +#157#254#234#167#198'I}'#213#23#167#160#23#232','#192#184#217'c'#18#8#26'uM'
- +#0'l'#18'D'#146')'#136#16#161'4'#18'A'#152#208#180#21#243#29#18'0'#221#133'<'
- +'!'#0#229#2#255'9D'#12#142'a6'#227#225#253#159#168#255#254#219#191#172#134
- +#247'~z'#130#183#236#217#6#8#186#190#178#169#214'>'#254#179#234#213'?'#251'+'
- +#234#218#159#248#165#163#191#249#176'k'#246'<'#158'PG'#218'kG'#191#201#231
- +#207'm#'#143#194#230'/'#210'{y'#153#27#169#191#208#192#135#148#135#250'O'#132
- +'0'#217#190#163'F[?"'#146#152'Ks'#15']'#223#143'?7'#187'{o7'#194#217#208#177
- +#251#231#244'l'#163#197#23#18'='#182'%'#215#159#193'O8'#128#25#176#141#132
- +#159#157#157#157#169'x'#253#13#248'_'#24#2#224#239's'#19#132#8#248#173'$I'
- +#216#31'@'#11'B'#130#208#4#216#31'@'#235#149'\'#249#157'w'#247#214'?='#205
- +#162#14#146#132#152#4#184'7'#0#145'@gMu'#174#189'%'#229#194#162#1#152#252#0
- +'h'#1#146'-X8'#6#203#154'@a'#18#248#197#228'#N1'#209'Y'#237'='#248#255#254
- +#205'?R?'#248'w'#255'DMw'#30#158#234'y'#4#245#166'jn\S+'#175'}'#130'$'#252
- +#159'R7'#190#244#231'T}'#253#202'i_'#158#202#200#203#210'_Rz='#227#236#147'r'
- +'^'#6#191#163#246'['#240#139#202#15#224#179'z'#207'*'#191#246#1#204'v'#31#168
- +#193#195#183#233'usn'#238#193#239'Cyo'#154#229'W'#187'{?'#236#196#147#190#168
- +'l'#214#238#23#167#223'.'#236'~ZX'#245#135#211#143'0'#240#152#222#187'O'#166
- +#241#4#9'?'#199#233#245#175#142#211'x'#202'}'#152#2#180#6#9'X'#127#0#217'?'
- +#151#29'S'#0#26#1#252#1#221'$'#243#187#239#246#215'?'#179#200#163#134'o'#204
- +#1#216#247'$'#233#153#4#174'|'#156'H'#160'nA'#207'f'#128'h'#4'L'#2#145'&'#1
- +#21#233#168#2#147'@h'#8'@r'#5'|'#129';'#214'2)'#225'Y'#159#166'|'#240#222#219
- +#234#143#255#249#223'W'#15#254#247#31#208'C99'#190'/'#162'k'#17#183'{'#170'u'
- +#245'e'#181#250#209#207#168'+'#159#251#170#186#250#249#175#210#245#175#159
- +#246'%x'#250'03L'#219#130#30'c'#231#23#253#251#140#167#223'H~V'#225#231'I'#1
- +'x'#6#255#156#155'{'#178'&@'#255#155#238#222'U'#163'G'#210#206'{Q'#168#253' '
- +#146#203#173'}L'#231#181#131'/q'#156'~H'#245'E'#188#127#15#133'='#180#141'F'
- +#144'P'#251#225#244'{D'#207#245#222'I'#218#253#238'8'#141'G|'#169'?@f'#22'b'
- +#167#160#210'Z'#0#182#215#233#1#236#204#147'`'#229#189#254#250#167#19#21#198
- +''#28#234'#p'#231'R'#217#151'I'
- +#184#15#142'>'#14#251#137#31'`'#188#253#30'-'#239'jR'#224'i'#188'S'#142#22#0
- +#252#27#205#193#237#245#198#240#145#11'~z'#182#140#221#15#240'o'#153'J?z'#230
- +#239#201'4'#223#232#240#131#6' '#199#150#237#247','#151#242#196#190#215#245#7
- +#208#197'h'#18#248'{'#164#10'm'#18#192#175'Hx'#144#179#4'iY'#3#9#204#210'x'
- +#237#246#254#250'''3'#207#15'Yr#<'#24'j'#18#8#27'm'#213'!'#18#136#154#29#2'~'
- +'h'#181#0#228#8'x'#236#20',H'#128#181#129'J'#152#208#212#17#24#18'`'#231' t'
- +#148#220#153#144#164'`'#132#234#147#246#244'+y'#10#4'1'#219'{'#172#230#253#29
- +'5'#31#236#210'zO-'#134#251'\9'#217'}'#249#13#213#185#249#250#217#149#224'G'
- +#189#142'K'#239'C'#17#222's[u'#219#16#159#11#254#170#212#151#220#254'L'#154
- +'z'#148#9'@K'#255#209#214#143#213'd'#239#30#189'n'#206#145#1'~'#159#228#248
- +#175#214'F'#15#174#180#251'w'#243#2#252#200#244#131#221#15#240#195#238#127','
- +'!'#191'{R'#223#15#27'n{:'#157#14#136#0#160#194'%''e'#247#31#245'r'#31#251'w'
- +'W'#243#3#200#28'@3'#209'Md'#10'*'#237#16#196#26'$'#176'J m'#141#23#181#205
- +#187#253#213#183#136#4#2'm'#207#11#9'p'#4#160#201#230'@D'#234#170#213#4#156
- +#181#23#11#17#24'M'#128'L'#2#21'j'#191#130'2s'#17#26's'#192'M'#30'2UEn'#163
- +#145'3l'#26'|'#232'F^'#10#226#8#224'M'#21#159#210#158'}'#137#239#187'i'#189
- +#218#230#215#128#207#13#248#173#228'_0'#200#217#241'7'#211#161#190#225#163
- ,#183#213#172#255'H'#146'|'#140#218#175'k'#251#187#209'd'#235'zw'#239'=m]d'
- +#153'x'#252#145#236#3#240'#'#151#127'['#233'y'#253#24#252#216'F'#178#207'I'
- +#198#251#15#27#167#253'('#151'R'#133'I'#11'h#'#25#136#180#128'K'#208#4'h'#31
- +'Z'#0'H'#0#164#176'B@lM'#147'x'#237'N'#127#245#19#169#23#198#218#179'/>'#1
- +#174#12#172#17#9'|L'#197#157'uM'#10#198#15'`'#192'/m'#198'=!'#2'_z'#10'('#19
- +'%'#16#231#160'2'#230#128#239#21#4'`'#174#214#139'>]'#241'y'#25'.'#234']sGl|'
- +'O'#202'wm'#3#143#170#179#207'8'#250#0'f'#212#243'/'#28#240#27#231#31#175#167
- +'j'#240#240#7#164'ImK'#140'?'#209#196#145'j'#240#175#213'F'#247'/'#183#145
- +#226'k'#193#159'I'#154'/g'#250')]'#226#251'H'#230#245#131#228#199#164#30#143
- +'1'#171#207'|>'#31#31'w'#170#239'Q.'#227'i'#223'F'#207'8'#5#209'@'#4']'#132
- +#208'P'#212#9#15'"O'#224#138#201#20#4#9'$y'#220#189#189#191#250#214'BE'#245
- +#18#9#136's'#176's'#249#13#21'w/'#177'/'#192'3'#181#2#177#244#16#176'&A'#164
- +#253#2'b'#14#168#208'/'#146#134#140'i '#13'F'#172'F`'#175#152#163#10#156#159
- +':'#163#23'f'#148#146'xl'#171'.}'#140#193#159'i'#201'oc'#251#169'n'#226#1#240
- +'+'''#204#151'K'#190'>'#171#244'3'#241#250#211#177'\B'#127#201't'#162#6#247
- +#191#175#18#228#246'''s'#157#21#232#128#127#163'1'#184#189#217#28'>'#210#138
- +'F'#150';'#146#31'*={'#252#149#238#237#7#240#223#151'p'#223'cH'#254#197'b1'
- +#186'v'#237#26#156#131''''#234#244#171#142#179#240#236'Z'#18#232't:1'#177'b'
- +#157'.T'#27#149#131#232'$'#4#2'0$ '#173#198'A'#2#205'L'#133#237#219#253#181
- +'7gY'#220#214'}'#0#196#174#143't)qk'#243#150'j'#172'^'#215#146#222#1#189#217
- +'f-'#160#166#147#139'8Dh'#219#142#7#133's0'#240#10#141#192'I rs'#137#205'f~'
- +#224'''='#225#10'?'#211#173'>'#175']'#130#142#248'h='#245#250','#191#178#185
- +#211#151#223#5#191#246#238#235#248#190'J'#181#202#175#4#176#156#155#159':'
- +#246#254'\'#131'?'#183'j'#191'd'#242#17#25'$'#147#161#234#223#255#158'Ji]H~'
- +#157#225#167#210','#191#220#217#255#201'j<'#217#21#193'o'#193#175#138#190'~'
- +#166#190#255#1#164#191#132#254#30#163#190#159#198#168#209'h'#204#143';'#207
- +#255'9'#222#165#227'?'#15'S:'#140#162#161#241'x'#140#134#162#29#169#25#184'd'
- +'4'#1#165#251#7#160#177'H'#143#174'X'#147#16#218#188#211'_'#251#216'8'#173
- +#173'x2'#239#160#206#254#211#18#191#190'rU'#181#214'oiM'#192#250#1'B'#157',$'
- +'d'#224'I%'#161#138#138#190#2#166#152'Hq'#132#192#244#23#240#203#145#2#167
- +#243'P.'#161#195#234#21#245#202#127#158'q'#228'O'#220'='#179#195'{'#234#129
- +#167#255#238'|'#201#207#21#144#27#129#175#14#11#237'9'#133'<*-b'#251#197#162
- +#129#207#210#127#190#144'p'#223'B'#180#129#5#255'o>'#216'a'#155'?'#157#142'u'
- +''''#31'Z'#148#128#223'#'#241#127#181#187#247#163'n8'#27','#3#191#210#225'>'
- +#128#31'-'#188#31#144'&'#203#14'?'#228#248'#'#220'G'#175#27#161#200'G'#157
- +#146#211#239#131#222#157'c='#23#248#3'~'#252#227#31#251'h%F'#154'@'#195#228#8
- +'`V!'#164#12#131#8'h'#141#164'!4'#26#237#210'Uk'#17#240#234#247#6'k'#175#15
- +#23#245#13'c'#14'0'#17'DP'#241#145':'#220'Sm2'#9'PG'#224'K?'#193#2#252#142'6'
- +#192#254#0'c'#14#232'm'#155'8Ti9f'#195#134#158#201'(tr'#207#171#253#7#204#173
- +'=KW'#250','#143#202#245#202#157#166#156'%'#208#27#162#200#164'eW'#150#29'H'
- +#231'Ui'#1'z'#227#237'O%'#212#151#207#231#142#195'O|'#0'D'#2#147#221#219'j'
- +#178#253#158#222'w$?>'#223#167#15#184#222#219'{'#167#21#204#199'K'#192'ob'
- +#253'h'#234#137'4_+'#249#233#153'}L'#160#223#165#231#23'5'#0' '#137'3'#1'~'
- +#231'2'#159#153#193'$'#240#189#239'}/@x'#16'$@Z@W'#26#137#184#154#0'"'#3#235
- +'('#28#162#27#129#18#227#248#254#160'wko'#222#188#234'['#245']k'#2#200#26#244
- +#227#26#153#4#31'Q'#181#206#166#150#248#174#244#23#223#128#206#17'0'#249#2
- +#129#205#30'TN'#6#161#237'@'#236#251#5#1'8m'#201#221#26#3#235#164#170#22#27
- +#157#181'+~F'#134'Wr'#228#185#155#249#1#240'k'''#159'H'#251#180#144#250#165
- +'t^'#168#251#137#238#215#175#9'@<'#254#226#237'7'#26#0#19#0#166#233#154'N'
- +#213#136#164#254'|'#180#171#227#251'IR'#2#127#160#146#217'K'#221#221#31#214
- +#131#197'T'#192'o'#28'~F'#242's'#129#15'r'#252#209#220#3#146#31#26#0#212#254
- +'('#138'v'#7#131#193#136#180#218#19'M'#243'='#210'u?'#237#19'XvN&<'#184#181
- +#181#21#211'Ek'#208#5'4$'#128'lA'#180#24#135')'#192'$@'#251']'#248#4#232'X'
- +#237#209#168#243#210#246#180'}SO8bH@2'#0#137#8#234#189#171#170#185#241'*'#131
- +#222's'#181#129'H'#147#129'''-'#199#149'q'#14'F'#21'm'#192'u'#16#154'z'#2'&'
- +#3'eg)'#202#29'2p'#181#255#220'!'#133#15'f'#26#188'(C'#210'u\'#137#159#23#181
- +#249#202'sT}'#199#201'W'#168#249'"'#245#197#214#231'2'#222#180'p'#242'1'#232
- +#165#148#215'z'#252#141#234'/'#170'>'#219#254#201'B-'#250#187'j'#184#245#14
- +#29#27#219#200#128#174#229#151#137';'#189#249#228#165#238#222#15#185#170#143
- +#235#8'l'#168#143'S|'#149'd'#249')'#237#224'C'#184#15'R'#255#1#212'~'#178#249
- +'w'#233#249#29'6'#155#205')i'#183#201'iz'#252#151#141#179#250#4#150'H'#160'A'
- +'c2'#153#160#145#8#155#3'B'#2' '#3#209#4'T'#151#128#136#190#131#181#253'Yc'
- +#243#225#168#251'Z'#166#194'PKn'#169'!'#8'C1'#9#186#164#13#188#193#213#132#0
- +'>'#28#129#158'D'#4#220#16#161#155'9'#168#156'Z'#2#229#18#129#231#23#179#22
- ,#251#198'I'#232'j'#3'E'#30'a'#238#148#25'z'#213#146#195#3#153'mg'#245#182#188
- +#223#187#249#4#127#134#233#191#167#156#198#28'|'#188#2'zP'#168#3'~'#211#173
- +#135'U}'#9#239')'#167'O?'#188#245#249#28#251#11'+'#249's)'#238#201'%'#207'?'
- +''''#240#143'wn'#171')-'#153'y]*R_f'#238'iG'#147#237#171#173#253#219#129#151
- +'&:'#151'(3e'#189#240#246'3'#248#149#206#242'CO?'#246#248#195#230'G'#168#15
- +#224#167'eH'#166#236#20#177#254#179#6'~}'#205#207#238#176#133'C'#4#254#136'.'
- +'b'#147'L'#130'.H@:'#10']6'#225'A%$'#128#16'!H`'#158#133#237#187#131#222#235
- +#179#172#214#230'y'#3#140'o'#192#132#10#163#186'j_zM'#197#221#205#2#248'f1'#4
- +#16'W'#142#7#186#211#144#178#243#19#6'em@'#26#143#148'#'#6#158#149#244#172#29
- +','#137#30#152#249#11#142'zG'#206#204#147#227#222#168#167#189' ?'#252#128'i'
- +#197#229'y'#14#248'3'''#150#175#28#27#223'Q'#247'y'#31#182#190#27#222'K'#11
- +#137#159#27#208''':'#181'7/'#145'@'#194#245#19'#'#146#250#243#225#142'h'#11
- +':'#188#167#138#30'~'#217#165'F'#255#246'Zc'#244#152'S{%'#212#167'tz/O'#223
- +'-s'#248'A'#237'7'#137'>'#15#207#19#248#143't'#239'N'#251#252#12#9#244#251
- +#253#184#213'j5'#232#226#162#197#248#154#132#4#225#16#188#12#173'@i'#18#232
- +'1'#9'('#175#158#7'~'#252'p'#208#189#185'?o]-'#146'|t'#184#15'&'#129'oL'#130
- +#245'W'#8#236#177#205#9#240'L'#5'a'#172'5'#6#171#9'p'#10'qPT'#21#210':'#15
- +#220')'#202#140'V'#224#21'D'#160#138#237'"JP'#172'K%'#200#206'f^9'#236'='#235
- +#173'z'#158'w'#245#153#31#215#188#152'>'#219'='#149#188#188#145';/'#178#245
- +#249'n'#18#143#177#243'MG^'#145#250'*u$'#191'c'#235#27'/?'#219#237#12#244'E'
- +#161#254#207#11'R'#192#255#23#240#242'?'#254'!i'#1#19#177#247'u|'#223'|n'#228
- +'/&'#215#218'{?i'#132's'#174#229#23'G'#4#236'}'#147#222';'#145'P'#31#171#253
- +'J'#194'}'#178'F'#169#239#222'y'#0#127#233#254#156#209#193#231'W%'#1'd'#12'"'
- +'Y'#136'.'#178'!'#1#152#5#151'0'#247#128#210'y'#2'm'#186#212'u'#146#184#241
- +'p'#222'X{0^'#185#149#145#236#215'@-'#155#4'H!'#6#9#196#157#13#201#7#144#136
- +#128#1#191')$'#10'+$ '#11#147#138'h'#6#156'N,'#145#130'\'#162#6'V'#27'x'#26
- +#17'8'#221#137'rG;'#240#202'^'#196''''#220#177#147#184#149#249#225#135'+'#167
- +'i'#140'{'#175#244'6'#167'<'#23#0'WO'#0'~^'#150#248#202#22#239'8N>c'#239#187
- +'v'#191#149#252#139#18#240'Y'#19#152'N'#213'd'#251#167'j6'#220'b'#130'@'#179
- +#15'+'#241'3=__'''#154'<'#190#210#234#223'!'#149'?'#205'm'#147'@]'#210#235'd'
- +#248#245#165#178#15#222#254'G'#146#215#255'H4'#129'}8'#252'666'#206'<'#248
- +#237#253'9'#227#195#146#128#18#159#128#146'2b"'#130#21'h'#2#146'%h'#178#5'9Y'
- +#136'$r'#155#192#211#160';'#23'''Y'#212#184';'#236#189'6Kk'#29'S'#0'd'#27#140
- +#8#184#163#214#26#19'APo'#21#17#1#167#138#208's'#251#10'<'#137#8#220#148'b'
- +#153#194#220#134#14#205#196'%'#165')'#204#202'k7'#132'h'#230'4'#176#135#14
- +#132#20#143'n:<'#151'q'#152'*o'#156'v'#246#144#145#236#230#127#249#146#216
- +#189'~'#157#14#227'I'#230#158'!'#2'k'#227'/Q'#247'S'#145#248#2'|'#181#208#149
- +'|J'#236'w'#215#222'7'#206'?E'#251#147#254'=5'#221#189#173#19#127#210'%*?}'
- +#209#229#198#224#189#149#198'h'#199#203'MI'#143#14#243')'#1'?'#173#199#180
- +#223#151#154'~4k'#132#196'GE'#31#182#183'I('#161#145'''{'#251#201'\=s'#14#191
- +'e'#227'<'#16#128'=OC'#2#251#251#251#17']'#228':]x'#174#29#136#162'h'#157#246
- +'a'#6'\'#18''''#225#134#212#14'th'#27'}'#4'b'#210#0#162'G'#195#206'K{U'#147
- +' '#212#201'C'#138#171#11'#U'#235']S'#245#181#27#156'M'#200#14'@'#199#4#0#1
- +'(''Dh'#136#192#148#24'+'#153#181'X'#249#229#198'#'#182#21'Y%'#179'P'#231#15
- +'-'''#3#207#209#255#139#222#4#166#151#161'{UN'#136#4#170#143#176#19#182'+m'
- +#229#5'Y'#149'CxN'#165#158#27#198'3N='''#150'oA'#159#154'm'#0'>#b'#0#160'u'
- +#17#143'Z'#20#13';'#173#199'?IJ>'#0#132#0#147#209#158#154#236#252'D-&'#131'B'
- +#213#135#169#128#207'pU'#254#238#238'O'#234'^2'#245't'#229'@'#213#211'?'#147
- +#22#222#168#234#219'q'#193#15'O'#127#24#134#232#235#223'_,'#22#227#25#141#243
- +#2'~'#140#243'B'#0#246'\'#221'<'#1'8'#252#232#194#183#232'p'#143'.'#254#186
- +'8'#7'A'#4#156','#132'V'#227'$'#129';$u'#27#180'_#'#240'E'#131'i}'#237#193
- +#164#247'j'#150#235#249#7#180#147'0`'#21#222#244#16#132'Y'#208'X{'#133#139
- +#138#188#208#137#6#200#220#3#134#8'4q'#4#162#29#136'&`{'#13'8]'#137#131#138
- +#163'P'#8#161'hF"'#19#152#28'H76'#161#195#162','#185#240#15'T='#3'G'#200'1'
- +#248#160'%'#203'y^yi'#25#240'z'#229'4'#218'TE|'#159'%'#189#153'l'#195#190#230
- +#160#154#207#246'~'#154#149#218'r+'#150#250#153#6#173#0'_'#137'='#175#164#131
- +#143'2'#4#144'h'#239#127':''u'#127#231']5'#239'?'#210#173#186'L'#26'p'#146#10
- +#209'h'#149#31#149'|'#151'['#253#187'P'#249'9'#188#143#254'}'#160'!m'#239#219
- +#24#191#1#191#210'e'#189#15'e'#198#222#199'R'#207'? '#1'4>K'#25'~G'#29#231
- +#137#0#236'9'#155#180'a'#218#142#26#141'F'#13#17#2#164#7#27#231#160'8'#5'/'
- +#217#218#1#29'&'#132's'#176#6#147' Sa'#252'h'#220'~'#169'?onz@'#166#137#20
- +#216'f!Z'#226#195',h'#192', B'#176'R'#223#1#188'Bd '#22'B'#16'M@9'#25#132#214
- +'I'#24'>A+8'#204'GP'#154#242#188#186'v:'#26'['#13#193#161#130#165#190#130'CB'
- +#143'O'#200#187#183#160'.%'#224#23#26'H.'#234'})Q'#199'%'#0#215#147'/'#158'}'
- ,#163#226#219'p'#158'q'#240'Y'#208#167'b'#231';'#158'}l'#11#192#181#202#175
- +#215':'#175#223'8'#2'%vO'#235#217#222'}5'#222#131#186'?'#211#199#229'3y'#157
- +#167'"'#245#147#201#149#230#254#237'f<'#27'z'#26#247'8'#15#146#250'%{'#223'&'
- +#248#208#178'C'#210#254'1'#9#153'G'#210#213'g'#155#128#191'K'#160#31#160#149
- +#23#13#152#8#231#10#252'K'#158#138's3,'#9#208#197#15'k4'#200#12'h"B'#16#4#193
- +#170#227#23#128'F'#0#18'X'#5'A B &A'#148#19#196''''#139#176#253'p'#178#242
- +#202','#141'ZE'#235#240#162'('#200#147'9'#10'k'#221'+'#170#182'rM'#5'h'#162
- +#17#154'y'#8#3#199#28'pM'#3#9#17#134'RK`'#10#140'l'#14'A Z'#129#201'$t'#218
- +#146'U'#137#160'j*'#148#202#146'+'#21#137#21'G'#162';'#242''''#146'A'#165#216
- +'f'#217'c'#235'Jw'#222#168#172'e;7'#137'<'#153#27#190'3'#137'<'#142#164'wc'
- +#249#2'|'#29#203'/'#192#175#137#192#9#241#217't^'#13'r'#237#3'H'#10''' -'#139
- +#225#14#219#249#9#171#251#186'I'#167#146'L>'#179#246#232#207'j}t'#127#189'1x'
- +#228#177#180#207'3'#147#214#171'$'#190'O'#203'\j'#249#135#226#233#135's'#15
- +#210#30#249#252'['#178#191'O'#207#220#160#223#239'O'#187#221#238#156#8' =o'
- +#224#175'>'#9#231'm'#148'J'#137'I'#19#136'%u'#152#157#131't'#140#181#1#144#0
- +#250#11#210'z'#141#253#2#202'k#}'#152#182'czDc rw'#218#186#180'=m_'#207'H'
- +#164#235#226#31#237'$'#132'fP'#168#249#145#170#181'/'#169#6#17#129#31'7'#180
- +#244'7j'#191'k'#14#24#127'@'#224#164#17#187#166#129#201'!p'#29#133#198'<'#176
- +#4#224'W'#18#139#180'G'#192#246'.'#180'='#11#141'iP'#152#3'n'#194'Q'#217';'
- +#239#29'XU"s'#202'Az'#217#181#144#187#161'='#137#215#231'y'#197#214#151'B'#29
- +#163#226'gy'#145#167'oSu'#139')'#183'\'#201'_H'#253#20'M5'#197'VO-'#9#184'a'
- +#190#220#170#251#198'!H'#18#127#184#173#166'{wU:'#27#22'f'#129#11'~'#241')'
- +#180#162#217'.I'#253';'#152#156#211'C/`}n'#172#242'+'#221#187#207#228#244#143
- +#140#167#159#182#183#197#219#191'Ej'#254'6'#9#24'h'#2'}'#147#215#239#244#241
- +'3'#192'?7'#224'w'#30#135's;,'#9#16#1#4#8#19#18#27#195'9'#216#154#205'f=h'#3
- +#244#127#244#26'D'#171'1h'#2#240#11#160'r'#144#211#135#17'% '#192'D'#244#17
- +'A'#146#249#241#163'I'#247#230'`'#214'X'#247'l'#241'O'#1'^?0 '#142#184#166#0
- +#206'B'#244#211'3'#166#0#167#13'['#208#23#161'A'#27'!'#136#180#244#207#131
- +#224'@wb'#235'#p*'#15#11'"P:'#164'h'#211#139#165']'#153'*L'#4#151#24#150'^"'
- +#175'r'#197#170#26#192'!'#14#190#18#15#184#245#246#216#204#242#146#189'o5'#0
- +'7W'#223#128#221'z'#244#141#202'/'#246'~'#166#167#219'V'#226#228#179#128#183
- +#29'{'#202#224#183#197'='#236#253'_'#168#217'`K'#205#246#239#17#240#199#146
- +#16#148'X'#147#1#251'J:'#246'D^2'#187#212#26#220'n'#215#166'}'#248#28'<'#143
- +'U~V'#252#233#146#177#163'Oz'#247'Me'#178'Nk'#239'C'#237#151#153'{9'#190#15
- +#149#159#20#206'1b'#252#245'z'#29#164'a'#234#249#237'U:O'#227#188#19#128#249
- +#13'H'#24#194#154'#'#4'p'#14#18#1'4E'#27'X5'#190#1'!'#1'6'#9'h'#191#7#191#0
- +'m'#195'A'#8'm'#128#222#231#251#163'$'#238'>'#28'uo.'#178#168#233#154#5#202
- +'I+V'#226''''#136#219#27#170#222#187#174#130'F'#235#160#212'7'#170#191'C'#4
- +#134'L'#148'K'#2#2'z'#229'U'#157#133#14')x'#166#10'Q9~'#130'J7cq$'#30#152#241
- +#232#176#154#3'[m'#231#188#196'm'#180'a6'#189'B+'#240#158#2'zW'#213#247'*'
- +#222'|'#29#215#207#172'Df'#7'`R'#168#251#158#1'}'#226'H~'#163#13'd'#134#8'2'
- +#142#223#207#6#143#24#248#217'bb'#237'~'#227#216#203'\u'#159#132#252'J}'#252
- +'p'#179'9x'#224#209#142#199#165#130#224#29#218'f%'#198':'#250'f'#210#187#207
- +'t'#238#133#167#223#130#31#19'v'#160#137#7#254#143#254'}'#163#209'h^'#241#244
- +'+u'#14#193#127#200#147'q.'#135#141#16#160#156#248#214#173'['#225#214#214'V'
- +#141#14#213#137#173#17'*'#236#145#250#134'b'#162'u''u'#24#251#200'#hC'#27#160
- +#237#26#251#6''#199#245'3'#201#231#183'R'#159#22
- +#19#226'c'#149#31#160#199#2#149'_'#8#1#29'|'#198#244#182')'#217#253' '#140
- +#132#180#206#236'<'#132#249#142#4#156#23'h'#176's'#240#219#223#254'6'#251#5
- +#232#166'E'#4#234':'#28#132'259'#155#4'XD'#27'0$'#208#165#183#146'>'#175#26#4
- +#167#24'f'#1#129'='#160#199'%'#220#157#183'6'#247'&'#173#203#137#10#226#3'D'
- +#224#23#246'>4'#130#176#209'!'#173'`'#147#8'a]'#249'a,m'#198#140#3#240'0'#167
- +#224'!'#5'F'#146'3'#224#149'|'#3#166#23'A1'#169#137'%'#2#153#224#196'LuV'#10
- +#18#10'7'#148#156#132#14#3'xF'#210'Wd'#153#145#246#7#28'{N'#252#222#149#252
- +#182'B'#207#237#200'c'#192'/'#132#160'\'#167#159#149#242#142#211#207#233#224
- +#131#255'-'#166#251'j1'#220#162'e'#155'I w'#205#128','#147#150'_'#236#220#195
- +'~'#222#138'g'#187#27#141#193#131'Z'#184#152#150#212'}'#199#214#151#182']'
- +#166'c/l'#249'}i'#226#193#158'~Z?Fl'#159#164#252'>='''#3'2/'#199#244','#205
- ,'{'#189#30#192#127'n'#237#253#165#128'9'#237#19'8'#166#223'T2'#9'h N'#211'di'
- +'O'#128#167#155'j'#137'@'#204#3#236#19#9#168#14#1#174'A'#251'u:'#30#25#179
- +#128'@'#21#236#205'Z'#27#187#227#230#229#133#10#235#218'F'#247#203#211#141#17
- +#1'('#223#183'ZA'#173#177#170'""'#131#176#185#162#163#4#230#181#142'3'#208'H'
- +'~'#255'0-'#192#152#8'&'#147#208#248#7#248#23'V2'#12#221#28#130#220#137#12#8
- +#27#152#196#220#131#209#130'Jz'#174#167#172'j/'#255'V'#226#245'+Iyc'#227#27
- +'{'#223'4'#227#176'Z'#128#1#186#172#165#192#166't'#220'M'#237'u'#215'('#203
- +#157#13#31'3'#240'S'#132#242'2'']W'#166#220#206'e'#209#192'O'#243'vm'#182#189
- +#217#24'>'#140'|H|'#28#23#191'>'#171#251#220'%'#208#205#232#227#240#30#242
- +#249'i'#189'/'#237#187#182#205'"'#206'?'#28#199'k'#166'F'#229''''#205'2;'#207
- +#246#254'a`y'#17'G'#201'$@'#168#176#213'j'#197#2'lT'#12'v'#197#25#184'J'#140
- +#143#232#0#22#248#5'D'#27'P-!'#2#152#5'a'#206'd'#128#174#225#190#191'7k'#174
- +#237#142'[W'#230'y'#216#176#206':'#3'|'#207'H'#242#162#2#17#154'@'#212#222' '
- +#173'`C'#5#141#142#227#252#11#184#231#160#231'8'#2#139#168'@u'#10'3'#207#2
- +#222'F'#5#2#209#4'\'#237#192#151#144#161#149#252'U'#7'`%'#159#192#12#183#149
- +'6'#239'+'#235#28#176#213'zF'#229'O'#171#234'~&fA'#230'T'#234#21#206'?~'#189
- +#209#0'*a'#191#18#9','#230'j6'#218'f'#208''''#211'A'#161'!'#152'L@'#199'l0}'
- +#0#16#210#235#198#147#199#27#4'|x'#246'M'#190#241#19#212'}k'#235#211#210#151
- +#238'='#12'~'#186#207#144#254#216#222#15#130#128#19'{h'#153#145#244'_ '#196
- +#247#162#168#252'K'#129#242#2#15'k'#18' J'#128#178'b'#186#185'54'#25'!R@'#227
- +'Q'#152#5'+ '#1#133'Y'#137'5'#9'@'#27#232#209#210#17#179#160#238'{~Lk'#16'A'
- +#8'"'#240#9'}'#251#179#250#234#206#164'ue'#150'!'#135#192#128#177#144#218#5
- +#176#3'K'#10'a'#212'Tq'#7'Z'#193#154#10'j'#141'2'#184#157#210'bo'#9'!'#184#9
- +'C'#133#25#224#21'~'#2'''R`o'#173'u'#11'H'#180#192'M$'#146'W'#185'~'#128#210
- +#172#185#178'*'#194'}'#174#244#207#156#233#180#225#240#203'd'#178#205#138#183
- +#191'*'#245#179#188#18#1'H'#212'b'#178#175#230'P'#241#199#187#156#216#147';6'
- +#189#251'~K '#244'}>1B'#183'6f'#224#7#200#15'6'#192#231#138#221'2'#240#149#6
- +'?'#128#143'N'#189'#'#201#229#223#23#240#195#185#135#25'y'#25#248#240#240'+M'
- +#14#211'N'#167'3G'#3#143'7'#223'|'#243#133'R'#249#15#0#228#180'O'#224#132'~#'
- +#155#4#208#6'h;Z]]'#141#160#13#200#140'D0'#11'z'#162#17#172#233#244'aM'#4#180
- +'&'#18'Pm'#186#235#220'l'#4'&'#129'o'#136' '#131'F'#224'y'#195#164#209#219
- +#153'4/O'#211'Z'#7#200#180#192'tH'#160'4'#231#128#152#0#232'I'#16#212'z*jt'
- +#201#168#232#210'~'#173#210'[`I'#231'!G'#213'/'#171#254'x'#173#18#159#128#241
- +#234'{'#182#152#168#8#4'x'#149#181'*7'#222'PE'#218#190#178#13'8'#157#146#221
- +#204#13#241#21#234#190'w'#192#23'P'#201#233'7'#145#0#2'v2'#27#170#20'v'#253
- +#164'O'#219#131'"'#219#207'x'#239#197#137#231#153#254'~v;'#231'p^'#167'6'#217
- +'^'#175#143#182'|'#143'sy'#213'2'#224';'#237#185#173#147'O'#233#9':'#160#214
- +#239#25#240#3#248'$'#12#246#200#222#135#3#16'z'#254#132'l'#253#217#139#230
- +#232'{'#26'8>,'#227#128'6P'#171#213'bz^0G'#22#166'*G'#159#129#30#28#133#240
- +#17#28#212#6'T'#211#152#5#4#180#18#17'(.'#25#11#163#253'yc}0k'#172#205#210
- +#168'Y'#0#180#172#198#27#245'>'#247#202#196#0'B'#8#27'+*'#170'wT'#0'B'#128#19
- +#209'!'#0#27#14#148#162#162'jc'#210#146#9#224'4"'#177'w'#185#218#140'D'#194
- +'~n'#233'n)'#12#232'j'#2#198#9#232#168#251'n'#184'/'#207'+I?yA'#0'H'#206'I'
- +#166'}'#150#244#201'tH'#255'J'#10''' '#155#20'i)4'#200'Q'#0'K&'#184#184'Y'
- +#138#4#158#149#218'x'#167#25#209#135'i'#204#231#154#160#24#248#0'<'#235#252
- +'b'#231'/*'#234#254'H'#226#250#198#214'G'#136'oW'#188#251'}'#186#215'C'#168
- +#251#176#245'www'#23'd'#231'sl'#255#19#159#248'D'#254#162#131#223'yB>4'#163
- +#164#13#192'7'#176#178#178#18#17#25#208'f'#204'}'#6'h'#1#216#225'(\1'#218#128
- +#210#26#2#250#18'"'#164'h'#136#0'Y'#132'1a.'#160'g=dg!'#20'r'#210#11#166'i'
- +#220#216#155'5'#215'G'#179#218'Z'#162#130#200'S'#5#25#20#146#220#169#7#240
- +#141#243#207#28#15#148#31'7Y;'#8#226#22'}B'#131#9#130#29#141#202'5'#3#156#181
- +#141#18#136#170#159#171#194'$'#200#171#209#1'U'#16#130#155#244#227'6'#222'4'
- +#7#149#201#4#212'$'#192' u'#18'}'#12#232#177'dp'#188#211#146'/'#198'l'#199'c'
- +#201#200'4/'#1#190#186'm'#181#137#204#250#20'`'#195'7'#195'y'#191'S'#159#236
- +'t'#163#233#158#199'I'#5'b'#143#232#188#131'Ll|l'#1#244#236#224's'#128#143
- +#134#29'#'#153#153#135#195'{'#198#222'7'#14'>'#216#249't'#175#199't'#159#167
- +'('#224'[b'#235';W'#224#197#29#31'6'#2#176#191#217'h'#3#155#155#155#254't:'
- +#13'1S1'#252#3'0'#11#232#223'-'#178#7#225#12'D6'#225#138'8'#7'W'#196'y'#168
- +#157#132#158#215#164#199#177'A'#159'V;@'#4#30#224#166'Q:'#152#215#187#253'Yc'
- +'}'#148#196'+'#185#22#233'V'#133'7)'#191'E'#135#225#162#243#176'K'#8#185#152
- +#0#164'x'#16#25#212#153#28#130#176#206')'#201'>'#214'd>'#148#10#139'J'#191
- +#244'`'#219#242'"G'#160#236#237#247'Jf@^$'#7#25'3'#1#248'K'#209'H'#19'@'#159
- +'p'#197']'#150#152#245#212#206#198#163#242#195#0#15#252'f%'#147#1#239'1'#251
- +#181'`1&'#21#127#167'GK'#232#193'!'#160'L'#237'0'#147'B'#154'iu'#223#177#241
- ,#171#18#223#216#249#3#1'?'#146'w'#0'~^'#144#194'K'#210#30#197';'#172#238'w'
- +#187#221#217#214#214'V'#226'x'#248'_X['#255#176#241'a$'#128#210'o_f'#22#208
- +#225#26#217#130#28'6$'#2#128'F'#208's'#23#209#6#208'k'#160'm'#136#128#128#140
- +'(CL'#251#16#211'Rc'#204#157#238'|'#180'*O'#9#206#251#179#198#234'h^'#235'M'
- +#211#168#157#230#162#25#24#199#158'r'#10#131'J'#132'`'#156#127#190'>ig'#187
- +#152#199#16']'#144#27'*'#8'"q:'#134'tX"'#17#158#164'"'#243#233#232#181'/Z'
- +#134#150#190#137#216#218'R)'#151'9'#139's'#28#146#28#18#158'_'#207#225'7'#7
- +#196#182#196#183#240#1#184#0'W'#165#130' 1#8T'#167#242#154#191#24#213#163#249
- +#176'G*>Zn'#23#17#8#145#246'8'#3#2'>x'#18#206'}''o'#223#134#244#164'K'#207
- +#184#2'|'#187#208'=d'#224'#'#172#135'L>"'#2#246#238'#'#149#151#8' '#251#176
- +'I}w|'#152#9#192#140#3'f'#1'B'#127#244'p'#196#198'QH'#255'o'#9#216#187#244' '
- +#245#184#150#128#136'@4'#2'v'#20'*'#204'T'#164#188':4'#2')4'#10#173'V'#224'#'
- +#29'E'#251#10#176#13#208#18#9#212#137#12#186#147'E'#220#157'$q'#139#224#16#26
- +'S'#161#232''''#232';'#205'D+'#246#190#152#2#150','#148#155'*l~'#150#252'@.'
- +#30':$$'#232#216#255#182'EW'#169'1'#191#201#250'S'#165'\'#0'['#221#167#138
- +#148'`'#6'u'#166'T'#158'/'#7'<'#214#181' '#25#215#131#249#176#25#207#251#237
- +'h6'#242#149'8'#243'<61'#140'moA'#175't'#202'.'#24#133#213'|Y'#230#198#179'o'
- +'T}'#19#211#151#5#158#254'>'#128'OD>'#140#162'h'#12#137'O'#199#167't'#127#23
- +'t<'#249'0'#170#251#203#198#5#1#20#195's'#205#130';w'#238#4#198'?'#128'9'#7
- +#232'!B'#205'@'#203#241#19#244'$'#140#200'k'#248#7#20'"'#6'9W'#26#214#161#209
- +#18#216#17'm@BQ'#24#248#30#200' '#160'c>'#180'^F'#165'/'#229'<'#244'wL$@'#132
- +#208#153'.'#162#206'4'#141#219#153#14#8#138#237'^T'#4#22'e'#194#170#168#10'T'
- +#254'R'#240#219#191'U'#207#127#241#207'J'#246'_'#197#7'`Gn'#205#0#3'z'#183
- +#145'g'#225'G(^g'#0#31#251#201#164#22#206#135#173'h>h'#147#164#15#252'4)^c'
- +#153#197#128'^Y'#21#255#160#180'/'#169#250#144#248'p'#224')'#1#187#164#242
- +#150#164#189#1'~'#171#213#154#141'F#'#246#236#147#169#151'~X'#213#253'e'#227
- +#130#0#202#227#128#127#192#16#1'=H'#28':'#164#127's2'#17#173'['#244#0#162#216
- +#168'+'#26#129#171#13#176#143#0#175#229#228'#'#223#135'Ya'#200' 8@'#6#128#174
- +#158'`'#132'a'#142'|<"'#132#246'x'#17#183#146'4'#168#207#179#176#190'H'#131
- +'Z'#170#160#219'k'#251#221'8'#245#140'K'#191'T'#13#184'$'#239#223#141#8#228
- +#203'~t5'#20'h'#134'['#251#239#185#210#221#253#191#6'n'#228#167#211#208#207
- +'fQ'#144#204#234#225'bL'#18'~'#16'.'#3#188#233#18'"'#182'C'#174#127#145#168
- +#248'E'#214#30'-'#11'g'#218'-'#171#234'+'#157#190#203#224#167'{'#224#18#192
- +#144'#'#179'I'#194#210#254#2#248'O'#31#23#4#176'|,%'#2'Z'#135#244'@'#177'F'#0
- +'`'#211#186'I*f'#139#236'J'#214#10#132#16#12#9'X"@'#19#18#218#6'y'#212'@'#6
- +' '#2#218#14#133#12'|'#218#151#194#2#206#177#169#16#130#178#128'N'#179' '#154
- +'fQm'#158#16')'#164'!'#19'C'#146#250#181'E'#22#214'r'#195#2'y'#17#247#207#221
- +#219#235#29#248'y2'#242#165#155#252#170'R'#11'0'#253'7'#240#178'E'#236#167
- +#179#200'O'#166'Q'#152#206#226' '#153#214'BZ'#252'd^'#10#31#28#4#188#212#222
- +#235#20']Ro'#178#220#168#19#185'JM'''#30'U'#150#246'('#207#157'J?>'#11'|'#168
- +#251't'#157#135#0#191#0#30'j>&'#221#132'I0E'#6#159#249#172'%'#192'_'#242'K?'
- +#188#227#130#0#158'<'#150#18#1'|'#4#237'6'#201#183#217#140';'#20#19#1#160#203
- +#144#169'5h'#201#186'm'#246#141#198#0#243'@i'#13#2#4#2'2`"'#144#133#181#2'!'
- +#4#175'B'#8#162#229#235'F'#0'E*'#191#201#243#247#2'"'#129'('#205#252' '#205
- +#149#159#229'~'#0#19'"'#203#184#160')'#160#181#143#207'&'#158#241#233'8'#142
- +#249'x'#15' '#233'{y'#202#139#162'Wy'#10#219#153'g'#142'y'#244#137'~'#158#6#4
- +'N'#218'N#?K0C'#14#127#181#237#249#167#247#204'1}Z'#185#20#11'j'#213#222#145
- +#240#12'B'#237#197#183'q{+'#237'Mi'#174#210#192#159'HW'#158#145'*'#128#15#169
- +#143#184'='#239#147#186#143#10#189'1'#173'!'#241#209#140'snl'#252'G'#143#30
- +'e'#23#192#127#250#184' '#128#163#13'K'#4#223#253#238'w=4%'#5#25#208#161#144
- +#164'N'#212'l6'#1'd'#214#10#232#129'lxz'#174'B'#180'('#3#240#153#4'h'#223#144
- +'C'#211#209#10'jB'#6#136#30'DJG'#16't'#20'A'#19#2#242#10#8#139#220#2'Dr'#130
- +#217'y^'#164#249#225#143#239#219'm'#140#220'sN'#250#224#207#240#14#252'#?'
- +#176#225#202#240#138#242' '#249#0'z;/'#210#133'9'#25#152#147'!3'#237'P'#212
- +#21'x'#158#199#217#3'.'#224#233'X"'#221'vy'#150#29#167'@'#7#224#7#152'a'#223
- +#143' '#229#165' '#135#215't|'#4#208'C'#210#3#244#240#230'c!'#2'^'#192#171'O'
- +#199#211#11#224'?'#219#184' '#128'g'#27'%"@'#212#224#210#165'K>I'#164#144#30
- +'D&'#3#180''''#4#168#145'a'#8'2'#192#2'2P'#152#202#220'Y'#132#8#140'i'#192
- +#230#1'k'#5#30';'#14']B`2'#160'c'#1'b'#8#162#29'0'#17#152#22' '#24'y'#145#223
- +#167'r'#183#11'`'#165#17#192#129'y'#9#151#254'J'#227#225'We'#253'_)'#227#164
- +#211'h'#215'L$'#130']'#25#231#157#150#242#136#238#231'6Vo='#248#6#240'R'#142
- +'k'#194'x'#0#255'd'#137#212#231'E'#18'vX'#189#23#21#127#14#208'c'#166']'#196
- +#241'WVV2x'#245#137#148#243#11#224'?'#219#184' '#128#247'7l^-'#194#135#244#16
- +'z'#198'<'#160#135#18#128'E'#143'B6'#17#224'/'#160'}'#16'B'#131#164#22#8#129
- ,'5'#0#172'}'#157'Q'#216#144'F'#165'L'#4'R'#177#200#239#177'D'#160#29#136#161
- +#199'A}'#144#129'v '#210#182#246#31'(]'#151' '#219#170#152'}'#132#165's'#209
- +'4'#200#156#244'!, '#160'Vy^v'#3'j'#183#164'W'#184#253#10'U>7'#157't'#217#129
- +''''#222'{'#165#165#188#5#190'S'#127#207'^|'#165#165'=/p'#236#161#209#6#253
- +'~'#168#243#19#172'%'#166'?!'#160'c'#31#196'0C=>'#169#247' '#142#132#142'!y'
- +#7#128#207#156'8'#190#156#253#5#232#159'e\'#16#192#7#27#150#8#240#0#186'Z'#1
- +'I'#168'`gg'#7'R;'#132#137#0#243#20'd'#0'p'#139#218'_'#23#240'#'#215#192#128
- +#159'5'#2'G30D`4'#3#215'g`'#9'Ai'#13#1'$'#16'pI?'#231#28's'#242#156'''`'#247
- +#12#17'('#19';8D'#19'p'#192#207#0'/'#8'AK~'#165'{'#230#27#213'>'#173#0#222
- +#196#233#141#138'o'#156'y'#0#191#241#228'O'#5#220'v'#27#199#1'~'#243#127#168
- +#245'x}'#20'Es'#0#31#210#30#234'='#17'jz'#227#198#141#20#160#135#180'w'#242
- +#245#249'|O'#251'a8'#143#227#130#0#158#223'8'#160#21#12#6#3#175#211#233#4#180
- +#248#244#0#179#153#0'I'#14'S'#129#30#234#152#30'n'#164#31'C'#202#215#232'X'
- +#141#142#25'S'#192#152#5#150#4#232#189#186'eY'#161#21#132'UBP'#154#20'x'#246
- +'$!'#4#156#147'/'#224#247'DK'#176#219#149#243#182#170#188'2'#210#221#181#225
- +'s''>/'#210']z'#234#25#208'/'#28#208'W'#213'|+'#245'E'#221#231#181#144#194#12
- +'*=IwH'#249#5'@O@_'#200'g&'#0'=T|c'#219#11#232#205'y'#186#235#139#241'>'#198
- +#5#1#28#207'Xj"'#208#218#7#25'@3'#160#7#157'M'#5','#4'nL'#127#142#233#206'"'
- +#151#16'|'#157'?`4'#6#248#22'P'#189#24#11#17'D'#134#16'@*'#244#186'RD'#1'D@'
- +#175'E'#196#194#19'2`"'#192#182#28#243#212#146'x`'#201#142'/'#0#159#27#21'_'
- +#21'j=7'#212#196'B'#223#195#192#167#207#157#211#246#1#2#192'B'#191'k'#230#2
- +#158#200#14#210#29#239'Y@'#194#131'H'#232'xj$'#189#1'=]'#175#188#162#226#187
- +#235#139#241#1#199#5#1#28#239#176#215#215'8'#14#141'f'#0'3aoo'#143#9'!@i'#218
- +'`'#16#192'l'#160#151#134' '#3#172'A'#8' '#7':'#206'k'#128#158'^'#202'k9'#30
- +#154#227'J'#252#4#202'1'#13#180'I'#192'f'#128'oH'#0#231#148'!.X'#144'@q'#178
- +#5#208'sQ'#237'-'#240#177#166#247'X'#201#175#196#161''''#4#176'0'#251#134#0
- +'d!<'''#6#228#144#236#176#223#23'Fk'#0#224#137#3#210#181#181#181#148'~?'#212
- +#250#140'L'#168#28#160#191'p'#232#157#204#184' '#128#147#27#165'D\'#233'Y'
- +#168'@'#8#208#12'n'#222#188#233'-#'#4#12#2'M '#160#14#5#212'au'#219#172#149
- +'&'#14#214#0'0'#0'v'#1'k6'#155#217't:'#205#232#156#243'e'#18'~'#9#224#171#219#23#227#152
- +#199#5#1#156#141'Q'#186#15#198'\'#192#182'1'#25#8'H'#30'H'#129'H'#192'#py'
- +#134#24#8#148#30#200#129#128#232#25'r'#160'}'#143'@j'#23':'#206#128#199'6>'
- +#19#219#4'V'#187#141#181#207#253'L'#148'"'#0#27#192#243'>}/o'#155#133#190'?'
- +#7#208#137'Dr'#128#156#190'+'#235#247#251'9'#129#222#2#29#146#189#221'n'#231
- +#6#236#248#156#11#192#159#205'qA'#0'gsT'#239#139''''#192'Q.1`'#13'r'#184'u'
- +#235#150'7'#28#14'-9'#224'8'#8#2'k'#179'O'#192#230'5'#8#3#235#245#245'u'#187
- +'m'#6#128#140'5Iy'#11'J'#2';o'#3#220'X?~'#252'8'#199'6@'#142#253'e@'#199#250
- +#16#176'/'#219#191#24#167'8.'#8#224'|'#141'e'#247#235#0'9`'#24#130'0'#3'D'
- +#177#236#3#161'Y`]'#175#215#15#0#211#128#218#29#6#224#24#0'9'#214#135#0#253
- +#176'c'#23#227#12#141#11#2'x1'#198#179#220#199#163#190#246#168#224#189#0#249
- +'9'#30#23#4'p1.'#198#135'x'#252#127'p'#251'ut'#3#215#244'"'#0#0#0#0'IEND'#174
- +'B`'#130'('#0#0#0#128#0#0#0#0#1#0#0#1#0' '#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0
- +#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#1#0#0#0#1#0#0#0#2#128#128#128#2'UUU'#3'@@@'#4'333'#5'III'#7'@@@'#8
- +'999'#9'999'#9'MMM'#10'FFF'#11'FFF'#11'FFF'#11'MMM'#10'999'#9'@@@'#8'@@@'#8
- +'UUU'#6'333'#5'UUU'#3#128#128#128#2#0#0#0#2#0#0#0#1#0#0#0#1#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#1#0#0#0#1#128#128#128#2'UUU'#3'UUU'#6'@@@'#8'FFF'#11'III'#14'<<'
- +'<'#17'III'#21'EEE'#26'DDD'#30'DDD"EEE%AAA''DDD)AAA+AAA+AAA+DDD)AAA''GGG$FFF'
- +'!DDD'#30'==='#25'@@@'#20'@@@'#16';;;'#13'FFF'#11'@@@'#8'333'#5'UUU'#3#128
- +#128#128#2#0#0#0#1#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0
- +#2'UUU'#3'+++'#6'999'#9'NNN'#13'CCC'#19'BBB'#27'GGG$DDD-CCC5DDD'#211'SC6'#219'W@0'#227'[>+'#235']<('#238'^<'''#240
- +'_<%'#243'`<#'#245'a;"'#247'a:!'#248'a;"'#246'`<$'#245'_<%'#242'^='''#240'\='
- +')'#237'Z=,'#233'V@1'#225'RD8'#217'NG?'#210'JHD'#204'IHC'#204'HHD'#204'GEC'
- +#203'FEC'#202'EED'#198'EED'#195'DDC'#190'DDC'#183'DDD'#172'DDD'#157'DDD'#138
- +'DDDtCCC\DDDDCCC.@@@'#28'DDD'#15'III'#7'UUU'#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'UUU'#3'@@'
- +'@'#8'KKK'#17'HHH CCC5CCCPDDDlCCC'#134'DDC'#156'EED'#172'FEC'#185'GFD'#193'G'
- +'FC'#198'HFC'#202'IGD'#203'PE;'#213'VA0'#227']<('#239'a;#'#246'd9'#30#254'g:'
- +#29#255'g:'#30#255'i<'#30#255'j='#31#255'j>'#30#255'k>'#30#255'l?'#31#255'l@'
- +#31#255'mA'#31#255'nA'#31#255'm@'#31#255'l@'#31#255'l?'#31#255'k>'#30#255'j>'
- +#30#255'j='#31#255'i<'#30#255'g:'#30#255'f:'#29#255'd9'#31#252'`<#'#245'[=*'
- +#236'UA3'#223'MF?'#210'IHC'#204'HFD'#204'FFC'#203'FFE'#200'DDC'#197'EED'#191
- +'DCC'#182'DDD'#170'CCC'#152'CCC'#129'DDDfDDDKDDD1FFF'#29'@@@'#16'III'#7'UUU'
- +#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'UUU'#3'II'
- +'I'#7'@@@'#16'@@@ FFF7DDDRCCCoCCC'#140'DDC'#163'EED'#180'EED'#191'FFC'#198'I'
- +'GD'#201'ME?'#208'UA2'#224'\<('#238'b9 '#250'f:'#29#255'h;'#30#255'j>'#30#255
- +'m@'#31#255'oB '#255'qD '#255'sF '#255'uH!'#255'|L#'#255#128'O$'#255#133'Q%'
- +#255#136'S&'#255#139'V'''#255#143'X('#255#145'Y)'#255#142'W('#255#139'U'''
- +#255#135'S&'#255#131'Q%'#255#128'O$'#255'yK"'#255'tG!'#255'rE '#255'pD '#255
- +'nA '#255'l@'#31#255'j='#31#255'g;'#30#255'e9'#29#255'a;!'#247'Z=+'#234'RB5'
- +#221'JGC'#207'HFD'#204'FEC'#203'FFE'#200'EED'#196'DDC'#189'DDD'#177'CCC'#159
- +'DDD'#135'CCCjBBBMBBB2FFF'#29'III'#14'UUU'#6#128#128#128#2#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#2'333'#5';;;'#13'BBB'#27'AAA3BBBQDDDqDDD'#142'EED'#165
- +'EDB'#183'FEC'#194'HFD'#200'IFB'#205'SA3'#223'^;&'#242'e8'#29#255'g;'#30#255
- +'j>'#31#255'mA'#31#255'pD!'#255'tG!'#255'~M#'#255#141'W('#255#151']*'#255#160
- +'c-'#255#169'i0'#255#178'n1'#255#181'q2'#255#182's3'#255#183't3'#255#184't3'
- +#255#184'v3'#255#185'v4'#255#186'w3'#255#185'v3'#255#184'u3'#255#184't3'#255
- +#183't3'#255#182'r3'#255#181'q2'#255#175'l1'#255#166'h/'#255#158'a,'#255#149
- ,'\*'#255#138'U('#255'zK"'#255'sF '#255'pC '#255'l@'#31#255'i='#31#255'g;'#30
- +#255'c8'#31#252'[<*'#237'RC8'#218'IGD'#205'HFD'#204'EED'#201'DDC'#198'EED'
- +#191'DDD'#179'CCC'#161'DDD'#136'CCCkEEEJDDD-@@@'#24'FFF'#11'@@@'#4#0#0#0#1#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'UUU'#3'999'#9'FFF'#22'CCC*DDDGDDDiCCC'#138'EED'#165'FEC'#184'FEC'#194
- +'HHD'#200'QC9'#216'[<*'#237'c8'#31#253'g;'#30#255'j>'#31#255'nA '#255'sF!'
- +#255'|M#'#255#141'W('#255#158'a,'#255#173'k1'#255#181'r3'#255#185'v4'#255#187
- +'y4'#255#189'{4'#255#191'~5'#255#193#129'5'#255#195#131'5'#255#196#132'6'#255
- +#197#134'6'#255#198#134'6'#255#199#136'6'#255#200#136'6'#255#200#137'6'#255
- +#199#136'6'#255#198#135'6'#255#198#134'6'#255#197#133'5'#255#196#132'6'#255
- +#195#131'5'#255#193#128'5'#255#191'~4'#255#188'z4'#255#186'x4'#255#184'u3'
- +#255#181'q2'#255#168'i/'#255#153'_+'#255#137'T'''#255'yJ"'#255'rE '#255'm@'
- +#31#255'i<'#31#255'f:'#30#255'b9!'#249'X>.'#232'MD>'#212'HFD'#204'EED'#202'E'
- +'ED'#198'EED'#192'CCC'#180'CCC'#160'DDD'#132'DDDbCCCACCC&CCC'#19'@@@'#8'UUU'
- +#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5
- +'III'#14'>>>!DDD'#255
- +#232#177'>'#255#234#179'?'#255#236#181'>'#255#236#182'?'#255#237#183'?'#255
- ,#237#183'?'#255#238#183'@'#255#238#184'?'#255#238#185'?'#255#238#184'?'#255
- +#238#183'@'#255#237#182'?'#255#237#183'?'#255#236#182'?'#255#236#181'>'#255
- +#234#179'>'#255#232#176'>'#255#230#175'>'#255#229#172'='#255#227#169'='#255
- +#224#167'='#255#220#161'<'#255#217#157'<'#255#213#153';'#255#209#148':'#255
- +#204#142'9'#255#198#135'8'#255#193#129'7'#255#188'{6'#255#183't5'#255#171'k2'
- +#255#142'W)'#255'tH"'#255'nA '#255'h<'#31#255'd7'#30#255'[:('#240'KD?'#211'G'
- +'FD'#204'DDC'#201'EDD'#195'CCC'#182'CCC'#159'CCC}EEEUBBB2@@@'#24'999'#9'UUU'
- +#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'333'#5'III'#14'BBB#EEECCCCkEEE'#145'DDC'#174'FFE'#192'KE@'#206'Z;)'
- +#238'c8'#30#255'i<'#31#255'oB!'#255'|M%'#255#153'_-'#255#178'o4'#255#186'x6'
- +#255#192#128'7'#255#198#135'9'#255#204#142':'#255#209#149';'#255#214#155'='
- +#255#219#161'>'#255#223#167'>'#255#227#170'>'#255#230#174'?'#255#232#177'@'
- +#255#235#181'A'#255#237#183'A'#255#238#185'A'#255#240#187'A'#255#241#188'A'
- +#255#242#189'B'#255#243#190'A'#255#244#191'B'#255#244#192'B'#255#244#191'B'
- +#255#244#192'B'#255#244#192'B'#255#245#193'A'#255#244#192'B'#255#244#192'B'
- +#255#244#191'B'#255#244#192'B'#255#244#191'B'#255#243#190'A'#255#242#189'B'
- +#255#240#187'A'#255#239#186'A'#255#238#184'@'#255#237#183'A'#255#235#179'@'
- +#255#232#176'?'#255#229#173'?'#255#226#169'?'#255#223#165'>'#255#218#160'='
- +#255#213#153'<'#255#208#147';'#255#202#140':'#255#196#133'9'#255#190'~7'#255
- +#184'v6'#255#173'l3'#255#145'Y+'#255'uH$'#255'm@ '#255'g;'#31#255'b7'#31#253
- +'U>/'#230'IEC'#206'FFE'#202'EED'#199'CCC'#189'DDD'#170'DDD'#139'BBBdCCC=BBB'
- +#31'@@@'#12'UUU'#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'UUU'#6'KKK'#17'DDD)EEENDDDxDCC'#157'DDC'#182'GGC'#197'T=1'#225'a7 '
- +#252'g;'#31#255'l@ '#255'wI$'#255#154'^.'#255#179'o6'#255#186'x7'#255#193#128
- +'9'#255#200#137':'#255#207#146'<'#255#212#153'>'#255#217#159'>'#255#222#166
- +'?'#255#227#170'@'#255#231#175'A'#255#234#180'B'#255#236#182'B'#255#238#185
- +'B'#255#240#187'B'#255#242#190'D'#255#243#191'C'#255#244#192'D'#255#245#193
- +'C'#255#246#194'D'#255#247#194'D'#255#247#196'E'#255#247#196'D'#255#247#196
- +'D'#255#248#197'D'#255#248#197'D'#255#248#197'D'#255#248#197'D'#255#248#197
- +'D'#255#248#197'D'#255#248#196'D'#255#247#196'D'#255#247#196'D'#255#247#195
- +'E'#255#246#195'D'#255#245#193'D'#255#245#193'C'#255#244#192'D'#255#243#191
- +'C'#255#242#189'C'#255#240#186'C'#255#238#184'C'#255#236#182'B'#255#233#179
- +'B'#255#230#174'A'#255#226#169'@'#255#221#164'?'#255#216#157'>'#255#211#151
- +'='#255#205#143'<'#255#198#135':'#255#191#127'8'#255#184'w7'#255#174'l4'#255
- +#144'X+'#255'rE"'#255'j> '#255'e9'#30#255'_8"'#247'O@8'#219'GFD'#204'DDC'#201
- +'CCC'#194'CCC'#178'DDD'#151'DDDqDDDGGGG$III'#14'@@@'#4#0#0#0#1#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#2'III'#7'@@@'#20'CCC.DDDVCCC'#130'EED'#165'DDC'#189
- +'LB='#207']7$'#244'd7'#31#255'j> '#255'qE"'#255#140'W+'#255#174'l5'#255#186
- +'x8'#255#193#129':'#255#200#138'<'#255#207#146'>'#255#213#155'?'#255#220#163
- +'@'#255#225#169'A'#255#229#174'B'#255#233#179'D'#255#236#182'D'#255#239#185
- +'D'#255#241#189'E'#255#242#190'E'#255#244#192'E'#255#245#194'E'#255#246#195
- +'F'#255#247#195'F'#255#247#196'G'#255#247#197'F'#255#248#197'F'#255#248#197
- +'F'#255#249#198'F'#255#249#198'G'#255#249#198'G'#255#249#198'G'#255#249#198
- +'G'#255#249#198'G'#255#249#198'G'#255#249#198'G'#255#249#198'G'#255#249#198
- +'G'#255#249#198'G'#255#249#198'G'#255#249#198'F'#255#248#197'F'#255#248#197
- +'F'#255#247#196'F'#255#247#196'F'#255#247#195'F'#255#246#194'F'#255#244#193
- +'F'#255#243#191'E'#255#242#190'E'#255#240#188'E'#255#238#185'D'#255#235#181
- +'D'#255#232#178'C'#255#228#172'C'#255#223#167'B'#255#218#161'@'#255#212#153
- +'?'#255#205#144'='#255#198#135';'#255#191#127'9'#255#183'u7'#255#167'g3'#255
- +#130'P('#255'oB"'#255'h< '#255'c7'#30#255'X:*'#237'HFB'#207'EEE'#202'DCC'#197
- +'DDD'#184'CCC'#160'CCCzEEENFFF(@@@'#16'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2
- +'III'#7'FFF'#22'BBB2CCC\DDD'#136'DDC'#171'EED'#192'Q?5'#219'a6'#31#252'f:'#31
- +#255'mA!'#255#127'N'''#255#164'f3'#255#182'u8'#255#190#127':'#255#199#138'='
- +#255#207#147'?'#255#213#155'A'#255#220#163'B'#255#225#170'D'#255#230#177'E'
- +#255#234#181'E'#255#237#184'F'#255#240#188'G'#255#242#189'G'#255#243#192'G'
- +#255#244#193'H'#255#245#194'H'#255#246#195'H'#255#247#196'H'#255#247#197'H'
- +#255#247#197'H'#255#248#198'H'#255#248#198'H'#255#248#197'H'#255#248#198'H'
- +#255#248#198'I'#255#249#198'I'#255#249#198'I'#255#249#198'I'#255#249#198'I'
- +#255#249#198'I'#255#249#198'I'#255#249#198'I'#255#249#198'I'#255#249#198'I'
- +#255#249#198'I'#255#249#198'I'#255#248#198'I'#255#248#198'H'#255#248#198'H'
- +#255#248#198'H'#255#248#198'H'#255#247#197'H'#255#247#196'I'#255#247#195'H'
- +#255#246#195'H'#255#245#195'H'#255#244#193'H'#255#243#191'G'#255#241#189'G'
- +#255#239#186'G'#255#236#183'F'#255#233#180'F'#255#229#175'D'#255#224#168'D'
- +#255#218#161'B'#255#211#153'@'#255#205#144'?'#255#196#134'='#255#188'{:'#255
- +#180'r8'#255#155'_/'#255'wJ$'#255'j? '#255'e8'#30#255']8#'#246'LB<'#213'FEE'
- +#203'EED'#199'DDD'#188'DDD'#165'DDD'#128'DDDSFFF,GGG'#18'+++'#6#0#0#0#1#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#2'III'#7'CCC'#23'BBB6DDDaCCC'#141'DDC'#174'GDB'#196'V:+'#233'c7'#30#255'h; '
- +#255'pC#'#255#146'Z-'#255#179'p7'#255#187'{;'#255#196#133'='#255#204#144'?'
- +#255#212#154'B'#255#219#163'E'#255#225#170'E'#255#230#176'G'#255#234#181'H'
- +#255#238#185'I'#255#240#189'I'#255#242#190'J'#255#243#192'J'#255#244#193'J'
- +#255#245#195'J'#255#246#195'J'#255#246#196'J'#255#247#196'K'#255#247#196'K'
- +#255#247#197'K'#255#247#197'K'#255#247#197'K'#255#247#197'J'#255#247#197'J'
- +#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'
- +#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'
- +#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#198'J'#255#247#197'J'
- +#255#247#197'J'#255#247#197'J'#255#247#197'K'#255#247#197'K'#255#247#197'K'
- +#255#247#196'K'#255#246#196'K'#255#246#196'J'#255#246#195'J'#255#245#195'J'
- +#255#244#194'J'#255#243#191'I'#255#241#189'I'#255#239#188'I'#255#236#184'H'
- +#255#233#180'H'#255#228#174'G'#255#223#168'E'#255#217#160'C'#255#210#151'B'
- +#255#202#141'?'#255#193#130'<'#255#185'x:'#255#174'm6'#255#134'S*'#255'mA"'
- +#255'f:'#31#255'a6'#30#253'R>4'#224'FFE'#203'EED'#200'CCC'#190'DDD'#169'CCC'
- +#133'CCCXAAA/CCC'#19'+++'#6#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'CCC'#23'BBB6CCCcCCC'#144'EED'#177'JC>'#202
- +'[6"'#244'c8'#31#255'j?!'#255'xI&'#255#162'd2'#255#183'u:'#255#192#129'='#255
- +#200#140'@'#255#209#150'B'#255#217#160'E'#255#223#169'G'#255#229#176'H'#255
- +#233#181'J'#255#236#185'J'#255#239#188'K'#255#241#190'K'#255#242#192'K'#255
- +#243#193'L'#255#244#194'L'#255#245#195'L'#255#245#195'L'#255#245#195'L'#255
- +#246#196'L'#255#246#196'L'#255#246#196'L'#255#246#196'L'#255#246#196'M'#255
- +#246#196'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255
- +#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255
- +#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255
- +#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#197'M'#255#246#196'M'#255
- +#246#196'M'#255#246#196'M'#255#246#196'L'#255#246#196'L'#255#246#196'L'#255
- +#246#196'L'#255#245#195'L'#255#245#196'L'#255#244#195'M'#255#244#194'L'#255
- +#243#193'L'#255#242#192'L'#255#241#190'K'#255#238#188'K'#255#236#184'J'#255
- +#232#179'I'#255#228#173'H'#255#222#166'F'#255#215#158'E'#255#207#148'B'#255
- +#198#137'?'#255#190'~<'#255#180'r9'#255#150']/'#255'qE$'#255'h< '#255'b6'#30
- +#255'W9*'#235'GED'#204'DDC'#201'DDD'#192'CCC'#172'CCC'#137'DDDZAAA/GGG'#18'3'
- +'33'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'+++'#6'II'
- +'I'#21'CCC5DDDbCCC'#145'DDC'#178'LB;'#206'^6 '#249'd8'#31#255'l@!'#255#131'Q'
- +'*'#255#172'k7'#255#186'z;'#255#196#133'?'#255#205#146'C'#255#213#156'E'#255
- +#220#165'G'#255#227#173'I'#255#232#180'K'#255#236#184'L'#255#238#187'L'#255
- ,#240#189'N'#255#241#191'N'#255#242#192'N'#255#243#193'N'#255#244#194'N'#255
- +#244#194'N'#255#244#194'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255#244#195'O'#255
- +#244#195'O'#255#244#195'O'#255#244#194'O'#255#244#195'N'#255#244#194'N'#255
- +#243#193'N'#255#242#192'M'#255#241#190'N'#255#240#189'M'#255#237#186'M'#255
- +#235#182'L'#255#230#178'K'#255#225#171'I'#255#219#163'G'#255#211#153'D'#255
- +#202#143'B'#255#192#130'>'#255#183'u:'#255#164'f4'#255'yK&'#255'i=!'#255'c7'
- +#30#255'Z8%'#241'GEC'#205'DDC'#201'CCC'#193'DDD'#173'DDD'#136'BBBYDDD-KKK'#17
- +'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5'CCC'#19'BBB2CCC_DD'
- +'D'#143'DDC'#178'M@8'#211'_5'#31#251'e9'#31#255'lA"'#255#144'Y/'#255#179'r9'
- +#255#188'}='#255#198#138'B'#255#208#149'D'#255#217#161'H'#255#223#170'K'#255
- +#229#177'L'#255#234#181'M'#255#236#186'N'#255#239#188'O'#255#240#190'P'#255
- +#241#191'P'#255#242#192'P'#255#242#192'P'#255#242#193'P'#255#243#193'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255
- +#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#194'P'#255#243#193'P'#255
- +#242#193'P'#255#242#192'O'#255#242#192'P'#255#241#192'P'#255#240#190'P'#255
- +#238#188'O'#255#236#185'N'#255#232#180'M'#255#228#175'L'#255#222#167'I'#255
- +#215#159'H'#255#205#147'D'#255#196#134'@'#255#186'y<'#255#173'm7'#255#130'O*'
- +#255'j?!'#255'c8'#31#255'[7#'#245'HDA'#208'DDC'#201'CCC'#193'CCC'#172'CCC'
- +#134'AAAVAAA+@@@'#16'@@@'#4#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'#4'<<<'#17'CCC.CC'
- +'C[CCC'#140'EED'#176'O>5'#213'_5'#30#253'e9'#31#255'nB#'#255#151'\1'#255#181
- +'s:'#255#191#129'@'#255#201#142'C'#255#211#154'G'#255#219#164'K'#255#226#173
- +'M'#255#231#179'O'#255#234#184'P'#255#237#187'Q'#255#239#189'Q'#255#240#190
- +'R'#255#240#191'Q'#255#241#192'R'#255#241#192'R'#255#241#192'R'#255#242#192
- +'R'#255#242#192'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193'R'#255#242#193
- +'R'#255#242#192'R'#255#242#192'R'#255#241#192'R'#255#241#192'R'#255#241#192
- +'R'#255#240#191'Q'#255#240#190'R'#255#238#189'Q'#255#236#186'P'#255#234#182
- +'O'#255#230#177'N'#255#224#171'L'#255#217#162'J'#255#208#150'F'#255#198#138
- +'C'#255#188'}>'#255#177'o:'#255#136'S,'#255'k?"'#255'c8'#31#255'\6!'#248'JC?'
- +#211'DCC'#201'CCC'#193'CCC'#171'BBB'#131'DDDRAAA''777'#14'UUU'#3#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +'UUU'#3';;;'#13'AAA''CCCTBBB'#135'DDC'#174'N=5'#213'`4'#29#254'e9'#31#255'oC'
- +'$'#255#156'`3'#255#181'u<'#255#193#131'A'#255#204#146'E'#255#213#157'I'#255
- +#221#167'M'#255#227#175'O'#255#232#180'Q'#255#235#184'R'#255#237#187'S'#255
- +#238#189'S'#255#239#190'S'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- ,#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#234#187'R'#255#202#161'G'#255#232#185'R'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255#240#191'T'#255
- +#239#189'S'#255#238#188'R'#255#236#186'R'#255#234#184'Q'#255#231#179'Q'#255
- +#226#173'O'#255#219#165'L'#255#211#154'H'#255#201#142'E'#255#190#128'@'#255
- +#179'q:'#255#140'V.'#255'l@"'#255'c8'#31#255'\4'#31#250'JC>'#211'CCC'#201'DD'
- +'D'#192'CCC'#168'CCC~DDDKFFF!MMM'#10#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#2'333'#10'@@@ EEE'
- +'JCCC~EDD'#169'L?8'#208'^4'#30#253'd8 '#255'pD%'#255#159'b4'#255#182'v='#255
- +#194#132'C'#255#205#147'H'#255#215#160'L'#255#222#169'O'#255#228#176'Q'#255
- +#232#181'S'#255#235#185'T'#255#236#187'T'#255#237#188'U'#255#238#189'U'#255
- +#238#190'U'#255#238#190'U'#255#238#191'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#181#144'@'#255
- +';/'#21#255#21#16#7#255#9#7#3#255#2#2#1#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1
- +#1#255#7#6#3#255#17#14#6#255#31#25#11#255'2'''#18#255'SB'#29#255#157'}8'#255
- +#233#186'S'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255
- +#239#190'U'#255#239#190'U'#255#239#190'U'#255#238#190'U'#255#238#190'U'#255
- +#238#190'U'#255#238#189'U'#255#237#188'U'#255#236#186'T'#255#234#184'T'#255
- +#231#180'S'#255#226#175'Q'#255#220#166'N'#255#212#156'K'#255#202#143'F'#255
- +#190#129'A'#255#179'r<'#255#145'Y0'#255'k?"'#255'c7'#31#255'[4 '#248'IC@'#209
- +'DDD'#200'CCC'#190'CCC'#163'DDDtCCCAEEE'#26'III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'==='#25'AAA?CCCsBBB'
- +#162'K?;'#202'^4'#30#252'c8 '#255'oB%'#255#160'b5'#255#183'v>'#255#194#134'D'
- +#255#205#148'J'#255#215#161'M'#255#223#171'Q'#255#228#177'T'#255#232#182'U'
- +#255#234#185'V'#255#236#187'V'#255#236#187'V'#255#237#188'W'#255#237#189'W'
- +#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'
- +#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'
- +#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'
- +#255#237#188'W'#255#237#188'W'#255#159'~:'#255#16#13#6#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255#16#13#6
- +#255'9-'#21#255'y`,'#255#208#165'M'#255#237#188'W'#255#237#188'W'#255#237#188
- +'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188
- +'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#188
- +'W'#255#237#188'W'#255#237#188'W'#255#237#188'W'#255#237#189'W'#255#237#188
- +'W'#255#236#187'V'#255#235#186'V'#255#234#184'U'#255#231#180'U'#255#227#175
- +'R'#255#221#169'Q'#255#213#157'L'#255#202#144'H'#255#191#129'C'#255#180's='
- +#255#145'X0'#255'j>#'#255'b6'#31#255'Z5#'#245'GDB'#206'DDD'#200'CCC'#186'DDD'
- +#154'EEEhBBB6@@@'#20'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'@@@'#4'GGG'#18'AAA3DDDfCCC'#152'IA>'#195'\4 '#250'c7'#31#255'm@#'#255
- +#156'_5'#255#182'v?'#255#194#134'E'#255#206#148'K'#255#215#161'O'#255#223#171
- +'S'#255#228#178'V'#255#232#182'V'#255#233#185'X'#255#234#186'X'#255#235#187
- +'X'#255#236#187'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188
- +'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188
- +'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188
- +'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255'9-'#21
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#6
- +#5#2#255'$'#29#14#255'ZH"'#255#169#135'@'#255#234#186'X'#255#236#188'X'#255
- ,#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255
- +#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255
- +#236#188'X'#255#236#187'X'#255#235#187'Y'#255#235#186'X'#255#234#186'X'#255
- +#233#184'W'#255#231#180'W'#255#227#176'T'#255#221#169'R'#255#213#158'N'#255
- +#203#145'J'#255#192#130'D'#255#179's='#255#139'U/'#255'i="'#255'a5'#30#255'X'
- +'7%'#242'FDC'#204'CCC'#198'DDD'#180'CCC'#144'CCC[AAA+III'#14'UUU'#3#0#0#0#1#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#2'@@@'#12'AAA''CCCWCCC'#140'GB?'
- +#185'Z4!'#247'a6'#30#255'j?"'#255#151']2'#255#181't>'#255#194#133'F'#255#206
- +#149'M'#255#215#161'Q'#255#223#170'T'#255#228#178'W'#255#231#181'Y'#255#232
- +#183'Y'#255#233#185'Z'#255#234#185'Y'#255#234#186'Y'#255#234#186'Y'#255#234
- +#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234
- +#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234
- +#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234
- +#186'Z'#255#234#186'Z'#255'C5'#26#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#1#1#1#255#20#16#8#255'K;'#29#255#189#150'I'#255#234#186'Z'#255#234#186
- +'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186
- +'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Z'#255#234#186'Y'#255#234#186
- +'Y'#255#234#185'Y'#255#233#185'Z'#255#232#183'Y'#255#230#181'X'#255#226#176
- +'W'#255#221#169'T'#255#213#159'O'#255#203#145'K'#255#190#129'D'#255#178'p='
- +#255#134'Q-'#255'g;"'#255'`4'#29#255'U7('#238'CCC'#202'DDD'#195'DDD'#173'BBB'
- +#131'CCCL@@@ 999'#9#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'BBB'#27'CC'
- +'CEDDD|DDD'#170'V6%'#238'`5'#30#255'h<"'#255#145'Y1'#255#179's?'#255#192#132
- +'F'#255#205#148'M'#255#215#161'R'#255#222#171'U'#255#227#176'X'#255#230#181
- +'Z'#255#231#183'Z'#255#232#183'['#255#232#184'['#255#233#185'['#255#233#185
- +'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185
- +'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185
- +'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185
- +'['#255#233#185'['#255#233#185'['#255#127'd1'#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#13#11#5
- +#255'N>'#31#255#193#153'L'#255#233#185'['#255#233#185'['#255#233#185'['#255
- +#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255#233#185'['#255
- +#233#185'['#255#233#184'['#255#232#184'['#255#232#183'Z'#255#231#182'Z'#255
- +#229#180'Y'#255#226#175'X'#255#220#168'U'#255#213#158'R'#255#201#144'K'#255
- +#189#127'D'#255#175'n<'#255#128'N+'#255'e9 '#255'_3'#29#255'Q;1'#227'CCC'#201
- +'CCC'#191'CCC'#163'CCCrAAA;FFF'#22'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'#4'<<<'
- +#17'AAA3EEEhCCC'#156'R:/'#220'_3'#29#255'e: '#255#134'Q-'#255#178'p>'#255#190
- +#130'F'#255#203#145'M'#255#213#161'S'#255#221#170'W'#255#226#176'Z'#255#229
- +#180'Z'#255#230#182'\'#255#231#182'\'#255#231#183'\'#255#231#183'\'#255#231
- +#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231
- +#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231
- +#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231
- +#183'\'#255#231#183'\'#255#231#183'\'#255#180#142'G'#255#1#1#1#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#15#12#6#255'VE"'#255#215#171'V'#255
- +#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255
- +#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#182'\'#255
- +#230#181'['#255#228#178'['#255#225#175'Y'#255#219#168'W'#255#211#156'Q'#255
- +#200#142'K'#255#187'|D'#255#172'k<'#255'wF('#255'c7 '#255'^1'#30#254'K@:'#214
- +'DDD'#199'CCC'#184'CCC'#148'AAA^GGG+NNN'#13'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'MMM'#10'@'
- +'@@$DDDSDDD'#139'L?8'#197'^1'#29#254'c7 '#255'wG)'#255#173'l<'#255#188#127'E'
- +#255#201#144'N'#255#212#158'T'#255#220#169'X'#255#225#175'['#255#228#179'\'
- +#255#229#180'\'#255#230#181']'#255#230#181']'#255#230#182']'#255#230#182']'
- +#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'
- +#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'
- +#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'#255#230#182']'
- +#255#230#182']'#255#230#182']'#255#221#175'Y'#255#10#8#4#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1#255'4'
- +')'#21#255#184#146'J'#255#230#182']'#255#230#182']'#255#230#182']'#255#230
- +#182']'#255#230#182']'#255#230#182']'#255#230#182']'#255#230#181']'#255#229
- +#182']'#255#228#180']'#255#227#178'\'#255#224#174'['#255#218#166'W'#255#209
- +#155'R'#255#198#139'K'#255#184'zC'#255#162'd8'#255'l@$'#255'a5'#30#255'Z3 '
- +#249'FBA'#206'DDD'#196'CCC'#174'CCC'#129'BBBIFFF'#29'@@@'#8#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5'FF'
- +'F'#22'BBB>CCCvFA?'#174'Z3'#31#248'`5'#30#255'l@$'#255#163'd9'#255#184'{D'
- +#255#199#142'N'#255#210#156'T'#255#218#167'Y'#255#223#174'\'#255#226#177'^'
- +#255#228#179'^'#255#228#179'^'#255#228#180'_'#255#228#180'_'#255#228#180'_'
- +#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'
- +#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'
- +#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'
- +#255#228#180'_'#255#228#180'_'#255#228#180'_'#255'bM)'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#27#21#11#255#140'o;'#255#228#180'_'#255#228#180
- +'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180
- +'_'#255#228#179'^'#255#227#179'^'#255#226#176']'#255#222#172'['#255#216#164
- +'X'#255#207#152'R'#255#195#137'K'#255#181'tA'#255#149'Z3'#255'g<"'#255'_3'#29
- +#255'V6'''#239'CCC'#201'CCC'#190'CCC'#159'CCCkCCC5GGG'#18'@@@'#4#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'@@@'#12'CCC'
- +'*DDD^DDD'#150'U6('#230'^2'#28#255'f:!'#255#149'Z3'#255#181'uB'#255#195#137
- +'K'#255#208#154'T'#255#216#165'Y'#255#221#172']'#255#225#176'^'#255#226#178
- +'_'#255#227#178'_'#255#227#178'_'#255#227#179'_'#255#227#179'_'#255#227#179
- +'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179
- +'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179
- +'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179
- +'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#13#10#6#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'&'#30#16#255#208#164
- +'W'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#178
- +'_'#255#227#178'_'#255#226#179'`'#255#226#177'_'#255#224#176'^'#255#220#170
- +'\'#255#214#162'X'#255#205#149'R'#255#191#131'I'#255#177'p?'#255#131'O.'#255
- +'c7 '#255']1'#29#255'N;3'#222'DDD'#199'DDD'#181'CCC'#140'DDDSDDD"999'#9#0#0#0
- +#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'+++'#6'@@@'#24
- +'EEECCCC~K=7'#193']0'#28#255'b6'#31#255#129'M,'#255#177'o@'#255#191#131'J'
- +#255#204#149'S'#255#214#163'Z'#255#220#171']'#255#223#174'_'#255#225#176'`'
- +#255#225#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'
- +#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'
- +#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'
- ,#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'
- +#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#161'~D'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#4#3#2
- +#255#134'i9'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255#226#177'`'#255
- +#226#177'`'#255#225#178'`'#255#225#177'`'#255#224#176'_'#255#222#174'^'#255
- +#219#169']'#255#212#159'X'#255#200#144'Q'#255#187'~G'#255#170'j<'#255'qB%'
- +#255'`5'#30#255'Z2'#31#250'FBA'#205'CCC'#193'DDD'#166'CCCsCCC9CCC'#19'@@@'#4
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'@@@'#12'AAA+BBB'
- +'aDBB'#155'Y3!'#244'_3'#29#255'l?$'#255#167'f;'#255#186'}H'#255#200#144'R'
- +#255#211#158'Y'#255#218#168']'#255#221#172'`'#255#223#174'a'#255#223#176'a'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176'b'
- +#255#224#176'b'#255#224#176'b'#255#224#176'b'#255'hR.'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'qY2'#255#224#176'b'#255#224#176'b'#255#224#176'b'#255#224#176
- +'b'#255#224#176'b'#255#224#176'b'#255#223#176'a'#255#223#174'`'#255#221#172
- +'_'#255#217#166']'#255#208#155'W'#255#196#139'O'#255#182'wE'#255#152'\5'#255
- +'e9!'#255'^2'#29#255'S7*'#233'DDD'#200'CCC'#183'DDD'#143'EEEUDDD"UUU'#9#0#0#0
- +#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5'@@@'#24'DDDDCCC~P8-'
- +#211']0'#29#255'c8!'#255#144'V2'#255#180'uD'#255#196#138'P'#255#207#155'X'
- +#255#215#165']'#255#220#171'`'#255#221#173'b'#255#222#174'a'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'
- +#255#222#175'b'#255#222#175'b'#255#222#175'b'#255'VD&'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#1#1#0#255#166#132'J'#255#222#175'b'#255#222#175'b'#255#222#175
- +'b'#255#222#175'b'#255#222#175'b'#255#222#175'b'#255#222#174'a'#255#221#173
- +'a'#255#219#170'`'#255#213#163'\'#255#205#150'V'#255#192#132'M'#255#176'oA'
- +#255'}K,'#255'a5'#31#255'\0'#28#254'I?;'#212'CCC'#194'DDD'#166'CCCrDDD8GGG'
- +#18'@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'FFF'#11'DDD)BBB`G@<'
- +#164'[1'#29#252'_3'#29#255'uD)'#255#174'l?'#255#189#130'L'#255#204#150'V'#255
- +#213#162'^'#255#217#168'`'#255#220#172'b'#255#221#173'b'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255'gQ.'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- ,#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#8#6#4#255#207#163']'#255#221#173'c'#255
- +#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255#221#173'c'#255
- +#221#172'b'#255#219#171'b'#255#217#167'`'#255#211#159'['#255#200#145'T'#255
- +#185'{H'#255#164'd;'#255'h<#'#255'^1'#29#255'X3#'#244'DDD'#200'CCC'#183'DDD'
- +#142'DDDSFFF!@@@'#8#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4'III'#21'EEE?DD'
- +'D|S5'''#222'\1'#28#255'c8!'#255#158'_8'#255#183'yH'#255#198#142'S'#255#209
- +#158'\'#255#215#166'`'#255#218#170'b'#255#219#171'c'#255#219#171'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219
- +#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#213
- +#168'b'#255#3#3#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'M<#'#255#219#172
- +'d'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172'd'#255#219#172
- +'d'#255#219#171'd'#255#219#170'c'#255#217#168'b'#255#214#164'`'#255#207#153
- +'Z'#255#194#136'P'#255#178'rD'#255#139'R1'#255'a4'#31#255'\0'#28#255'L<5'#219
- +'CCC'#193'DDD'#164'CCCoCCC5@@@'#16'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'#8
- +'BBB#CCCWHA='#158'\0'#28#253'_3'#29#255'~I+'#255#175'nB'#255#191#133'O'#255
- +#205#151'Z'#255#213#163'a'#255#216#167'c'#255#217#169'c'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255'YF)'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#15#12#7#255#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#170'd'#255
- +#218#170'd'#255#218#170'd'#255#218#170'd'#255#218#169'c'#255#217#168'c'#255
- +#215#166'b'#255#211#160'_'#255#201#147'W'#255#187#127'L'#255#169'h>'#255'l=$'
- +#255'^1'#29#255'W3"'#244'DDD'#199'DDD'#180'DDD'#136'DDDKBBB'#27'UUU'#6#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'UUU'#3'DDD'#15'EEE4BBBpS6)'#215'\1'#28#255'b7!'#255#158'_9'
- +#255#184'{J'#255#199#144'W'#255#209#158'_'#255#214#165'c'#255#216#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255
- +'YD)'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#189#147'W'#255#217#168'd'
- +#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'#255#217#168'd'
- +#255#217#168'd'#255#216#168'd'#255#215#167'c'#255#213#164'a'#255#207#154']'
- +#255#195#138'S'#255#179'tF'#255#139'R1'#255'`5'#30#255'\0'#28#255'K=7'#216'D'
- +'DD'#191'DDD'#157'CCCcAAA+FFF'#11#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'+++'#6'EEE'#26'BBBIE?='
- +#144'Z0'#28#252'^2'#29#255'zF*'#255#174'mB'#255#192#135'R'#255#205#152'\'#255
- +#211#161'b'#255#214#165'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255
- +#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255'jR1'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'fN/'#255#215#166'd'#255#215#166'd'#255#215#166'd'
- +#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'#255#215#166'd'
- +#255#215#167'e'#255#214#164'c'#255#210#159'a'#255#202#148'Z'#255#187#128'N'
- +#255#168'f='#255'i;#'#255'\1'#28#255'V3#'#242'CCC'#197'DDD'#173'BBB{FFF>@@@'
- +#20'@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#1'MMM'#10'FFF(CCC_R6*'#206'\0'#28#255'`5'#31#255#154'\8'
- +#255#182'yJ'#255#199#144'Y'#255#208#156'`'#255#212#163'd'#255#213#165'd'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255
- +#214#165'e'#255#214#165'e'#255#214#165'e'#255#135'h@'#255#2#1#1#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'b'
- +'L/'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#214#165
- +'e'#255#214#165'e'#255#214#165'e'#255#214#165'e'#255#213#165'e'#255#213#164
- +'d'#255#211#161'c'#255#206#154'^'#255#194#139'U'#255#177'sF'#255#135'P/'#255
- +'^3'#29#255'[/'#27#255'J>9'#213'DDD'#185'CCC'#144'DDDSHHH III'#7#0#0#0#1#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3
- +'<<<'#17'DDD8DBAyZ0'#29#248'\1'#28#255'uB'''#255#172'lA'#255#190#132'Q'#255
- +#203#151'^'#255#209#160'c'#255#211#162'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255
- +#212#163'e'#255#212#163'e'#255#212#163'e'#255#156'xK'#255#1#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'jQ2'#255#212
- +#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212
- +#163'e'#255#212#163'e'#255#212#163'e'#255#212#163'e'#255#212#162'e'#255#211
- +#162'd'#255#208#158'b'#255#200#147'['#255#186'~M'#255#165'd<'#255'd8!'#255'\'
- +'0'#28#255'T5'''#237'CCC'#193'DDD'#162'CCCjCCC.@@@'#12#0#0#0#2#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'333'#5'GGG'#25'BB'
- +'BIN:1'#174'[/'#27#255'^2'#29#255#145'T3'#255#180'vI'#255#196#142'Y'#255#206
- +#155'a'#255#209#161'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- ,#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255'O=&'#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'sX7'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#210
- +#161'f'#255#209#159'd'#255#204#153'`'#255#192#135'U'#255#175'pE'#255'~H+'#255
- +']0'#29#255'Z0'#28#253'FBA'#201'DDD'#176'CCC~FFF>CCC'#19'@@@'#4#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'999'#9'EEE%CCC[V3'
- +'$'#222'\0'#27#255'f7!'#255#167'd>'#255#187#128'Q'#255#200#148'^'#255#207#156
- +'d'#255#209#159'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160
- +'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160
- +'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160
- +'e'#255#209#160'e'#255#209#160'e'#255#151'tI'#255'2&'#25#255#27#21#13#255#15
- +#12#7#255#7#5#3#255#7#5#3#255' '#25#16#255'P='''#255#151'tI'#255#209#160'e'
- +#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'
- +#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'
- +#255#209#160'e'#255#209#160'e'#255#6#5#3#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#146'pF'#255#209#160'e'#255#209#160'e'#255
- +#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255
- +#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#160'e'#255#209#159'e'#255
- +#206#155'c'#255#198#143'['#255#182'zM'#255#151'Y6'#255'^3'#29#255'[/'#27#255
- +'N:1'#222'DDD'#185'DDD'#142'DDDOIII'#28'+++'#6#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2';;;'#13'DDD1F@=x[/'#28#253'\1'#28
- +#255'~G+'#255#174'oE'#255#193#137'X'#255#203#151'b'#255#207#156'e'#255#207
- +#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208
- +#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208
- +#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255'x[;'
- +#255#15#12#8#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#4#3#2#255'bJ0'#255#208#158'f'#255#208#158'f'
- +#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'
- +#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255'3'''#25#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#1#255#208#158'f'
- +#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'
- +#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'#255#208#158'f'
- +#255#208#158'f'#255#207#158'e'#255#206#156'd'#255#201#149'_'#255#189#131'T'
- +#255#169'h@'#255'j:#'#255'\0'#28#255'V3#'#242'DDD'#191'CCC'#156'BBB`AAA''333'
- +#10#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4'C'
- +'CC'#19'EEE?Q7+'#179'[/'#27#255'^1'#29#255#152'X6'#255#181'yM'#255#197#144']'
- +#255#204#153'c'#255#206#155'f'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#202#154'c'#255'6)'#27#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#14#10#7#255#178#135'W'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255'WB+'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- ,#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#29#22#14#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'
- +#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#206#156'e'#255#205#156'e'
- +#255#203#151'c'#255#194#139'Z'#255#176'qH'#255#131'K-'#255'\1'#28#255'[/'#27
- +#255'HA='#204'DDD'#169'DDDqEEE4III'#14#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'+++'#6'BBB'#27'EEENW2!'#228'[/'#27#255'i9!'
- +#255#168'e?'#255#187#130'T'#255#200#147'`'#255#203#153'e'#255#205#154'e'#255
- +#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255
- +#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255
- +#205#154'e'#255#205#154'e'#255#199#150'a'#255#19#14#9#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#7#6#4#255#178#133'W'
- +#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'
- +#255#205#154'e'#255#205#154'e'#255#205#154'e'#255'S>)'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#128'a?'#255#205#154'e'#255#205#154'e'
- +#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'
- +#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'#255#205#154'e'
- +#255#205#154'e'#255#204#154'e'#255#203#152'd'#255#197#145'^'#255#182'zO'#255
- +#157'Z8'#255']1'#29#255'[/'#27#255'P9.'#226'CCC'#179'CCC'#129'CCCA@@@'#20'@@'
- +'@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'999'#9'EEE%EA?'
- +'b[/'#27#253'\0'#27#255#127'F*'#255#173'nG'#255#191#136'Z'#255#200#149'c'#255
- +#202#152'e'#255#202#152'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#31#24#16#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#11#8#6#255#200#151'e'#255#202#153'e'#255#202#153'e'#255#202
- +#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255'O;'''
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255''''#29#19#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#153'e'#255
- +#202#153'e'#255#202#153'e'#255#202#153'e'#255#202#152'e'#255#202#151'd'#255
- +#199#147'b'#255#188#130'U'#255#168'e@'#255'k:"'#255'[/'#27#255'V3$'#241'CCC'
- +#186'BBB'#142'EEENBBB'#27'+++'#6#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#2'@@@'#12'DDD-O:0'#146'[/'#27#255'\0'#28#255#145'R2'#255#179'wM'
- +#255#194#141'^'#255#200#148'c'#255#201#150'e'#255#201#150'e'#255#201#150'e'
- +#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'
- +#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'
- +#255';,'#30#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'S>*'#255#201#150'e'
- +#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'
- +#255#201#150'e'#255'K8&'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#29#22#14#255
- +#184#138']'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255
- ,#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255
- +#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255#201#150'e'#255
- +#201#150'e'#255#200#149'd'#255#199#148'c'#255#191#136'['#255#173'mG'#255'}D('
- +#255'\0'#27#255'Z0'#28#253'DBB'#192'CCC'#152'DDDZBBB#@@@'#8#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#2'III'#14'CCC5T5'''#190'[/'#27#255
- +'_2'#29#255#162'^:'#255#184'}S'#255#195#142'`'#255#198#147'd'#255#199#148'd'
- +#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'
- +#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'
- +#255#199#148'd'#255#147'mJ'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#3#2#1#255#195#144'b'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255
- +#199#148'd'#255#199#148'd'#255#199#148'd'#255'H6$'#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#3#2#1#255#23#17#12
- +#255'qT8'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199
- +#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199
- +#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#199
- +#148'd'#255#199#148'd'#255#199#148'd'#255#199#148'd'#255#198#146'c'#255#193
- +#140'^'#255#178'uN'#255#143'O1'#255'\0'#28#255'[/'#27#255'J=7'#208'CCC'#161
- +'DDDfAAA+FFF'#11#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'<<<'
- +#17'CCC=X1 '#227'[/'#27#255'm:"'#255#167'eA'#255#187#130'X'#255#195#143'a'
- +#255#196#144'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'
- +#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'
- +#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#19#14#10#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#135'cD'#255#197#145'c'#255#197
- +#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255'I5$'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#19#14#10#255'4&'#26#255'cI2'#255
- +#161'vP'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197
- +#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197
- +#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197
- +#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197#145'c'#255#197
- +#145'c'#255#197#145'b'#255#196#144'c'#255#194#140'`'#255#182'|S'#255#159'\:'
- +#255']2'#28#255'[/'#27#255'Q8-'#226'DDD'#168'DDDqAAA3NNN'#13#128#128#128#2#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4':::'#22'G@/[/'#27
- +#254'[/'#27#255'}A&'#255#167'gD'#255#180'zW'#255#181'|Y'#255#181'|Y'#255#181
- +'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'
- +#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#136']C'#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#19#13#9#255#151'gJ'#255#181'|Y'#255#181'|Y'#255#181
- +'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'
- +#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#171'vU'#255'1"'#24#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'}V>'#255
- +#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181
- +'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'
- +#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255
- +#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181
- +'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'#255#181'|Y'
- +#255#181'|Y'#255#181'|Y'#255#178'wT'#255#161'];'#255'k8 '#255'[/'#27#255'V3#'
- +#238'DDD'#151'CCCWFFF!@@@'#8#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'FFF'#11
- +'K:3?[/'#27#255'[/'#27#255#131'F*'#255#169'iH'#255#179'xV'#255#180'zW'#255
- +#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180
- +'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255'<)'#29#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#1#1#1#255'O6&'#255#180'{W'#255#180'{W'#255#180'{W'#255#180
- +'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'
- +#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255
- +#180'{W'#255#142'aE'#255#27#19#13#255#2#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255
- ,#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8#5#4#255
- +#135']A'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180
- +'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255'pL6'#255'+'#29#20#255'('#28#19
- +#255'*'#28#20#255'+'#29#21#255'-'#30#21#255'fF2'#255#180'{W'#255#180'{W'#255
- +#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180
- +'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'#255#180'{W'
- +#255#180'{W'#255#180'{W'#255#180'{W'#255#180'zX'#255#178'vU'#255#163'_>'#255
- +'r<"'#255'[/'#27#255'X2!'#243'CCC'#152'BBBYDDD"@@@'#8#0#0#0#1#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#2'FFF'#11'N8.J[/'#27#255'[/'#27#255#135'H,'#255#170'kI'#255
- +#178'wV'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179
- +'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'
- +#255#16#11#8#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#19#13#10#255#150'fJ'#255#179'yX'#255#179
- +'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'
- +#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255
- +#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179
- +'yX'#255'~V>'#255'=)'#30#255#19#13#9#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255'$'#24#17#255#172'uT'#255#179'yX'#255#179'yX'#255#179'yX'
- +#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#158'kN'#255'=)'#30#255#6
- +#4#3#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#6#4#3#255'?+'#31#255#164'oP'#255#179'yX'#255#179'yX'#255#179'yX'#255#179
- +'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'
- +#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255#179'yX'#255
- +#177'uU'#255#164'b@'#255'v?%'#255'[/'#27#255'Y1'#31#246'CCC'#152'BBBYDDD"@@@'
- +#8#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'FFF'#11'Q7+U[/'#27#255'\0'#28#255
- +#139'J-'#255#171'lL'#255#177'wW'#255#178'wV'#255#178'wV'#255#178'wV'#255#178
- +'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'
- +#255#178'wV'#255#172'sT'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1#255'O5&'#255#178'wV'#255#178'wV'
- +#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255
- +#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178
- +'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'
- +#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#176'wV'#255
- +'vO9'#255'7%'#27#255#16#10#8#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#11#8#6#255'9&'#28#255#137'\C'#255#178'wV'#255#178'wV'#255
- +#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255'M3%'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'4"'#25#255#178'wV'
- +#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255
- +#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178'wV'#255#178
- +'wV'#255#178'wV'#255#176'tT'#255#165'cC'#255'yA'''#255'[/'#27#255'Z0'#29#250
- +'DDD'#150'CCCWFFF!III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'MMM'#10'R4'
- +'''^[/'#27#255'\0'#28#255#142'M.'#255#171'nN'#255#177'uV'#255#177'wX'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255#177'wX'#255'gF3'#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#23#16#12#255#152'fK'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255
- +#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#173'uV'#255
- +#136'\D'#255#133'YB'#255#131'XA'#255#128'V@'#255#153'gL'#255#177'wX'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255'S8)'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255'"'#23#17#255#175'wX'#255#177'wX'#255#177
- +'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'
- +#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#177'wX'#255#175'tU'#255
- +#166'eE'#255'}B)'#255'\0'#28#255'[/'#28#253'CCC'#148'CCCTBBB'#31'III'#7#0#0#0
- ,#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'999'#9'V4%h[/'#27#255'\0'#28#255#145'O0'
- +#255#171'mN'#255#175'sU'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175
- +'uW'#255'*'#29#21#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2
- +#1#1#255'X;,'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175
- +'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'
- +#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175
- +'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'
- +#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255'^?/'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'$'#24#18#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255
- +#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175'uW'#255#175
- +'uW'#255#175'uW'#255#175'uW'#255#175'sT'#255#166'eE'#255#128'D*'#255'\0'#28
- +#255'[/'#27#255'ECB'#149'CCCP@@@'#28'UUU'#6#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#1'@@@'#8'W3#q[/'#27#255'\1'#29#255#150'Q1'#255#171'mN'#255#174'sU'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#15#10#8#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#4#3#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#29#19#14#255#156'iM'#255#175'uV'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'
- +#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'
- +#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#11#7#6#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255'sM9'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255
- +#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175'uV'#255#175
- +'tV'#255#174'rS'#255#167'fG'#255#131'G,'#255'\0'#28#255'[/'#27#255'GA?'#150
- +'CCCLGGG'#25'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'W3#k[/'#27
- +#255'\1'#29#255#149'P2'#255#169'lM'#255#174'qT'#255#175'tV'#255#175'tV'#255
- +#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175
- +'tV'#255#175'tV'#255#175'tV'#255#9#6#4#255#0#0#0#255#0#0#0#255#0#0#0#255#136
- +'ZC'#255'T8*'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#7#5#3#255
- +'bA0'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'
- +#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255
- +#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175
- +'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'
- +#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255
- +#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175
- +'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'
- +#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255
- +#165'nR'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#10#7#5#255#175'tV'#255#175
- +'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'#255#175'tV'
- +#255#175'tV'#255#175'tV'#255#175'tV'#255#174'sU'#255#173'qR'#255#166'eG'#255
- +#131'F,'#255'\0'#28#255'[/'#27#255'EA?'#145'DDDGFFF'#22'@@@'#4#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#1'333'#5'W3#\[/'#27#255'\1'#29#255#146'P3'#255#168
- +'jM'#255#173'pT'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'
- +#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#4#3#2#255#0#0#0#255#0#0#0#255#21#14#10#255#173'rU'#255#173'rU'#255#152'dK'
- +#255'dB1'#255'A+ '#255'D-!'#255#141']E'#255#173'rU'#255#173'rU'#255#173'rU'
- +#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173
- +'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'
- ,#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173
- +'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'
- +#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#169'pS'#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#139'\D'#255#173'rU'#255#173'rU'
- +#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255#173'rU'#255
- +#173'rU'#255#173'rU'#255#173'qT'#255#172'oR'#255#165'cF'#255#128'E+'#255'\0'
- +#28#255'[/'#27#255'CBA'#132'DDD@CCC'#19'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0'@@@'#4'U2"L[/'#27#255'\1'#29#255#143'N3'#255#168'hK'#255#172'oT'
- +#255#173'qU'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#1#1#1#255#0#0#0
- +#255#0#0#0#255'nI7'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173
- +'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'
- +#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173
- +'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'
- +#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173
- +'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'
- +#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#2#1#1#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255'H0$'#255#173'rV'#255#173'rV'#255#173'rV'
- +#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255#173'rV'#255
- +#173'rV'#255#173'qU'#255#171'nQ'#255#165'dF'#255'~D+'#255'\1'#29#255'Z0'#28
- +#252'CCCzCCC9@@@'#16#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U'
- +'UU'#3'T2#=[/'#27#255'\1'#29#255#140'N1'#255#166'gI'#255#171'oR'#255#173'qU'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#1#1#1#255#27#18#13#255'a@0'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173
- +'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173
- +'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173
- +'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'
- +#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255'$'#24#18#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#31#20#15#255#173'qU'#255#173'qU'#255#173'qU'#255
- +#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173'qU'#255#173
- +'qU'#255#172'pT'#255#169'lP'#255#164'aD'#255'{C*'#255'\1'#29#255'Y0'#30#247
- +'CCCoBBB2;;;'#13#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128
- +#2'V6''-[/'#27#255'\1'#29#255#137'L0'#255#165'fH'#255#170'mQ'#255#172'pT'#255
- +#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172
- +'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#166'lS'#255#172'pU'#255#172'pU'
- +#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255
- +#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172
- +'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'
- +#255#172'pU'#255#172'pU'#255#172'pU'#255#168'nS'#255#134'WB'#255'b@0'#255'tK'
- +'9'#255#166'lS'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'
- +#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255
- +#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172
- +'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'
- +#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255
- +#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#129'T@'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- ,#255#0#0#0#255#0#0#0#255#22#14#11#255#172'pU'#255#172'pU'#255#172'pU'#255#172
- +'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'#255#172'pU'
- +#255#172'oT'#255#170'mP'#255#163'`C'#255'xB*'#255'\1'#29#255'Y1'#31#241'BBBd'
- +'CCC*MMM'#10#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'T7*'#29
- +'[/'#27#255'\1'#29#255#134'J0'#255#165'dG'#255#169'lQ'#255#171'pU'#255#172'q'
- +'W'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'
- +#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255
- +#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172
- +'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'
- +#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255
- +#135'YD'#255'$'#24#18#255#3#2#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#8#5#4#255#30#20#16#255'xO='#255#172'qW'#255#172'qW'#255#172'qW'#255
- +#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172
- +'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'
- +#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255
- +#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172
- +'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#14#9#7#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#20#13#10#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'
- +#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#172'qW'#255#171'oT'#255
- +#169'jM'#255#162'_A'#255's>'''#255'\1'#29#255'X2 '#234'CCCXDDD"@@@'#8#0#0#0#1
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'C><'#9'[/'#27#247'\1'#29#255
- +'}F-'#255#164'bE'#255#169'lO'#255#171'pT'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255
- +#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172
- +'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255
- +#172'qV'#255#172'qV'#255#154'eM'#255#22#15#11#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#25#17#13#255#136'ZE'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255
- +#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172
- +'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255
- +#172'qV'#255'U7*'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#17#11#9#255#172'qV'#255#172
- +'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'#255#172'qV'
- +#255#172'qV'#255#172'qV'#255#171'oT'#255#168'jM'#255#161'^@'#255'k;%'#255'\0'
- +#28#255'V3#'#220'CCCLEEE'#26'333'#5#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'+++'#6'[/'#28#214'\1'#29#255't@)'#255#162'`B'#255#168'jO'#255
- +#172'pV'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173
- +'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'
- +#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255
- +#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173
- +'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#144'_I'#255#6#4#3
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'Z;-'#255
- +#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173
- +'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'
- +#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255
- +#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173
- +'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#171'pV'#255#3#2#1#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255'!'#22#17#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'
- +#255#173'rX'#255#173'rX'#255#173'rX'#255#173'rX'#255#172'qX'#255#171'oU'#255
- +#167'hM'#255#160'[>'#255'b5!'#255'\0'#28#255'S5'''#196'EEE?CCC'#19'@@@'#4#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'Z0'#29#176'\1'#29
- +#255'k:%'#255#162'^A'#255#169'jN'#255#173'qV'#255#174'sY'#255#174'sY'#255#174
- +'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- +#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255
- +#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174
- ,'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- +#255#151'dM'#255#4#2#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#1#1#1#255#136'YF'#255#174'sY'#255#174'sY'#255#174's'
- +'Y'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- +#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255
- +#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174
- +'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- +#255#174'sY'#255'5#'#27#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'G.$'#255#174'sY'#255#174'sY'#255
- +#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174
- +'sY'#255#174'sY'#255#172'pV'#255#167'gK'#255#153'X:'#255'^3'#31#255'\0'#28
- +#255'Q7+'#166'BBB2777'#14#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#2'Z0'#29#137'\0'#28#255'a5!'#255#160']>'#255#168'jN'#255
- +#173'sY'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175
- +'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'
- +#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255
- +#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175
- +'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#29#20#15#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8
- +#5#4#255#169'rX'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'
- +#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255
- +#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175
- +'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'
- +#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#156'jR'#255#1#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255'yQ?'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255
- +#175'v\'#255#175'v\'#255#175'v\'#255#175'v\'#255#174'u['#255#172'qV'#255#166
- +'gJ'#255#143'S6'#255'^2'#31#255'[/'#27#255'O;2'#130'CCC&999'#9#0#0#0#1#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'Z0'#29'a\0'#28#255
- +'^3'#31#255#153'W;'#255#168'jN'#255#174'tZ'#255#176'x_'#255#176'y_'#255#176
- +'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'
- +#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255
- +#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176
- +'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255'oL='#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255']@2'#255#176'y_'#255#176'y_'#255#176
- +'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255'Z=1'#255')'#28#22#255#26#18#14
- +#255#14#10#8#255#10#7#5#255#23#16#12#255'+'#30#23#255'E0&'#255#138'_J'#255
- +#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176
- +'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'
- +#255#176'y_'#255'#'#24#19#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#172'w]'#255#176'y_'#255#176'y_'#255
- +#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176'y_'#255#176
- +'y_'#255#175'w^'#255#172'rW'#255#165'fI'#255#134'K2'#255']1'#30#255'[/'#27
- +#255'H?:ZBBB'#27'+++'#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'X/'#29'7[/'#27#255'^2'#31#255#141'P5'#255#167'hK'#255#174
- +'sY'#255#177'x_'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'
- +#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255
- +#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177
- +'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'
- +#255#177'za'#255#177'za'#255#9#6#5#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255'%'#25#20#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255'bD6'#255#8
- +#6#4#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'>+"'#255#175'za'#255#177'za'#255#177'za'#255#177'za'
- +#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255
- +#177'za'#255#177'za'#255#177'za'#255#136'^K'#255#0#0#0#255#0#0#0#255#0#0#0
- ,#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#16#11#9#255#177'za'#255#177
- +'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'#255#177'za'
- +#255#177'za'#255#177'za'#255#176'x^'#255#172'qV'#255#164'cF'#255'{E,'#255']1'
- +#30#255'Z0'#29#245'DDD'#255
- +'`5!'#255'\0'#28#255'T5'''#155'DDD'#30'III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z/'#28'w\0'#28#255
- +'`5!'#255#157'\?'#255#172'pU'#255#179'}d'#255#181#129'i'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255'.!'#27#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#2#1#1#255#166'va'#255#182#129'j'#255#182#129'j'#255'A.&'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#9#6#5#255#170'yd'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182
- +#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182
- +#129'j'#255#182#129'j'#255#182#129'j'#255#8#6#5#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#135'`O'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255#182#129'j'#255
- +#182#129'j'#255#182#129'j'#255#181#128'h'#255#177'za'#255#169'kP'#255#139'Q7'
- +#255'^3'#31#255'\0'#28#255'N9/\GGG'#18'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'X.'#26'4\0'#28#255
- ,'^3'#31#255#141'S8'#255#170'mQ'#255#179'|c'#255#182#130'k'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#20#15#12#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'N8.'#255#184#132'm'#255#184#132'm'#255#184#132'm'
- +#255#22#16#13#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#21#15#13#255#182#130'm'#255#184#132'm'#255#184#132
- +'m'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132
- +'m'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255'N8.'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#23#17#13#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255#184#132'm'#255
- +#184#132'm'#255#184#132'm'#255#183#131'l'#255#182#129'j'#255#177'x_'#255#167
- +'hK'#255'zG/'#255']1'#30#255'Z0'#28#241'@@@(MMM'#10#0#0#0#1#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'='#31
- +#18#3'[/'#27#238']1'#30#255'{G/'#255#167'hL'#255#177'za'#255#183#131'l'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255
- +#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#26#19#16#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#12#9#7#255#185#134'p'#255#185#134'p'#255#185#134'p'
- +#255#185#134'p'#255#3#2#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'U>4'#255#185#134'p'#255#185
- +#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185
- +#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#25#18
- +#15#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255'xWI'#255#185#134'p'#255#185#134'p'#255#185#134
- +'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134'p'#255#185#134
- +'p'#255#185#134'p'#255#185#134'p'#255#184#134'o'#255#182#129'j'#255#175'v\'
- +#255#165'dG'#255'h;&'#255'\1'#29#255'X2 '#193'==='#25'+++'#6#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0'[/'#27#170'\1'#29#255'f9%'#255#164'bG'#255#175'v]'#255#183#131
- +'l'#255#186#135'r'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137
- +'s'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137
- +'s'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137
- +'s'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137
- +'s'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255'$'#27#23
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#129'_P'#255#186#137's'#255#186#137's'#255
- +#186#137's'#255#186#137's'#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255' '#23#19#255#186
- +#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186
- +#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186
- +#137's'#255#172#127'j'#255#7#5#4#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#12#9#7#255#186#137's'#255#186#137's'
- +#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'
- +#255#186#137's'#255#186#137's'#255#186#137's'#255#186#137's'#255#185#135'q'
- +#255#181#129'i'#255#173'qW'#255#149'X='#255'`5!'#255'\0'#28#255'V4%'#127'333'
- +#15#0#0#0#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z/'#27'O\0'#28#255'_4 '#255#144'U:'
- +#255#172'qV'#255#182#130'k'#255#187#137't'#255#188#139'u'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- ,#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255'1$'#31#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255':+$'#255#188#140'v'#255#188#140
- +'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#1#1#1#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#4#3#3#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255'}]N'#255'6("'
- +#255#14#11#9#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'S>5'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255#188#140'v'#255
- +#188#139'u'#255#186#136'r'#255#180'~f'#255#169'kP'#255'|H1'#255'^2'#31#255'['
- +'/'#27#249'L=6+III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#5'[/'#27#235
- +']1'#30#255'wD/'#255#169'jO'#255#180#127'g'#255#187#137'u'#255#189#141'x'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255
- +#189#142'y'#255#189#142'y'#255'J7/'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#16#12#11#255#187#140'y'#255
- +#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#1
- +#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#181#136'u'#255#189#142'y'#255#189#142
- +'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142
- +'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142
- +'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#11#8#7#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#1#1#1#255#181#136's'#255#189#142'y'#255#189#142'y'#255#189
- +#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189#142'y'#255#189
- +#142'y'#255#189#142'y'#255#189#142'y'#255#189#141'x'#255#186#136'q'#255#177
- +'za'#255#164'dG'#255'f:&'#255'\1'#29#255'Y1'#31#186'@@@'#16'UUU'#3#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z/'#27#147'\1'#29#255'b8$'#255#160'bF'#255
- +#177'y`'#255#186#137's'#255#190#143'z'#255#191#145'|'#255#191#145'|'#255#191
- +#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191
- +#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191
- +#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191
- +#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#162
- +'{i'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#1#1#1#255#162'{i'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255
- +#191#145'|'#255#191#145'|'#255#191#145'|'#255#2#1#1#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1
- +#1#1#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145
- +'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145
- +'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145
- +'|'#255#191#145'|'#255#5#4#3#255#0#0#0#255#0#0#0#255#0#0#0#255'&'#29#25#255
- +#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255
- +#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255#191#145'|'#255
- +#191#145'|'#255#189#142'y'#255#184#134'o'#255#174'sY'#255#143'U;'#255'`5!'
- +#255'\0'#28#255'U3$`@@@'#8#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0'Z.'#27'5\0'#28#255'_4 '#255#137'Q8'#255#173'rX'#255#184#134'o'#255#190#144
- +'{'#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192
- +#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255
- +#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127
- +#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147
- +#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#14
- ,#11#9#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255' '
- +#24#21#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255
- +#192#147#127#255#192#147#127#255#192#147#127#255#4#3#3#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#8#6#5#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127
- +#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147
- +#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192
- +#147#127#255#192#147#127#255#192#147#127#255#1#1#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#137'iZ'#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147
- +#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192#147#127#255#192
- +#147#127#255#192#147#127#255#192#146'~'#255#189#142'y'#255#182#129'j'#255#169
- +'lP'#255'uD.'#255'^2'#31#255'[/'#28#237'NFB'#21'UUU'#3#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#211']1'#30#255'l>)'#255#167'iM'
- +#255#181#127'g'#255#190#143'z'#255#193#148#128#255#194#149#130#255#194#149
- +#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194
- +#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255
- +#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130
- +#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149
- +#130#255#194#149#130#255'G60'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255'ZE<'#255#194#149#130#255#194#149#130#255#194#149#130#255
- +#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#7#6#5#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#23#17#15#255#194#149#130#255#194#149#130#255#194#149#130
- +#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149
- +#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194
- +#149#130#255#194#149#130#255#194#149#130#255#179#137'x'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'-#'#30#255#194#149#130#255#194#149#130#255#194#149#130#255#194
- +#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255#194#149#130#255
- +#194#149#130#255#194#149#130#255#194#149#130#255#192#147#127#255#188#140'v'
- +#255#177'za'#255#156'_D'#255'a6#'#255'\1'#29#255'Y1'#31#153'@@@'#8#0#0#0#1#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z/'#27']\0'#28#255
- +'`5!'#255#143'V='#255#175'v]'#255#187#138'u'#255#193#149#129#255#195#152#132
- +#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152
- +#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195
- +#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255
- +#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133
- +#255#195#152#133#255#195#152#133#255#170#133't'#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#172#133'u'#255#195#152#133#255#195#152
- +#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#146
- +'rd'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'_JA'#255#195#152#133#255#195#152#133
- +#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152
- +#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195
- +#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#140'm`'#255#0#0
- +#0#255#0#0#0#255#6#5#4#255#186#145#127#255#195#152#133#255#195#152#133#255
- +#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#133
- +#255#195#152#133#255#195#152#133#255#195#152#133#255#195#152#132#255#192#147
- +#127#255#185#134'p'#255#172'pU'#255'|I2'#255'^3'#31#255'\0'#28#250'R5()UUU'#3
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#3
- +'[/'#27#221']1'#30#255'oA,'#255#169'lP'#255#183#131'l'#255#192#147#127#255
- +#196#154#135#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136
- +#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155
- +#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197
- +#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255
- +#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#26#20#18#255
- ,#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8#6#5#255#197#155#136#255#197
- +#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255
- +#197#155#136#255#28#22#19#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#4#3#3#255#193#153#134#255
- +#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136
- +#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155
- +#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197
- +#155#136#255#182#143'~'#255'=0*'#255#7#5#5#255#130'fY'#255#197#155#136#255
- +#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136
- +#255#197#155#136#255#197#155#136#255#197#155#136#255#197#155#136#255#196#154
- +#136#255#195#152#133#255#190#144'{'#255#180'~f'#255#159'bG'#255'c8%'#255'\1'
- +#29#255'Z0'#30#163'III'#7#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'g\0'#28#255'a6#'#255#147'Y@'#255#177
- +'za'#255#190#143'z'#255#196#154#135#255#198#157#139#255#198#157#139#255#198
- +#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255
- +#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139
- +#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157
- +#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198
- +#157#139#255'<0+'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'*!'#29#255
- +#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139
- +#255#198#157#139#255#164#130's'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'?2,'#255#198
- +#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255
- +#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139
- +#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157
- +#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198
- +#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255
- +#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139#255#198#157#139
- +#255#198#157#139#255#198#156#138#255#195#152#132#255#187#138't'#255#173'sY'
- +#255#127'L5'#255'^3'#31#255'\0'#28#252'U3$,'#128#128#128#2#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#7
- +'[/'#27#229'^2'#31#255'qB.'#255#171'nS'#255#185#134'p'#255#194#151#131#255
- +#198#158#140#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142
- +#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160
- +#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200
- +#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255
- +#200#160#142#255#200#160#142#255#200#160#142#255'9.)'#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'hSJ'#255#200#160#142#255#200#160#142#255#200#160#142
- +#255#200#160#142#255#200#160#142#255#200#160#142#255'6+'''#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#6#5#5#255#184#148#131#255#200#160#142#255#200#160#142#255#200#160#142
- +#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160
- +#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200
- +#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255
- +#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142
- +#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160#142#255#200#160
- +#142#255#200#160#142#255#200#160#142#255#199#159#141#255#198#157#139#255#192
- +#147#127#255#181#127'g'#255#161'dI'#255'd:&'#255'\1'#29#255'Z0'#29#171'@@@'#4
- +#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'q\1'#29#255'a6#'#255#143'W?'#255#177'za'#255
- +#191#144'|'#255#198#157#139#255#200#161#144#255#201#162#145#255#201#163#145
- +#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163
- +#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201
- +#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255
- +#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255'=2,'#255#0#0
- ,#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255'!'#27#24#255#197#161#143#255#201#163#145#255
- +#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#197#161#143
- +#255#3#2#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#1#1#1#255#149'zl'#255#201#163#145#255#201#163#145
- +#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163
- +#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201
- +#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255
- +#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145
- +#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#163
- +#145#255#201#163#145#255#201#163#145#255#201#163#145#255#201#162#145#255#200
- +#161#143#255#197#155#136#255#187#138'u'#255#173'rX'#255'|I3'#255'_4 '#255'\0'
- +#28#253'W1 2'#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#6'\0'#28#216'^2'#31#255
- +'i=)'#255#165'jP'#255#184#133'n'#255#196#152#134#255#201#162#145#255#202#164
- +#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202
- +#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255
- +#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148
- +#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165
- +#148#255'E82'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#2#255#1#1#1#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'.&"'#255#202#165#148#255#202#165#148
- +#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165
- +#148#255#146'wk'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'eRI'#255#202#165#148#255#202#165#148
- +#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165
- +#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202
- +#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255
- +#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148
- +#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165
- +#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202#165#148#255#202
- +#164#147#255#200#160#143#255#193#148#128#255#180'~f'#255#151'^D'#255'a7$'#255
- +'\1'#29#255'Z0'#28#156'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27
- +'D\0'#28#255'`5!'#255#128'N8'#255#175'v]'#255#190#143'{'#255#200#159#142#255
- +#203#165#150#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151
- +#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167
- +#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204
- +#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255
- +#204#167#151#255'N?9'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'vaW'#255
- +#204#167#151#255#160#131'w'#255'cRI'#255'WG@'#255#168#137'|'#255#204#167#151
- +#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167
- +#151#255#204#167#151#255#204#167#151#255#145'wk'#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'G:4'#255#204#167
- +#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204
- +#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255
- +#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151
- +#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167
- +#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204
- +#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255#204#167#151#255
- +#204#167#151#255#204#167#150#255#202#165#148#255#198#155#138#255#186#137's'
- +#255#171'nU'#255'oB.'#255'^2'#31#255'\0'#28#235'V2"'#21#0#0#0#1#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#169'\1'#29#255'c9&'#255#155'aH'#255
- +#182#128'j'#255#195#152#133#255#202#164#148#255#205#169#154#255#206#169#155
- +#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169
- +#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206
- +#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255
- +#206#169#155#255#206#169#155#255#206#169#155#255'VGA'#255#0#0#0#255#0#0#0#255
- ,#0#0#0#255#5#4#4#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169
- +#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206
- +#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255
- +#206#169#155#255#152'}r'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#2#1#1#255'vaY'#255#206#169#155#255#206#169#155#255#206#169
- +#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206
- +#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255
- +#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155
- +#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169
- +#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206
- +#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255#206#169#155#255
- +#205#167#152#255#201#162#145#255#192#147#127#255#177'za'#255#138'T='#255'`6"'
- +#255'\1'#29#255'[0'#29'e'#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0'[/'#27#27'\0'#28#243'^3'#31#255'pC/'#255#171'oU'#255#188#138'u'
- +#255#199#158#141#255#205#169#154#255#207#171#157#255#207#172#158#255#207#172
- +#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255
- +#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255'~i`'#255#0#0#0#255#0#0#0#255#0#0#0#255#22#18#16#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255
- +#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172
- +#158#255'/''$'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#9#7#7#255
- +#164#136'~'#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172
- +#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255
- +#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172
- +#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#171#157#255#204
- +#167#151#255#196#153#136#255#183#131'l'#255#160'fK'#255'f;('#255']1'#30#255
- +'[/'#27#199'te^'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'[/'#27'q\0'#28#255'`6"'#255#130'P9'#255#177'x`'#255#192#146
- +#127#255#203#164#149#255#208#173#159#255#209#175#161#255#209#175#161#255#209
- +#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255
- +#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161
- +#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175
- +#161#255#199#167#153#255#0#0#0#255#0#0#0#255#0#0#0#255'.&#'#255#209#175#161
- +#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175
- +#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209
- +#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255
- +#209#175#161#255'*$!'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'"'#28#26#255#197#165#153#255
- +#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161
- +#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175
- +#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209
- +#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255
- +#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161
- +#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175#161#255#209#175
- +#161#255#209#175#161#255#209#175#161#255#209#174#160#255#207#171#157#255#200
- +#160#144#255#188#139'w'#255#171'pV'#255'rD0'#255'^3'#31#255'\0'#28#250'\2'#30
- +'1'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0'[/'#27#1'[/'#27#184']1'#30#255'c9&'#255#148'^E'#255#182#128'j'#255#197
- +#154#136#255#206#170#155#255#210#176#163#255#211#178#164#255#211#178#165#255
- +#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165
- +#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178
- ,#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211
- +#178#165#255#12#10#9#255#0#0#0#255#0#0#0#255'MA<'#255#211#178#165#255#211#178
- +#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211
- +#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255
- +#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165
- +#255#211#178#165#255#178#150#139#255'D95'#255#9#7#7#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'VIC'#255#211#178#165#255#211#178#165
- +#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178
- +#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211
- +#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255
- +#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165
- +#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178
- +#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211#178#165#255#211
- +#178#165#255#211#178#165#255#211#178#164#255#209#176#162#255#204#167#151#255
- +#193#148#129#255#177'x`'#255#129'P9'#255'`6"'#255'\0'#28#255'[0'#28't'#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'[/'#27#21'\0'#28#229'^2'#31#255'i?+'#255#163'jP'#255#186#136
- +'s'#255#200#160#144#255#209#174#160#255#212#180#167#255#213#181#169#255#213
- +#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255
- +#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169
- +#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181
- +#169#255'.''%'#255#0#0#0#255',%#'#255#200#170#159#255#213#181#169#255#213#181
- +#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213
- +#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255
- +#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169
- +#255#213#181#169#255#213#181#169#255#213#181#169#255#139'vo'#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'.''$'#255#213#181#169#255#213#181#169
- +#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181
- +#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213
- +#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255
- +#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169
- +#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181
- +#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213#181#169#255#213
- +#181#169#255#213#181#169#255#212#180#168#255#211#178#165#255#207#171#157#255
- +#197#155#137#255#182#128'j'#255#148']E'#255'c9&'#255']1'#30#255'[/'#27#179#0
- +#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'?\0'#28#252'_4 '#255'tF1'#255#172
- +'sY'#255#190#142'z'#255#203#165#150#255#211#178#164#255#213#183#170#255#214
- +#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255
- +#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172
- +#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184
- +#172#255#127'ng'#255'{ib'#255#214#184#172#255#214#184#172#255#214#184#172#255
- +#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172
- +#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184
- +#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214
- +#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255' '#28#26#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#14#12#11#255#209#180#168#255#214#184#172
- +#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184
- +#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214
- +#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255
- +#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172
- +#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184
- +#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214#184#172#255#214
- +#184#172#255#214#184#172#255#214#184#172#255#213#182#169#255#209#176#161#255
- +#200#161#143#255#186#135'q'#255#161'gO'#255'h=*'#255'^2'#31#255'\0'#28#226'W'
- +'-'#26#19#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'}\1'#29#255'`6"'
- +#255'|M8'#255#175'x^'#255#192#147#127#255#205#170#154#255#213#181#169#255#215
- ,#185#173#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255
- +#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175
- +#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187
- +#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216
- +#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255
- +#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175
- +#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187
- +#175#255#216#187#175#255#216#187#175#255#216#187#175#255#187#162#151#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#2#255#180#156#146#255#216#187#175
- +#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187
- +#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216
- +#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255
- +#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175
- +#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187
- +#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216#187#175#255#216
- +#187#175#255#216#187#175#255#216#187#175#255#215#185#173#255#211#179#166#255
- +#202#165#148#255#188#139'w'#255#167'mU'#255'nC/'#255'^3'#31#255'\0'#28#251'Z'
- +'.'#27';'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#2'[/'#27
- +#170'\1'#29#255'a7$'#255#130'Q<'#255#178'{c'#255#195#151#132#255#208#173#159
- +#255#215#185#173#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189
- +#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217
- +#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255
- +#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178
- +#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189
- +#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217
- +#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255
- +#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255'.(&'#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#128'oi'#255#217#189#178#255#217#189#178
- +#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189
- +#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217
- +#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255
- +#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178
- +#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189
- +#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217#189#178#255#217
- +#189#178#255#217#189#178#255#217#188#177#255#213#183#170#255#205#168#153#255
- +#191#144'|'#255#170'rZ'#255'sF2'#255'`5!'#255'\0'#28#255'Z/'#27'g'#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#6'[/'#27
- +#188']1'#30#255'c9&'#255#136'V?'#255#180'~g'#255#197#154#136#255#209#176#162
- +#255#216#187#176#255#219#192#181#255#219#192#182#255#219#193#183#255#219#193
- +#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219
- +#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255
- +#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183
- +#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193
- +#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219
- +#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255
- +#219#193#183#255#219#193#183#255#158#138#131#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#1#1#1#255#131'sm'#255#219#193#183#255#219#193#183#255#219#193#183#255
- +#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183
- +#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193
- +#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219
- +#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255
- +#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183
- +#255#219#193#183#255#219#193#183#255#219#193#183#255#219#193#183#255#219#192
- +#182#255#218#191#180#255#215#185#173#255#207#172#156#255#193#147#128#255#174
- +'v^'#255'wJ6'#255'`6"'#255'\1'#29#255'[/'#27'~'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#12'[/'#27#203
- +']1'#30#255'c:'''#255#141'YC'#255#181#128'h'#255#198#155#138#255#210#177#164
- +#255#217#190#178#255#220#194#184#255#221#195#185#255#221#196#186#255#221#196
- +#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221
- +#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255
- +#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186
- +#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196
- +#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221
- +#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255
- +#221#196#186#255're_'#255#0#0#0#255#0#0#0#255#4#4#4#255#160#142#134#255#221
- +#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255
- +#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186
- +#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196
- +#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221
- +#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255
- +#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186#255#221#196#186
- +#255#221#196#186#255#221#196#186#255#221#195#185#255#219#193#183#255#216#187
- +#175#255#207#172#158#255#194#148#130#255#176'x_'#255'{M8'#255'a6#'#255'\1'#29
- +#255'[/'#27#148#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#21'\0'#28#217']1'#30#255'c:'''
- +#255#138'XB'#255#181#127'h'#255#197#156#137#255#211#178#164#255#218#191#180
- +#255#221#196#187#255#222#198#188#255#223#198#189#255#223#198#189#255#223#198
- +#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223
- +#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255
- +#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189
- +#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198
- +#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223
- +#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#221#196#187#255
- +#6#6#5#255#10#9#8#255#188#167#159#255#223#198#189#255#223#198#189#255#223#198
- +#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223
- +#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255
- +#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189
- +#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198
- +#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223
- +#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255#223#198#189#255
- +#222#198#188#255#221#196#186#255#217#188#177#255#208#173#159#255#193#149#129
- +#255#174'w^'#255'zM8'#255'a7$'#255'\1'#29#255'[/'#27#170'[/'#27#2#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0'[/'#27' \0'#28#223']1'#30#255'c:'''#255#132'T?'#255#180
- +'~g'#255#197#155#136#255#211#178#164#255#219#193#181#255#223#198#189#255#224
- +#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255
- +#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192
- +#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201
- +#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224
- +#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255
- +#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192
- +#255#224#201#192#255#224#201#192#255#134'xr'#255#205#184#176#255#224#201#192
- +#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201
- +#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224
- +#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255
- +#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192
- +#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201
- +#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224#201#192#255#224
- +#201#192#255#224#201#192#255#223#200#191#255#222#197#187#255#217#189#178#255
- +#207#172#158#255#192#147#127#255#171'u\'#255'vI6'#255'a6#'#255'\1'#29#255'[/'
- +#27#179'[/'#27#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#25'\'
- +'0'#28#209']1'#30#255'c9&'#255#128'Q='#255#177'{c'#255#195#151#133#255#209
- +#176#162#255#219#192#181#255#223#200#191#255#225#203#194#255#226#204#196#255
- +#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196
- +#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204
- +#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226
- +#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255
- +#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196
- +#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204
- +#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226
- +#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255
- +#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196
- +#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204
- +#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226
- +#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255#226#204#196#255
- +#226#204#196#255#226#204#196#255#226#203#195#255#225#202#193#255#222#198#188
- +#255#217#188#177#255#206#169#155#255#191#144'|'#255#168'qY'#255'rG3'#255'`6"'
- +#255'\1'#29#255'[/'#27#159'[/'#27#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0'[/'#27#15'\0'#28#193']1'#30#255'b8%'#255'yM8'#255#170
- +'u\'#255#192#146'~'#255#207#171#156#255#217#189#178#255#223#200#191#255#226
- +#205#197#255#227#206#198#255#228#207#199#255#228#207#199#255#228#207#199#255
- +#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199
- +#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207
- +#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228
- +#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255
- +#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199
- +#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207
- +#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228
- +#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255
- +#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199
- +#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207
- +#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228#207#199#255#228
- +#207#199#255#228#207#199#255#227#206#198#255#226#204#196#255#222#198#188#255
- +#215#185#173#255#202#165#148#255#187#137'u'#255#159'jR'#255'nD0'#255'`6"'#255
- +'\1'#29#255'[/'#27#137#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#8'[/'#27#175'\1'#29#255'`6"'#255'n'
- +'D0'#255#158'iR'#255#187#137'u'#255#202#165#148#255#215#186#174#255#223#199
- +#190#255#227#205#198#255#229#208#201#255#229#209#202#255#229#210#202#255#229
- +#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255
- +#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202
- +#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210
- +#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229
- +#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255
- +#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202
- +#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210
- +#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229
- +#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255
- +#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202
- +#255#229#210#202#255#229#210#202#255#229#210#202#255#229#210#202#255#229#209
- +#202#255#228#207#201#255#226#204#197#255#221#196#187#255#212#180#168#255#198
- +#157#140#255#183#130'l'#255#143'^G'#255'g>+'#255'_4 '#255'\1'#29#254'[/'#27
- +'q'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#3'[/'#27#132'\1'#29#254'_4 '#255'g>+'
- +#255#140'[F'#255#181#129'j'#255#198#155#138#255#211#178#165#255#221#195#185
- +#255#227#204#197#255#230#209#203#255#230#212#205#255#231#212#206#255#231#212
- +#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231
- +#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255
- +#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206
- +#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212
- +#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231
- +#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255
- +#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206
- +#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212
- +#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231
- +#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255#231#212#206#255
- +#231#212#206#255#231#211#206#255#230#211#205#255#229#209#201#255#225#203#194
- +#255#219#191#181#255#208#173#159#255#193#149#129#255#173'w`'#255'~Q='#255'c:'
- +''''#255'^2'#31#255'\0'#28#238'[/'#27'O'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0'[/'#27'F\0'#28#234'^2'#31#255'c:'''#255'zN:'#255#168's['#255
- +#190#143'{'#255#205#167#152#255#217#187#177#255#225#201#193#255#229#209#202
- +#255#232#213#207#255#232#214#209#255#233#215#210#255#233#215#210#255#233#215
- +#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233
- +#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255
- +#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210
- +#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215
- +#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233
- +#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255
- +#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210
- +#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215
- +#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233#215#210#255#233
- +#215#210#255#232#215#209#255#232#214#208#255#231#212#206#255#228#207#201#255
- +#223#198#189#255#213#182#170#255#200#160#144#255#186#136'r'#255#158'iR'#255
- +'pE2'#255'a7$'#255']1'#30#255'\0'#28#201'[/'#27#31#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#26'\0'#28#193']1'#30#255'`'
- +'6"'#255'iA.'#255#142']H'#255#179#128'h'#255#196#153#135#255#210#176#163#255
- +#220#194#184#255#227#205#198#255#231#212#206#255#233#216#211#255#234#217#212
- +#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218
- +#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234
- +#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255
- +#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213
- +#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218
- +#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234
- +#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255
- +#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213
- +#255#234#218#213#255#234#218#213#255#234#218#213#255#234#218#213#255#234#217
- +#212#255#234#216#211#255#233#215#210#255#230#211#205#255#226#203#195#255#218
- +#190#179#255#206#170#155#255#192#146#127#255#172'v`'#255#129'S?'#255'e<)'#255
- +'_4 '#255'\1'#29#255'[/'#27#143'[/'#27#5#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#3'[/'#27#127'\0'#28
- +#248'^3'#31#255'c:'''#255'sI6'#255#158'kT'#255#186#136's'#255#200#160#143#255
- ,#213#180#169#255#222#197#187#255#229#208#201#255#232#214#209#255#234#218#213
- +#255#235#219#215#255#236#220#215#255#236#220#216#255#236#220#216#255#236#220
- +#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236
- +#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255
- +#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216
- +#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220
- +#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236
- +#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255
- +#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216#255#236#220#216
- +#255#236#220#216#255#236#220#215#255#235#219#215#255#234#217#212#255#232#213
- +#207#255#227#205#198#255#219#193#183#255#209#176#162#255#196#153#136#255#181
- +#129'l'#255#145'`K'#255'lB0'#255'a7$'#255']1'#30#255'\0'#28#231'[/'#27'O'#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27'$\0'#28#185'\1'#29#255'`5!'#255
- +'f=*'#255#128'S>'#255#166'r['#255#188#139'v'#255#201#161#145#255#213#181#169
- +#255#223#197#189#255#229#209#202#255#233#216#210#255#235#219#215#255#236#221
- +#217#255#237#222#219#255#238#223#220#255#238#223#220#255#238#223#220#255#238
- +#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255
- +#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220
- +#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223
- +#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238
- +#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255
- +#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220#255#238#223#220
- +#255#237#222#219#255#237#222#218#255#236#221#217#255#235#218#214#255#232#214
- +#208#255#228#206#199#255#220#193#184#255#210#176#163#255#197#155#137#255#184
- +#134'o'#255#155'iR'#255'uI7'#255'c:'''#255'^3'#31#255'\1'#29#252'[/'#27#144
- +'[/'#27#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'['
- +'/'#27'U\0'#28#228']1'#30#255'`6"'#255'g>,'#255#127'R?'#255#164'qZ'#255#188
- +#139'v'#255#200#159#144#255#211#179#166#255#220#194#184#255#228#206#199#255
- +#232#214#209#255#235#219#215#255#237#222#219#255#238#225#221#255#239#225#222
- +#255#239#225#222#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226
- +#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239
- +#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255
- +#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223
- +#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226#223#255#239#226
- +#223#255#239#226#223#255#239#226#223#255#239#225#222#255#238#225#221#255#238
- +#224#220#255#237#222#218#255#235#218#214#255#231#212#206#255#226#203#195#255
- +#218#191#180#255#209#174#160#255#197#154#136#255#184#132'o'#255#154'hR'#255
- +'uK8'#255'e;('#255'_4 '#255'\1'#29#255'\0'#28#197'[/'#27'/'#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27
- +#12'[/'#27#134'\0'#28#242'^2'#31#255'a5#'#255'g>+'#255'|Q='#255#160'lV'#255
- +#184#133'p'#255#196#152#134#255#207#170#156#255#216#187#175#255#224#200#192
- +#255#230#210#203#255#234#216#211#255#236#220#216#255#238#224#220#255#239#226
- +#223#255#240#227#225#255#240#228#225#255#240#228#225#255#241#229#226#255#241
- +#229#226#255#241#229#226#255#241#229#226#255#241#229#227#255#241#229#227#255
- +#241#229#227#255#241#229#227#255#241#229#227#255#241#229#227#255#241#229#227
- +#255#241#229#227#255#241#229#227#255#241#229#226#255#241#229#226#255#241#229
- ,#226#255#241#229#226#255#240#228#225#255#240#228#225#255#240#227#224#255#239
- +#225#222#255#238#223#220#255#236#220#215#255#233#215#210#255#228#207#201#255
- +#222#196#187#255#213#183#170#255#204#166#150#255#192#147#127#255#179#127'i'
- +#255#150'fO'#255'tI7'#255'e;('#255'`5!'#255']1'#30#255'\0'#28#223'[/'#27'`[/'
- +#27#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#17'[/'#27#127'\0'#28#238']1'
- +#30#255'`6"'#255'e<)'#255'rI6'#255#142'_J'#255#170'wa'#255#188#140'w'#255#199
- +#158#141#255#208#173#159#255#216#186#175#255#222#196#187#255#227#206#198#255
- +#232#213#208#255#235#219#214#255#237#222#218#255#238#224#220#255#239#226#223
- +#255#240#227#225#255#241#229#226#255#242#230#228#255#242#230#228#255#242#231
- +#229#255#242#231#229#255#242#231#229#255#242#231#229#255#242#231#229#255#242
- +#231#229#255#242#231#229#255#242#230#228#255#241#229#227#255#241#229#226#255
- +#240#227#225#255#239#225#222#255#238#224#220#255#236#221#217#255#234#218#213
- +#255#231#211#206#255#226#204#196#255#220#194#184#255#214#183#171#255#206#169
- +#155#255#196#153#135#255#185#135'r'#255#162'q['#255#134'XD'#255'lC1'#255'c:'
- +''''#255'_4 '#255']0'#30#255'\0'#28#217'[/'#27'`[/'#27#4#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#13'[/'#27'w\0'#28#233
- +']1'#30#255'_4 '#255'b8%'#255'h?-'#255'zN;'#255#149'dP'#255#170'xa'#255#187
- +#137't'#255#194#150#131#255#202#164#148#255#210#176#163#255#216#187#175#255
- +#220#194#184#255#224#200#192#255#228#207#199#255#231#212#206#255#234#217#211
- +#255#236#220#215#255#236#222#217#255#237#222#219#255#238#223#220#255#238#223
- +#220#255#238#224#220#255#238#223#220#255#237#223#219#255#237#223#218#255#236
- +#221#217#255#235#219#215#255#233#216#210#255#230#211#204#255#227#204#197#255
- +#223#199#190#255#219#192#183#255#215#185#173#255#208#173#159#255#200#160#144
- +#255#192#146#127#255#183#133'o'#255#164's\'#255#142']J'#255'rI7'#255'f=*'#255
- +'a6#'#255'^3'#31#255'\1'#29#255'\0'#28#210'[/'#27'X[/'#27#2#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0'[/'#27#5'[/'#27'P\0'#28#173'\1'#29#249']1'#30#255'`5!'#255'c9&'#255'g'
- +'>,'#255'qH6'#255#133'YE'#255#153'iT'#255#172'yd'#255#186#136'q'#255#191#144
- +'}'#255#196#153#136#255#202#162#146#255#207#171#156#255#211#178#165#255#214
- +#183#171#255#216#186#175#255#217#188#177#255#218#190#179#255#219#191#182#255
- +#219#192#182#255#219#192#181#255#218#189#179#255#217#187#177#255#215#185#173
- +#255#213#182#169#255#210#176#163#255#205#169#154#255#200#160#144#255#195#151
- +#133#255#190#142'z'#255#183#132'o'#255#167'u_'#255#148'eP'#255#127'S@'#255'm'
- +'E2'#255'f=*'#255'b7%'#255'_4 '#255']1'#30#255'\0'#28#235'[/'#27#147'[/'#27
- +'5'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'['
- ,'/'#27#18'[/'#27'i\0'#28#199'\1'#29#254']1'#30#255'_4 '#255'a6#'#255'd9('#255
- +'g>,'#255'oF3'#255'}Q>'#255#138'[G'#255#149'fQ'#255#160'oZ'#255#170'xa'#255
- +#176'}h'#255#180#128'l'#255#183#133'p'#255#186#136's'#255#188#138'u'#255#188
- +#139'v'#255#187#138'u'#255#186#135'r'#255#183#132'n'#255#178#128'j'#255#174
- +'|e'#255#168'v`'#255#158'mW'#255#146'bN'#255#133'YE'#255'yM;'#255'mC1'#255'g'
- +'>+'#255'c9&'#255'`6"'#255'^3'#31#255']1'#30#255'\0'#28#248'\0'#28#173'[/'#27
- +'O[/'#27#5#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#20'[/'#27'V\0'#28#153
- +'\0'#28#220'\1'#29#255']1'#30#255'^3'#31#255'`5!'#255'a7$'#255'c9&'#255'e;('
- +#255'f=*'#255'g>,'#255'i@.'#255'jB0'#255'mE2'#255'qH5'#255'tJ7'#255'qG5'#255
- +'lC1'#255'jA0'#255'h?-'#255'g>+'#255'e<)'#255'd:('#255'c9&'#255'a6#'#255'`5!'
- +#255'^2'#31#255']1'#30#255'\1'#29#252'\0'#28#201'[/'#27#134'[/'#27'C[/'#27#8
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0'[/'#27#31'[/'#27'_[/'#27#138'\0'#28#176'\0'#28#213'\0'#28
- +#248'\1'#29#255'\1'#29#255'\1'#29#255']1'#30#255'^2'#31#255'^2'#31#255'^3'#31
- +#255'^3'#31#255'^3'#31#255'^2'#31#255']1'#30#255']1'#30#255'\1'#29#255'\1'#29
- +#255'\1'#29#255'\0'#28#241'\0'#28#203'\0'#28#165'[/'#27#127'[/'#27'N[/'#27#15
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0'[/'#27#2'[/'#27'![/'#27'E[/'#27'U[/'#27'a[/'#27'm[/'#27'y[/'#27
- +#134'\0'#29#141'[/'#27#130'[/'#27'v[/'#27'j[/'#27'^[/'#27'Q[/'#27'=[/'#27#23
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#128#0#255#255
- +#255#255#255#255#255#255#255#255#255#255#255#224#0#0#3#255#255#255#255#255
- +#255#255#255#255#255#255#254#0#0#0#0'?'#255#255#255#255#255#255#255#255#255
- +#255#240#0#0#0#0#7#255#255#255#255#255#255#255#255#255#255#128#0#0#0#0#0#255
- +#255#255#255#255#255#255#255#255#254#0#0#0#0#0#0'?'#255#255#255#255#255#255
- +#255#255#248#0#0#0#0#0#0#15#255#255#255#255#255#255#255#255#224#0#0#0#0#0#0#3
- +#255#255#255#255#255#255#255#255#128#0#0#0#0#0#0#0#255#255#255#255#255#255
- +#255#254#0#0#0#0#0#0#0#0'?'#255#255#255#255#255#255#252#0#0#0#0#0#0#0#0#31
- +#255#255#255#255#255#255#240#0#0#0#0#0#0#0#0#7#255#255#255#255#255#255#224#0
- +#0#0#0#0#0#0#0#3#255#255#255#255#255#255#128#0#0#0#0#0#0#0#0#1#255#255#255
- +#255#255#255#0#0#0#0#0#0#0#0#0#0#127#255#255#255#255#254#0#0#0#0#0#0#0#0#0#0
- +'?'#255#255#255#255#252#0#0#0#0#0#0#0#0#0#0#31#255#255#255#255#248#0#0#0#0#0
- +#0#0#0#0#0#15#255#255#255#255#240#0#0#0#0#0#0#0#0#0#0#7#255#255#255#255#224#0
- +#0#0#0#0#0#0#0#0#0#3#255#255#255#255#192#0#0#0#0#0#0#0#0#0#0#1#255#255#255
- +#255#128#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#0#0#0#0#0#0#0#0#0#0#0#0#127
- +#255#255#254#0#0#0#0#0#0#0#0#0#0#0#0#127#255#255#254#0#0#0#0#0#0#0#0#0#0#0#0
- +'?'#255#255#252#0#0#0#0#0#0#0#0#0#0#0#0#31#255#255#248#0#0#0#0#0#0#0#0#0#0#0
- +#0#15#255#255#240#0#0#0#0#0#0#0#0#0#0#0#0#7#255#255#240#0#0#0#0#0#0#0#0#0#0#0
- +#0#7#255#255#224#0#0#0#0#0#0#0#0#0#0#0#0#3#255#255#192#0#0#0#0#0#0#0#0#0#0#0
- +#0#3#255#255#192#0#0#0#0#0#0#0#0#0#0#0#0#1#255#255#128#0#0#0#0#0#0#0#0#0#0#0
- +#0#1#255#255#128#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#127#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#127#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'
- +#252#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'#252#0#0#0#0#0#0#0#0#0#0#0#0#0#0#31#252#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#31#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#248#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#15#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#240#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#7#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3
- +#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#192#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#3#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#192#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#1#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#192#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#224#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#3#240#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0#0#0#0#0#0#0#7#240#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#15#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15
- +#248#0#0#0#0#0#0#0#0#0#0#0#0#0#0#15#252#0#0#0#0#0#0#0#0#0#0#0#0#0#0#31#252#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#31#252#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'#254#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0'?'#254#0#0#0#0#0#0#0#0#0#0#0#0#0#0'?'#254#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#127#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#127#255#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#255#255#128#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#128#0#0#0#0#0#0#0#0
- +#0#0#0#0#1#255#255#128#0#0#0#0#0#0#0#0#0#0#0#0#1#255#255#192#0#0#0#0#0#0#0#0
- +#0#0#0#0#3#255#255#192#0#0#0#0#0#0#0#0#0#0#0#0#3#255#255#224#0#0#0#0#0#0#0#0
- +#0#0#0#0#7#255#255#224#0#0#0#0#0#0#0#0#0#0#0#0#15#255#255#240#0#0#0#0#0#0#0#0
- +#0#0#0#0#15#255#255#248#0#0#0#0#0#0#0#0#0#0#0#0#31#255#255#248#0#0#0#0#0#0#0
- +#0#0#0#0#0'?'#255#255#252#0#0#0#0#0#0#0#0#0#0#0#0#127#255#255#252#0#0#0#0#0#0
- +#0#0#0#0#0#0#255#255#255#254#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#0#0#0#0
- +#0#0#0#0#0#0#0#1#255#255#255#255#128#0#0#0#0#0#0#0#0#0#0#3#255#255#255#255
- +#128#0#0#0#0#0#0#0#0#0#0#7#255#255#255#255#192#0#0#0#0#0#0#0#0#0#0#15#255#255
- +#255#255#224#0#0#0#0#0#0#0#0#0#0#31#255#255#255#255#240#0#0#0#0#0#0#0#0#0#0
- +#31#255#255#255#255#248#0#0#0#0#0#0#0#0#0#0'?'#255#255#255#255#252#0#0#0#0#0
- +#0#0#0#0#0#127#255#255#255#255#254#0#0#0#0#0#0#0#0#0#1#255#255#255#255#255
- +#255#0#0#0#0#0#0#0#0#0#3#255#255#255#255#255#255#128#0#0#0#0#0#0#0#0#7#255
- +#255#255#255#255#255#224#0#0#0#0#0#0#0#0#15#255#255#255#255#255#255#240#0#0#0
- +#0#0#0#0#0#31#255#255#255#255#255#255#248#0#0#0#0#0#0#0#0#127#255#255#255#255
- +#255#255#254#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255#255#128#0#0#0#0#0#0
- +#3#255#255#255#255#255#255#255#255#192#0#0#0#0#0#0#7#255#255#255#255#255#255
- +#255#255#240#0#0#0#0#0#0#31#255#255#255#255#255#255#255#255#252#0#0#0#0#0#0
- +#127#255#255#255#255#255#255#255#255#255#0#0#0#0#0#3#255#255#255#255#255#255
- +#255#255#255#255#224#0#0#0#0#15#255#255#255#255#255#255#255#255#255#255#252#0
- +#0#0#0#127#255#255#255#255#255#255#255#255#255#255#255#192#0#0#7#255#255#255
- +#255#255#255#255#255#255#255#255#255#254#0#1#255#255#255#255#255#255#255#255
- +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
- +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
- +#255#255#255#255#255#255#255#255#255'('#0#0#0'@'#0#0#0#128#0#0#0#1#0' '#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'#4'III'#7'III'#7
- +'333'#5#128#128#128#2#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'UUU'#6'DDD'
- +#15'FFF'#22'EEE'#26'DDD'#30'III#GGG/DDD'#30#255'j>'#31#253'g>#'#249'[>+'#235'PB8'#218'HE'
- +'C'#203'FEC'#195'EED'#184'DDD'#166'DDDqEEE4@@@'#20'@@@'#4#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1
- +'999'#9'BBB'#31'CCCPEDD'#143'FFE'#182'NB:'#211'Z?-'#231'g>#'#249'l?'#31#255
- +'zK$'#253#150']*'#255#165'h.'#255#172'm0'#255#180's2'#255#186'x4'#255#189'{4'
- +#255#192#127'5'#255#190'|4'#255#187'x4'#255#182'u3'#255#175'p1'#255#167'j/'
- +#255#156'b+'#255#131'R&'#254'oB '#255'i>!'#253'_>)'#238'S@6'#222'FEB'#203'DD'
- +'C'#190'DDD'#164'CCCkCCC.PPP'#16'UUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#128#128#128#2'CCC'#19'BBBBDDD'#136'EED'#179'LA9'
- +#209'`=&'#243'k?'#31#255#127'N&'#254#154'`,'#255#176'q1'#255#191'~5'#255#200
- +#138'7'#255#207#145'8'#255#210#149'9'#255#213#153'9'#255#217#157':'#255#219
- +#160';'#255#221#162';'#255#220#162':'#255#217#158':'#255#215#155':'#255#211
- +#151'9'#255#208#146'8'#255#203#141'8'#255#194#129'6'#255#183'v4'#255#163'f.'
- +#255#137'U('#254'qC"'#254'f'
- +'>>!+++'#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4'BBB'#27'CC'
- +'C[CCB'#165'LD='#203']<('#238'j> '#255#135'R('#254#176'p3'#255#193#128'7'#255
- +#202#139'9'#255#211#151';'#255#220#162'<'#255#227#170'>'#255#232#176'?'#255
- +#234#180'?'#255#237#182'?'#255#239#185'@'#255#241#187'@'#255#242#188'A'#255
- +#241#187'@'#255#240#185'A'#255#238#183'@'#255#235#180'@'#255#233#178'?'#255
- +#229#173'>'#255#222#165'='#255#215#156'<'#255#205#144':'#255#196#133'8'#255
- +#185'x5'#255#152'^-'#255'oC"'#254'd<#'#247'QA7'#220'FFE'#200'CCC'#180'CCC}AA'
- +'A/UUU'#9#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'III'#7'CCC&DDDpECC'#180'X<,'#232'i='
- +'!'#254#128'O('#254#170'l3'#255#194#130':'#255#210#150'>'#255#220#163'?'#255
- +#227#171'A'#255#234#180'B'#255#240#187'D'#255#242#190'D'#255#244#193'E'#255
- +#246#194'D'#255#247#195'E'#255#248#197'E'#255#249#197'E'#255#249#198'E'#255
- +#249#197'E'#255#248#196'E'#255#247#195'E'#255#246#195'E'#255#245#194'D'#255
- +#243#191'D'#255#240#188'C'#255#236#183'C'#255#230#174'B'#255#223#165'@'#255
- +#215#156'?'#255#200#137';'#255#182'u6'#255#146'[,'#255'm@!'#254'`:%'#244'KA;'
- +#211'CCC'#189'CCC'#144'BBB>PPP'#16#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'999'#9'@@@4CCC'#133
- +'HD@'#192'_9$'#244'rE%'#254#164'h3'#255#191#127';'#255#206#146'?'#255#219#163
- +'C'#255#232#178'F'#255#238#185'G'#255#241#189'H'#255#244#193'H'#255#246#195
- +'I'#255#247#196'I'#255#247#197'J'#255#247#197'I'#255#247#198'I'#255#248#198
- +'I'#255#248#198'I'#255#248#197'I'#255#248#198'I'#255#248#198'I'#255#248#198
- +'I'#255#247#197'I'#255#247#197'I'#255#247#196'I'#255#246#196'I'#255#245#194
- +'H'#255#242#190'H'#255#239#187'H'#255#235#182'G'#255#224#168'D'#255#211#153
- +'A'#255#196#134'='#255#177'q7'#255#133'Q)'#254'e: '#253'N?7'#218'DDC'#195'CC'
- +'C'#160'FFFP@@@'#20#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'III'#7'FFF3CCC'#145'LB;'#204'd:"'#250'|L('#254#180's9'#255
- +#202#143'A'#255#216#159'F'#255#228#174'I'#255#236#184'K'#255#241#191'L'#255
- +#243#193'M'#255#244#194'M'#255#244#195'M'#255#245#196'M'#255#245#195'M'#255
- +#245#195'M'#255#245#195'M'#255#245#195'M'#255#245#195'M'#255#245#195'M'#255
- +#245#195'M'#255#245#195'M'#255#245#195'M'#255#245#195'M'#255#245#195'M'#255
- +#245#195'M'#255#245#195'M'#255#245#196'M'#255#245#195'M'#255#244#194'M'#255
- +#243#194'M'#255#242#192'M'#255#238#186'L'#255#232#179'J'#255#220#165'F'#255
- +#208#150'C'#255#190#127'<'#255#147'[.'#255'h< '#255'S=1'#228'EED'#199'DDD'
- +#168'BBBUGGG'#18#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +'@@@'#4'FFF(EEE'#134'P?5'#212'e:!'#254#137'U,'#254#186'z='#255#208#150'E'#255
- +#224#171'L'#255#233#181'O'#255#238#187'P'#255#240#191'P'#255#242#192'Q'#255
- +#242#193'Q'#255#242#193'Q'#255#242#193'P'#255#242#193'Q'#255#242#193'Q'#255
- +#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255
- ,#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255
- +#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255#242#193'Q'#255
- +#242#193'Q'#255#242#193'Q'#255#241#192'Q'#255#239#189'P'#255#234#184'O'#255
- +#228#175'M'#255#215#159'I'#255#194#132'@'#255#160'd3'#255'k?"'#254'X:*'#236
- +'FDC'#201'CCC'#164'AAAG;;;'#13#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U'
- +'UU'#3'BBB'#31'CCCvO=3'#211'f:'#31#255#150']2'#255#190#128'A'#255#211#155'I'
- +#255#226#175'Q'#255#234#185'S'#255#237#188'T'#255#238#190'T'#255#239#191'U'
- +#255#239#191'U'#255#239#191'U'#255#239#191'U'#255#239#191'U'#255#239#191'U'
- +#255#239#191'U'#255#239#191'U'#255#235#189'S'#255'|d,'#255'N>'#28#255'4*'#19
- +#255'=1'#22#255'WE'#31#255'w_*'#255#173#139'='#255#239#191'U'#255#239#191'U'
- +#255#239#191'U'#255#239#191'U'#255#239#191'U'#255#239#191'U'#255#239#191'U'
- +#255#239#191'U'#255#239#191'U'#255#239#190'T'#255#238#189'U'#255#236#187'S'
- +#255#230#179'R'#255#217#162'L'#255#198#138'D'#255#170'l8'#255'pC$'#254'Z8'''
- +#240'DBB'#197'CCC'#153'FFF:@@@'#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'FFF'#22
- +'BBBeJ?9'#195'b8 '#254#150']2'#255#194#133'E'#255#213#158'N'#255#226#176'T'
- +#255#233#185'W'#255#236#187'W'#255#236#188'X'#255#236#188'X'#255#236#188'X'
- +#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'
- +#255#236#188'X'#255'cO%'#255#4#3#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#18#14#7#255'A4'#24#255#134'k2'
- +#255#218#174'R'#255#236#188'X'#255#236#188'X'#255#236#188'X'#255#236#188'X'
- +#255#236#188'X'#255#236#188'X'#255#236#187'W'#255#234#186'W'#255#229#180'U'
- +#255#218#165'P'#255#201#143'H'#255#173'o<'#255'k>#'#254'S;-'#231'CCC'#193'CC'
- +'C'#141'DDD-fff'#5#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#12'DDDKFA='#179'`7 '#251#137'S-'
- +#255#192#131'E'#255#214#161'Q'#255#226#176'W'#255#231#183'Y'#255#233#185'['
- +#255#233#186'['#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'
- +#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'#255'L<'#29#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8#7#3#255'P'
- +'?'#31#255#203#161'N'#255#234#185'Z'#255#234#185'Z'#255#234#185'Z'#255#234
- +#185'Z'#255#233#186'['#255#232#183'Z'#255#228#178'Y'#255#219#167'T'#255#201
- +#143'K'#255#163'g8'#255'f: '#255'O=4'#222'DDD'#188'CCCzBBB'#27#0#0#0#1#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U'
- +'UU'#3'GGG$D@@'#147'\6#'#245'{I*'#254#185'{C'#255#211#157'R'#255#225#175'Z'
- +#255#229#181'\'#255#230#183']'#255#230#183']'#255#230#183']'#255#230#183']'
- +#255#230#183']'#255#230#183']'#255#230#183']'#255#230#183']'#255#230#183']'
- +#255#230#183']'#255#138'm8'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#24#20#10#255'x_0'
- +#255#226#181'['#255#230#183']'#255#230#183']'#255#230#183']'#255#230#181'\'
- +#255#227#177'['#255#217#165'V'#255#196#136'J'#255#151']4'#255'b8 '#254'K@9'
- +#214'CCC'#175'AAAJ...'#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#16'CCC\V6'''#228'nA&'#254#178'tA'#255#205
- +#151'R'#255#221#172'\'#255#226#179'_'#255#228#180'_'#255#228#180'_'#255#228
- +#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#228
- +#180'_'#255#228#180'_'#255#228#180'_'#255#228#180'_'#255#17#13#7#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#1#1#255'H9'#30#255#224#178']'
- +#255#228#180'_'#255#228#180'_'#255#227#179'^'#255#224#175']'#255#213#160'W'
- +#255#190#129'H'#255#137'T/'#255'^4 '#252'FB?'#201'CCC'#140'DDD"'#0#0#0#3#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#4'FFF,J=7'
- +#175'`4'#30#255#165'g;'#255#200#144'Q'#255#217#166'\'#255#223#176'`'#255#225
- +#177'`'#255#225#177'a'#255#225#177'a'#255#225#177'a'#255#225#177'a'#255#225
- +#177'a'#255#225#177'a'#255#225#177'a'#255#225#177'a'#255#225#177'a'#255#225
- +#177'a'#255#218#171'^'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#11#9#5#255#196#154'U'#255#225#177'a'#255#225#177
- +'`'#255#224#177'a'#255#220#171'^'#255#208#154'W'#255#184'{F'#255'nA%'#254'T8'
- +'*'#233'DDD'#180'CCCX333'#15#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0'CCC'#19'CCCjY5#'#239'~J,'#254#191#132'M'#255#213#162']'#255
- ,#220#171'a'#255#221#173'c'#255#222#174'b'#255#222#174'b'#255#222#174'b'#255
- +#222#174'b'#255#222#174'b'#255#222#174'b'#255#222#174'b'#255#222#174'b'#255
- +#222#174'b'#255#222#174'b'#255#222#174'b'#255#154'yC'#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#15#11#6
- +#255#218#172'`'#255#222#174'b'#255#222#174'b'#255#221#173'b'#255#217#167'_'
- +#255#202#146'T'#255#156'a9'#255'^4'#30#254'G@='#206'DDD'#151'>>>)@@@'#4#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'AAA+L;4'#188'b6 '#254#170
- +'l@'#255#206#152'Z'#255#217#168'b'#255#219#171'd'#255#219#171'd'#255#219#171
- +'d'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171
- +'d'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171
- +'d'#255#219#171'd'#255#26#20#12#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'oW3'#255#219#171'd'#255#219
- +#171'd'#255#219#171'd'#255#218#169'c'#255#212#161'_'#255#187#127'L'#255'uD)'
- +#254'W6('#238'CCC'#182'CCC[III'#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0'@@@'#12'EBBS[3'#31#244#134'O/'#255#192#134'Q'#255#212#162'b'#255#215
- +#167'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216
- +#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216
- +#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#216#168'd'#255#198
- +#154'\'#255#5#4#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'!'#25#15#255#216#168'd'#255#216#168'd'#255#216#168
- +'d'#255#216#168'd'#255#214#166'd'#255#202#147'Y'#255#161'e='#255'^2'#29#255
- +'J?:'#208'CCC'#137'EEE'#26#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'C'
- +'CC'#23'O9/'#171'`3'#31#254#174'pD'#255#203#150']'#255#212#163'e'#255#213#164
- +'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164
- +'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164
- +'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164'e'#255#213#164
- +'e'#255#173#133'R'#255#3#2#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#22#17#11#255#213#164'e'#255#213#164'e'#255#213#164
- +'e'#255#213#164'e'#255#213#164'f'#255#209#158'a'#255#187#128'O'#255'yD)'#254
- +'W4$'#241'BBB'#169'DDD1@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'FFF(W4'
- +'$'#229'{E)'#255#191#134'T'#255#207#157'c'#255#210#160'f'#255#210#160'f'#255
- +#210#160'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255
- +#210#160'f'#255#152'tJ'#255'[E,'#255'K9$'#255'{]<'#255#196#149'_'#255#210#160
- +'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#159'yM'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'"'
- +#26#17#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#210#160'f'#255#210
- +#160'f'#255#209#160'e'#255#199#146']'#255#156'_;'#255'\1'#28#254'FBA'#188'FF'
- +'FXNNN'#13#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'FFF'#11'F@=T\/'#28#253#151'\9'#255
- +#200#147'_'#255#207#156'e'#255#207#156'e'#255#207#156'e'#255#207#156'e'#255
- +#207#156'e'#255#207#156'e'#255#207#156'e'#255#178#135'W'#255'$'#27#17#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'N:&'#255#207#156'e'#255#207
- +#156'e'#255#207#156'e'#255#207#156'e'#255#207#156'e'#255#3#2#1#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'uX9'#255#207#156'e'#255#207
- +#156'e'#255#207#156'e'#255#207#156'e'#255#207#156'e'#255#207#157'e'#255#204
- +#153'b'#255#180'wK'#255'a4'#30#254'M;3'#216'DDD'#132'==='#25#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0'CCC'#19'N9.'#159'^2'#30#254#176'rI'#255#202#150'c'#255#203
- +#153'e'#255#203#153'f'#255#203#153'f'#255#203#153'f'#255#203#153'f'#255#203
- +#153'f'#255#163'zQ'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#29#22#15#255#203#153'f'#255#203#153'f'#255#203#153
- +'f'#255#203#153'f'#255#14#10#7#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- ,#0#0#255#4#3#2#255#203#153'f'#255#203#153'f'#255#203#153'f'#255#203#153'f'
- +#255#203#153'f'#255#203#153'f'#255#203#153'f'#255#203#152'e'#255#190#134'X'
- +#255'yC)'#254'V5&'#239'DDD'#165'FFF('#128#128#128#2#0#0#0#0#0#0#0#0#0#0#0#0
- +'GGG'#25'V4%'#212's@&'#254#186#128'U'#255#199#148'd'#255#200#148'd'#255#200
- +#148'd'#255#200#148'd'#255#200#148'd'#255#200#148'd'#255#198#146'd'#255#12#9
- +#6#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#138'fE'#255#200#148'd'#255#200#148'd'#255#200#148'd'#255
- +#15#11#7#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'&'#28#19#255#145'kH'#255
- +#200#148'd'#255#200#148'd'#255#200#148'd'#255#200#148'd'#255#200#148'd'#255
- +#200#148'd'#255#200#148'd'#255#200#148'd'#255#194#141'^'#255#146'W6'#255'[0'
- +#28#254'EBB'#178'CCC9UUU'#6#0#0#0#0#0#0#0#0#0#0#0#0'JAA'#31'\1'#29#249#140'P'
- +'2'#255#190#135'\'#255#196#143'c'#255#196#143'c'#255#196#143'c'#255#196#143
- +'c'#255#196#143'c'#255#196#143'c'#255'>-'#31#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'&'
- +#28#19#255#196#143'c'#255#196#143'c'#255#196#143'c'#255#25#18#12#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#1
- +#255'*'#31#21#255'kM6'#255#187#137'_'#255#196#143'c'#255#196#143'c'#255#196
- +#143'c'#255#196#143'c'#255#196#143'c'#255#196#143'c'#255#196#143'c'#255#196
- +#143'c'#255#196#143'c'#255#196#143'c'#255#194#141'b'#255#170'kF'#255'\0'#28
- +#254'L<5'#203'CCCH333'#10#0#0#0#0#0#0#0#0#0#0#0#1'K3+@[/'#27#255#160'`>'#255
- +#190#136'_'#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'#255
- +#191#137'`'#255#189#135'`'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#30#21#15#255
- +#191#137'`'#255#191#137'`'#255#191#137'`'#255'aF1'#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#5#3#2#255#165'vS'#255#191#137'`'
- +#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'
- +#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'#255#191#137'`'
- +#255#191#137'`'#255#191#137'`'#255#191#136'`'#255#178'vQ'#255'h7 '#253'Q8,'
- +#220'DDDV;;;'#13#0#0#0#0#0#0#0#0'UUU'#3'R4''^[/'#27#255#169'hF'#255#187#131
- +']'#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132
- +'^'#255'uS;'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'{W>'#255#187#132'^'#255
- +#187#132'^'#255#187#132'^'#255#185#130'^'#255#19#14#10#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#1#1#1#255#158'oO'#255#187#132'^'#255#187#132'^'
- +#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'
- +#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#187#132'^'
- +#255#187#132'^'#255#187#132'^'#255#187#132'^'#255#181'{V'#255'r<"'#255'T6'''
- +#228'BBBd@@@'#16#0#0#0#0#0#0#0#0'UUU'#6'T5''}_2'#30#253#171'kI'#255#183'}Z'
- +#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255'. '#23#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#1#1#0#255'S9)'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'
- +#255#183'~Z'#255#173'xV'#255#31#21#15#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'b'
- +'C0'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'
- +#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255
- +#183'~Z'#255#183'~Z'#255#183'~Z'#255#183'~Z'#255#181'zV'#255'zA%'#255'X4$'
- +#237'DDDqCCC'#19#0#0#0#0#0#0#0#0'@@@'#8'U4%'#149'f5'#31#252#172'mK'#255#180
- +'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#6#4#3
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#19#13#9#255#153'gK'#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'
- +#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255'{S<'#255'+'#29#21#255#7
- +#4#3#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1
- +#255'gF3'#255#180'yX'#255#180'yX'#255#180'yX'#255#139']D'#255'+'#29#21#255#8
- +#6#4#255#8#6#4#255#16#11#8#255'W:*'#255#178'wV'#255#180'yX'#255#180'yX'#255
- +#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#180'yX'#255#179'yV'#255#131
- +'F+'#255'[3!'#245'CCCyIII'#21#0#0#0#0#0#0#0#0'UUU'#6'X3"'#165'n:"'#253#172'p'
- +'O'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#173'uU'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1
- +#0#0#255'P6'''#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'
- ,#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255
- +#177'wW'#255#177'wW'#255#158'jM'#255'W;+'#255''''#26#19#255'"'#23#17#255'%'
- +#25#18#255'W:+'#255#167'qS'#255#177'wW'#255#177'wW'#255#177'wW'#255'@+'#31
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#3#2#1#255
- +#149'dI'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177'wW'#255#177
- +'wW'#255#177'vV'#255#139'M0'#255'[1'#30#250'DDDpCCC'#19#0#0#0#0#0#0#0#0'UUU'
- +#3'Y1'#31#182'v>%'#255#172'oQ'#255#175'tW'#255#175'tW'#255#175'tW'#255#175't'
- +'W'#255#175'tW'#255'}S?'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#26#17#13#255#150'cK'#255#175'tW'#255#175'tW'#255#175'tW'#255
- +#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175
- +'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'
- +#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255
- +#175'tW'#255'dC2'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#9#6#4#255#169'pU'#255#175'tW'#255#175'tW'#255#175't'
- +'W'#255#175'tW'#255#175'tW'#255#174'sU'#255#145'S6'#255']0'#28#254'DBBd@@@'
- +#16#0#0#0#0#0#0#0#0#0#0#0#0'Z0'#30#175'v=%'#255#171'nP'#255#174'rV'#255#174
- +'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255'L2&'#255#0#0#0#255'/'#31#23#255
- +'}R>'#255' '#21#16#255'!'#22#17#255#139'[E'#255#174'rV'#255#174'rV'#255#174
- +'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'
- +#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255
- +#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174
- +'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255'?*'#31#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'6#'#27
- +#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#173'qT'#255
- +#145'S7'#255'\1'#29#254'AAAV;;;'#13#0#0#0#0#0#0#0#0#0#0#0#0'Z1'#30#150'n;$'
- +#252#169'jM'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255
- +#149'bI'#255'@* '#255#170'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'
- +#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255
- +#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172
- +'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'
- +#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255
- +'G/#'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#24#16#12#255#172'qU'#255#172'qU'#255#172'qU'#255#172
- +'qU'#255#172'qU'#255#171'oS'#255#138'N3'#255'\2'#31#249'DDDG999'#9#0#0#0#0#0
- +#0#0#0#0#0#0#0'X1!|g7#'#250#167'gI'#255#172'pT'#255#172'qU'#255#172'qU'#255
- +#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172
- +'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'
- +#255#172'qU'#255'P5('#255')'#27#20#255#27#18#13#255'5#'#26#255'pJ8'#255#172
- +'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'
- +#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255
- +#172'qU'#255#172'qU'#255#162'jO'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#9#6#4#255#172'qU'#255#172
- +'qU'#255#172'qU'#255#172'qU'#255#172'qU'#255#170'mR'#255#131'I.'#255'[4"'#241
- +'FFF7UUU'#6#0#0#0#0#0#0#0#0#0#0#0#0'Y1!`b5 '#251#164'cG'#255#172'pU'#255#173
- +'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'
- +#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255
- +#173'rW'#255'}S?'#255#9#6#5#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#16#11#8#255#152'dM'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255
- +#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#173
- +'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255'$'#24#18#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#4#3#2#255#173'r'
- +'W'#255#173'rW'#255#173'rW'#255#173'rW'#255#173'rW'#255#170'mQ'#255'|C*'#255
- +'W4$'#229'CCC&'#0#0#0#2#0#0#0#0#0#0#0#0#0#0#0#0'X5!A^2'#31#254#162'bE'#255
- +#173'rV'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175
- +'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'
- +#255#175'tY'#255'{Q?'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#14#9#7#255#173'tY'#255#175'tY'#255#175'tY'#255
- +#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175
- +'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#132'XC'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#21
- +#14#11#255#175'tY'#255#175'tY'#255#175'tY'#255#175'tY'#255#174'tY'#255#170'm'
- +'P'#255't?('#254'U5&'#203'@@@'#24#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'X0'#24' ^2'
- +#31#255#156'\A'#255#175'v\'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'
- +#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255
- ,#177'y`'#255#177'y`'#255#177'y`'#255#11#8#6#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#136']J'#255#177
- +'y`'#255#177'y`'#255'7%'#30#255#9#6#5#255#13#9#7#255#16#11#9#255#26#18#14#255
- +#139'_K'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#177
- +'y`'#255#18#12#9#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'<)!'#255#177'y`'#255#177'y`'#255#177'y`'#255#177'y`'#255#176
- +'x^'#255#169'kP'#255'j<&'#253'U4%'#168';;;'#13#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0'^2'#29#234#136'O4'#255#176'x^'#255#180'~f'#255#180'~f'#255#180'~f'
- +#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255
- +#180'~f'#255#180'~f'#255#180'~f'#255#146'gS'#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#139'bO'#255#170'x`'#255#20#14#11#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255']A4'#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255
- +#180'~f'#255'qO@'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#1#1#0#255#165't^'#255#180'~f'#255#180'~f'#255#180'~f'#255#180'~f'#255
- +#178'zb'#255#162'dH'#255'_3'#31#254'R6)c@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0'[/'#29#153'r?)'#252#174'sZ'#255#182#129'j'#255#183#131'l'#255#183
- +#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183
- +#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255'ZA5'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#5#3#3#255#179#127'j'#255'uTE'#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'{XI'#255#183#131'l'
- +#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#20#15#12#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255':)"'#255#183#131'l'#255
- +#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#179'|c'#255#140
- +'R9'#255'\2'#31#248'@@6'#28#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +'[/'#29'E`5 '#252#166'iO'#255#183#131'l'#255#186#136'q'#255#186#136'q'#255
- +#186#136'q'#255#186#136'q'#255#186#136'q'#255#186#136'q'#255#186#136'q'#255
- +#186#136'q'#255#186#136'q'#255#186#136'q'#255#186#136'q'#255'\D8'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255'oQC'#255#186#136'q'#255'X@6'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#12#9#7#255#186#136'q'#255#186
- +#136'q'#255#186#136'q'#255#186#136'q'#255#186#136'q'#255#148'lZ'#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#169'|g'#255#186#136'q'#255#186
- +#136'q'#255#186#136'q'#255#186#136'q'#255#185#134'q'#255#177'y`'#255'tB+'#254
- +'W2!'#194'III'#14#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@'#0#4'^3'
- +#30#245#144'W='#255#184#134'o'#255#189#141'x'#255#189#141'x'#255#189#141'x'
- +#255#189#141'x'#255#189#141'x'#255#189#141'x'#255#189#141'x'#255#189#141'x'
- +#255#189#141'x'#255#189#141'x'#255#189#141'x'#255'tWJ'#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'('#30#26#255
- +#189#141'x'#255#189#141'x'#255'?/('#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#187#139'v'#255#189#141
- +'x'#255#189#141'x'#255#189#141'x'#255#189#141'x'#255#189#141'x'#255#172#128
- +'m'#255'_G<'#255#1#0#0#255#0#0#0#255'-"'#28#255#189#141'x'#255#189#141'x'#255
- +#189#141'x'#255#189#141'x'#255#189#141'x'#255#186#137's'#255#171'oU'#255'a6"'
- +#253'T5$jUUU'#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\/'
- +#27#170'vD,'#252#181#128'h'#255#190#144'{'#255#192#146'~'#255#192#146'~'#255
- +#192#146'~'#255#192#146'~'#255#192#146'~'#255#192#146'~'#255#192#146'~'#255
- +#192#146'~'#255#192#146'~'#255#192#146'~'#255#186#142'z'#255#1#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#1#1#255#186#142'z'
- +#255#192#146'~'#255#192#146'~'#255'=.('#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#192#146'~'#255#192
- +#146'~'#255#192#146'~'#255#192#146'~'#255#192#146'~'#255#192#146'~'#255#192
- +#146'~'#255#192#146'~'#255#0#0#0#255#0#0#0#255#167#127'n'#255#192#146'~'#255
- +#192#146'~'#255#192#146'~'#255#192#146'~'#255#191#145'}'#255#186#137's'#255
- +#149'[A'#255'^1'#31#250'F:.'#22#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'\.'#28'H`5 '#252#164'jP'#255#190#143'z'#255#194#151#131
- +#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151
- +#131#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151#131#255#194
- +#151#131#255#27#21#18#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255' '#25#21#255#194#151#131#255#194#151#131#255#194#151#131#255'7*%'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#12#9#8#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151
- +#131#255#194#151#131#255#194#151#131#255#194#151#131#255#190#149#129#255#0#0
- ,#0#255'0% '#255#194#151#131#255#194#151#131#255#194#151#131#255#194#151#131
- +#255#194#151#131#255#192#147#127#255#180'~f'#255'q@+'#252'Z0'#29#180#0#0#0#2
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0']0'
- +#28#199'{H2'#252#184#134'o'#255#196#153#134#255#197#156#137#255#197#156#137
- +#255#197#156#137#255#197#156#137#255#197#156#137#255#197#156#137#255#197#156
- +#137#255#197#156#137#255#197#156#137#255#197#156#137#255'G81'#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255'WE='#255#197#156#137#255#197
- +#156#137#255#191#152#133#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#135'k^'#255#197#156#137#255#197
- +#156#137#255#197#156#137#255#197#156#137#255#197#156#137#255#197#156#137#255
- +#197#156#137#255#197#156#137#255#16#12#11#255#174#138'y'#255#197#156#137#255
- +#197#156#137#255#197#156#137#255#197#156#137#255#197#155#136#255#191#145'|'
- +#255#151'_F'#255'^3'#31#253'T2!-'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[0'#29'5_4 '#254#161'hP'#255#195#152#132
- +#255#200#161#143#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161
- +#144#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144#255#200
- +#161#144#255'xaW'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1
- +#255#171#138'{'#255#200#161#144#255#200#161#144#255#127'f\'#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255')!'#30#255
- +#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144
- +#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144#255#153'{n'
- +#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161#144#255#200#161
- +#144#255#198#156#138#255#181#128'h'#255'l>*'#252'Z1'#30#159#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0'^0'#27#173'uE/'#249#186#136'r'#255#201#162#145#255#203#165#150#255#203#165
- +#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203
- +#165#150#255#203#165#150#255#203#165#150#255#163#132'x'#255#0#0#0#255#0#0#0
- +#255#26#21#19#255',$!'#255'-%!'#255#156'~s'#255#203#165#150#255#203#165#150
- +#255#203#165#150#255'@4/'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#4#3#3#255#186#151#138#255#203#165#150#255#203#165
- +#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203
- +#165#150#255#203#165#150#255#203#165#150#255#203#165#150#255#203#165#150#255
- +#203#165#150#255#203#165#150#255#203#165#150#255#203#164#149#255#195#152#132
- +#255#146'\D'#255'_3'#31#247'R3'#30#25#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z-'#30'"^4 '#252#155
- +'cK'#255#196#153#136#255#206#169#155#255#207#171#156#255#207#171#156#255#207
- +#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255
- +#207#171#156#255#203#167#152#255#0#0#0#255#0#0#0#255#193#159#145#255#207#171
- +#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207
- +#171#156#255'E94'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#15#12#11#255#182#150#137#255#207#171#156#255#207#171#156#255#207#171#156
- +#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171
- +#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207#171#156#255#207
- +#171#156#255#207#171#156#255#206#170#155#255#201#162#145#255#178'}f'#255'h<('
- +#250'[0'#28#129#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0']1'#29#130'f:&'#250#171'u'
- +'^'#255#202#164#148#255#210#176#163#255#210#177#164#255#210#177#164#255#210
- +#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255
- +#210#177#164#255#2#1#1#255#27#22#21#255#210#177#164#255#210#177#164#255#210
- +#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255
- +#210#177#164#255'I=8'#255#6#5#4#255#0#0#0#255#0#0#0#255#0#0#0#255'''!'#31#255
- +#206#175#162#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164
- +#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177
- +#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210#177#164#255#210
- +#177#164#255#210#176#163#255#206#170#155#255#188#139'w'#255'zI4'#252'^2'#29
- +#222']/'#23#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'^1'#29#181'oA-'
- +#249#182#132'n'#255#208#173#159#255#213#182#169#255#213#183#170#255#213#183
- +#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213
- +#183#170#255#12#10#9#255#159#136#127#255#213#183#170#255#213#183#170#255#213
- +#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255
- +#213#183#170#255#213#183#170#255#139'xo'#255#0#0#0#255#0#0#0#255'% '#30#255
- +#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170
- +#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183
- ,#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213#183#170#255#213
- +#183#170#255#213#183#170#255#211#178#165#255#196#152#134#255#136'T?'#254'`1 '
- +#243'U+'#28'$'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U+'#21#12
- +']2'#30#218'zK5'#251#192#146#127#255#212#180#168#255#216#187#176#255#217#188
- +#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217
- +#188#177#255'o`Z'#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188
- +#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217
- +#188#177#255#217#188#177#255#27#24#22#255#0#0#0#255#9#8#7#255#209#180#171#255
- +#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177
- +#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188
- +#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217#188#177#255#217
- +#188#177#255#215#185#173#255#202#163#147#255#152'cM'#255'`5 '#252'X.'#27'B'#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'].'#23'!_'
- +'3 '#241#135'V@'#254#197#155#137#255#215#185#173#255#219#193#183#255#220#194
- +#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220
- +#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255
- +#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184
- +#255#220#194#184#255#4#4#4#255#13#11#11#255#197#173#164#255#220#194#184#255
- +#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184
- +#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194
- +#184#255#220#194#184#255#220#194#184#255#220#194#184#255#220#194#183#255#218
- +#190#179#255#205#169#154#255#165'pY'#255'b8$'#252'[/'#27'h'#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Y1'#28'?_'
- +'3!'#249#132'T?'#252#193#148#130#255#215#186#174#255#223#198#189#255#223#200
- +#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223
- +#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255
- +#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191
- +#255#199#179#171#255#215#192#183#255#223#200#191#255#223#200#191#255#223#200
- +#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223
- +#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255#223#200#191#255
- +#223#200#191#255#223#200#191#255#223#199#190#255#219#192#183#255#203#165#150
- +#255#158'kS'#255'c9%'#251']0'#30#147#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Z-'#25'3_3'#30
- +#234'wI5'#250#185#138'v'#255#215#186#174#255#225#203#194#255#227#205#197#255
- +#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197
- +#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205
- +#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227
- +#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255
- +#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197
- +#255#227#205#197#255#227#205#197#255#227#205#197#255#227#205#197#255#226#204
- +#196#255#220#194#183#255#200#159#143#255#144'_H'#254'a6"'#253'\1'#30'y'#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\3'#31#25'^2'#29#207'nB.'#249#175'~i'#255
- +#213#182#169#255#225#202#193#255#230#209#203#255#230#211#205#255#230#211#205
- +#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211
- +#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230
- +#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255
- +#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205
- +#255#230#211#205#255#230#211#205#255#230#211#205#255#230#211#205#255#230#210
- +#204#255#227#205#198#255#219#191#181#255#193#149#131#255#131'R='#251'_4 '#247
- +'Z0'#26'O'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'` '#8']0'
- +#28#169'e:'''#250#148'aL'#255#196#153#136#255#220#193#183#255#229#209#202#255
- +#233#216#210#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216#211
- +#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216
- +#211#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216#211#255#234
- +#216#211#255#234#216#211#255#234#216#211#255#234#216#211#255#234#216#211#255
- +#234#216#211#255#234#216#211#255#234#216#211#255#233#216#211#255#231#212#206
- ,#255#224#200#192#255#207#171#156#255#168'va'#255'rE1'#249'^3'#31#230'Y,'#28
- +'.'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0'^1'#29'h`3'#31#237'nA/'#249#158'mW'#255#203#165#150#255#224#201#192
- +#255#232#213#208#255#235#219#215#255#237#222#218#255#237#222#218#255#237#222
- +#218#255#237#222#218#255#237#222#218#255#237#222#218#255#237#222#218#255#237
- +#222#218#255#237#222#218#255#237#222#218#255#237#222#218#255#237#222#218#255
- +#237#222#218#255#237#222#218#255#237#222#218#255#237#222#218#255#237#222#218
- +#255#236#220#216#255#233#216#211#255#228#206#200#255#213#182#170#255#177#131
- +'n'#255'}M:'#250'a6"'#253']1'#29#155'U1'#24#21#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'].'#23#11
- +']1'#29'~`5!'#246'tF5'#249#166'u`'#255#202#164#148#255#221#195#186#255#230
- +#210#203#255#234#218#213#255#238#224#220#255#240#227#224#255#240#227#225#255
- +#240#227#225#255#240#227#225#255#240#227#225#255#240#227#225#255#240#227#225
- +#255#240#227#225#255#240#227#225#255#240#227#225#255#240#227#225#255#239#225
- +#222#255#236#220#215#255#232#213#207#255#225#203#194#255#210#176#164#255#183
- +#138'u'#255#133'UA'#252'c9&'#254'^2'#30#178'\.'#26''''#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U1'#24#21']0'#30#147'`7"'#251'jA-'#249#133'UA'
- +#253#169'zf'#255#201#162#146#255#220#194#184#255#230#211#205#255#233#215#210
- +#255#234#217#212#255#236#220#215#255#237#222#218#255#238#223#220#255#237#222
- +#219#255#236#220#216#255#234#219#213#255#233#216#211#255#231#213#206#255#225
- +#203#194#255#209#174#160#255#181#136'u'#255#145'`L'#255'sG4'#249'c9&'#255'_2'
- +#30#198'].'#28'7'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0'U+'#28#18'\.'#27'^_1'#30#179'c7$'#248'h?,'#251#127
- +'Q;'#251#148'dN'#255#163't_'#255#175#129'n'#255#186#143'~'#255#198#157#141
- +#255#204#167#151#255#201#161#145#255#191#149#132#255#179#135'u'#255#167'ye'
- +#255#153'iT'#255#136'WC'#254'pE2'#249'c9&'#255'_3'#31#212'Z/'#27'|].'#29','#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'U9'#28#9'\.'#26'N^0'#29#157'`'
- +'4 '#203'c6#'#230'c7%'#249'd:('#255'f=*'#255'i?-'#252'g>+'#255'e;('#255'd9&'
- +#253'b7$'#237'a5!'#214'_1'#30#180'\/'#26'lX,'#26#29#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'`0 '#16'[1'#24'*].'#27'B]1'#29'4\3'#31#25'UU'#0#3#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#248#15#255
- +#255#255#255#255#254#0#0#127#255#255#255#255#240#0#0#7#255#255#255#255#192#0
- +#0#1#255#255#255#255#0#0#0#0#255#255#255#252#0#0#0#0'?'#255#255#248#0#0#0#0
- +#31#255#255#240#0#0#0#0#7#255#255#192#0#0#0#0#3#255#255#128#0#0#0#0#1#255#255
- +#128#0#0#0#0#0#255#255#0#0#0#0#0#0#127#254#0#0#0#0#0#0#127#252#0#0#0#0#0#0'?'
- +#252#0#0#0#0#0#0#31#248#0#0#0#0#0#0#31#248#0#0#0#0#0#0#15#240#0#0#0#0#0#0#15
- ,#240#0#0#0#0#0#0#7#224#0#0#0#0#0#0#7#224#0#0#0#0#0#0#7#224#0#0#0#0#0#0#3#192
- +#0#0#0#0#0#0#3#192#0#0#0#0#0#0#3#192#0#0#0#0#0#0#1#192#0#0#0#0#0#0#1#192#0#0
- +#0#0#0#0#1#128#0#0#0#0#0#0#1#128#0#0#0#0#0#0#1#128#0#0#0#0#0#0#1#128#0#0#0#0
- +#0#0#1#128#0#0#0#0#0#0#1#128#0#0#0#0#0#0#1#192#0#0#0#0#0#0#1#192#0#0#0#0#0#0
- +#1#192#0#0#0#0#0#0#1#192#0#0#0#0#0#0#1#192#0#0#0#0#0#0#3#192#0#0#0#0#0#0#3
- +#224#0#0#0#0#0#0#3#224#0#0#0#0#0#0#7#224#0#0#0#0#0#0#7#224#0#0#0#0#0#0#7#240
- +#0#0#0#0#0#0#15#240#0#0#0#0#0#0#15#248#0#0#0#0#0#0#31#248#0#0#0#0#0#0#31#252
- +#0#0#0#0#0#0'?'#252#0#0#0#0#0#0#127#254#0#0#0#0#0#0#127#254#0#0#0#0#0#0#255
- +#255#0#0#0#0#0#1#255#255#128#0#0#0#0#3#255#255#192#0#0#0#0#7#255#255#224#0#0
- +#0#0#15#255#255#240#0#0#0#0#31#255#255#248#0#0#0#0'?'#255#255#254#0#0#0#0#127
- +#255#255#255#0#0#0#1#255#255#255#255#192#0#0#7#255#255#255#255#240#0#0#31#255
- +#255#255#255#254#0#0#255#255#255#255#255#255#248#31#255#255#255#255#255#255
- +#255#255#255#255#255'('#0#0#0'0'#0#0#0'`'#0#0#0#1#0' '#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'333'#5'UUU'#6'III'#7'@@@'#8'@@@'#8'III'#7
- +'UUU'#6'333'#5'UUU'#3#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'@@@'
- +#4'@@@'#8'@@@'#16'DDD1BBBMCCC_FCCrDBB'#129'FDD'#133'CCCvCCCcDDDRDDD('#240'l@!'#252'qE!'
- +#253'yJ$'#252#129'R&'#252#138'X)'#253#134'T('#253'}N%'#252'uG#'#252'oC"'#253
- +'h=#'#248'Z>.'#230'OC;'#211'FEC'#198'DDC'#187'BBB|CCC&999'#9#0#0#0#1#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#2'<<<'#17'CCCWEED'#170'OB9'#211'd=&'#244'qE"'#253#137'V)'#253
- +#164'h.'#255#186'y3'#255#194#130'5'#255#198#135'6'#255#203#140'7'#255#207#145
- +'8'#255#205#143'7'#255#201#137'7'#255#196#132'6'#255#192#127'5'#255#177'r1'
- +#255#152'_+'#254'{L%'#252'k?"'#251'[>-'#233'IEA'#203'EDD'#184'DDDq<<<'#30'@@'
- +'@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0'@@@'#4'BBB#EDD'#146'KB<'#205'a='''#242'yK&'#252#166'i/'#255#192#128'6'
- +#255#205#143'9'#255#217#159'<'#255#226#169'>'#255#230#173'>'#255#232#176'>'
- +#255#235#180'?'#255#237#182'@'#255#236#181'?'#255#234#178'>'#255#231#175'>'
- +#255#228#171'>'#255#223#165'<'#255#211#150':'#255#199#136'8'#255#182'v5'#255
- +#146'\,'#253'k@"'#252'W?1'#227'GFE'#199'CCC'#171'???=@@@'#8#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'III'#7'DDD8ECB'#170'[>,'#234'sF$'
- +#252#160'e0'#255#196#133';'#255#216#158'@'#255#227#170'A'#255#234#180'C'#255
- +#241#189'D'#255#245#193'E'#255#246#195'F'#255#247#195'F'#255#247#196'E'#255
- +#248#197'F'#255#248#197'E'#255#247#195'F'#255#247#194'F'#255#246#194'E'#255
- +#244#192'E'#255#238#184'C'#255#230#176'C'#255#223#166'A'#255#207#147'='#255
- +#182'w7'#255#138'V+'#253'h>#'#250'NA9'#215'CCC'#186'@@@[;;;'#13#0#0#0#1#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#8'EEENGC?'#189'b;%'#245#139'W-'#253#190
- +#127';'#255#212#153'B'#255#227#172'F'#255#239#186'I'#255#242#191'J'#255#244
- +#193'K'#255#246#195'K'#255#247#196'K'#255#247#196'K'#255#247#196'L'#255#247
- +#196'L'#255#247#196'L'#255#247#196'L'#255#247#196'L'#255#247#196'K'#255#247
- +#196'K'#255#246#196'K'#255#245#195'J'#255#243#193'J'#255#242#190'J'#255#234
- +#180'H'#255#221#165'E'#255#202#142'@'#255#173'o5'#255'oC$'#252'T?3'#225'CCC'
- +#193'AAAy@@@'#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'+++'#6'DDD@K@<'#198'g<"'#250#154
- +'a2'#254#200#141'B'#255#222#168'J'#255#234#183'N'#255#239#189'P'#255#242#192
- +'P'#255#242#193'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#243#193
- +'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#243#193
- ,'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#243#193'P'#255#242#193
- +'P'#255#242#193'P'#255#241#191'P'#255#238#187'N'#255#229#176'L'#255#214#158
- +'G'#255#183'y;'#255'yJ)'#252'[=,'#236'CCB'#195'EEEoFFF'#11#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3
- +'CCC.J?;'#190'g=#'#252#167'k7'#255#205#147'H'#255#226#173'P'#255#235#186'T'
- +#255#238#189'T'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'
- +#255#239#190'U'#255#239#190'U'#255#191#152'D'#255'A4'#23#255'>1'#22#255'D6'
- +#24#255'H9'#26#255'RA'#29#255#146's4'#255#228#182'Q'#255#239#190'U'#255#239
- +#190'U'#255#239#190'U'#255#239#190'U'#255#239#190'U'#255#238#190'U'#255#237
- +#187'T'#255#232#182'S'#255#217#162'M'#255#191#129'B'#255#132'R-'#253'[9('#240
- +'DDD'#191'CCCW@@@'#8#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#1'>>>'#29'F@='#169'd9#'#250#165'i8'#255#208#151'L'#255
- +#226#174'U'#255#233#184'Y'#255#235#186'Y'#255#235#187'Y'#255#235#187'Y'#255
- +#235#187'Y'#255#235#187'Y'#255#235#187'Y'#255#235#187'Y'#255'<0'#23#255#1#1#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#0#0#0#255#6
- +#5#2#255'*!'#16#255'w^-'#255#227#181'W'#255#235#187'Y'#255#235#187'Y'#255#235
- +#186'Y'#255#234#186'Y'#255#231#181'X'#255#218#164'Q'#255#194#133'E'#255'{J*'
- +#252'U=/'#230'CCC'#186'EEE?@@@'#4#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0'333'#10'DAAw_9%'#244#150'^4'#254#204#148'N'#255#225#175
- +'Y'#255#230#181'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255#231#183
- +'\'#255#231#183'\'#255#231#183'\'#255#231#183'\'#255'hR*'#255#1#1#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#1#1#0#255#1#1#0#255'*!'#17#255#164#130'B'#255#231#183'\'
- +#255#231#183'\'#255#231#182']'#255#228#179'['#255#217#165'V'#255#185'|C'#255
- +'nA'''#252'N>5'#219'CCC'#163'@@@'#20#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#128#128#128#2'@@@,W8*'#227#132'P/'#253#196#139'M'#255#220
- +#170'['#255#226#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227
- +#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#227#179'_'#255#4#3#2
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0
- +#255#7#6#3#255#178#141'J'#255#227#179'_'#255#227#179'_'#255#225#176'^'#255
- +#211#158'U'#255#174'q?'#255'c9"'#252'GA>'#203'BBB]III'#7#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'FFF'#11'H>:'#150'e:#'#252#186'~H'#255#214#164'\'
- +#255#222#174'a'#255#223#175'b'#255#223#175'b'#255#223#175'b'#255#223#175'b'
- +#255#223#175'b'#255#223#175'b'#255#223#175'b'#255#223#175'b'#255#188#148'S'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#1#1#1#255#154'yC'#255#223#175'b'#255#223#175'a'#255
- +#220#171'`'#255#204#150'U'#255#145'Y5'#254'Y8('#238'CCC'#175'FFF'#29#0#0#0#1
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'UUU'#3'AAA3Z7'''#236#148'\6'#255#207#154'Z'
- +#255#218#170'b'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'
- +#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'#255#219#171'd'
- +#255#211#165'`'#255#6#5#3#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#1#255#219#171'd'#255#219
- +#171'd'#255#219#171'd'#255#215#166'`'#255#189#129'M'#255'h=$'#252'H>;'#207'E'
- +'EEhIII'#7#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'III'#7'K<5'#137'h;$'#252#188#130
- +'O'#255#213#164'b'#255#215#167'd'#255#215#167'd'#255#215#167'd'#255#215#167
- +'d'#255#215#167'd'#255#215#167'd'#255#215#167'd'#255#215#167'd'#255#215#167
- +'d'#255#215#167'd'#255#215#167'd'#255#168#130'N'#255#1#1#1#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#200#155']'#255#215#167'd'#255#215#167'd'#255#215#166'd'#255#205#153']'
- +#255#153'`:'#255'[6$'#243'CCC'#164';;;'#13#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'7'
- +'77'#14'Z5%'#229#150'[8'#255#203#150'^'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211#162'e'#255#211
- +#162'e'#255#142'mD'#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#145'pF'#255#211#162'e'#255#211#162
- +'e'#255#211#162'e'#255#210#159'd'#255#189#131'R'#255'f9#'#252'I@;'#202'===.'
- +#128#128#128#2#0#0#0#0#0#0#0#0#128#128#128#2'D??4]3'#30#252#181'yM'#255#206
- +#155'd'#255#207#157'f'#255#207#157'f'#255#207#157'f'#255#207#157'f'#255#205
- +#155'f'#255'S?('#255#1#1#1#255#1#0#0#255#3#2#1#255#15#11#7#255#169#128'S'#255
- ,#207#157'f'#255#207#157'f'#255#207#157'f'#255#16#12#8#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255#186#141'\'
- +#255#207#157'f'#255#207#157'f'#255#207#157'f'#255#207#157'e'#255#201#148'`'
- +#255#135'O0'#254'R9-'#226'BBBeIII'#7#0#0#0#0#0#0#0#0'UUU'#6'O8/'#141'o>'''
- +#251#193#139'['#255#203#151'e'#255#203#152'e'#255#203#152'e'#255#203#152'e'
- +#255#203#152'e'#255#23#17#11#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#1#1#1#255#153'rL'#255#203#152'e'#255#203#152'e'#255',!'#22#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255' '#24#16
- +#255#203#152'e'#255#203#152'e'#255#203#152'e'#255#203#152'e'#255#203#152'e'
- +#255#202#150'd'#255#165'jC'#255'\3!'#247'DDD'#151'MMM'#10#0#0#0#0#0#0#0#0'@@'
- +'@'#8'Z6%'#206#142'T5'#255#195#142'a'#255#198#145'c'#255#198#145'c'#255#198
- +#145'c'#255#198#145'c'#255'W@,'#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255'%'#27#19#255#198#145'c'#255#198#145'c'#255'U>+'
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255#1#1#1#255#27#20#13#255'vW;'
- +#255#198#145'c'#255#198#145'c'#255#198#145'c'#255#198#145'c'#255#198#145'c'
- +#255#198#145'c'#255#198#145'c'#255#184'}S'#255'`4 '#252'FA>'#183'@@@'#12#0#0
- +#0#0#0#0#0#0'999'#9']2'#30#243#166'gD'#255#192#138'`'#255#192#139'a'#255#192
- +#139'a'#255#192#139'a'#255#190#137'a'#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#8#6#4#255#192#139'a'#255#192#139
- +'a'#255#129']B'#255#1#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'Q;)'#255#192#139'a'
- +#255#192#139'a'#255#192#139'a'#255#192#139'a'#255#192#139'a'#255#192#139'a'
- +#255#192#139'a'#255#192#139'a'#255#192#139'a'#255#192#139'a'#255#188#132'['
- +#255'u@'''#252'M;3'#212'999'#18#0#0#0#0#0#0#0#0'FFF'#11'^1'#29#250#174'oK'
- +#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186#131'\'#255'vS:'#255#1#1
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255
- +'S:)'#255#186#131'\'#255#186#131'\'#255#184#129'\'#255'('#28#20#255#1#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255'Q9('#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186
- +#131'\'#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186#131'\'#255#186
- +#131'\'#255#186#131'\'#255#186#130'['#255#131'I-'#255'Q9-'#221'FFF!'#0#0#0#1
- +#0#0#0#0'M33'#20'_2'#30#251#173'pN'#255#180'{X'#255#180'{X'#255#180'{X'#255
- +#180'{X'#255'-'#30#22#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#2#1#1#255'dE1'#255#180'{X'#255#180'{X'#255#180'{X'#255#180'{X'#255
- +#180'{X'#255'O6&'#255#2#1#1#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'G0#'#255#180'{X'#255#180'{X'#255#178'{X'#255'hH3'#255'U:)'#255
- +'mK5'#255#180'{X'#255#180'{X'#255#180'{X'#255#180'{X'#255#180'{X'#255#180'{X'
- +#255#180'{X'#255#139'P3'#255'U7)'#231'BBB2UUU'#3#0#0#0#0'T1&,c5 '#249#174'rQ'
- +#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#8#5#4#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#1#0#0#255#27#18#13#255#164'nQ'#255#178'wW'#255#178
- +'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'
- +#255#142'_F'#255'H0#'#255#20#13#10#255#25#16#12#255'9'''#28#255'lI5'#255#178
- +'wW'#255#178'wW'#255'kG4'#255#1#1#1#255#1#1#0#255#1#0#0#255#1#0#0#255#3#2#1
- +#255'zQ<'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#178'wW'#255#149
- +'W9'#255'Z5%'#238'DDD-'#128#128#128#2#0#0#0#0'Y3 Bj8#'#248#173'qS'#255#175't'
- +'W'#255#175'tW'#255#175'tW'#255#175'tW'#255#1#0#0#255#1#1#1#255#0#0#0#255#0#0
- +#0#255#5#3#3#255'cB2'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175
- +'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'
- +#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255
- +#173'rU'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#2#1
- +#1#255#152'eL'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#155'[>'
- +#255'\4"'#244'@@@'#28#0#0#0#1#0#0#0#0'X0!3g7"'#246#172'oR'#255#174'rV'#255
- +#174'rV'#255#174'rV'#255#166'lR'#255#7#5#3#255#131'VA'#255#155'fM'#255'oI7'
- +#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255
- +#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174
- +'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'#255#174'rV'
- +#255#153'dL'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#0#0#0#255'<'''#29#255#174'rV'#255#174'rV'#255#174'rV'#255#173'qU'#255#151'Y'
- +'='#255']6%'#239'333'#15#0#0#0#0#0#0#0#0'O1'''#25'b3'#31#247#168'jN'#255#172
- +'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'
- +#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#136'XD'#255
- ,'U7*'#255'^=/'#255'kE5'#255#170'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255
- +#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oU'#255#172
- +'oU'#255#172'oU'#255#5#3#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'!'#21#16#255#172'oU'#255#172'oU'#255#172'oU'#255#172'oT'#255
- +#143'R7'#255'Y6('#225'@@@'#12#0#0#0#0#0#0#0#0'333'#5'_2'#31#248#167'hL'#255
- +#172'qW'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172
- +'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255':&'#30#255#1#0#0#255
- +#1#1#0#255#1#1#1#255#1#1#0#255#4#2#2#255#133'WD'#255#172'qX'#255#172'qX'#255
- +#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172'qX'#255#172
- +'qX'#255#172'qX'#255'E.$'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#30#20#15#255#172'qX'#255#172'qX'#255#172'qX'#255#172'pV'#255
- +#134'K2'#255'V8)'#199'999'#9#0#0#0#0#0#0#0#0#0#0#0#1'_3'#30#239#164'fJ'#255
- +#175'w]'#255#175'w^'#255#175'w^'#255#175'w^'#255#175'w^'#255#175'w^'#255#175
- +'w^'#255#175'w^'#255#175'w^'#255#175'w^'#255'hF7'#255#1#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#7#5#4#255#175'w^'#255#175'w^'#255'{TB'
- +#255'X;/'#255']?2'#255#127'VD'#255#175'w^'#255#175'w^'#255#175'w^'#255#175'w'
- +'^'#255#165'qY'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1
- +#255'fF7'#255#175'w^'#255#175'w^'#255#175'w^'#255#175'v\'#255'{D-'#253'S5('
- +#154'333'#5#0#0#0#0#0#0#0#0#0#0#0#0'a3'#30#200#149'Z?'#255#179'|c'#255#179'}'
- +'e'#255#179'}e'#255#179'}e'#255#179'}e'#255#179'}e'#255#179'}e'#255#179'}e'
- +#255#179'}e'#255#179'}e'#255#19#13#11#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#2#1#1#255#179'}e'#255'E0'''#255#1#0#0#255#1#1#0#255
- +#1#1#0#255#0#0#0#255'R:/'#255#179'}e'#255#179'}e'#255#179'}e'#255#179'}e'#255
- +'.!'#26#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#1#255#177'}e'#255#179
- +'}e'#255#179'}e'#255#179'}e'#255#175'v\'#255'g8$'#251'W7*O'#0#0#0#1#0#0#0#0#0
- +#0#0#0#0#0#0#0'[0'#29'lyD-'#249#181#128'i'#255#183#131'l'#255#183#131'l'#255
- +#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255
- +#183#131'l'#255#183#131'l'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255'"'#25#20#255#183#131'l'#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255'B/'''#255#183#131'l'#255#183#131'l'#255
- +#183#131'l'#255#169'yd'#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255'#'#25#21
- +#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#183#131'l'#255#167'lQ'#255
- +'^3'#31#248'@@@'#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'Y1'#30#26'b5 '#244#178'z'
- +'c'#255#187#138't'#255#187#138'u'#255#187#138'u'#255#187#138'u'#255#187#138
- +'u'#255#187#138'u'#255#187#138'u'#255#187#138'u'#255#187#138'u'#255#2#2#1#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#170'~j'#255#177
- +#130'o'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#4#3#3
- +#255#187#138'u'#255#187#138'u'#255#187#138'u'#255#187#138'u'#255'jNB'#255#11
- +#8#7#255#0#0#0#255#0#0#0#255#152'p`'#255#187#138'u'#255#187#138'u'#255#187
- +#138'u'#255#186#136'r'#255#144'W?'#255']6#'#193'333'#5#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0'`4'#31#217#160'gN'#255#190#143'{'#255#191#145'}'#255#191
- +#145'}'#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#191
- +#145'}'#255#191#145'}'#255#19#14#12#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255'7*$'#255#191#145'}'#255#164'|k'#255#1#1#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#2#2#1#255#191#145'}'#255#191#145'}'#255
- +#191#145'}'#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#0#0#0#255#30#23
- +#20#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#191#145'}'#255#187#138
- +'t'#255'p>('#249'Y2#U'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27
- +'huB+'#244#190#142'z'#255#195#152#132#255#195#152#132#255#195#152#132#255#195
- +#152#132#255#195#152#132#255#195#152#132#255#195#152#132#255#195#152#132#255
- +'A3,'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255#183#142'|'#255
- +#195#152#132#255#138'k]'#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#9#7#6#255#195#152#132#255#195#152#132#255#195#152#132#255#195
- +#152#132#255#195#152#132#255#195#152#132#255#1#1#1#255#160'}m'#255#195#152
- +#132#255#195#152#132#255#195#152#132#255#194#150#131#255#167'pW'#255'`4 '#240
- +'M33'#10#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@'#0#4'`3'#30#229
- +#164'nU'#255#197#156#137#255#199#159#141#255#199#159#141#255#199#159#141#255
- +#199#159#141#255#199#159#141#255#199#159#141#255#199#159#141#255'x`U'#255#1#1
- +#1#255#0#0#0#255#0#0#0#255#0#0#0#255#18#14#13#255#199#159#141#255#199#159#141
- +#255' '#26#23#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255
- +#139'oc'#255#199#159#141#255#199#159#141#255#199#159#141#255#199#159#141#255
- +#199#159#141#255#199#159#141#255'^KC'#255#199#159#141#255#199#159#141#255#199
- +#159#141#255#199#159#141#255#192#147#127#255'rB-'#249'\1 k'#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\.'#28'Sn>('#243#194#149#131
- ,#255#202#165#148#255#203#165#149#255#203#165#149#255#203#165#149#255#203#165
- +#149#255#203#165#149#255#203#165#149#255#169#138'|'#255#0#0#0#255#1#1#1#255
- +#16#13#11#255#23#19#17#255#171#139'~'#255#203#165#149#255#203#165#149#255#3#3
- +#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'*"'#31#255#203#165
- +#149#255#203#165#149#255#203#165#149#255#203#165#149#255#203#165#149#255#203
- +#165#149#255#203#165#149#255#203#165#149#255#203#165#149#255#203#165#149#255
- +#203#165#149#255#201#162#145#255#163'mU'#255'_3'#31#227'U'#0#0#3#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'a3'#30#213#153
- +'eM'#254#204#167#151#255#207#172#158#255#207#172#158#255#207#172#158#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#205#170#156#255#0#0#0#255'<1.'
- +#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172
- +#158#255#20#16#15#255#1#0#0#255#0#0#0#255#0#0#0#255#1#0#0#255'?40'#255#207
- +#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255
- +#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158#255#207#172#158
- +#255#207#172#158#255#207#171#156#255#192#147#127#255'k<'''#244'Z.'#29'L'#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +'^/'#27'&b5!'#240#174'{f'#255#209#176#162#255#212#180#167#255#212#180#167#255
- +#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167#255#6#5#5#255
- +#179#151#140#255#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167
- +#255#212#180#167#255#212#180#167#255'gXR'#255#0#0#0#255#0#0#0#255'gXR'#255
- +#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167
- +#255#212#180#167#255#212#180#167#255#212#180#167#255#212#180#167#255#212#180
- +#167#255#212#180#167#255#211#179#166#255#202#162#146#255#127'M7'#248'`2'#31
- +#169#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0'[/'#26'Fg:#'#242#190#145#127#255#214#184#172#255#216
- +#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255
- +'k]X'#255#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255#216
- +#187#176#255#216#187#176#255#216#187#176#255'E<8'#255#0#0#0#255'>63'#255#216
- +#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255
- +#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176#255#216#187#176
- +#255#216#187#176#255#216#187#175#255#210#176#163#255#147'_H'#252'`4'#31#210
- +'U++'#6#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\0'#29'trB-'#242#198#157#140#255#218#191
- +#180#255#221#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221
- +#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255
- +#221#195#185#255#221#195#185#255#221#195#185#255',''%'#255'920'#255#221#195
- +#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221
- +#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255#221#195#185#255
- +#221#195#185#255#220#194#184#255#213#183#170#255#162'oW'#255'b5 '#232'].'#23
- +#22#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'_1'#30#138'l>)'#242#187#143'|'
- +#255#221#196#186#255#225#202#193#255#225#203#194#255#225#203#194#255#225#203
- +#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225
- +#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255
- +#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194
- +#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203#194#255#225#203
- +#194#255#224#201#192#255#212#180#168#255#149'aK'#252'a5!'#230']2'#25')'#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#28'\d9$'#241#172
- +'|h'#255#222#197#187#255#228#206#200#255#230#209#203#255#230#209#203#255#230
- +#209#203#255#230#209#203#255#230#209#203#255#230#209#203#255#230#209#203#255
- +#230#209#203#255#230#209#203#255#230#209#203#255#230#209#203#255#230#209#203
- +#255#230#209#203#255#230#209#203#255#230#209#203#255#230#209#203#255#230#209
- +#203#255#230#209#203#255#230#209#203#255#229#209#202#255#226#204#197#255#208
- +#173#159#255#131'R;'#245'a3'#31#207'Y3'#26#20#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'].'#28'7a5!'#236#137'WB'#248#201
- +#163#148#255#229#210#202#255#233#215#210#255#234#217#212#255#234#217#212#255
- +#234#217#212#255#234#217#212#255#234#217#212#255#234#217#212#255#234#217#212
- +#255#234#217#212#255#234#217#212#255#234#217#212#255#234#217#212#255#234#217
- +#212#255#234#217#212#255#234#217#212#255#234#217#212#255#234#216#211#255#231
- +#212#206#255#221#195#185#255#174#128'm'#255'm>*'#242'`1'#29#163'f33'#5#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0'b'''#20#13'`2'#29#140'd8$'#241#151'hR'#251#211#179#167#255#233#215
- +#210#255#236#220#215#255#237#222#219#255#238#225#221#255#238#225#221#255#238
- +#225#221#255#238#225#221#255#238#225#221#255#238#225#221#255#238#225#221#255
- +#238#225#221#255#238#225#221#255#238#223#220#255#236#221#217#255#234#219#213
- +#255#227#205#198#255#188#146#128#255'wH2'#242'b5 '#219'].'#27'B'#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'X1'#29#26'a3'#30#168'f:$'#242#134'T?'
- +#246#179#136'v'#255#214#183#172#255#235#218#214#255#238#225#221#255#239#226
- +#223#255#240#227#224#255#240#227#225#255#240#227#225#255#239#226#223#255#239
- +#225#222#255#238#224#220#255#226#204#196#255#199#161#145#255#158'o['#254'rD-'
- +#239'b4"'#232'^2'#30'\'#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0'`+ '#24']/'#30'fd6#'#197'c8#'#243'vE0'#240#140'ZF'
- +#247#156'mY'#255#171#127'm'#255#184#143#127#255#178#136'v'#255#164'wd'#255
- +#148'dP'#252#130'Q;'#243'l<('#239'b6"'#234'b5!'#151'Z-'#29'>UU'#0#3#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0'].'#23#11'Z/'#29'G^4 fa4!'#130'd6!'#166'd7#'#194
- +'d7"'#182'c6"'#150'_3'#31's\0'#29'YY/'#30'+'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#224#3#255#255#255
- +#255#255#254#0#0#127#255#255#255#255#248#0#0#31#255#255#255#255#224#0#0#7#255
- +#255#255#255#192#0#0#3#255#255#255#255#128#0#0#1#255#255#255#255#0#0#0#0#127
- +#255#255#254#0#0#0#0#127#255#255#252#0#0#0#0'?'#255#255#248#0#0#0#0#31#255
- +#255#240#0#0#0#0#15#255#255#240#0#0#0#0#15#255#255#224#0#0#0#0#7#255#255#224
- +#0#0#0#0#3#255#255#192#0#0#0#0#3#255#255#192#0#0#0#0#3#255#255#192#0#0#0#0#1
- +#255#255#128#0#0#0#0#1#255#255#128#0#0#0#0#1#255#255#128#0#0#0#0#1#255#255
- +#128#0#0#0#0#1#255#255#128#0#0#0#0#0#255#255#128#0#0#0#0#0#255#255#128#0#0#0
- +#0#0#255#255#128#0#0#0#0#0#255#255#128#0#0#0#0#1#255#255#128#0#0#0#0#1#255
- +#255#128#0#0#0#0#1#255#255#128#0#0#0#0#1#255#255#192#0#0#0#0#1#255#255#192#0
- +#0#0#0#3#255#255#192#0#0#0#0#3#255#255#224#0#0#0#0#7#255#255#224#0#0#0#0#7
- +#255#255#224#0#0#0#0#15#255#255#240#0#0#0#0#15#255#255#248#0#0#0#0#31#255#255
- +#248#0#0#0#0'?'#255#255#252#0#0#0#0'?'#255#255#254#0#0#0#0#127#255#255#255#0
- +#0#0#0#255#255#255#255#128#0#0#1#255#255#255#255#192#0#0#3#255#255#255#255
- +#224#0#0#15#255#255#255#255#248#0#0#31#255#255#255#255#254#0#0#127#255#255
- +#255#255#255#192#7#255#255#255#255#255#255#255#255#255#255#255#255'('#0#0#0
- +' '#0#0#0'@'#0#0#0#1#0' '#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2'CCC'#19'FFF'#22'UUU'#3#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0'@@@'#12'EAAGDDB'#133'DDC'#181'HC?'#205'LA;'#213
- +'JB='#212'FC@'#204'EED'#185'DDC'#145'DDDSFFF'#22#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'III'#14'EEBoLA;'#208'eE-'#235'xK('
- +#246#131'R)'#250#139'W*'#251#149'_,'#252#145'\+'#252#136'V*'#250#128'Q('#249
- +'rI)'#244'\D2'#227'FB?'#207'CCC'#134'DDD'#30#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0'EEENMA9'#206'oF)'#245#147']-'#252#187'}4'#255#211#150'9'#255#224
- +#167';'#255#230#174'='#255#234#179'>'#255#233#178'>'#255#228#171'='#255#221
- +#163'<'#255#205#143'8'#255#175'r2'#255#131'R*'#250'eC,'#238'FB?'#205'CCCoUUU'
- +#3#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'@@@'#4'GEA|dB+'#239#142'[.'#252#198#137'<'#255#227#172'C'#255
- +#236#183'E'#255#242#190'F'#255#246#195'G'#255#248#198'G'#255#249#199'H'#255
- +#249#198'H'#255#247#196'G'#255#245#193'G'#255#240#188'F'#255#234#180'D'#255
- +#220#163'A'#255#183'y8'#255'}O*'#250'WA4'#225'CCC'#152'<<<'#17#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1'G@='#148
- +'lD*'#245#175'u8'#254#221#166'I'#255#234#182'M'#255#242#193'P'#255#243#194'O'
- +#255#244#195'O'#255#244#195'P'#255#244#195'P'#255#244#195'P'#255#244#195'P'
- +#255#244#195'P'#255#244#195'P'#255#243#194'O'#255#243#194'O'#255#240#190'O'
- +#255#230#179'L'#255#212#155'F'#255#148'^1'#252'`A.'#234'CCC'#171'@@@'#12#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'FA>vmB)'#247#189
- +#130'A'#255#224#172'P'#255#236#187'U'#255#238#189'W'#255#238#190'V'#255#238
- +#190'V'#255#238#190'V'#255'fQ%'#255#17#14#6#255#17#13#6#255#16#13#6#255',#'
- +#16#255#155'|8'#255#238#190'V'#255#238#190'V'#255#238#189'V'#255#238#189'W'
- +#255#233#184'U'#255#217#163'M'#255#164'l8'#254'_>+'#238'DDD'#147#128#128#128
- +#2#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'FDD=e?*'#243#183'}B'#255
- +#223#171'W'#255#232#183'['#255#232#183'\'#255#232#183'\'#255#232#183'\'#255
- +#232#183'\'#255'>1'#25#255#1#1#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
- +#1#1#1#255#5#4#2#255#22#17#9#255'pX,'#255#218#171'V'#255#232#183'\'#255#230
- +#182'['#255#217#164'T'#255#152'a7'#252'V=1'#228'DDDb'#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#128#128#128#2'Z<-'#215#163'k='#254#217#166'['#255#226#178'`'
- +#255#226#179'a'#255#226#179'a'#255#226#179'a'#255#226#179'a'#255#226#179'a'
- +#255#5#4#2#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#3#3#1#255',#'#19#255#226#179'a'#255#225#177'_'
- +#255#208#154'T'#255#129'O1'#251'H?;'#205'@@@'#20#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0'J@<[vF,'#249#206#153'Y'#255#220#172'b'#255#220#172'c'#255#220#172'c'#255
- +#220#172'c'#255#220#172'c'#255#220#172'c'#255#205#160']'#255#4#3#2#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#1#0#0#255'.$'#21#255#220#172'c'#255#218#170'a'#255#190#132
- +'N'#255'c=)'#242'CCCz'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'\9('#218#177'vG'#255
- +#213#164'c'#255#214#166'e'#255#214#166'e'#255#214#166'e'#255#214#166'e'#255
- +#214#166'e'#255#214#166'e'#255#214#166'e'#255'v\8'#255#2#2#1#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#11#9#5#255#214#166'e'#255#214#166'e'#255#209#159'a'#255#139'Y'
- +'6'#252'K>7'#206'333'#5#0#0#0#0#0#0#0#0'?;9'#19'mA+'#247#201#148'^'#255#209
- +#159'e'#255#209#159'e'#255#209#159'e'#255#146'oF'#255#18#14#9#255#21#16#10
- +#255'O<&'#255#209#159'e'#255#209#159'e'#255'$'#27#17#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#11#8#5#255#209#159'e'#255#209#159'e'#255#208#158'e'#255#185#128'Q'#255
- +'^9)'#240'BBB6'#0#0#0#0#0#0#0#0'P8-q'#144'Z:'#252#201#150'd'#255#202#151'd'
- +#255#202#151'd'#255'uW:'#255#2#1#1#255#0#0#0#255#0#0#0#255#1#0#0#255'-!'#22
- +#255#202#151'd'#255'ZC-'#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#1#1#0#255#5#4#3#255'gM3'#255#202#151'd'
- +#255#202#151'd'#255#202#151'd'#255#197#145'`'#255'l@*'#248'CCBo'#0#0#0#0#0#0
- +#0#0'^7$'#194#171'pK'#255#194#140'a'#255#194#140'a'#255#194#140'a'#255#6#4#3
- +#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#7#5#4#255#194#140'a'#255#139'eE'
- +#255#1#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#13
- +#9#6#255'wV<'#255#192#138'a'#255#194#140'a'#255#194#140'a'#255#194#140'a'#255
- +#194#140'a'#255#193#140'a'#255#137'T7'#252'K=6'#158#0#0#0#0#0#0#0#0'a6#'#220
- +#177'uQ'#255#185#129'['#255#185#129'['#255#127'Y>'#255#1#1#0#255#0#0#0#255#0
- +#0#0#255#0#0#0#255#2#1#1#255'8'''#27#255#185#129'['#255#185#129'['#255'+'#30
- +#21#255#2#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#13#9#6#255#179'}Y'
- +#255#185#129'['#255#185#129'['#255#185#129'['#255#185#129'['#255#185#129'['
- +#255#185#129'['#255#185#129'['#255#152'^>'#255'P:1'#190#0#0#0#0#0#0#0#0'c7#'
- +#227#175'sS'#255#178'xW'#255#178'xW'#255','#30#21#255#0#0#0#255#0#0#0#255#0#0
- +#0#255#5#4#3#255'uO:'#255#178'xW'#255#178'xW'#255#178'xW'#255#178'xW'#255'xP'
- +':'#255'('#26#19#255#10#7#5#255#10#7#5#255#28#19#13#255#168'rS'#255#163'nO'
- +#255#25#17#12#255#6#4#3#255#17#11#8#255'bB/'#255#178'xW'#255#178'xW'#255#178
- +'xW'#255#158'aB'#255'V9,'#210#0#0#0#0#0#0#0#0'f7"'#227#173'sT'#255#175'tW'
- +#255#175'tW'#255#15#10#7#255#13#8#6#255#5#4#3#255'+'#29#21#255#169'pU'#255
- +#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175
- +'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#175'tW'#255#17#11#8#255#0#0#0
- +#255#0#0#0#255#0#0#0#255#2#2#1#255#136'ZD'#255#175'tW'#255#175'tW'#255#161'd'
- +'G'#255'[8('#211#0#0#0#0#0#0#0#0'e6"'#218#171'nR'#255#173'qV'#255#173'qV'#255
- +#136'YC'#255#173'qV'#255#173'qV'#255#173'qV'#255#173'qV'#255#173'qV'#255'sK9'
- +#255'uM:'#255#159'gN'#255#173'qV'#255#173'qV'#255#173'qV'#255#173'qV'#255#173
- +'qV'#255#173'qV'#255#173'qV'#255'5"'#27#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0
- +#0#255'H/$'#255#173'qV'#255#173'qV'#255#153'^D'#255'Y8*'#188#0#0#0#0#0#0#0#0
- +'c5 '#203#170'kQ'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'
- ,#255#174'sY'#255#164'mU'#255#11#7#6#255#1#1#1#255#1#1#1#255#5#3#2#255#127'TA'
- +#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255#174'sY'#255
- +#128'UA'#255#2#1#1#255#0#0#0#255#0#0#0#255#0#0#0#255'J1&'#255#174'sY'#255#174
- +'sY'#255#147'X?'#255'S8,'#140#0#0#0#0#0#0#0#0'd4'#30#153#162'gM'#255#178'{c'
- +#255#178'{c'#255#178'{c'#255#178'{c'#255#178'{c'#255#178'{c'#255'A-$'#255#0#0
- +#0#255#0#0#0#255#0#0#0#255#0#0#0#255#20#14#11#255'xSB'#255#6#4#3#255#5#4#3
- +#255#18#12#10#255#170'u_'#255#178'{c'#255#178'{c'#255#9#6#5#255#0#0#0#255#0#0
- +#0#255#3#2#2#255#166's]'#255#178'{c'#255#178'{c'#255#131'P8'#252'S3$>'#0#0#0
- +#0#0#0#0#0'[/'#27'3'#137'T='#247#184#134'o'#255#184#134'o'#255#184#134'o'#255
- +#184#134'o'#255#184#134'o'#255#184#134'o'#255#14#10#9#255#0#0#0#255#0#0#0#255
- +#0#0#0#255#1#1#1#255'\C7'#255#14#10#8#255#0#0#0#255#0#0#0#255#0#0#0#255#14#10
- +#8#255#184#134'o'#255#184#134'o'#255'xWI'#255#2#1#1#255#0#0#0#255#18#14#11
- +#255#184#134'o'#255#184#134'o'#255#183#131'l'#255'h:&'#240#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'n<%'#218#189#140'x'#255#190#143'z'#255#190#143'z'#255#190#143
- +'z'#255#190#143'z'#255#190#143'z'#255',!'#28#255#0#0#0#255#0#0#0#255#0#0#0
- +#255#9#7#6#255#190#143'z'#255#9#7#6#255#0#0#0#255#0#0#0#255#0#0#0#255#5#4#3
- +#255#190#143'z'#255#190#143'z'#255#190#143'z'#255#159'xe'#255#0#0#0#255#140
- +'jZ'#255#190#143'z'#255#190#143'z'#255#175'yc'#255'b6"'#193#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0'd4'#30#151#167's\'#254#196#154#135#255#196#154#135#255#196#154
- +#135#255#196#154#135#255#196#154#135#255'qYN'#255#0#0#0#255#0#0#0#255#1#1#1
- +#255'v]R'#255#194#152#133#255#5#4#4#255#0#0#0#255#0#0#0#255#0#0#0#255#10#8#7
- +#255#196#154#135#255#196#154#135#255#196#154#135#255#196#154#135#255'"'#27#24
- +#255#196#154#135#255#196#154#135#255#196#154#135#255#131'R<'#248'^1'#28'1'#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#14'o>('#224#198#157#140#255#202#163#146
- +#255#202#163#146#255#202#163#146#255#202#163#146#255#170#138'{'#255#0#0#0#255
- +#8#6#6#255#26#21#19#255#202#163#146#255#143'th'#255#1#1#1#255#0#0#0#255#0#0#0
- +#255#2#2#2#255#143'sg'#255#202#163#146#255#202#163#146#255#202#163#146#255
- +#202#163#146#255#191#155#138#255#202#163#146#255#202#163#146#255#183#135'r'
- +#255'd5 '#193#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'd3'#30'{'#156
- +'jS'#248#209#174#160#255#209#174#160#255#209#174#160#255#209#174#160#255#209
- +#174#160#255#2#2#2#255#205#172#158#255#209#174#160#255#209#174#160#255#169
- +#140#129#255#11#9#9#255#1#1#0#255#4#3#3#255#132'oe'#255#209#174#160#255#209
- +#174#160#255#209#174#160#255#209#174#160#255#209#174#160#255#209#174#160#255
- +#209#174#160#255#205#167#152#255'yG3'#235'[/'#27'"'#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'd4'#30#181#179#134'r'#254#215#185#173#255#215
- +#185#173#255#215#185#173#255#215#185#173#255'm^X'#255#215#185#173#255#215#185
- +#173#255#215#185#173#255#215#185#173#255#133'sk'#255#0#0#0#255#156#134'}'#255
- +#215#185#173#255#215#185#173#255#215#185#173#255#215#185#173#255#215#185#173
- +#255#215#185#173#255#215#185#173#255#214#183#172#255#143'^I'#243'b3'#29'`'#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#8'f6 '
- +#205#189#148#131#254#222#197#187#255#222#197#187#255#222#197#187#255#222#197
- +#187#255#222#197#187#255#222#197#187#255#222#197#187#255#222#197#187#255#127
- +'qk'#255#134'wq'#255#222#197#187#255#222#197#187#255#222#197#187#255#222#197
- +#187#255#222#197#187#255#222#197#187#255#222#197#187#255#220#193#183#255#159
- +'o['#247'd3'#30#147#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0'[/'#27#15'c3'#30#193#176#132'q'#248#228#206#199#255
- +#228#208#201#255#228#208#201#255#228#208#201#255#228#208#201#255#228#208#201
- +#255#228#208#201#255#228#208#201#255#228#208#201#255#228#208#201#255#228#208
- +#201#255#228#208#201#255#228#208#201#255#228#208#201#255#228#208#201#255#221
- +#196#186#255#141']I'#237'c3'#29#129#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#2'c3'#29#150
- +#135'XD'#231#208#176#164#255#235#219#215#255#235#219#215#255#235#219#215#255
- +#235#219#215#255#235#219#215#255#235#219#215#255#235#219#215#255#235#219#215
- +#255#235#219#215#255#235#219#215#255#235#219#215#255#232#214#209#255#189#149
- +#133#253'qA+'#220'a2'#29'O'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27
- +'"e4'#30#185#144'cO'#235#195#158#144#254#230#209#203#255#242#231#229#255#242
- +#231#229#255#242#231#229#255#242#231#229#255#242#231#229#255#241#230#226#255
- +#220#193#184#255#180#141'|'#251'zK6'#226'd3'#30#142'[/'#27#10#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#28'b3'#29'{g5'#30
- +#198'xH2'#218#137']J'#229#156'r`'#236#151'mZ'#234#132'VB'#227'q?)'#213'f4'#30
- +#182'_1'#28'W[/'#27#11#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- ,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#5'[/'
- +#27#30'[/'#27#22'[/'#27#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#252'?'#255
- +#255#192#3#255#255#0#0#255#254#0#0'?'#248#0#0#31#240#0#0#15#240#0#0#7#224#0#0
- +#7#192#0#0#3#192#0#0#3#192#0#0#1#128#0#0#1#128#0#0#1#128#0#0#1#128#0#0#1#128
- +#0#0#1#128#0#0#1#128#0#0#1#128#0#0#1#128#0#0#1#128#0#0#3#192#0#0#3#192#0#0#3
- +#192#0#0#7#224#0#0#7#240#0#0#15#240#0#0#31#248#0#0'?'#252#0#0#127#255#0#0#255
- +#255#192#3#255#255#252'?'#255'('#0#0#0#16#0#0#0' '#0#0#0#1#0' '#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +';;;'#13'ICB7M=4zL>6xFBA;@@@'#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0'III'#7'W;,'#171'nC('#245#145'`+'#250#181#127'2'#253#175
- +'z1'#253#139'\*'#250'h?&'#244'P=3'#159'@@@'#12#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0'K921d;'''#235#191#137'7'#254#249#198'E'#255#251#199'F'#255#251#200
- +'F'#255#251#200'F'#255#251#199'F'#255#246#194'E'#255#173'y3'#253'\9)'#229'E>'
- +';2'#0#0#0#0#0#0#0#0#0#0#0#0'>2,'#7'nC'''#238#223#171'N'#255#239#191'U'#255
- +#240#192'U'#255#164#131':'#255'@3'#23#255'J;'#26#255'~e-'#255#196#157'E'#255
- +#239#191'U'#255#212#159'J'#255'a<('#231'MMM'#10#0#0#0#0#0#0#0#0'[7('#183#195
- +#145'N'#254#228#180'_'#255#228#180'_'#255#228#180'_'#255'40'#255#210#176#163#255
- +#148'|s'#255'RD?'#255#210#176#163#255#140'fW'#243'[/'#27#2#0#0#0#0'tI6'#209
- +#216#188#178#255#221#195#185#255#213#188#178#255'$'#31#30#255#131'sn'#255'sf'
- +'`'#255#0#0#0#255'eYU'#255#221#195#185#255#221#195#185#255#204#180#170#255
- +#207#178#166#255'k>+'#182#0#0#0#0#0#0#0#0'[/'#27#31#156'xi'#240#232#213#207
- +#255#232#213#207#255#180#165#161#255#232#213#207#255#182#167#162#255'ICA'#255
- +#226#207#201#255#232#213#207#255#232#213#207#255#231#213#206#255#134'_O'#233
- +'[/'#27#12#0#0#0#0#0#0#0#0#0#0#0#0'd3'#30'e'#171#139'~'#240#239#226#224#255
- +#242#231#229#255#242#231#229#255#240#229#227#255#242#231#229#255#242#231#229
- +#255#242#231#229#255#235#221#216#255#153'uh'#236'a2'#29'?'#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#0#0#0#0'\0'#27'*'#131'\I'#215#212#191#183#252#239#229#226#255
- +#253#250#252#255#253#249#250#255#236#223#220#255#204#180#172#250'yM;'#196'[/'
- +#27#23#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'[/'#27#3'[/'
- +#27'>c3'#29#131'uI4'#190'oA-'#183'b2'#29'v[/'#27'4'#0#0#0#0#0#0#0#0#0#0#0#0#0
- +#0#0#0#0#0#0#0#248#31#172'A'#224#7#172'A'#192#3#172'A'#128#1#172'A'#128#1#172
- +'A'#0#0#172'A'#0#0#172'A'#0#0#172'A'#0#0#172'A'#0#0#172'A'#0#0#172'A'#128#1
- +#172'A'#128#1#172'A'#192#3#172'A'#224#7#172'A'#240#31#172'A'
-]);
-
diff --git a/Demos/FPC/Demo25/project1.manifest b/Demos/FPC/Demo25/project1.manifest
deleted file mode 100644
index 515fede..0000000
--- a/Demos/FPC/Demo25/project1.manifest
+++ /dev/null
@@ -1,17 +0,0 @@
-
-
-
- Your application description here.
-
-
-
-
-
-
-
-
-
-
-
-
-
\ No newline at end of file
diff --git a/Demos/FPC/Demo25/project1.rc b/Demos/FPC/Demo25/project1.rc
deleted file mode 100644
index cd8e7b0..0000000
--- a/Demos/FPC/Demo25/project1.rc
+++ /dev/null
@@ -1,7 +0,0 @@
-#define RT_MANIFEST 24
-#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
-#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
-#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
-
-CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest"
-MAINICON ICON "project1.ico"
diff --git a/Demos/FPC/Demo25/project1.res b/Demos/FPC/Demo25/project1.res
deleted file mode 100644
index 708df3c..0000000
Binary files a/Demos/FPC/Demo25/project1.res and /dev/null differ
diff --git a/Demos/FPC/Demo25/unit1.lfm b/Demos/FPC/Demo25/unit1.lfm
deleted file mode 100644
index f71828c..0000000
--- a/Demos/FPC/Demo25/unit1.lfm
+++ /dev/null
@@ -1,147 +0,0 @@
-object Form1: TForm1
- Left = 372
- Height = 522
- Top = 100
- Width = 795
- Caption = 'Form1'
- ClientHeight = 522
- ClientWidth = 795
- OnCreate = FormCreate
- LCLVersion = '0.9.28.2'
- object Panel1: TPanel
- Left = 0
- Height = 522
- Top = 0
- Width = 795
- Align = alClient
- ClientHeight = 522
- ClientWidth = 795
- TabOrder = 0
- object Memo1: TMemo
- Left = 1
- Height = 231
- Top = 1
- Width = 793
- Align = alTop
- TabOrder = 0
- end
- object PairSplitter1: TPairSplitter
- Left = 1
- Height = 8
- Top = 232
- Width = 793
- Align = alTop
- Position = 45
- object PairSplitterSide1: TPairSplitterSide
- Cursor = crArrow
- Left = 0
- Height = 8
- Top = 0
- Width = 45
- end
- object PairSplitterSide2: TPairSplitterSide
- Cursor = crArrow
- Left = 50
- Height = 8
- Top = 0
- Width = 743
- end
- end
- object Memo2: TMemo
- Left = 1
- Height = 168
- Top = 240
- Width = 793
- Align = alClient
- Lines.Strings = (
- 'class XYZ(object):'
- ' pass'
- ''
- 'class Foo:'
- ' def __init__(Self, Value=0):'
- ' Self.Value = Value'
- ' def __del__(Self):'
- ' print "delete", Self'
- ' def __add__(self, other):'
- ' return Foo(self.Value + other.Value)'
- ' def Inc(Self, AValue = 1):'
- ' Self.Value = Self.Value + AValue'
- ' def GetSelf(Self):'
- ' return Self'
- ' def GetValue(Self):'
- ' return Self.Value'
- ' def SetABC(Self, A, B, C):'
- ' Self.A = A'
- ' Self.B = B'
- ' Self.C = C'
- ' def Add(Self, AFooInst):'
- ' Self.Value = Self.Value + AFooInst.Value'
- 'class Bar(Foo):'
- ' def Inc(Self, AValue = 1):'
- ' Self.Value = Self.Value - AValue'
- 'def Add(a, b):'
- ' return a + b'
- 'def MakeList(a, b, c, d):'
- ' return [a, b, c, d]'
- ''
- 'f = Foo()'
- 'print "Created", f'
- 'f.Inc()'
- 'f.Inc(2)'
- 'b = Bar()'
- 'b.Inc()'
- 'b.Inc(2)'
- )
- TabOrder = 2
- end
- object Panel2: TPanel
- Left = 1
- Height = 113
- Top = 408
- Width = 793
- Align = alBottom
- ClientHeight = 113
- ClientWidth = 793
- TabOrder = 3
- object Button1: TButton
- Left = 15
- Height = 25
- Top = 8
- Width = 75
- Caption = 'Execute'
- OnClick = Button1Click
- TabOrder = 0
- end
- object btnTestIntegers: TButton
- Left = 119
- Height = 25
- Top = 8
- Width = 75
- Caption = 'Test Integers'
- OnClick = btnTestIntegersClick
- TabOrder = 1
- end
- object cbTestIntegers: TCheckBox
- Left = 122
- Height = 19
- Top = 41
- Width = 66
- Caption = 'Included'
- TabOrder = 2
- end
- end
- end
- object PythonEngine1: TPythonEngine
- IO = PythonGUIInputOutput1
- left = 96
- top = 48
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- DelayWrites = True
- UnicodeIO = False
- RawOutput = False
- Output = Memo1
- left = 338
- top = 48
- end
-end
diff --git a/Demos/FPC/Demo25/unit1.lrs b/Demos/FPC/Demo25/unit1.lrs
deleted file mode 100644
index 619b7de..0000000
--- a/Demos/FPC/Demo25/unit1.lrs
+++ /dev/null
@@ -1,40 +0,0 @@
-LazarusResources.Add('TForm1','FORMDATA',[
- 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3't'#1#6'Height'#3#10#2#3'Top'#2'd'#5'Width'
- +#3#27#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#10#2#11'ClientWidth'#3#27#3
- +#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#8'0.9.28.2'#0#6'TPanel'#6'Pan'
- +'el1'#4'Left'#2#0#6'Height'#3#10#2#3'Top'#2#0#5'Width'#3#27#3#5'Align'#7#8'a'
- +'lClient'#12'ClientHeight'#3#10#2#11'ClientWidth'#3#27#3#8'TabOrder'#2#0#0#5
- +'TMemo'#5'Memo1'#4'Left'#2#1#6'Height'#3#231#0#3'Top'#2#1#5'Width'#3#25#3#5
- +'Align'#7#5'alTop'#8'TabOrder'#2#0#0#0#13'TPairSplitter'#13'PairSplitter1'#4
- +'Left'#2#1#6'Height'#2#8#3'Top'#3#232#0#5'Width'#3#25#3#5'Align'#7#5'alTop'#8
- +'Position'#2'-'#0#17'TPairSplitterSide'#17'PairSplitterSide1'#6'Cursor'#7#7
- +'crArrow'#4'Left'#2#0#6'Height'#2#8#3'Top'#2#0#5'Width'#2'-'#0#0#17'TPairSpl'
- +'itterSide'#17'PairSplitterSide2'#6'Cursor'#7#7'crArrow'#4'Left'#2'2'#6'Heig'
- +'ht'#2#8#3'Top'#2#0#5'Width'#3#231#2#0#0#0#5'TMemo'#5'Memo2'#4'Left'#2#1#6'H'
- +'eight'#3#168#0#3'Top'#3#240#0#5'Width'#3#25#3#5'Align'#7#8'alClient'#13'Lin'
- +'es.Strings'#1#6#18'class XYZ(object):'#6#6' pass'#6#0#6#10'class Foo:'#6#30
- +' def __init__(Self, Value=0):'#6#22' Self.Value = Value'#6#20' def __d'
- +'el__(Self):'#6#24' print "delete", Self'#6#27' def __add__(self, other)'
- +':'#6'( return Foo(self.Value + other.Value)'#6#28' def Inc(Self, AValue'
- +' = 1):'#6'$ Self.Value = Self.Value + AValue'#6#20' def GetSelf(Self):'
- +#6#15' return Self'#6#21' def GetValue(Self):'#6#21' return Self.Valu'
- +'e'#6#28' def SetABC(Self, A, B, C):'#6#14' Self.A = A'#6#14' Self.B '
- +'= B'#6#14' Self.C = C'#6#26' def Add(Self, AFooInst):'#6', Self.Valu'
- +'e = Self.Value + AFooInst.Value'#6#15'class Bar(Foo):'#6#28' def Inc(Self,'
- +' AValue = 1):'#6'$ Self.Value = Self.Value - AValue'#6#14'def Add(a, b):'
- +#6#14' return a + b'#6#25'def MakeList(a, b, c, d):'#6#21' return [a, b, c'
- +', d]'#6#0#6#9'f = Foo()'#6#18'print "Created", f'#6#7'f.Inc()'#6#8'f.Inc(2)'
- +#6#9'b = Bar()'#6#7'b.Inc()'#6#8'b.Inc(2)'#0#8'TabOrder'#2#2#0#0#6'TPanel'#6
- +'Panel2'#4'Left'#2#1#6'Height'#2'q'#3'Top'#3#152#1#5'Width'#3#25#3#5'Align'#7
- +#8'alBottom'#12'ClientHeight'#2'q'#11'ClientWidth'#3#25#3#8'TabOrder'#2#3#0#7
- +'TButton'#7'Button1'#4'Left'#2#15#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7
- +'Caption'#6#7'Execute'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#0#0#7'T'
- +'Button'#15'btnTestIntegers'#4'Left'#2'w'#6'Height'#2#25#3'Top'#2#8#5'Width'
- +#2'K'#7'Caption'#6#13'Test Integers'#7'OnClick'#7#20'btnTestIntegersClick'#8
- +'TabOrder'#2#1#0#0#9'TCheckBox'#14'cbTestIntegers'#4'Left'#2'z'#6'Height'#2
- +#19#3'Top'#2')'#5'Width'#2'B'#7'Caption'#6#8'Included'#8'TabOrder'#2#2#0#0#0
- +#0#13'TPythonEngine'#13'PythonEngine1'#2'IO'#7#21'PythonGUIInputOutput1'#4'l'
- +'eft'#2'`'#3'top'#2'0'#0#0#21'TPythonGUIInputOutput'#21'PythonGUIInputOutput'
- +'1'#11'DelayWrites'#9#9'UnicodeIO'#8#9'RawOutput'#8#6'Output'#7#5'Memo1'#4'l'
- +'eft'#3'R'#1#3'top'#2'0'#0#0#0
-]);
diff --git a/Demos/FPC/Demo25/unit1.pas b/Demos/FPC/Demo25/unit1.pas
deleted file mode 100644
index b1f0380..0000000
--- a/Demos/FPC/Demo25/unit1.pas
+++ /dev/null
@@ -1,269 +0,0 @@
-unit Unit1;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
- Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
- StdCtrls, ExtCtrls, PairSplitter, PythonEngine, PythonGUIInputOutput;
-
-type
-
- { TForm1 }
-
- TForm1 = class(TForm)
- Button1: TButton;
- btnTestIntegers: TButton;
- cbTestIntegers: TCheckBox;
- Memo1: TMemo;
- Memo2: TMemo;
- PairSplitter1: TPairSplitter;
- PairSplitterSide1: TPairSplitterSide;
- PairSplitterSide2: TPairSplitterSide;
- Panel1: TPanel;
- Panel2: TPanel;
- PythonEngine1: TPythonEngine;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- procedure btnTestIntegersClick(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- private
- { private declarations }
- fVerbose : Boolean;
- procedure Log( const AText : String );
- procedure RunSelectedTests;
- public
- { public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-Uses
- VarPyth;
-
-{ TForm1 }
-
-
-procedure TForm1.Button1Click(Sender: TObject);
-begin
- PythonEngine1.ExecStrings( Memo2.Lines );
-end;
-
-procedure TForm1.btnTestIntegersClick(Sender: TObject);
-var
- a, b, c : Variant;
- big : Int64;
-begin
- // initialize the operands
- a := VarPythonCreate(2);
- Assert(VarIsPython(a));
- Assert(VarIsPythonNumber(a));
- Assert(VarIsPythonInteger(a));
- Assert(Integer(a) = 2);
-
- b := VarPythonCreate(3);
- Assert(VarIsPython(b));
- Assert(VarIsPythonNumber(b));
- Assert(VarIsPythonInteger(b));
- Assert(Integer(b) = 3);
-
- // arithmetic operations
- //----------------------
-
- // addition
- c := a + b;
- // check result of operation
- Assert( Integer(c) = 5 );
- // check that operation did not change the content of operands.
- Assert(Integer(a) = 2);
- Assert(Integer(b) = 3);
- // now with a litteral
- c := a + b + 1;
- Assert( Integer(c) = 6 );
- c := a + 1 + b;
- Assert( Integer(c) = 6 );
- c := 1 + a + b;
- Assert( Integer(c) = 6 );
-
- // substraction
- c := b - a;
- Assert( Integer(c) = 1 );
- // now with a litteral
- c := b - a - 1;
- Assert( Integer(c) = 0 );
- c := b - 1 - a;
- Assert( Integer(c) = 0 );
- c := 1 - b - a;
- Assert( Integer(c) = -4 );
-
- // multiplication
- c := a * b;
- Assert( Integer(c) = 6 );
- // now with a litteral
- c := a * b * 2;
- Assert( Integer(c) = 12 );
- c := a * 2 * b;
- Assert( Integer(c) = 12 );
- c := 2 * a * b;
- Assert( Integer(c) = 12 );
-
- // integer division
- c := b div a;
- Assert( Integer(c) = 1 );
-
- // division: in Python a division between 2 integers is the same as the integer division
- c := b / a;
- Assert( c = 1.5 );
- Assert( Integer(c) = 2 );
-
- // modulus
- c := b mod a;
- Assert( Integer(c) = 1 );
- c := BuiltinModule.divmod(b, a); // this returns a tuple whose first item is the result of the division,
- // and second item the modulo.
- if VarIsPythonSequence(c) and (c.Length = 2) then
- begin
- Assert(Integer(c.GetItem(0)) = 1); // division
- Assert(Integer(c.GetItem(1)) = 1); // modulo
- end;
-
- // power
- c := BuiltinModule.pow(a, b);
- Assert(c = 8);
-
- // negation
- c := -a;
- Assert( Integer(c) = -2 );
-
- // logical operations
- //------------------
-
- // inverse
- c := not a; // in python it would be: c = ~2
- Assert( Integer(c) = -3 );
-
- // shift left (<<)
- c := a shl b;
- Assert( Integer(c) = 16 );
- c := a shl 1;
- Assert( Integer(c) = 4 );
-
- // shift right (>>)
- c := a shl b;
- c := c shr b;
- Assert( Integer(c) = Integer(a) );
- c := b shr 1;
- Assert( Integer(c) = 1 );
-
- // and
- c := a and (a*5);
- Assert( Integer(c) = Integer(a) );
- c := a and 6;
- Assert( Integer(c) = Integer(a) );
-
- // or
- c := a or b;
- Assert( Integer(c) = 3 );
- c := a or 3;
- Assert( Integer(c) = 3 );
-
- // xor
- c := a xor b;
- Assert( Integer(c) = 1 );
- c := a xor 3;
- Assert( Integer(c) = 1 );
-
- // comparisons
- //------------
-
- // equal
- c := a = b;
- Assert(c = False);
- c := a = a;
- Assert(c = True);
- Assert( a = 2);
-
- // not equal
- c := a <> b;
- Assert(c = True);
- Assert( not (c = b) );
- c := a <> a;
- Assert(c = False);
- Assert( a = 2);
-
- // greater than
- c := a > b; Assert(c = False);
- c := b > a; Assert(c = True);
- Assert( a > 1);
-
- // greater or equal than
- c := a >= b; Assert(c = False);
- c := b >= a; Assert(c = True);
- c := a >= a; Assert(c = True);
- Assert( a >= 2 );
-
- // less than
- c := a < b; Assert(c = True);
- c := b < a; Assert(c = False);
- Assert( a < 6);
-
- // less or equal than
- c := a <= b; Assert(c = True);
- c := b <= a; Assert(c = False);
- c := a <= a; Assert(c = True);
- Assert( a <= 2);
-
- // parenthesis
- c := a * ((a * b) div b);
- Assert( c = a*2 );
-
- // copy
- c := a;
- Assert( c = a);
- Assert( VarIsSame(c, a) ); // checks if 2 variants share the same Python object.
-
- // test long long (Int64)
- big := Int64(MaxInt)*4;
- b := VarPythonCreate(big);
- Assert( b = big );
- Assert( b <> big+1 );
- Assert( b > MaxInt );
- Assert( MaxInt < b );
- Assert( b+1 = big+1 );
- Assert( b*2 = big*2 );
- Assert( b div 2 = big div 2 );
- c := VarPythonCreate(True);
- Assert(VarIsBool(c));
- Assert(VarIsTrue(c));
- c := VarPythonCreate(False);
- Assert(VarIsBool(c));
- Assert(not VarIsTrue(c));
-
- // Done!
- Log('Integer test was Ok.');end;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- fVerbose := True;
-end;
-
-procedure TForm1.Log(const AText: String);
-begin
- if fVerbose then
- Memo1.Lines.Add(AText);
-end;
-
-procedure TForm1.RunSelectedTests;
-begin
-
-end;
-
-initialization
- {$I unit1.lrs}
-
-end.
-
diff --git a/Demos/FPC/Demo31/Project1.lpi b/Demos/FPC/Demo31/Project1.lpi
deleted file mode 100644
index eda5d46..0000000
--- a/Demos/FPC/Demo31/Project1.lpi
+++ /dev/null
@@ -1,457 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Demos/FPC/Demo31/Project1.lpr b/Demos/FPC/Demo31/Project1.lpr
deleted file mode 100644
index c29593f..0000000
--- a/Demos/FPC/Demo31/Project1.lpr
+++ /dev/null
@@ -1,24 +0,0 @@
-program Project1;
-
-{$I Definition.Inc}
-uses
- Interfaces,
- Forms,
- Unit1 in 'Unit1.pas' {Form1},
- WrapDelphiExtCtrls in '..\..\Components\Sources\Core\WrapDelphiExtCtrls.pas',
- WrapDelphiTypes in '..\..\Components\Sources\Core\WrapDelphiTypes.pas',
- Unit2 in 'Unit2.pas' {TestForm},
- WrapDelphiWindows in '..\..\Components\Sources\Core\WrapDelphiWindows.pas',
- WrapDelphiComCtrls in '..\..\Components\Sources\Core\WrapDelphiComCtrls.pas',
- WrapDelphiGrids in '..\..\Components\Sources\Core\WrapDelphiGrids.pas',
- WrapDelphiGraphics in '..\..\Components\Sources\Core\WrapDelphiGraphics.pas',
- WrapDelphiButtons in '..\..\Components\Sources\Core\WrapDelphiButtons.pas';
-
-{$R *.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.CreateForm(TTestForm, TestForm);
- Application.Run;
-end.
diff --git a/Demos/FPC/Demo31/Project1.res b/Demos/FPC/Demo31/Project1.res
deleted file mode 100644
index e66ecf8..0000000
Binary files a/Demos/FPC/Demo31/Project1.res and /dev/null differ
diff --git a/Demos/FPC/Demo31/Unit1.lfm b/Demos/FPC/Demo31/Unit1.lfm
deleted file mode 100644
index a4a1d97..0000000
--- a/Demos/FPC/Demo31/Unit1.lfm
+++ /dev/null
@@ -1,476 +0,0 @@
-object Form1: TForm1
- Left = 659
- Height = 647
- Top = 47
- Width = 685
- VertScrollBar.Range = 210
- ActiveControl = Memo1
- Caption = 'Form1'
- ClientHeight = 647
- ClientWidth = 668
- Color = clBtnFace
- Font.Color = clWindowText
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- OnCreate = FormCreate
- LCLVersion = '0.9.30.2'
- Visible = True
- object Splitter1: TSplitter
- Cursor = crVSplit
- Left = 0
- Height = 3
- Top = 169
- Width = 668
- Align = alTop
- ResizeAnchor = akTop
- end
- object Memo1: TMemo
- Left = 0
- Height = 434
- Top = 172
- Width = 668
- Align = alClient
- Lines.Strings = (
- 'from spam import DelphiVersion, MainForm, DVar, CreateComponent, Application, Screen, mrOk, Form, Button, CheckBox, caFree'
- 'from spam import Point, Monitor, DrawGrid, gdSelected, clBlue, ssCtrl, PageControl, TabSheet'
- 'if DelphiVersion >= 6:'
- ' from spam import mdNearest'
- 'import unittest'
- 'import sys'
- 'py_major, py_minor = sys.version_info[:2]'
- ''
- 'class MyForm(Form):'
- ' def __init__(self, Owner):'
- ' self.Caption = ''Subclassed form'''
- ' self.btnClose = Button(self)'
- ' self.btnClose.Parent = self'
- ' self.btnClose.Caption = ''Close'''
- ' self.btnClose.SetBounds(10, 10, 120, 30)'
- ' self.btnClose.OnClick = self.btnCloseClick'
- ''
- ' self.chkCanClose = CheckBox(self)'
- ' self.chkCanClose.Parent = self'
- ' self.chkCanClose.Caption = ''Can close?'''
- ' self.chkCanClose.SetBounds(10, 50, 120, 30)'
- ''
- ' self.grdTest = DrawGrid(self)'
- ' self.grdTest.Parent = self'
- ' self.grdTest.SetBounds(10, 100, 300, 250)'
- ' self.grdTest.OnDrawCell = self.grdTestDrawCell'
- ' self.grdTest.OnSelectCell = self.grdTestSelectCell'
- ''
- ' self.OnCloseQuery = self.MyFormCloseQuery'
- ' self.OnClose = self.MyFormClose'
- ' self.Width = 400'
- ' self.Height = 400'
- ''
- ' def btnCloseClick(self, Sender):'
- ' print "Close!"'
- ' self.Close()'
- ''
- ' def MyFormCloseQuery(self, Sender, CanClose):'
- ' CanClose.Value = self.chkCanClose.Checked'
- ''
- ' def MyFormClose(self, Sender, Action):'
- ' Action.Value = caFree'
- ''
- ' def grdTestDrawCell(self, Sender, Col, Row, Rect, State):'
- ' if gdSelected in State:'
- ' Sender.Canvas.Brush.Color = clBlue # 0x00ff0000 # blue'
- ' print "Cell[%d, %d] is selected, Rect=%s, State=%s" % (Col, Row, Rect, State)'
- ' Sender.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, "%d @ %d" % (Col, Row))'
- ''
- ' def grdTestSelectCell(self, Sender, Col, Row, CanSelect):'
- ' if Col == 2 and Row == 2:'
- ' CanSelect.Value = False'
- ''
- 'class TTestForm(Form):'
- ' def __init__(self, Owner):'
- ' self.Caption = self.Caption + '' - changed by Python subclass'''
- ' self.BindMethodsToEvents()'
- ''
- ' def handle_btnAdd_OnClick(self, Sender):'
- ' self.ListBox1.Items.Add(self.Edit1.Text)'
- ''
- 'class TestDelphiWrapper(unittest.TestCase):'
- ''
- ' def testReadWriteProperties(self):'
- ' DVar.SValue = ''Weight'''
- ' self.assertEqual(DVar.SValue, ''Weight'')'
- ' DVar.IValue = 70'
- ' self.assertEqual(DVar.IValue, 70)'
- ' MainForm.Caption = ''PyDelphi rocks!'' #setting properties'
- ' self.assertEqual(MainForm.Caption, ''PyDelphi rocks!'')'
- ' print'
- ' print ''MainForm.ActiveControl='', MainForm.ActiveControl # class properties'
- ' MainForm.BorderStyle = ''bsSizeable'' #enumeration property'
- ' MainForm.Anchors = [''akTop'', ''akLeft''] #set property'
- ' self.assertEqual(MainForm.Anchors, [''akTop'', ''akLeft''])'
- ''
- ' def testTObject(self):'
- ' self.assertEqual(MainForm.ClassName, ''TForm1'')'
- ' self.assert_(MainForm.InheritsFrom(''TObject''))'
- ''
- ' def testMethodCall(self):'
- ' if DelphiVersion >= 7:'
- ' DVar.SetMeUp(''Age'', 25)'
- ' self.assertEqual(DVar.SValue, ''Age'')'
- ' self.assertEqual(DVar.IValue, 25)'
- ' print'
- ' print DVar.DescribeMe() #method calls'
- ''
- ' def testRepr(self):'
- ' print'
- ' print ''Representation of Delphi objects'''
- ' print DVar'
- ' print MainForm'
- ' if DelphiVersion >= 7:'
- ' print DVar.DescribeMe # method object'
- ' print DVar.SL # TStrings'
- ''
- ' def testTStrings(self):'
- ' SL = DVar.SL'
- ' self.assertEqual(len(SL), 2)'
- ' print'
- ' for i in DVar.SL: print i, '' contains '', DVar.SL[i]'
- ' SL.Add(''New String'')'
- ' self.assertEqual(len(SL), 3)'
- ' self.assertEqual(SL.IndexOf(''New String''), 2)'
- ' self.assertEqual(SL[0], ''Form1'')'
- ' self.assertEqual(SL.Objects[0], MainForm)'
- ' self.assertEqual(MainForm in SL.Objects, True)'
- ' SL[2] = ''Changed'''
- ' self.assertEqual(SL[2], ''Changed'')'
- ' self.assertEqual(SL.Objects[2], None)'
- ' SL.Objects[2] = MainForm'
- ' self.assertEqual(SL.Objects[2], MainForm)'
- ' self.assertEqual(MainForm in SL.Objects, True)'
- ' SL.Delete(2)'
- ' self.assertEqual(len(SL), 2)'
- ' print "str(SL) =", str(SL)'
- ' SL.Assign([1, 2, 3])'
- ' self.assertEqual(len(SL), 3)'
- ' self.assertEqual(''2'' in SL, True)'
- ' self.assertEqual(SL[1], ''2'')'
- ' tmp = [''a'', ''b'', ''c'']'
- ' SL.Assign(tmp)'
- ' self.assertEqual(SL.ToList(), tmp)'
- ' tmp = (''a'', ''b'', ''c'')'
- ' SL.Assign(tmp)'
- ' self.assertEqual(SL.ToTuple(), tmp)'
- ''
- ' def testTComponent(self):'
- ' self.assertEqual(MainForm.Name, ''Form1'')'
- ' count = MainForm.ComponentCount'
- ' def SetComponentCount():'
- ' MainForm.ComponentCount = 3'
- ' if py_major == 2 and py_minor < 5:'
- ' self.assertRaises(TypeError, SetComponentCount)'
- ' else:'
- ' self.assertRaises(AttributeError, SetComponentCount)'
- ' self.assertEquals(MainForm.__owned__, False)'
- ''
- ' def testSubComponents(self):'
- ' MainForm.Button1.Caption = ''Click me!!'''
- ' self.assertEqual(MainForm.Button1.Caption, ''Click me!!'')'
- ' # test alternate mapping notation'
- ' MainForm[''Button1''].Caption = ''Click me!!!!'''
- ' self.assertEqual(MainForm[''Button1''].Caption, ''Click me!!!!'')'
- ' self.assertEqual(MainForm.Button1.Caption, ''Click me!!!!'')'
- ' # Test Owner property and DelphiObject comparison'
- ' self.assert_(MainForm.Button1.Owner == MainForm)'
- ' print [i.Name for i in MainForm.Components]'
- ''
- ' def testCreateComponent(self):'
- ' NewButton = CreateComponent(''TButton'', None)'
- ' self.assertEquals(NewButton.__bound__, True)'
- ' self.assertEquals(NewButton.__owned__, True)'
- ' NewButton.Free()'
- ' self.assertEquals(NewButton.__bound__, False)'
- ''
- ' def testWinControls(self):'
- ' self.assertEqual(MainForm.Panel1.Parent, MainForm)'
- ' print'
- ' print ''MainForm contains '', MainForm.ControlCount, '' controls'''
- ' print [i.Name for i in MainForm.Controls]'
- ''
- ' def testForm(self):'
- ' MyForm = CreateComponent(''TForm'', None)'
- ' MyForm.Name = ''MyForm'''
- ' MyForm.Caption = ''Python Generated Form'''
- ' MyForm.Height = 300'
- ' MyForm.Width = 310'
- ' MyForm.Position = ''poDefaultPosOnly'''
- ' PC = PageControl(MyForm)'
- ' PC.Name = "MyPageControl"'
- ' PC.Parent = MyForm'
- ' PC.Align = "alClient"'
- ' P1 = TabSheet(MyForm)'
- ' P1.PageControl = PC'
- ' P1.Caption = "Page 1"'
- ' LB = CreateComponent(''TListBox'', MyForm)'
- ' B1 = CreateComponent(''TButton'', MyForm)'
- ' B2 = CreateComponent(''TButton'', MyForm)'
- ' Edit = CreateComponent(''TEdit'', MyForm)'
- ' LB.Name = ''ListBox1'''
- ' LB.Parent = P1'
- ' LB.Left = 20'
- ' LB.Top = 14'
- ' LB.Width = 121'
- ' LB.Height = 97'
- ' LB.TabOrder = 0'
- ' B1.Name = ''Button1'''
- ' B1.Parent = P1'
- ' B1.Left = 185'
- ' B1.Top = 60'
- ' B1.Width = 75'
- ' B1.Height = 25'
- ' B1.Caption = ''Add to list'''
- ' B1.TabOrder = 1'
- ' Edit.Name = ''Edit1'''
- ' Edit.Parent = P1'
- ' Edit.Left = 168'
- ' Edit.Top = 27'
- ' Edit.Width = 121'
- ' Edit.Height = 21'
- ' Edit.TabOrder = 2'
- ' Edit.Text = ''Add me to List'''
- ' B2.Name = ''Button2'''
- ' B2.Parent = P1'
- ' B2.Left = 121'
- ' B2.Top = 125'
- ' B2.Width = 75'
- ' B2.Height = 25'
- ' B2.Caption = ''Close'''
- ' B2.ModalResult = mrOk'
- ' B2.TabOrder = 3'
- ' def ClickHandler(Sender):'
- ' print Sender.Name, '' was clicked'''
- ' LB.Items.Add(Edit.Text)'
- ' B1.OnClick = ClickHandler'
- ' def KeyPressHandler(Sender, Key):'
- ' if Key.Value == ''a'':'
- ' Key.Value = ''z'''
- ' Edit.OnKeyPress = KeyPressHandler'
- ' def KeyDownHandler(Sender, Key, Shift):'
- ' # forbid Ctrl+Home'
- ' if Key.Value == 36 and ssCtrl in Shift:'
- ' Key.Value = 0'
- ' Edit.OnKeyDown = KeyDownHandler'
- ' BtnNextPage = Button(MyForm)'
- ' BtnNextPage.Parent = P1'
- ' BtnNextPage.SetBounds(10, 200, 150, 24)'
- ' BtnNextPage.Caption = "Select Next Page"'
- ' def NextPageClick(Sender):'
- ' Sender.Owner.MyPageControl.SelectNextPage(True, True)'
- ' BtnNextPage.OnClick = NextPageClick'
- ' P2 = TabSheet(MyForm)'
- ' P2.PageControl = PC'
- ' P2.Caption = "Page 2"'
- ' BtnGotoPage3 = Button(MyForm)'
- ' BtnGotoPage3.Parent = P2'
- ' BtnGotoPage3.SetBounds(10, 10, 150, 24)'
- ' BtnGotoPage3.Caption = "Goto Page 3"'
- ' def GotoPage3Click(Sender):'
- ' Sender.Owner.MyPageControl.ActivePage = Sender.Owner.Page3'
- ' BtnGotoPage3.OnClick = GotoPage3Click'
- ''
- ' P3 = TabSheet(MyForm)'
- ' P3.PageControl = PC'
- ' P3.Caption = "Page 3"'
- ' P3.Name = "Page3"'
- ' BtnGotoFirstPage = Button(MyForm)'
- ' BtnGotoFirstPage.Parent = P3'
- ' BtnGotoFirstPage.SetBounds(10, 10, 150, 24)'
- ' BtnGotoFirstPage.Caption = "Goto First Page"'
- ' def GotoFirstPageClick(Sender):'
- ' PC.ActivePageIndex = 0'
- ' BtnGotoFirstPage.OnClick = GotoFirstPageClick'
- ' chkAllowChange = CheckBox(MyForm)'
- ' chkAllowChange.Parent = P3'
- ' chkAllowChange.SetBounds(10, 40, 150, 24)'
- ' chkAllowChange.Caption = "Allow Page Change?"'
- ' chkAllowChange.Checked = True'
- ''
- ' def PCChanging(Sender, AllowChange):'
- ' AllowChange.Value = chkAllowChange.Checked'
- ' PC.OnChanging = PCChanging'
- ''
- ' MyForm.ShowModal()'
- ''
- ' def testFormSubclass(self):'
- ' f = MyForm(Application)'
- ' try:'
- ' print f.ShowModal()'
- ' finally:'
- ' f.Free()'
- ''
- ' def testFormSubclass2(self):'
- ' f = TTestForm(Application)'
- ' try:'
- ' print f.ShowModal()'
- ' finally:'
- ' f.Free()'
- ''
- ' def testPointConversions(self):'
- ' p1 = Point(10, 10)'
- ' p = MainForm.ClientToScreen(p1)'
- ' print p'
- ' p2 = MainForm.ScreenToClient(p)'
- ' self.assertEqual(p2.X, p1.X)'
- ' self.assertEqual(p2.Y, p1.Y)'
- ''
- ' def testObjectNotification(self):'
- ' DVar.IValue = 0'
- ' def ChangeHandler(Sender):'
- ' print Sender'
- ' Sender.IValue = 55'
- ' DVar.OnChange = ChangeHandler'
- ' if DelphiVersion >= 7:'
- ' DVar.TriggerChange()'
- ' self.assertEqual(DVar.IValue, 55)'
- ' DVar.OnChange = None'
- ' DVar.IValue = 0'
- ' DVar.TriggerChange()'
- ' self.assertEqual(DVar.IValue, 0)'
- ''
- ' def testActions(self):'
- ' self.assertEqual(MainForm.ActionList1.ActionCount, 1)'
- ' self.assertEqual(MainForm.ActionList1.Actions[0], MainForm.actTest)'
- ' self.assertEqual(MainForm.actTest in MainForm.ActionList1, True)'
- ' DVar.IValue = 0'
- ' MainForm.actTest.Execute()'
- ' self.assertEqual(DVar.IValue, 1)'
- ' def ActionHandler(Sender):'
- ' print "Action", Sender.Name, "executed from Python"'
- ' DVar.IValue = 2'
- ' self.assertEqual(MainForm.actTest.OnExecute, None)'
- ' MainForm.actTest.OnExecute = ActionHandler'
- ' self.assertEqual(MainForm.actTest.OnExecute, ActionHandler)'
- ' DVar.IValue = 0'
- ' MainForm.actTest.Execute()'
- ' self.assertEqual(DVar.IValue, 2)'
- ' MainForm.actTest.OnExecute = None'
- ' self.assertEqual(MainForm.actTest.OnExecute, None)'
- ''
- ' def testScreen(self):'
- ' self.assertEqual(Screen.DataModuleCount, 0)'
- ' self.assertEqual(Screen.FormCount > 0, True)'
- ' self.assertEqual(Screen.CustomFormCount > 0, True)'
- ' idx = -1'
- ' for i, f in enumerate(Screen.Forms):'
- ' if f == MainForm:'
- ' idx = i'
- ' break;'
- ' self.assertEqual(idx > -1, True)'
- ' self.assertEqual(Screen.Forms[idx], MainForm)'
- ' self.assertEqual(Screen.CustomForms[idx], MainForm)'
- ' self.assertEqual(Screen.Width > 0, True)'
- ' self.assertEqual(Screen.Height > 0, True)'
- ' MainForm.Button1.SetFocus()'
- ' self.assertEqual(Screen.ActiveControl, MainForm.Button1)'
- ' def ActiveControlChangeHandler(Sender):'
- ' print "ActiveControlChangeHandler fired"'
- ' print "New active constrol is", Sender.ActiveControl.Name'
- ' DVar.IValue = 2'
- ' self.assertEqual(Screen.OnActiveControlChange, None)'
- ' Screen.OnActiveControlChange = ActiveControlChangeHandler'
- ' self.assertEqual(Screen.OnActiveControlChange, ActiveControlChangeHandler)'
- ' DVar.IValue = 0'
- ' self.assertEqual(DVar.IValue, 0)'
- ' MainForm.Memo2.SetFocus()'
- ' self.assertEqual(DVar.IValue, 2)'
- ' Screen.OnActiveControlChange = None'
- ' self.assertEqual(Screen.OnActiveControlChange, None)'
- ' DVar.IValue = 0'
- ' MainForm.Button1.SetFocus()'
- ' self.assertEqual(DVar.IValue, 0)'
- ' if DelphiVersion >= 6:'
- ' m = Screen.MonitorFromPoint(Point(10, 10), mdNearest)'
- ' self.assertEqual(isinstance(m, Monitor), True)'
- ''
- ' def testPublished(self):'
- ' L = MainForm.__published__'
- ' self.assertEqual(len(L) > 0, True)'
- ' self.assertEqual(''Caption'' in L, True)'
- ' self.assertEqual(''OnShow'' in L, True)'
- ''
- 'if __name__ == ''__main__'':'
- ' try:'
- ' unittest.main()'
- ' except SystemExit:'
- ' pass'
- ' MainForm.ActiveControl = MainForm.Memo2 # Class property!'
- ''
- ' '
- ' '
- )
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Height = 41
- Top = 606
- Width = 668
- Align = alBottom
- BevelOuter = bvNone
- ClientHeight = 41
- ClientWidth = 668
- TabOrder = 1
- object Button1: TButton
- Left = 8
- Height = 25
- Top = 8
- Width = 75
- Caption = 'Execute'
- OnClick = Button1Click
- TabOrder = 0
- end
- end
- object Memo2: TMemo
- Left = 0
- Height = 169
- Top = 0
- Width = 668
- Align = alTop
- ScrollBars = ssBoth
- TabOrder = 2
- end
- object PyEngine: TPythonEngine
- IO = PythonGUIInputOutput1
- left = 16
- top = 16
- end
- object PythonModule: TPythonModule
- Engine = PyEngine
- Events = <
- item
- Name = 'TestFunction'
- OnExecute = PythonModuleEvents0Execute
- DocString.Strings = (
- 'doc for TestFunction'
- )
- end>
- ModuleName = 'spam'
- Errors = <>
- left = 56
- top = 16
- end
- object PythonGUIInputOutput1: TPythonGUIInputOutput
- UnicodeIO = False
- RawOutput = False
- Output = Memo2
- left = 168
- top = 17
- end
- object ActionList1: TActionList
- left = 96
- top = 80
- object actTest: TAction
- Caption = 'Test'
- OnExecute = actTestExecute
- end
- end
-end
diff --git a/Demos/FPC/Demo31/Unit1.pas b/Demos/FPC/Demo31/Unit1.pas
deleted file mode 100644
index 1c35573..0000000
--- a/Demos/FPC/Demo31/Unit1.pas
+++ /dev/null
@@ -1,214 +0,0 @@
-unit Unit1;
-
-{$I Definition.Inc}
-
-interface
-
-uses
- SysUtils, Classes,
-{$IFDEF MSWINDOWS}
- Windows, Messages, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, ComCtrls,
-{$ENDIF}
-{$IFDEF LINUX}
- QForms, QStdCtrls, QControls, QExtCtrls,
-{$ENDIF}
- PythonEngine, PythonGUIInputOutput, WrapDelphi, ActnList;
-
-type
- TForm1 = class(TForm)
- Splitter1: TSplitter;
- Memo1: TMemo;
- PyEngine: TPythonEngine;
- PythonModule: TPythonModule;
- Panel1: TPanel;
- Button1: TButton;
- PythonGUIInputOutput1: TPythonGUIInputOutput;
- Memo2: TMemo;
- ActionList1: TActionList;
- actTest: TAction;
- procedure Button1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure PythonModuleEvents0Execute(Sender: TObject; PSelf,
- Args: PPyObject; var Result: PPyObject);
- procedure actTestExecute(Sender: TObject);
- private
- public
- PyDelphiWrapper : TPyDelphiWrapper;
- end;
-
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.lfm}
-
-Uses
- TypInfo,
-{$IFNDEF FPC}
- ObjAuto,
-{$ENDIF}
- Variants,
- VarPyth,
- WrapDelphiVCL;
-
-
-//////////////////////////////////////////////////////////////////////////
-// Using TPyDelphiObject you can wrap any Delphi object exposing published
-// properties and methods. Note that the conditional defines TYPEINFO and
-// METHODINFO need to be on
-//////////////////////////////////////////////////////////////////////////
-
-{$TYPEINFO OFF}
-{$IFNDEF FPC}{$METHODINFO OFF}{$ENDIF}
-Type
-TTestBase = class
- fdouble : double;
- function DoubleDValue : double; // not visible in subclasses
-published
- property DValue : Double read fdouble write fdouble; // will be visible in subclasses
-end;
-
-function TTestBase.DoubleDValue : double;
-begin
- Result := 2 * fdouble;
-end;
-
-type
-{$TYPEINFO ON}
-{$IFNDEF FPC}{$METHODINFO ON}{$ENDIF}
-TTestClass = class(TTestBase, IFreeNotification, IInterface)
-private
- fSValue : string;
- fIValue : integer;
- fSL : TStrings;
- fOnChange: TNotifyEvent;
- fFreeNotifImpl : IFreeNotification;
- // implementation of interface IUnknown
- function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
-protected
- property FreeNotifImpl : IFreeNotification read fFreeNotifImpl implements IFreeNotification;
-public
- constructor Create;
- destructor Destroy; override;
- procedure SetMeUp(S: string; I : Integer);
- function DescribeMe(): string;
- procedure TriggerChange;
-published
- property SL : TStrings read fSL;
- property SValue : string read fSValue write fSValue;
- property IValue : integer read fIValue write fIValue;
- property OnChange : TNotifyEvent read fOnChange write fOnChange;
-end;
-{$TYPEINFO OFF}
-{$IFNDEF FPC}{$METHODINFO OFF}{$ENDIF}
-
-constructor TTestClass.Create;
-begin
- inherited;
- fFreeNotifImpl := TFreeNotificationImpl.Create(Self);
- fSL := TStringList.Create;
- fSL.AddObject('Form1', Form1);
- fSL.AddObject('Form1.Button1', Form1.Button1);
-end;
-
-destructor TTestClass.Destroy;
-begin
- fSL.Free;
- inherited;
-end;
-
-procedure TTestClass.SetMeUp(S: string; I : Integer);
-begin
- SValue := S;
- IValue := I;
-end;
-
-function TTestClass.Describeme() : string;
-begin
- Result := fSValue + ' : ' + IntToStr(IValue);
-end;
-
-procedure TTestClass.TriggerChange;
-begin
- if Assigned(fOnChange) then
- fOnChange(Self);
-end;
-
-function TTestClass._AddRef: Integer;
-begin
- Result := -1; // we don't want reference counting
-end;
-
-function TTestClass._Release: Integer;
-begin
- Result := -1; // we don't want reference counting
-end;
-
-function TTestClass.QueryInterface(const IID: TGUID; out Obj): HResult;
-begin
- if GetInterface(IID, Obj) then
- Result := 0
- else
- Result := E_NOINTERFACE;
-end;
-
-{ TForm1 }
-
-procedure TForm1.Button1Click(Sender: TObject);
-var
- p : PPyObject;
-begin
- actTest.OnExecute := actTestExecute;
-
- // Wrap the Form itself.
- p := PyDelphiWrapper.Wrap(Self);
- PythonModule.SetVar( 'MainForm', p );
- PyEngine.Py_DecRef(p);
-
- // Now wrap the an instance our TestClass
- // This time we would like the object to be destroyed when the PyObject
- // is destroyed, so we need to set its Owned property to True;
- p := PyDelphiWrapper.Wrap(TTestClass.Create, soOwned);
- PythonModule.SetVar( 'DVar', p );
- PyEngine.Py_DecRef(p);
-
- {$IF DEFINED(FPC_VER) and (FPC_VER >= 5)}
- p := PyEngine.PyInt_FromLong(FPC_VER);
- {ELSE}
- p := PyEngine.PyInt_FromLong(4);
- {$IFEND}
- PythonModule.SetVar( 'DelphiVersion', p );
- PyEngine.Py_DecRef(p);
-
- // Excecute the script
- PyEngine.ExecStrings( memo1.Lines );
-end;
-
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- PyDelphiWrapper := TPyDelphiWrapper.Create(Self); // no need to destroy
- PyDelphiWrapper.Engine := PyEngine;
- PyDelphiWrapper.Module := PythonModule;
- PyDelphiWrapper.Initialize; // Should only be called if PyDelphiWrapper is created at run time
-end;
-
-procedure TForm1.PythonModuleEvents0Execute(Sender: TObject; PSelf,
- Args: PPyObject; var Result: PPyObject);
-begin
- ShowMessage(VarPythonCreate(Args).GetItem(0));
- Result := PyEngine.ReturnNone;
-end;
-
-procedure TForm1.actTestExecute(Sender: TObject);
-begin
- Memo2.Lines.Add('Delphi event actTestExecute fired');
- Import('spam').DVar.IValue := 1;
-end;
-
-end.
diff --git a/Demos/FPC/Demo31/Unit2.lfm b/Demos/FPC/Demo31/Unit2.lfm
deleted file mode 100644
index 7a653e5..0000000
--- a/Demos/FPC/Demo31/Unit2.lfm
+++ /dev/null
@@ -1,60 +0,0 @@
-object TestForm: TTestForm
- Left = 725
- Height = 341
- Top = 200
- Width = 614
- ClientHeight = 341
- ClientWidth = 614
- LCLVersion = '0.9.30.2'
- object CheckBox1: TCheckBox
- Left = 96
- Height = 19
- Top = 16
- Width = 78
- Caption = 'CheckBox1'
- TabOrder = 0
- end
- object CheckBox2: TCheckBox
- Left = 96
- Height = 19
- Top = 56
- Width = 78
- Caption = 'CheckBox2'
- Checked = True
- State = cbChecked
- TabOrder = 1
- end
- object btnClose: TButton
- Left = 88
- Height = 25
- Top = 256
- Width = 75
- Caption = 'Close'
- OnClick = btnCloseClick
- TabOrder = 2
- end
- object Edit1: TEdit
- Left = 96
- Height = 23
- Top = 96
- Width = 121
- TabOrder = 3
- Text = 'Edit1'
- end
- object ListBox1: TListBox
- Left = 328
- Height = 169
- Top = 48
- Width = 249
- ItemHeight = 0
- TabOrder = 4
- end
- object btnAdd: TButton
- Left = 104
- Height = 25
- Top = 128
- Width = 75
- Caption = 'Add'
- TabOrder = 5
- end
-end
diff --git a/Demos/FPC/Demo31/Unit2.pas b/Demos/FPC/Demo31/Unit2.pas
deleted file mode 100644
index 32d11f2..0000000
--- a/Demos/FPC/Demo31/Unit2.pas
+++ /dev/null
@@ -1,42 +0,0 @@
-unit Unit2;
-
-{$MODE Delphi}
-
-interface
-
-uses
- Windows, Messages, SysUtils,
- Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
-type
- TTestForm = class(TForm)
- CheckBox1: TCheckBox;
- CheckBox2: TCheckBox;
- btnClose: TButton;
- Edit1: TEdit;
- ListBox1: TListBox;
- btnAdd: TButton;
- procedure btnCloseClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-var
- TestForm: TTestForm;
-
-implementation
-
-{$R *.lfm}
-
-procedure TTestForm.btnCloseClick(Sender: TObject);
-begin
- Close;
-end;
-
-initialization
- RegisterClass(TTestForm);
-end.
-
diff --git a/LICENSE b/LICENSE
new file mode 100644
index 0000000..bd34b12
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2018 Dietmar Budelsky, Morgan Martinet, Kiriakos Vlahos
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
diff --git a/Modules/Delphi/Delphi.dpr b/Modules/Delphi/Delphi.dpr
deleted file mode 100644
index 0c84f15..0000000
--- a/Modules/Delphi/Delphi.dpr
+++ /dev/null
@@ -1,34 +0,0 @@
-library Delphi;
-
-{ Important note about DLL memory management: ShareMem must be the
- first unit in your library's USES clause AND your project's (select
- Project-View Source) USES clause if your DLL exports any procedures or
- functions that pass strings as parameters or function results. This
- applies to all strings passed to and from your DLL--even those that
- are nested in records and classes. ShareMem is the interface unit to
- the BORLNDMM.DLL shared memory manager, which must be deployed along
- with your DLL. To avoid using BORLNDMM.DLL, pass string information
- using PChar or ShortString parameters. }
-
-uses
- SysUtils,
- Classes,
- uMain in 'uMain.pas';
-
-{$R *.res}
-
-{$I Definition.Inc}
-
-exports
- initDelphi;
-{$IFDEF MSWINDOWS}
-{$E pyd}
-{$ENDIF}
-{$IFDEF LINUX}
-{$SONAME 'Delphi'}
-
-{$ENDIF}
-
-begin
-end.
-
diff --git a/Modules/Delphi/Delphi.res b/Modules/Delphi/Delphi.res
deleted file mode 100644
index 077ea9d..0000000
Binary files a/Modules/Delphi/Delphi.res and /dev/null differ
diff --git a/Modules/Delphi/uMain.pas b/Modules/Delphi/uMain.pas
deleted file mode 100644
index 4215e4e..0000000
--- a/Modules/Delphi/uMain.pas
+++ /dev/null
@@ -1,41 +0,0 @@
-unit uMain;
-
-interface
-
-uses PythonEngine, WrapDelphi, WrapDelphiVCL;
-
-procedure initDelphi; cdecl;
-
-var
- gEngine : TPythonEngine;
- gModule : TPythonModule;
- gDelphiWrapper : TPyDelphiWrapper;
-
-implementation
-
-procedure initDelphi;
-begin
- try
- gEngine := TPythonEngine.Create(nil);
- gEngine.AutoFinalize := False;
-
- gModule := TPythonModule.Create(nil);
- gModule.Engine := gEngine;
- gModule.ModuleName := 'Delphi';
-
- gDelphiWrapper := TPyDelphiWrapper.Create(nil);
- gDelphiWrapper.Engine := gEngine;
- gDelphiWrapper.Module := gModule;
-
- gEngine.LoadDll;
- except
- end;
-end;
-
-initialization
-finalization
- gEngine.Free;
- gModule.Free;
-end.
-
-
diff --git a/Modules/TestApp.py b/Modules/TestApp.py
deleted file mode 100644
index 4be65d3..0000000
--- a/Modules/TestApp.py
+++ /dev/null
@@ -1,25 +0,0 @@
-from Delphi import *
-
-class MainForm(Form):
-
- def __init__(self, Owner):
- self.Caption = "A Delphi Form..."
- self.SetBounds(10, 10, 500, 400)
- self.lblHello = Label(self)
- self.lblHello.SetProps(Parent=self, Caption="Hello World")
- self.lblHello.SetBounds(10, 10, 300, 24)
- self.OnClose = self.MainFormClose
-
- def MainFormClose(self, Sender, Action):
- Action.Value = caFree
-
-def main():
- Application.Initialize()
- Application.Title = "MyDelphiApp"
- f = MainForm(Application)
- f.Show()
- FreeConsole()
- Application.Run()
-
-main()
-
diff --git a/OrigDocs/Changes.txt b/OrigDocs/Changes.txt
deleted file mode 100644
index 9f18398..0000000
--- a/OrigDocs/Changes.txt
+++ /dev/null
@@ -1,1249 +0,0 @@
-This is the list of all changes since the first release:
-
-----------------------------------------------------------------------
-1.2 error handling in run component
-----------------------------------------------------------------------
-1.3 Inserted functionality and definitions got from
- Grzegorz Makarewicz
- mak@mikroplan.com.pl
- http://www.mikroplan.com.pl/home/mak/python
- Thank you for permission and help!
-----------------------------------------------------------------------
-1.4 Cleaning up, eliminating German comments, further tests
- Inserted some ideas from Andrew Robinson,
- andy@hps1.demon.co.uk
-----------------------------------------------------------------------
-1.5 Initialization String, some minor functionalities
-----------------------------------------------------------------------
-2.0 18/12/1997
- Extended by Morgan Martinet (mmm@imaginet.fr)
- The architecture of the system was changed a lot !
- See the text files (Documentation and tutorial) for more infos.
- * Works with Python 1.5 Beta 2
- * Renamed unit as PythonEngine
- * Cleaned the formatting of the source code
- * Reorganized some parts of the source
- * Reorganized the content of the components
- * Used exceptions instead of error variables
- * Suppressed the script, methods and InitModule of TPytRun,
- because there are new components for that.
- * We use the ExitProcess function instead of Halt, because
- Halt does not unload the Dlls before it leaves.
- * When defining methods, there's no need to add a blank method
- for the last one, because we allways allocate n+1 methods,
- and the new allocated data is allways cleared.
- * Renamed classes, in order to avoid name conflicts
- with the previous components, which can coexist:
- TDynDll --> TDynamicDll
- TPytDll --> TPythonInterface
- TPytRun --> TPythonEngine (It hosts the interpreter)
-
- * Added components
- TEngineClient
- TMethodsContainer
- TPythonType --> Lets you create a new Type object
- TPythonModule --> Lets you create a new module
- TPythonDelphiVar --> Lets you create Python variables
- that are bound to Delphi.
- TPythonOutput --> Works as a console for displaying
- Python outputs.
-
-----------------------------------------------------------------------
-2.01
- * Py_BuildValue modified to support floats thanks to Grzegorz Makarewicz
- * Renamed the functions Exec_command -> ExecString
- Eval_command -> EvalString
- * Added the functions EvalStringAsStr and EvalStringsAsStr
- * Added a delay mechanism for the output, in order to let threads write
- to output. There are 2 new functions in the module pyio:
- SetDelayWrites(1/0) -> (de)activates the delaying
- SetMaxLines(val) -> sets the # of lines of the output
- * Added 2 functions to convert Python objects to variants and vice versa:
- PyObjectAsVariant
- VariantAsPyObject
- VarRecAsPyObject
- * Removed the flag argument of the AddMethod procedure, because it must
- be always 1.
- * Checked if the VarName attribute of a TPythonDelphiVar does already
- exist and raise an exception.
- * Added functions CheckSyntax, CheckEvalSyntax, CheckExecSyntax.
- * Added functions MakePyTuple, MakePyList,
- ArrayToPyTuple, ArrayToPyList, ArrayToPyDict
- StringsToPyList, StringsToPyTuple,
- PyListToStrings, PyTupleToStrings
- * Added a function ReturnNone that returns a
- Py_None object, correctly incremented.
- * Extended the exception classes in Delphi that map the exceptions of Python.
- Now, there's a one to one maping.
-
-----------------------------------------------------------------------
-2.02 07/01/1998
- * modified Py_BuildValue to handle currencies as python doubles.
- * Added method TMethodsContainer.MethodWrap to call Delphi Methods
- from Python.
-
-----------------------------------------------------------------------
-2.03 09/01/1998
- * Removed MethodWrap and added AddDelphiMethod.
- I added a new type TDelphiMethod wich will constrain
- to declare a valid delphi method to pass to Python.
- Now it simplifies the declaration of a method, and it
- checks the type of the method passed.
- * Added Demo7 to show the new functionality of the Delphi
- methods. I show in this demo how to use ArrayToPyTuple
- in the getlong2 function.
-
-----------------------------------------------------------------------
-2.04 12/01/1998
- * Removed the DelphiObject argument of the AddDelphiMethod because
- it could be extracted from the DelphiMethod arg (look at the trick !).
-
-----------------------------------------------------------------------
-2.05 13/01/1998
- * Added a property APIVersion in order to use different versions of
- Python.
- * Added GetOfObjectCallBack in the MethodCallback.pas and used it in
- the AddDelphiMethod.
-
-----------------------------------------------------------------------
-2.06 27/01/1998
- * Changed how TPythonEngine checks if it already exists.
- Now you can open several forms containing each a TPythonEngine,
- but you can't drop 2 TPythonEngine on the same form, and when
- your application will execute it will check that there's only one
- instance of TPythonEngine.
- * Added a new property "ExecModule" that lets you specify in which
- module your code will be executed. By default it's "__main__".
- * Added a new system that lets you create new Python types with
- Delphi classes. So, you can use the inheritence and polymorphism
- in your Python types ! And it is more easier to build !
- * Changed the tutorial, and added a demo8 that shows you how to use
- the Delphi classes.
-----------------------------------------------------------------------
-2.07 02/02/1998
- * Added a property "AutoFinalize" to TPythonEngine that enables or not
- the call to Py_Finalize in the destructor of TPythonEngine.
- It's usefull for the Python modules as Dlls.
- * Added a Demo9 to show how to build a Python module as a Dll
- and explained it in the tutorial.
- * Changed TPythonType so that it automatically creates a variable
- containing the type and labelled with the TypeName in its
- linked module. Now you can check the type of an object like this:
- if type(obj) is spam.Point:
- ...
-----------------------------------------------------------------------
-2.08 05/02/1998
- * Changed the Input/Output mechanism thanks to Mark Watts.
- Renamed TPythonOutput as TPythonInputOutput. It is now a
- base class that can be derived in order to output on what
- you want (a RichEdit for instance).
- There are 2 new events OnSendData and OnReceiveData that let
- you send/receive data to/from Python where you want without
- deriving a new class. You can use it if you want to send
- the output to a file for debuging purposes.
- There's a new component TPythonGUIInputOutput that has a property
- Output that redirects the output to a RichEdit.
- * Changed all demos to reflect the new design.
- * Changed tutorial
- * Changed Demo9, use module.Initialize instead of module.MakeModule
- * cleaned up the "uses" part of the units. Used MessageBox instead of
- MessageDlg.
-----------------------------------------------------------------------
-2.09 08/02/1998
- * Added a property "Errors" to TPythonModule that lets you
- define python errors and then raise them easily with the
- 3 methods RaiseError, RaiseErrorFmt and RaiseErrorObj of TPythonModule.
- Errors is a collection of TError items.
- TError must have a Name (that will be used to define a string
- variable into the module). You can define the property "Text"
- that will define the content of the string error, if it is of type String.
- If you don't define it, then we will use the property "Name" instead.
- The property "ErrorType" lets you select between a String error or
- a class error. The latter has the advantage of containing instance variables
- that provide infos when we catch an error. And because of the class hierarchy,
- we can catch a parent class. So, if you define the ErrorType to etClass, then
- you can provide the name of the parent class. If it is empty, then there's no
- parent ! You can define in which module the parent class can be found (we will
- IMPORT this module, so it can be any module, internal or external), else it
- will use the module's name of the TPythonModule where the errors are located.
- * Changed demo8 to show the use of errors inside an object.
- * Updated tutorial.txt
- * Updated PyDelphi for the new input/output mechanism.
-----------------------------------------------------------------------
-2.10 12/02/1998
- * When the Name of an Error is changed, then we update all Errors that
- are derived from. We check if this Name does not already exist in the
- TError collection.
- * When the Module of an Error is changed, then we update all Errors that
- where referencing it.
- * Reactived the AddClient/RemoveClient of a TClientEngine when in
- design mode. It seems that there's no crash.
-----------------------------------------------------------------------
-2.11 19/03/1998
- * Corrected a bug in TMethodsContainer.ReallocMethods, because the
- function realloc did not clear the new allocated memory.
- * Imported function Py_malloc of the python15.dll
- * Made procedure TEngineClient.SetEngine virtual
-----------------------------------------------------------------------
-2.12 06/04/1998
- * Added PyFunction_Check to TPythonInterface
- * Added FindFunction, EvalPyFunction, EvalFunction and EvalFunctionNoArgs
- to TPythonEngine for a more sophisticated interface from Delphi
- to Python functions
-----------------------------------------------------------------------
-======================================================================
-----------------------------------------------------------------------
-3.00 29/11/1998
- Updated for compatibility to Delphi 4:
- * TPythonModule.Clients published -> public
- * TPythonDelphiVar.VarObject published -> public
- * PythonVCLStd not regenerated with VCL Generator to
- provide backward compatibility to Delphi 3.
-
- Following points conditional compiled with
- $IFDEF DELPHI4_OR_HIGHER (Delphi 4, Compiler VER120):
- * Included Definition.Inc to have central conditional defines.
- * Python_Controls,Delphi_Controls: uses ImgList added
- * Properties TCustomImageList.DragCursor and
- TCustomImageList.Dragging removed.
- * TDesigner in Python_Forms, Delphi_Forms deleted,
- because of missing in Delphi 4
-
- * Added all missing functions from Python/C API Reference Manual
- part "8. Initialization, Finalization, and Threads" except
- Py_GetCompiler (which is not exported by the DLL). The Py_GetPlatform
- is a cheat; the result will always be "win32" (even if running
- Delphi 5 under LINUX!). Py_Get(Exec)Prefix return empty strings!
- * PyFrameObject updated
- * PyInterpreterState and PyThreadState added.
- * Added Properties InterpreterState and ThreadState to TPythonEngine
- * Added published property InitThreads to PythonEngine.
- * Added TPythonThread class.
-----------------------------------------------------------------------
-3.01 25/05/1999
- * Fixed bug in method TPythonModule.Initialize
- the event OnInitialize was fired before the module was created
- * Added Date support in method TPythonEngine.VariantAsPyObject
- Any TDateTime type is converted to a tuple of the form:
- (year, month, day, hours, minutes, seconds, milliseconds)
- * Added Date support in method TPythonEngine.PyObjectAsVariant
- Any tuple of the form:
- (year, month, day, hours, minutes, seconds, milliseconds)
- is converted in a TDateTime
- * Added methods SetVar, GetVar, DeleteVar, SetVarFromVariant,
- GetVarAsVariant to the TPythonModule.
- They let you easily create/modify/read/delete vars inside a Python module.
- * Fixed a RefCount leak in ArrayToPyDict
- * Added Demo10 implementing new Python types mapping the VCL components
- TTable and TQuery for easy Database access from inside Python.
- * Added method FindClient to TPythonEngine
- * Fixed small bug in Repr method of a PyObject : it returned the
- classname of TPythonEngine instead of this of the TPyObject !
- * Fixed bugs with Number, Sequence and Mapping services : they were
- not available.
- * Fixed missing reference to the function Py_GetBuildInfo in python15.dll
- of Python 1.5.2
- --> full compatible with last version 1.5.2
- * Renamed package Python.dpk to Python_d3.dpk
- * Added package for Delphi 4 (Python_d4.dpk)
- * Removed references to the TPythonVCLStd when compiling with Delphi 4
-----------------------------------------------------------------------
-3.02 10/06/1999
- * Added global function PythonOK to test if the Python engine is
- created and valid.
- * Extended the VCL Generator. Now we support the methods call.
-----------------------------------------------------------------------
-3.03 13/06/1999
- * Fixed bug in method TPythonModule.Initialize
- The last fix from version 3.01 caused a bug !
- the event OnInitialize MUST be fired before the module was created
- because it's the place where you add the Module methods !
- I restored it as it was and I added a new event : OnAfterInitialize
- which lets you define vars inside the module after is has been created.
- * Added method InitializeForNewInterpreter to the TPythonModule which
- lets you initialize the module again in a new interpreter.
- Calling the method initialize could not work because it tested
- if the module was already created.
- * Added Demo11 which shows you the use of threads inside Python and Delphi.
- * Added property ThreadExecMode to TPythonThread class.
-----------------------------------------------------------------------
-3.04 25/06/1999
- * Added dynamic creation of the TRecentFiles component in PyDelphi
- in order to avoid its installation.
- * Added support of varArray and sequences in the VariantAsPyObject
- and PyObjectAsVariant conversion methods of TPythonEngine.
- Now a varArray is converted in a Python list of values, and a
- Python sequence (a list, a tuple or the like) is converted to
- an array of variant.
- * Extended Demo10 : added Locate and lookup support in example2
- * VCL Generator now supports generation for Delphi 4
-----------------------------------------------------------------------
-3.05 15/07/1999
- * Fixed a bug with TPythonDelphiVar found by Robert Ruehlmann :
- could not get type of object (print type(DelphiVar))
-----------------------------------------------------------------------
-3.06 01/09/1999
- * Extended Demo10 : added Range support in example2
- * Fixed a bug in Demo10 if we wanted to iterate on an
- empty table.
- * Fixed a bug in PyObjectAsVariant introduced in 3.04
-----------------------------------------------------------------------
-3.07 14/09/1999
- * In TPythonEngine.Destroy, use Py_Finalize first, before
- the finalization of modules, because Python frees objects
- stored in modules and this must happen prior to the destruction
- of their associated types.
- * Rewrote the TPythonDelphiVar using a Delphi class
- * Replaced the variant storage in a TPythonDelphiVar with
- a Python object. That way you can store any Python object.
- * Added two new events to TPythonDelphiVar that let you work
- with a Python object instead of a Variant:
- OnExtGetValue and OnExtSetValue
- * Added new property ValueObject to TPythonDelphiVar, which
- lets you access the object stored inside as a PPyObject.
- * Updated tutorial.txt
- * Updated Demo4
-----------------------------------------------------------------------
-3.08 16/09/1999
- * Added method IsVariantOk to TPythonDelphiVar wich checks if
- a variant is one of the standard types (integer, string...)
- * Fixed small bug in PyObjectAsVariant method of TPythonEngine,
- it didn't return a variant of type varNull if no compatible
- type was found, but returned instead a variant whose value
- was varNull.
- * Changed DateTime support as tuple to reflect the Python format
- (year, month, day, hour, min, sec, DayOfWeek, JulianDay, DayLight)
- according to a fix proposed by Jose Alberto Hernandis Talens
- (jhernandis@arrakis.es).
- * Added methods SetToList and ListToSet to TPythonEngine that
- let you convert a Delphi set to a Python list, or the opposite.
- * Added method IsDelphiObject to TPythonEngine which lets you
- test a Python object, in order to know if the underlying object
- is a Delphi class (that inherits from TPyObject).
- * Fixed a bug found in TPythonEngine.FindFunction:
- if the function was not found, Python raised an exception that
- was visible only on the next execution of a script.
- * Fixed a bug in the finalization of the Python engine:
- GetPythonEngine calls TPythonEngine.Initialized to check if Python
- is properly initialized, but Initialized calls Py_IsInitialized to
- check it, and this functions returns falls after a call to
- Py_Finalize.
- But Py_Finalize clears all modules and their attributes, which
- may call your object destructor, which will use some Python API
- but it will raise an exception because it will detect that
- Python is no more initialized !
- So, I've added a property to TPythonEngine (Finalizing) that
- GetPythonEngine will check before Initialized. If it's true
- (it is the case only when calling Py_Finalize), then no exception
- is raised.
- * Added a public method Finalize to TPythonEngine, that lets
- you finalize Python yourself, instead of waiting that
- the TPythonEngine object is destroyed by the form.
- * Extended Demo10
- * Checked compatibility with Delphi 5.
- It's fine : there was nothing to do ;-)
- * Added a package for Delphi 5
-----------------------------------------------------------------------
-3.09 29/09/1999
- * Added event OnPathInitialization to TPythonEngine that will let
- you define the Python path in the Windows Registry if it was not
- already done.
- * Updated tutorial.txt and added a warning in the Demo8
- * Added property DocString to the TPythonType that lets you define
- a documentation string for your type.
- * Added property DocString to the TPythonModule that lets you define
- a documentation string for your module.
- * Extracted the VCL Generator in an external project.
- * Added DocStrings to all types, modules and methods of
- the Demo10. Look at example2.
- * Added a test with IsDelphiObject in the function
- PythonToDelphi.
- * Introduced events in VCL Objects of Demo10
-----------------------------------------------------------------------
-3.10 11/10/1999
- * in function pyio_write, we forbid the printing of any other thread
- than the main thread, because we could not get to a stable state
- in multi-threading.
- * Added a docstring for the CreateXXX functions that instantiate
- a type XXX.
- * Added more events in Demo10
- * Added a new property __properties__ to the types mapping the
- VCL objects in Demo10, which returns a list of
- all available properties. It's like the __methods__ property
- but for the properties.
- * Added alias "__members__" to "__properties__"
- * Added properties InstanceCount, CreateHits, DeleteHits to
- the TPythonType, which keep track of the instances allocation.
- * Added function GetTypesStats to the pyio module, which will
- gather the stats of each type in a list of tuples.
- Look at Demo10, example5.
- * Added method CheckError to TPythonEngine.
- It simply checks if a Python error occurred and if yes, it
- prints the Python error and raises a Delphi exception.
- * NEW ! NEW ! NEW ! :
- Added PythonAtom unit from Olivier Deckmyn (olivier.deckmyn@mail.dotcom.fr)
- It lets you elegantly access any Python object as an Ole object !!!
- You can look at the Demo12 and PythonAtom.hlp
- * In Demo10, splitted file pyDatabase.pas in pyDB.pas and pyDBTables.pas
- to reflect the VCL unit names.
- * NEW ! NEW ! NEW ! :
- Added new component TPythonDatabase that implements the VCL units
- DB and DBTables for Database access. Look at Demo13.
- * Added Demo13 that shows the use of the TPythonDatabase component.
- It it the same demo as Demo10, but with the new component.
- * Added new package PythonVCL_d3.pkg for the TPythonDatabase component.
- * Added new package PythonVCL_d4.pkg for the TPythonDatabase component.
- * Added new package PythonVCL_d5.pkg for the TPythonDatabase component.
- * Updated readme.txt and tutorial.txt
-----------------------------------------------------------------------
-3.11 14/10/1999
- * Added Demo14 that builds a DLL module from the database components
- that will give you access to the database stuff from any Python application,
- even from the Python console.
- * Updated readme.txt and tutorial.txt
- * Added new property "Traceback" to TPythonEngine, which lets you
- browse the traceback after the execution of a Python script that
- raised an exception. This property is a TPythonTraceback object
- that contains a list of Items (TTracebackItem). Each item
- contains the filename, lineno and context informations.
- This list is automatically refreshed when using TPythonEngine
- execution methods, but if you use Python core API, you may call
- the Refresh methods at any time (but after the PyErr_Print function),
- or you should better call the CheckError method of TPythonEngine.
- * TPythonEngine.CheckError refreshes automatically the Traceback.
- * In design mode, each new droped EngineClient will automatically find
- a TPythonEngine and link to it through the Engine property.
-----------------------------------------------------------------------
-3.12 24/11/1999
- * In TPythonEngine.RemoveClient, we call TPythonEngine.Finalize, if running,
- in order to finalize the Python virtual machine BEFORE any TEngineClient
- is destroyed by Delphi, because if it occurrs prior to Py_Finalize, the destruction
- of a Python object which uses an already destroyed TEngineClient would cause
- a memory crash !
- * In PyObjectDestructor, we check if PythonOk before call the object destructor.
- This avoids crashes with Dlls.
- * Made some cleaning in all demos to work properly with Delphi5
- * Updated readme.txt and tutorial.txt
- * Made an installer that handles all the installation of Python for Delphi
- in all versions of Delphi (3 to 5).
-----------------------------------------------------------------------
-3.13 29/11/1999
- * Enhanced checking of date in TPythonEngine.PyObjectAsVariant
- * Added Demo15
- * Updated tutorial.txt
- * Changed representation string of a TPythonDelphiVar
- * Removed "Evaluate" button in all demos, except in Demo02.
- * In PyDelphi, used TPythonEngine.Traceback and fixed name collapse between
- form and type.
-----------------------------------------------------------------------
-3.14 08/12/1999
- * TPythonGUIInputOutput now supports any kind of TCustomMemo, it means that you
- can use a TMemo or a TRichEdit.
- * Changed Demo1 that uses a TMemo instead of a TReachEdit
- * Updated tutorial.txt
- * Changed Demo10 and Demo13: added example6 that shows how to subclass any
- Python object with a Proxy class.
- * Added file deployment.txt that gives some hints on deploying a Delphi application
- using Python.
- * Added Demo15, that presents 2 examples of interaction between Delphi and Python.
- These examples were posted on the Python for Delphi mailing list.
-----------------------------------------------------------------------
-3.15 25/02/2000
- * Enhanced method TPythonEngine.VariantAsPyObject: added support for multi-dimensional
- variant arrays (limited to 3 dimensions)
- * Added demo17 that shows the use of variant arrays of 2 dimensions.
- * Renamed TCallType constants to :
- TCallType = (ctSTDCALL, ctCDECL);
- in order to avoid a name conflict in C++ Builder.
- * Added C++ Builder compilation support, thanks to Sergey A. Kosmakov (sergek@etr.ru)
- * Added Demo18 for C++ Builder: shows how to use the python15.dll in a console app.
- * Added Demo19 for C++ Builder: it's a replicate of Demo05
- * Added Demo20 for C++ Builder: it's a replicate of Demo08
- * Updated tutorial.txt
- * Added file C++ Builder Notes.txt
- * Updated definition.inc
-----------------------------------------------------------------------
-3.16 29/11/2000
- * Fixed a small bug in CheckRegistry: if the registry key
- containing the path was not defined, it tried to write something
- even if the event OnPathInitialization was undefined.
- Under NT, if not administrator, it would raise an exception as
- it's forbidden to write under the HKEY_LOCAL_MACHINE without the
- admin rights.
- * Changed Dietmar's email: dbudelsky@web.de
- * Added method TPythonEngine.SetProgramArgs which will set the command line arguments transmitted
- to the application in the sys.argv list.
- * Added C++ Builder 5 packages
- * Added new property UseWindowsConsole to TPythonEngine, that lets you use a Windows Text console
- instead of a TMemo. If you set it to True, then don't use the RedirectIO !
- The main advantage is that it works very well with multi-threading !
- It works only if the property is set prior to loading the Python DLL.
- * Gene Chiaramonte (gchiaramonte@mail.com) fixed a bug in PythonAtom: the order of method arguments
- had to be reversed !
- * Sigve Tjora (public@tjora.no) fixed a reference counting bug in PythonAtom.
- * Sigve Tjora (public@tjora.no) made some interesting enhancements in PythonAtom:
- - allow pythonAtoms to be passed as arguments to python methods.
- Probably PythonDelphi variables can be used to, but it has not been tested.
- - allow results from pythonAtom methods to be used as arguments to other pythonAtom methods.
-
- * Sigve Tjora Updated demo12 to demonstrate the use of its new feature.
- * Mark Derricutt (mark@talios.com) added an "Events" collection for defining Python methods
- in a TPythonModule. This will ease the declaration of new methods !!!
- * Added Demo21 which introduces the new Events collection feature.
- * Added Demo22 which presents the new UseWindowsConsole property of TPythonEngine, and
- uses the new possibility to extract command line arguments.
- We execute a threaded program, which runs fine with the Windows console.
- With threaded programs, you must always take care that the calling thread finishes after all
- created threads ! This is easily done using the threading module and its "join" method.
- Note for Python 1.5.2 version :
- if you're using the "threading" module, you should do a TPythonEngine.Finalize in the
- OnClose event of your form, otherwise you'll get an access violation ! I don't know why ?
- It works fine with the new 1.6 or 2.0 versions.
- * Added Demo23 which is basically the same as Demo22, but uses the Delphi Log (since Delphi4) window
- for displaying Python output instead of using the Windows console. The main advantage is that you
- can scroll the log window, and save its content to a file, but the drawback is that you must
- run Delphi !
- * Updated tutorial.txt
- * allowed the possibility of doing Initialize/Finalize several times in TPythonEngine, in order
- to clear the engine memory.
- * Added property UseLastKnownVersion to TPythonEngine. If true, PythonEngine will attempt to load
- automatically the latest known Python dll.
- * Python for Delphi works fine with the latest version 1.6, and with the version 2.0
- But I couldn't generate a python20.lib file for the C++ Builder users ! So, just use the component
- which uses dynamic linking, and avoid the static linking of the Dll.
- * Python for Delphi installs correctly under Windows 2000.
- * Fixed a bug in TPythonModule.GetVar. If the var was not found, it would raise a Python exception
- the next time you execute a script.
- * Igor E. Poteryaev (jah@mail.ru) updated some new API definitions matching the new version 2.0
- * Added new methods to the TPyObject class for supporting new API introduced in version 2.0
- * Added 2 properties to TPythonEngine: GlobalVars and LocalVars.
- You can set a Python dictionary that will be used by the TPythonEngine.Run_CommandAsObject
- method. Set properties will increment the reference count of the object.
- * Sigve Tjora subclassed TPythonEngine (TAtomPythonEngine) in a new unit AtomPythonEngine.pas,
- because he had to use the PythonAtom.pas unit, and we don't want to use Com code in the
- PythonEngine.pas unit. The unit is added to the Python_d?.dpk package.
- * Stefan Franke [franke@meso.net] fixed a bug in PythonAtom.pas:
- when you called a Python function that returned a result and if you didn't assign the returned
- value to a Delphi variable, you would get an access violation.
- * Fixed a bug in PyObjectAsVariant: if the Python object was a class instance, that didn't implement
- the sequence API, it would raise a Python exception. Now, we check that the sequence API is
- properly implemented, and return a Null variant if not.
- * Added Demo25 made by Sigve Tjora for demonstrating the use of the TAtomPythonEngine.
-
-----------------------------------------------------------------------
-3.17b1 09/07/2001
- * Added compatibility with Python 2.1
- * Yuri Filimonov (fil65@mail.ru) fixed a bug in the asm code of Py_BuildValue: the EBX register was
- not correctly restored.
- * Added compatibility with Delphi6
- * Added unit VarPyth.pas that replaces the PythonAtom.pas, using the new variant custom types of D6.
- * In PythonEngine.pas, added functions:
- PyObject_DelItem
- PyObject_IsInstance
- PyObject_IsSubclass
- PySequence_Contains
- GetMainModule
- * Extracted the definition of the PYTHON symbols from PythonEngine.pas to Definition.inc
- * Added Demo25 that runs several unit tests for validating the new VarPyth.pas functionality.
- It's a good start to look at all that's possible...
-----------------------------------------------------------------------
-3.17b2 22/07/2001
- * Fixed a bug in TPythonEngine.PyObjectAsVariant thanks to cipherhaze@yahoo.com.au:
- the Python strings containing a zero were truncated when beeing converted
- to a variant.
-
- * in PythonEngine.pas:
- - added method TPythonEngine.PySequence_DelSlice
- - added var TPythonInterface.Py_OptimizeFlag
- - added var TPythonInterface.Py_InteractiveFlag
- - added var TPythonInterface.Py_NoSiteFlag
- - added var TPythonInterface.Py_TabcheckFlag
- - added var TPythonInterface.Py_UnicodeFlag
- - added property TPythonEngine.PyFlags that lets you enable some Python flags very easily,
- like Verbose mode, or Optimize, thanks to a thread started in the mailing list.
-
- * in VarPyth.pas:
- - added function VarAsPython --> cast a variant into a Python variant.
- - added function GetAtom --> compatibility mode with former PythonAtom.pas
- you can use the VarPyth unit instead of PythonAtom, and get the same behaviour of PythonAtom
- when instanciating the Python variants with the function GetAtom.
- Note however, that you must replace all your OleVariant types with Variant.
- You can test it on Demo12: in the uses statement, replace PythonAtom with VarPyth,
- and declare myAtom as a Variant, instead of OleVariant. That's all!
- But if you're instanciating the Python variants with VarPythonCreate, you'll get the new
- behaviour, so you can benefit from the 2 worlds, simultaneously!
- - added function len --> return the length of a collection. Same as the len function of Python
- and same as using the Length property or Length() method.
- So, len(obj) = obj.Length = obj.Length()
- - added function _type --> return the type object of a Python object
- - added function VarIsSameType --> checks if 2 python variants have the same Python type.
- - added function VarIsTrue --> return true if the variant is different from zero or None.
- This is the same as casting a variant to a boolean.
- - added function Ellipsis that can be used in GetSlice or SetSlice, if you don't want to specifiy
- explicitly the length of sequence. So, foo.GetSlice(2, Ellipsis) is equivalent with foo[2:]
- - added function BuiltinModule that returns the __builtin__ module object, that contains all
- the builtin functions that you can use directly:
- _hash := BuiltinModule.hash(foo)
- - added special method DelSlice for sequence objects, that does the same as: del list[x:y]
-----------------------------------------------------------------------
-3.17 27/08/2001 (final)
- * Added file py21.lib in the Components folder, it's the lib file for Python 2.1 that allows you
- to use the C native APIs of the Python dll.
- * Updated the C++ demos to use the py21.lib file
- * Updated include files with Python 2.1 version.
- * Updated file C++ Builder Notes.txt
- * Fixed a bug thanks to Gene Chiaramonte: when running an application with no component for Python output,
- an exception was raised while closing the form that hosted PythonEngine, because it tried to restore the initial streams,
- whereas no redirection was done.
- * Added function NewPythonTuple to VarPyth.pas
- * Updated Demo25: added a test for the dates.
- * Finished update for changes from version 2.1:
- - added enum bsRichCompare to set TBasicServices
- - added virtual method RichCompare to TPyObject
- - added property TypeFlags to TPythonType for setting new behaviours like tpfHaveRichCompare.
-----------------------------------------------------------------------
-3.18 02/11/2001
- * mitchchapman@earthlink.net fixed a bug in the VarPyth.pas unit: a crash occurred with some
- variants used by ref, with an integer value corresponding to the ID of the VarPython custom
- variant type.
- * Added access to the variable Py_NotImplemented that should be used in the new coercion model of
- version 2.1
- * Added Kylix support!!! But I have 1 issue:
- - the varargs functions don't work in Kylix (cf PyArg_Parse and PyArg_ParseTuple)
- * Started converting the demos to cross-platform usage: Demo01, 02, 03, 07, 09 and 25
- * Added new beta version 2.2 to the list of the known versions, and started implementing modifications:
- changed the record definitions of the PythonType object, and Code object, that caused a problem
- for parsing the traceback. Be sure to define the symbol PYTHON22 before including the definition.inc
- because I won't set it as a default until the 2.2 becomes official.
- Warning! The date module has introduced a new time_struct for storing a date/time value
- in new beta version 2.2.
- Maybe the traceback has changed also.
- * Added file "Kylix Notes.txt"
- * Made the code compatible with the last service pack update for Delphi 6.
-----------------------------------------------------------------------
-3.19 16/11/2001
- * Fixed Kylix port issue: the PyArg_Parse and PyArg_ParseTuple now work properly
- thanks to Stefan.Hoffmeister@Econos.de
- * Finished converting the demos to cross-platform usage: Demo04, 05, 06, 08, 11, 16, 17, 21, 22, 23.
- Note that the remaining demos are simply not portable (they use TTable or PythonAtom).
- * Continued implementation of the news from version 2.2 of Python.
- * Fixed some problems when using the PYTHONXX defines, thanks to Andy Bulka (abulka@netspace.net.au).
-----------------------------------------------------------------------
-3.20 08/01/2002
- * Fixed a ifdef bug in PythonEngine.pas
- * Fixed a bug in VarPyth.pas: when setting a property of a Python object, the assigned value
- was converted from/to a variant, even when it was a VarPython variant!
- * Added APIs for Long objects, and compatibility between Python long objects and Int64 variants.
- * Used new Python2.2 APIs for true division (/) and floor division (div) inside VarPyth.
- You can now override these behaviours inside your TPyObject classes.
- * Added Iter and IterNext new services of Python2.2 to TPythonType.
- * Added Traverse and Clear new services of Python2.0 to TPythonType (they are used with Garbage collection).
- * Added UNICODE support. A Python Unicode string is kept as wide string inside a variant.
- A variant is converted into a Python Unicode string only if the symbol PREFER_UNICODE is defined inside the
- file definition.inc
- Added APIs PyUnicode_FromWideChar, PyUnicode_AsWideChar
- Added methods Unicode_check, PyUnicode_AsWideString, PyUnicode_FromWideString
- Note that UNICODE was introduced in Python 2.0
- Note that it will work under Kylix, but I deactivated it as I've got a bug with the WideString conversions.
- * Added function VarPythonEval to VarPyth.pas, that returns a new Python variant from the evaluation of a Python
- expression. This is the same as VarPythonCreate(GetPythonEngine.EvalString(MyExpression))
- * Ready for the new time_struct object of Python 2.2 that replaces the tuple of 9 items, but that remains compatible
- with it.
- * Updated the list of Python exceptions, with their Delphi mapping, using version 2.2.
- * Updated set of Python flags up to Python 2.2
- * Changed the way of loading the latest version of Python when UseLatestKnownVersion is true:
- first we always start from the version which PythonForDelphi was compiled for, and if we don't find it we
- try to upgrade the version, only if the new version is compatible with the compiled version.
- So, if P4D was compiled for Python 1.5.2 it will only look for python15.dll, and won't try to use python22.dll.
- If P4D was compiled for Python 2.1.1 it will first look for python21.dll, then for python22.dll as it's compatible.
- * Rewrote the way to extract the traceback content by using PyObject_GetAttrString API instead of direct access to
- the traceback record object, to avoid compatibility issues between different versions of Python.
- * Added PyWeakRef and PyWrapper APIs, from Python 2.2.
- * Updated file "Kylix Notes.txt"
-----------------------------------------------------------------------
-3.21 06/03/2002
- * Fixed a compilation problem when using PYTHON15 symbol.
- * Added a default implementation of TCriticalSection for Delphi3 that misses the unit SyncObjs.pas.
- * Added property DllPath to specify a folder where the Python Dll should be searched. You can define this property
- at runtime, using the event OnBeforeLoad.
- * Fixed a bug with custom variants and Int64, introduced by the UpdatePack2 of Delphi6.
- * Modified installer to let the user choose a default version of Python before compiling the packages.
- * Fixed the WideString/Unicode bug in Kylix. In fact, it was not due to Borland but to Python itself! Python on Linux is supposed
- to use UCS2 strings, whereas it actually uses UCS4 strings!!!
- * Added a new define HAS_MODIFIED_DISPINVOKE to Definition.inc, to distinguish between Delphi6, Kylix1 and Kylix2, as Kylix2 uses
- a modified interface of the method DispInvoke of the custom variants, that has a PVarData parameter instead of a
- (var xxx : TVarData).
- * Updated file "Kylix Notes.txt"
- * Modified DispInvoke of the VarPyth unit.
- * PythonForDelphi is up and running with the latest versions of Delphi and Kylix (and Python),
- but note that there's a problem with Kylix2 (I used the OpenEdition): all compiles and works fine, but the IDE
- crashes when a form hosting PythonForDelphi components is closed! I don't know why, as it works fine with Kylix1
- and all Delphi versions! I'll have to investigate further...
-----------------------------------------------------------------------
-3.22 22/03/2002
- * Removed a warning when compiling PythonGUIInputOutput.pas, thanks to Mitch Chapman (mitchchapman@earthlink.net)
- * Updated Demo25, and allowed it to work with Python2.0 or higher.
-----------------------------------------------------------------------
-3.23 20/10/2002
- * Delphi7 Ready.
- * Fixed a nasty bug that occurred in some cases, but that should have always occurred. To allow multiple Finalize/Initialize
- sequences, I moved the ClearEngine loop from the Finalize method to the Destroy method of TPythonEngine.
- It was wrong, because when the TPythonEngine was destroyed it tried to call the ClearEngine method of each
- of its clients, that were usually already destroyed! The problem appears only when there are a lot of Python components,
- otherwise it seems that the memory allocated for the client component is still available for the process
- and thus doesn't cause an access violation. This bug was originally discovered by Dietmar.
- * Fixed a memory leak in unit VarPyth.pas, in function VarPythonEval
- * Fixed a memory leak in Demo25.
- * Problem with Kylix3: I can't get the package to compile because it fails with an internal error.
- However if you use the Python units inside a project it will compile without any problem! Anyway, I still
- have issues with the components in design time, because Delphi IDE freezes when closing a form hosting the
- components. So, it may be a workaround for both problems to dynamically create the Python components.
-----------------------------------------------------------------------
-3.24 29/01/2003
- * Fixed nasty bug that would freeze Kylix2 IDE (and maybe Delphi6/7 in some cases):
- in unit PythonGUIInputOutput.pas, method TPythonGUIInputOutput.Notification did not call inherited!
- * Fixed bug in PythonEngine.pas, in VariantAsPyObject when called by VarPyth.TPythonVariantType.VarDataToPythonObject.
- It caused a variant memory error when doing a dict.SetValue('key', ''); (empty string).
- Bug reported by Andy Bulka [abulka@netspace.net.au]
- * Added Python 2.3 compatibility:
- - new bool type: PyBool_Check, PyBool_FromLong
- - new date, time, datetime, delta... types from new datetime module
- - new property DatetimeConversionMode in TPythonEngine allowing to decide how a variant containing
- a datetime should be converted into a Python object.
- Presently there are only 2 modes: the default is dcmToTuple (a tuple containing year, month, day...)
- and starting with Python2.3 you get dcmToDatetime that will use the new datetime objects of the
- datetime module. I could not set it as default to avoid breaking existing code.
- - new exceptions: PyExc_FutureWarning, PyExc_PendingDeprecationWarning, PyExc_UnicodeDecodeError,
- PyExc_UnicodeEncodeError, PyExc_UnicodeTranslateError
-
- - new APIs (note that some of them were missing since previous Python versions):
- PyType_IsSubtype, PyObject_TypeCheck, PyBaseString_Check
- PyObject_GC_Malloc, PyObject_GC_New, PyObject_GC_NewVar, PyObject_GC_Resize,
- PyObject_GC_Del, PyObject_GC_Track, PyObject_GC_UnTrack
- PyType_IS_GC, PyObject_IS_GC
- PySlice_GetIndicesEx, PySlice_Check
- PyString_DecodeEscape, PyString_Repr
-
- - new behaviour:
-
- With Python2.3 the following functions return True if the Python object is the expected type or
- one of its descendants:
- PyString_Check
- PyFloat_Check
- PyInt_Check
- PyLong_Check
- PyTuple_Check
- PyList_Check
- PyDict_Check
- PyModule_Check
- PyUnicode_Check
-
- To check if a Python object is really (and only) the expected type then use the new functions instead:
- PyString_CheckExact
- PyFloat_CheckExact
- PyInt_CheckExact
- PyLong_CheckExact
- PyTuple_CheckExact
- PyList_CheckExact
- PyDict_CheckExact
- PyModule_CheckExact
- PyUnicode_CheckExact
-
- * in unit VarPyth.pas, added functions:
-
- VarIsSubtypeOf
- VarIsPythonDateTime
- VarIsPythonDate
- VarIsPythonTime
- VarIsPythonDateTimeTZ
- VarIsPythonDateTimeDelta
- VarIsPythonTimeTZ
- VarIsPythonTZInfo
- VarIsBool
- VarIsEnum
- DatetimeModule
-
- - updated Demo25 to reflect last additions made to VarPyth.pas
-
-
-----------------------------------------------------------------------
-3.25 5/04/2003
-
- * Added compatibility with Python 2.3b2 that refactored the new datetime module.
-
- * Allowed TPyObject instances to be created without a TPythonType, in order to use them outside
- P4D context (give nil as argument). This is a suggestion made by Gert Steyn [gert@ise.co.za]
-
- * Fixed a bug in TPythonType.TypeFlagsAsInt where some flags where forgotten
- (tpfHeapType, tpfBaseType, tpfReady, tpfReadying, tpfHaveGC)
- thanks to jacoboy1234 [fan_jacob@hotmail.com]
-
- * Added APIs PyObject_GenericGetAttr, PyObject_GenericSetAttr,
- PyType_GenericAlloc, PyType_GenericNew, PyType_Ready, PyObject_Free
-
- * Added new class TMembersContainer allowing TPythonType to define members of a type
- and added class method RegisterMembers to TPyObject, allowing type objects to define
- their members, to be used when subclassing an existing type.
-
- * Added new class TGetSetContainer allowing TPythonType to define properties with
- Get/Set accessor functions, and added class method RegisterGetSets to TPyObject,
- allowing type objects to define their properties, to be used when
- subclassing an existing type.
-
- * Allowed any TPythonType (and related TPyObject class) to become a base type
- that may be subclassed within Python.
- To use this feature, simply select tpfBaseType in the TypeFlags property of TPythonType,
- then override TPyObject.RegisterMembers in your Python/Delphi class and expose each
- of your instance member as a MemberDef (call AType.AddMember(...)).
- You can override TPyObject.RegisterGetSets in you need to expose properties
- with Get/Set accessor functions.
-
- You should not override GetAttr and SetAttr anymore and you should not
- select the Basic services flags [bsGetAttr, bsSetAttr].
- Instead, simply select the flags [bsGetAttrO, bsSetAttrO] and the class
- TPyObject does simply call PyObject_GenericGetAttr in GetAttrO
- and PyObject_GenericSetAttr in SetAttrO.
- The Python Generic Get/Set functions will use new slots introduced in
- the type object for specifying a list of members (class fields),
- a list of get/set functions (like properties in Delphi) and a list
- of methods. That way a subclass can introduce its own members/get,set/methods
- and call the others coming from the base classes.
-
- You can override the new Init method of TPyObject if you want to perform the same kind
- of initialization that you would do in the __init__ method of a Python class.
- Note however that by default the CreateWith constructor of TPyObject will be called
- when instanciating a new subtype, allowing you to get constructor arguments as you
- already did with regular types.
-
- Note that for a subtype instance, the memory allocated will come from
- Python heap and not from Delphi. So, we have a reserved space inside the subtype
- instance where we plug our Delphi class definition. This is tricky but it works!
-
- Note that TPyObject now has a new attribute IsSubType set to True when a subtype
- is instanciated.
-
- Note that if tpfBaseType is set, you can now instanciate a type by calling its type
- object instead of relying on the CreateXXX function. Ex: p = spam.Point(3, 2)
- In that case Python acts as it would create a subtype instance by using the
- tp_new slot of your type, but the type pointer given is the one of your TPythonType.
- So, your TPyObject instance will have memory allocated by Python (prop PythonAlloc
- is true) and the property IsSubType will be set to False.
-
- Note that to enable this double behaviour, I had to change the way a TPyObject is
- allocated: I removed the first two fields (ob_refcnt and ob_type) and replaced them
- with public properties, and redefined NewInstance and FreeInstance to
- allocate a bigger chunk of memory (with Sizeof(PyObject) more) and offseted the
- Self pointer to start after the PyObject header (containing the space reserved
- for the ob_refcnt and ob_type fields). So, when the ob_refcnt and ob_type properties
- access their associated data, they pick it from this extra hidden header.
- Note that when using GetSelf, it will return a pointer to the the start of this
- hidden header. And the Adjust method will correct Self to move after this header.
- Finally, in FreeInstance, we free the memory only if PythonAlloc is False.
-
- A B C
- +-------------------++------------------------------------------------------+
- | PyObject header || TPyObject class |
- +----------+--------++-----------------+------------+----------+------------+
- |ob_refcnt |ob_type ||hidden Class Ptr |PythonType |IsSubType |PythonAlloc |
- |integer |pointer ||pointer |TPythonType |Boolean |Boolean |
- |4 bytes |4 bytes ||4 bytes |4 bytes |1 byte |1 byte |
- +----------+--------++-----------------+------------+----------+------------+
-
- ^ ^
- | |
- ptr returned ptr returned by Adjust
- by GetSelf
-
- - a Python object must start at A.
- - a Delphi class class must start at B
- - TPyObject.InstanceSize will return C-B
- - Sizeof(TPyObject) will return B-A
- - The total memory allocated for a TPyObject instance will be C-A,
- even if its InstanceSize is C-B.
- - When turning a Python object pointer into a Delphi instance pointer, PythonToDelphi
- will offset the pointer from A to B.
- - When turning a Delphi instance into a Python object pointer, GetSelf will offset
- Self from B to A.
- - Properties ob_refcnt and ob_type will call GetSelf to access their data.
-
-
- Subclassing TPyObject in Delphi (TPyPoint = class(TPyObject))
-
- A B C D
- +-------------------++------------------------------------------------------+-----------------+
- | PyObject header || TPyObject class | TPyPoint class |
- +----------+--------++-----------------+------------+----------+------------+--------+--------+
- |ob_refcnt |ob_type ||hidden Class Ptr |PythonType |IsSubType |PythonAlloc |x |y |
- |integer |pointer ||pointer |TPythonType |Boolean |Boolean |integer |integer |
- |4 bytes |4 bytes ||4 bytes |4 bytes |1 byte |1 byte |4 bytes |4 bytes |
- +----------+--------++-----------------+------------+----------+------------+--------+--------+
-
- - TPyPoint.InstanceSize will return D-B
- - The total memory allocated for a TPyPoint instance will be D-A
- - The Python type object will have D-A in its tp_basicsize slot.
- - in RegisterMembers, calling
- PythonType.AddMember('x', mtInt, Integer(@TPyPoint(nil).x), mfDefault, 'x coordinate');
- will produce an offset of C-A, instead of C-B, because AddMember will add
- automatically B-A to the offset.
-
-
-
- Subclassing TPyPoint in Python (class MyPoint(spam.Point))
-
-
- A B C D E
- +-------------------++------------------------------------------------------+-----------------+---------+
- | PyObject header || TPyObject class | TPyPoint class | MyPoint |
- +----------+--------++-----------------+------------+----------+------------+--------+--------+---------+
- |ob_refcnt |ob_type ||hidden Class Ptr |PythonType |IsSubType |PythonAlloc |x |y |Dict |
- |integer |pointer ||pointer |TPythonType |Boolean |Boolean |integer |integer |pointer |
- |4 bytes |4 bytes ||4 bytes |4 bytes |1 byte |1 byte |4 bytes |4 bytes |4 bytes |
- +----------+--------++-----------------+------------+----------+------------+--------+--------+---------+
-
- - The total memory allocated for a MyPoint instance will be E-A
- - The Python type object will have E-A in its tp_basicsize slot.
- - The Python type object will have D-A in its tp_dictoffset slot (it is the tp_basicsize of
- the inherited type, accessible through tp_base).
- - The memory allocation is done by Python, that also initializes parts A-B and D-E,
- leaving us an available space between B and D. That's why we can't have the
- ob_refcnt and ob_type fields inside the TPyObject class definition, as they would
- appear in the free space available for the parent types and would not be used
- by Python. This would not be an issue, except for calculating the exact member offsets.
-
- So, hiding the PyObject header and ensuring this always comes first, makes it consistent
- in all cases for the member offsets to remain valid.
-
-
- * Added Demo26 to show how you can build base types (This is an adaptation of Demo8),
- and updated Tutorial.txt for giving some explanations to the new way of building
- types allowing subclassing.
-
- * Allowed a TPythonType to be dynamically created after everything has already been
- setup. It means that the module hosting the type will effectively have a variable
- referencing the new Type object and a CreateXXX function for creating new instances
- of that type.
-----------------------------------------------------------------------
-3.26 6/09/2004
-
- * Added compatibility with new version 2.4 of Python (Alpha presently)
- * Added new document "Deploying P4D.PDF" explaining how you can deploy your own version of Python (using a private folder).
- * Fixed a bug in PythonEngine.pas: when trying to convert a variant containing an empty string to a Python object,
- the application could crash with a Memory error exception.
- * Fixed a small memory leak when instanciating TPythonEngine at runtime, without an Owner, then TPythonEngine would leak
- and internal TPythonModule used for redirecting I/O. (thanks to t.handler@n-tree.com)
- * Fixed a problem in demo 16 / Example 1 (missing a __str__ override in the wrapper class)
-
-----------------------------------------------------------------------
-3.27 01/12/2004
- * added method flush when redirecting IO. This was fix made by Qi Wenmin (dumm@libr.3322.org):
-In my work I find a little problem with the RedirectIO feature. I enable the RedirectIO and add a stream handler of logging package to the logger. When I launch the script in Delphi, the engine reports the stream handler has no flush() method. So I make some change with PythonEngine.pas, add the following codes into the code constant in the TPythonEngine.DoRedirectIO method:
-
- * fixed a bug when the datetime module was not deployed, P4D would raise an exception while executing
- RedirectIO.
-
- * added new event OnSysPathInit to TPythonEngine. This event is fired immediately after Py_Initialize and
- will provide the list object stored in sys.path, containing all the folders used by Python to find
- an imported module.
- This will allow you to extend the path when you have a custom installation that is not allowed to touch
- the windows registry/filesystem.
- Example:
-
-procedure TForm1.PythonEngine1SysPathInit(Sender : TObject; PathList : PPyObject);
-var
- folder : PPyObject;
-begin
- with GetPythonEngine do
- begin
- folder := PyString_FromString('c:\myapp\mymodules');
- PyList_Append(PathList, folder);
- Py_XDecRef(folder);
- end;
-end;
-
- * fixed a bug: when using a Python iterator, eventhough you caught the stop exception, a 'Stop iteration' message was displayed in the output.
-
- * added function iter to VarPyth.pas that will return an iterator object for the specified container argument.
- Example:
-var
- _iter : Variant;
- _value : Variant;
-begin
- _iter := iter(VarPythonCreate([1, 2, 3, 4], stTuple));
- try
- while True do
- begin
- _value := iter.next();
- [...]
- end;
- except
- on E: EPyStopIteration do
- begin
- // End of sequence
- end;
- end;
-end;
-
- * added PyDict_Copy api
-
- * added overloaded ExecStrings/EvalStrings methods that let you provide your own global/local dictionaries.
- Note that you can still use the TPythonEngine properties LocalVars and GlobalVars.
-
- * added demo27 showing the possibilities of container indexing:
-#index:
-s[0]
-#slice
-s[0:2]
-#ellipsis
-s[...]
-#extended slice
-s[0:2:2]
-#multidimensional slice:
-s[10, 10:20, 20:100:5, ...]
-
- * added demo28 showing how to implement an iterator over a sequence (a simple TStringList wrapper)
-
- * added support for Delphi 2005
-----------------------------------------------------------------------
-3.28 23/04/2005
-
- * Fixed a bug in PyObjectAsVariant thanks to Kiriakos Vlahos [kvlahos@london.edu]
- Testing for Boolean values should be done before Integer values, as Boolean inherit from Integers.
-
- * Fixed a bug in ArrayToPyTuple, ArrayToPyList and ArrayToPyDict when giving empty string as argument
- thanks to Dietmar Budelsky.
-
- * Added demo 29 showing how to exchange images between Delphi and Python Imaging Library (PIL).
-
- * In PythonEngine.pas, added APIs:
- - PyObject_Call
- - PyErr_SetInterrupt
-
- * Added new feature to VarPyth: you can now invoke functions or methods using named parameters.
- A big advantage of named parameters over regular parameters is that the order of parameters is not important
- and help invoking functions with many optional parameters, as you can only specify the one you need.
- Note that any Python function can be invoked with or without named parameters, and that you can mix regular and named parameters.
-
-Python code:
-def MakeList(a, b, c):
- return [a, b, c]
-
-Delphi code:
-var
- _main : Variant;
- L : Variant;
-begin
- _main := MainModule;
- L := _main.MakeList(1, 2, 3); // L = [1, 2, 3] (this is the old way)
- L := _main.MakeList(1, c := 3, b := 2); // L = [1, 2, 3] Note that you can mix regular and named parameters.
- L := _main.MakeList(c := 3, a := 1, b := 2); // L = [1, 2, 3] Only named parameters
-
- * Added Demo30 to show how you can use named parameters.
-
- * Added Project PythonIDE thanks to a donation of Kiriakos Vlahos [kvlahos@london.edu].
- PyScripter was not designed to compete with other Python IDE tools
- but rather to serve the purpose of providing a strong scripting
- solution for Delphi Applications. However it is a reasonably
- good stand-alone Python IDE.
-
- Features:
-
- - Easy Integration with Delphi applications
- - Syntax Highlighting
- - Brace Highlighting
- - Python source code utilities ((un)tabify, (un)comment, (un)indent)
- - Code Explorer
- - File Explorer with filter
- - Easy configuration and browsing of the Python Path
- - Access to Python manuals through the Help menu
- and context sensitive help (press F1 on a Python keyword
- inside the editor)
- - Integrated Python Interpreter
- - Command History
- - Alt-UP : previous command
- - Alt-Down : next command
- - Esc : clear command
- - Code Completion
- - Call Tips
- - Integrated Python Debugging
- - Debug Windows
- - Call Stack
- - Variables Window
- - Watches Window
- - BreakPoints Window
- - Modern UI with docked forms
- - Persistent configurable IDE options
-
- Note that P4D only contains PythonIDE source code, but you can download a compiled version from
- http://mmm-experts.com/Downloads.aspx?ProductId=4
-
- If you want to rebuild it by yourself, you'll need to look at PythonIDE\Readme.txt for the required
- component packages.
-
- * Flagged GetAtom of PythonAtom.pas and TAtomPythonEngine of AtomPythonEngine.pas as deprecated when
- using Delphi 6 or later.
- You should replace TAtomPythonEngine by TPythonEngine and PythonAtom.pas by VarPyth.pas.
-
- Note that VarPyth and PythonAtom act differently. So, simply changing the unit may compile but
- your application may crash at runtime because PythonAtom converts Python sequences into variant arrays
- for instance, whereas VarPyth will keep the Python sequence object and let you act on it.
- See discussions in the yahoo group and Andy's tutorial about latest techniques:
- http://www.atug.com/andypatterns/PythonDelphiLatest.htm
-
- Converting TAtomPythonEngine is easy: open the form or datamodule hosting the component,
- View as text (Alt + F12), replace TAtomPythonEngine by TPythonEngine, View as Form (Alt + F12),
- in the unit, replace TAtomPythonEngine by TPythonEngine nad replace AtomPythonEngine by PythonEngine (in the uses).
- Save.
-
- Note that eventhough you get a deprecated warning, it still works as it is and you're not required to do the change.
- It's only better to do it for the future and for the additional benefits of VarPyth...
-
- * Updated file 'Deploying P4D.pdf' to refer to the Python tool that helps collect all module dependencies.
-
-----------------------------------------------------------------------
-3.29 28/08/2005
-
- * Fixed bug in TPythonType, reported by Roar Larsen [roar@tordivel.no], where a Access Violation would occur
- when exceeding 10 methods/getsets/members in a new base type (tpfBaseType option).
-
- * Fixed bug found by daydaysy [ildg@163.com] where VarIsPythonClass would
- return False when checking a new style Python class inheriting from object (class Foo(object): pass).
-
- * Used exported API for function PyImport_ExecCodeModule instead of duplicating code
-
- * Added APIs PyObject_GetIter, PyIter_Next and PyIter_Check to TPythonEngine
-
- * Added changes sent by Chris Nicolai :
- added PyThreadState_SetAsyncExc -- throw an exception into _another_ thread!!
- added new PyThreadState members from Python2.3
-
- * Addew new virtual class procedure SetupType to TPyObject, allowing the class to
- setup its associated Python type. This is very useful when building a hierarchy of classes,
- and thus avoiding copy&paste of the type services for each TPythonType. Instead, setup the type
- in the base class, and introduce in the subclasses the new services when they're implemented.
-
- * Added methods AddMethodWithKeywords/AddDelphiMethodWithKeywords to TPythonModule and TPythonType,
- allowing you to create functions receiving keyword parameters: foo(param1=val1, param2=val2...)
-
- * Added function VarPythonIsIterator to VarPyth.pas (and rewrote functions len and iter)
-
- * Added new component TPyDelphiWrapper originally written and donated by Kiriakos Vlahos [kvlahos@london.edu]
- It allows you to interact with Delphi VCL objects from Python. It works with Delphi5 or above.
- It also helps expose your own Delphi classes to Python more easily with Delphi 7 or later.
-
- Look at the documentation embedded at the beginning of the WrapDelphi.pas unit.
-
- * Added Demos 31 and 32 that show how you can benefit from WrapDelphi.
-
- * Added support for Free Pascal Compiler (http://www.freepascal.org/)
- and Lazarus Project (http://www.lazarus.freepascal.org/)
- Thanks to Michiel du Toit (micdutoit@hsbfn.com)
-
- * Added new folder "Modules" containing the folder "Delphi" which contains a Dll project for building
- a Python .pyd module in order to expose the VCL to a regular Python interpreter.
- Modules also constains a very simple Python script relying on Delphi.pyd for displaying a simple form.
- Note that you must ensure that Delphi.pyd is accessible from the Python path, before trying to run
- TestApp.py
-
-----------------------------------------------------------------------
-3.30 18/12/2005
-
- * Added function VarModuleHasObject to VarPyth.pas (done by Dietmar) to check if a module contains a specific object.
- * Fixed Bug in P4D that would prevent a script from printing unicode strings.
- * Made breaking change to TPythonEngine: the pyio module which is used to redirect input/output
- is not imported any more (pyio = __import__("pyio")) to avoid polluting the list of
- imported module (change made by Kiriakos Vlahos).
- * Included new release 1.3 of PyScripter source code.
- * Updated WrapDelphi:
- - Added new unit WrapDelphiWindows (to define a couple of symbols only)
- - Added new unit WrapDelphiComCtrls
- - Added new unit WrapDelphiGrids
- - Added new unit WrapDelphiGraphics
- - Added new unit WrapDelphiButtons
- - Wrapped TSize
- - Wrapped TCanvas, TGraphic, TBitmap, TMetaFile, TIcon, TPicture
- - Wrapped TKeyPressEvent, TKeyEvent
- - Made a breaking change when dealing with property sets:
- now we expect a sequence of strings. Each string should have the name as the enumeration in the set.
- Ex: MainForm.Anchors = ['akLeft', 'akTop']
- Of course, a set property will now return a list of strings.
- In the past, it would have returned an integer containing all the bits of the set,
- and it would have accepted to assign either the same kind of integer value or
- a string like "[akLeft, akTop]".
- - Made a breaking change when dealing with property enumerations:
- return a string representing its value instead of the ordinal value.
- - You don't need to call explicitely RegisterClass for your registered Python types as it will be done
- automatically for you in RegisterDelphiWrapper. But it is still usefull if you need to create VCL objects
- that have no wrapper, using the CreateComponent helper function.
- - Thanks to Fabio Chelly who used WrapDelphi, reported errors and contributed.
-
-----------------------------------------------------------------------
-3.31 5/3/2006
-
- * Added support for Delphi 2006
- * Updated WrapDelphi:
- - Wrapped TPageControl
- - Wrapped TTabSheet
- * Fixed a very rare but nasty bug thanks to Samuel Iseli - Vertec AG [samuel.iseli@vertec.ch]
- On some Windows Server 2003 machines, a P4D application using custom Types or Modules would
- crash. After investigation, Samuel found out that this was related to a Bios feature
- that would prevent code from running when the code was located on a memory page that was
- not flagged as executable. This was the case for all the generated callbacks that would
- wrap Delphi methods. After looking at Borland's solution regarding the MakeObjectInstance code
- we knew that we had do a VirtualAlloc(nil, PageSize, MEM_COMMIT, PAGE_EXECUTE_READWRITE).
- Samuel wrote a simple memory allocator using pages of virtual alloc, and replaced the old
- GetMem/FreeMem calls. And we could also get rid of the list of created callbacks as we have
- now our own custom allocator, which should speed up application's exit as we can free pages
- instead of blocks.
- * Simplified PythonEngine.pas to take into account an excellent suggestion of Samuel Iseli:
- the TPythonType was registering callbacks for each type's service, where the type's method
- would simply forward the work to the TPyObject instance. Instead of using callbacks,
- we can now use simple static functions which should also speed up a P4D application a little.
- * Added version 1.5 of PyScripter source code.
-
-
-----------------------------------------------------------------------
-3.32 8/10/2006
-
- * Added support for loading the Python 2.5. No change was introduced yet to take into account
- the 2.5 specificity.
- I had to disable the following 2 APIs which are not exported anymore: PyRange_New and PySymtableEntry_Type.
- I removed the exception PyExc_OverflowWarning.
- I added EPyBaseException exception and changed the hierarchy to reflect latest changes:
-
-BaseException # New in Python 2.5
-|- KeyboardInterrupt
-|- SystemExit
-|- Exception
- |- (all other current built-in exceptions)
-
-
- * Introduced a potential breaking change to P4D: the conditional symbol PREFER_UNICODE is now defined
- by default. Which means that any string stored in a variant will be converted to a Python unicode string.
- If you don't want that, then make sure that this symbol is not defined in definition.inc
- Note also that PyString_Check has been modified to accept unicode strings. If you want to
- discriminate, use PyString_CheckExact.
- * Kiriakos made changes to TPythonInputOutput to allow wide strings in I/O and thus support
- international chars. It introduces 2 news events OnSendUniData/OnReceiveUniData.
- This new behaviour will be activated only if you define the PREFER_UNICODE symbol and set
- the new UnicodeIO property.
- * Fixed bug into the new callback allocator thanks to Samuel Iseli. In some very rare cases,
- the empty space of a memory page was wrong and could crash the application.
- * Fixed a bug into TPythonEngine.PyObject_AsVariant that prevented a date to be converted
- to a real date variant. It was considered as a float, thanks to Oliver Bock .
- * Fixed a bug in TPythonEngine.PyObjectAsString when the submitted object is a unicode string.
- * Added api PySeqIter_New to TPythonEngine
- * Added api PyObject_CallMethodStr and PyObject_CallMethodWithArgs to TPythonEngine
- thanks to Dietmar Budelsky.
- * Added methods Repaint and Invalidate to the TControl wrapper
- * Added package files for C++Builder 6 thanks to Philippe BOURGAULT
- * Created a Wiki at http://py4d.pbwiki.com/ thanks to a suggestion of Oliver Bock
- This will allow any person involved with P4D to collaborate on building
- a useful documentation (at last ;-)
- * Added methods ClientToScreen and ScreenToClient to the TControl wrapper thanks to Joachim.
- * Added changes made by Samuel Iseli to WrapDelphiGrids:
- I added an indexed property for setting column widths (ColWidths[i]) and methods to get / set cell contents of stringgrid to the gridwrapper.
- I thought it was easier to do the cell get/set with separate methods GetCell(col,row), SetCell(col, row, value) instead of trying to imitate the Delphi 2dim array property (Cells[col, row]).
- * Made fields fDefaultIterType and fDefaultContainerType of TPyDelphiWrapper protected as a
- request made by Samuel Iseli.
- * Added new property "Version" to TPythonEngine returning the current version of P4D as a string as a
- request made by Roar Larsen.
diff --git a/OrigDocs/Deployment.txt b/OrigDocs/Deployment.txt
deleted file mode 100644
index adc9391..0000000
--- a/OrigDocs/Deployment.txt
+++ /dev/null
@@ -1,19 +0,0 @@
-See document "Deploying P4D.PDF" first.
-
-When you want to distribute your Delphi application using Python,
-here's what you have to do:
-- install the whole Lib directory of the standard Python distribution
-(i.e. c:\program files\Python\Lib)
-This folder is necessary for the exceptions.py module that defines the Exception
-objects, if you're using them.
-Note that the file exceptions.py does not exist any more with versions of Python
-equal or greater than 2.0
-- optionally install the whole DLLs directory of the standard Python distribution
-(i.e. c:\program files\Python\DLLs)
-- install the python15.dll in the system folder
-- In your application, use the OnPathInitialization of the TPythonEngine
-and define the path with the Lib and DLLs folders you have installed. Add your
-own folders that contain your python modules.
-Note that each folder must be separated with a semi-colon (;) in the path string.
-
-That's all !
diff --git a/OrigDocs/Readme.txt b/OrigDocs/Readme.txt
deleted file mode 100644
index 6b99b7f..0000000
--- a/OrigDocs/Readme.txt
+++ /dev/null
@@ -1,137 +0,0 @@
-##############################################################
-## This is the Python for Delphi project ##
-##############################################################
-
-AUTHORS:
-~~~~~~~~
-Dr. Dietmar Budelsky
- dbudelsky@web.de
-
-Morgan Martinet
- 4723, Brebeuf
- H2J 3L2 MONTREAL (QC)
- CANADA
-
- e-mail: p4d@mmm-experts.com
-
-
-This project is the result of the merging of their two separate projects.
-
-PURPOSE:
-~~~~~~~~
- Provide an interface to the Python language in Delphi.
-
-COPYRIGHT:
-~~~~~~~~~~
- This source code is distributed with no WARRANTY, for no reason or use.
- Everyone is allowed to use and change this code free for his own tasks
- and projects, as long as this header and its copyright text is intact.
- For changed versions of this code, which are public distributed the
- following additional conditions have to be fullfilled:
- 1) The header has to contain a comment on the change and the author of it.
- 2) A copy of the changed source has to be sent to one of the above E-Mail
- addresses or our then valid address, if this is possible to the
- author.
- The second condition has the target to maintain an up to date central
- version of the components. If this condition is not acceptable for
- confidential or legal reasons, everyone is free to derive components
- or to generate a diff file to our or other original sources.
-
-FILES:
-~~~~~~
- Readme.txt This file.
- Python.txt Infos about Python, and further references.
- Changes.txt List of all changes since the first release.
- Tutorial.txt A simple tutorial to use the PythonEngine
- To do.txt A to do list.
- Deploying P4D.pdf Notes on the Deployment of your applications using Python for Delphi.
- C++ Builder Notes.txt Notes on using C++Builder with the Python for Delphi components.
- PythonAtom.hlp A help file explaining the use of TPythonAtom
- Demos A folder containing several demos of Python for Delphi.
- Components\Python.* The "Python for Delphi" packages.
- Components\Sources\Core The source folder of the core "Python for Delphi".
- Lib Library of Python modules.
- PythonIDE A Python developpment environment written in Delphi.
- See PythonIDE\Readme.txt for the required components.
- Modules Contains the Delphi\Delphi.dpr project that creates the Modules\Delphi.pyd Python module
- that allows you to interact with Delphi VCL objects from Python.
-
-INSTALLATION:
-~~~~~~~~~~~~~
- install the Python for Windows distribution (http://www.python.org/).
-
- 1) Install the core components
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- For Delphi 3, install the "Python_d3" package located in the Components folder
- and add the folder "...\Components\Sources\Core".
-
- For Delphi 4, install the "Python_d4" package located in the Components folder
- and add the folder "...\Components\Sources\Core".
-
- For Delphi 5, install the "Python_d5" package located in the Components folder
- and add the folder "...\Components\Sources\Core".
-
- For Delphi 6, install the "Python_d6" package located in the Components folder
- and add the folder "...\Components\Sources\Core".
-
- For Delphi 7, install the "Python_d7" package located in the Components folder
- and add the folder "...\Components\Sources\Core".
-
- 2) Install the VCL components (this is optional)
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- For Delphi 3, install the "PythonVCL_d3" package located in the Components folder
- and add the folder "...\Components\Sources\VCL".
-
- For Delphi 4, install the "PythonVCL_d4" package located in the Components folder
- and add the folder "...\Components\Sources\VCL".
-
- For Delphi 5, install the "PythonVCL_d5" package located in the Components folder
- and add the folder "...\Components\Sources\VCL".
-
- For Delphi 6, install the "PythonVCL_d6" package located in the Components folder
- and add the folder "...\Components\Sources\VCL".
-
- For Delphi 7, install the "PythonVCL_d7" package located in the Components folder
- and add the folder "...\Components\Sources\VCL".
-
- 3) Build PythonIDE (This is optional)
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- You can download the latest build of this application from
- http://mmm-experts.com/Downloads.aspx?ProductId=4
-
- If you want to rebuild PythonIDE by yourself, you must look at PythonIDE\Readme.txt
- for the required component packages to install first.
-
-
- 3) Build Modules\Delphi\Delphi.dpr (This is optional)
- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
- Once the project is build you can either extend the Python path with ..\Modules or
- copy ..Modules\Delphi.pyd to C:\Python24\DLLs, to be able to import the Delphi module
- from Python.
-
- Note that you can try this module by invoking the ..\Modules\TestApp.py script.
-
-NOTE:
-~~~~~
- Don't forget to look at the tutorial file (tutorial.txt) which introduces the
- demos.
-
- Visit the site http://starship.python.net/crew/mhammond/ and get the last version
- of Pythonwin. It's a really good Python IDE, that you must have for serious
- Python programming and debugging !
-
-UPDATE:
-~~~~~~~
- You'll find the latest version at http://mmm-experts.com/
-
-DISTRIBUTION:
-~~~~~~~~~~~~~
- You are free to distribute your applications built with Python for Delphi,
- but don't forget to install the python15.dll in the window\system folder of
- your client, or install the Python for windows distribution (it needs more
- space on the harddisk, but it's better because there are all Python modules
- and the help).
diff --git a/OrigDocs/Tutorial.txt b/OrigDocs/Tutorial.txt
deleted file mode 100644
index a3a3824..0000000
--- a/OrigDocs/Tutorial.txt
+++ /dev/null
@@ -1,840 +0,0 @@
-Using Python components.
-Here's a simple tutorial, each step is linked to a demo project (demoXXX)
-located in the Demos folder.
-
---------------------------------------------------------------
-1) A simple Python evaluator: (Kylix ready)
---------------------------------------------------------------
- Create a new Form
- Drop a TMemo (or a TRichEdit)
- Drop a TPythonGUIInputOutput for displaying Python's messages
- Drop a TMemo for the source code
- Drop a TPythonEngine
- Connect the attribute IO of the TPythonEngine to the TPythonGUIInputOutput.
- Connect the attribute Output of TPythonGUIInputOutput to the TRichEdit.
- Drop a TButton and call it "Execute script"
- Double-click on the button and add:
- PythonEngine1.ExecStrings( Memo1.Lines );
- That's all !
- Compile and execute.
- Write in the Memo1: print 2+2
- Click on the Execute button
- You should see in the Output window: 4
-
---------------------------------------------------------------
-2) Evaluate a Python expression (Kylix ready)
---------------------------------------------------------------
- WARNING !!! The evaluation of an expression works only for arithmetic expressions
- and not for instructions ! The use of variables and functions is of course allowed
- but constructs like for, def, class, print, import... are not allowed.
- Use Exec... instead (like ExecStrings).
-
- Create a new Form
- Drop a TMemo (or a TRichEdit)
- Drop a TPythonGUIInputOutput for displaying Python's messages
- Drop a TMemo for the source code
- Drop a TPythonEngine
- Connect the attribute IO of the TPythonEngine to the TPythonGUIInputOutput.
- Connect the attribute Output of TPythonGUIInputOutput to the TRichEdit.
- Drop a TButton and call it "Evaluate script"
- Double-click on the button and add:
- var
- Result : PPyObject;
- begin
- with PythonEngine1 do
- begin
- Result := EvalStrings( Memo1.Lines );
- if Assigned(Result) then
- begin
- ShowMessage(Format('Eval: %s',[PyObjectAsString(Result)]));
- Py_DECREF(Result);
- end
- else
- ShowMessage('Could not evaluate the script');
- // Or you could simply use:
- // ShowMessage('Eval: ' + EvalStringsAsStr( Memo1.Lines ) );
- end;
- That's all !
- Compile and execute.
- Write in the Memo1: print 2+2
- Click on the Execute button
- You should see in the Output window: 4
-
---------------------------------------------------------------
-3) Defining Python/Delphi vars (simple case): (Kylix ready)
---------------------------------------------------------------
- Warning ! If you access the Python/Delphi vars with
- the variant interface, you'll have to use simple types
- like integers, floats or strings.
- If you want to use any Python object type, don't use
- variants, but use the Extended interface OnExtGetData, OnExtSetData
- and the ValueObject property. But in this case, be careful with the
- reference counting ! Study carefully the Demo4 example.
-
-
- Drop a TPythonDelphiVar
- Connect its Engine attribute to PythonEngine1
- Change the name of the variable in the VarName attribute and set it to "test".
- Drop a Button and call it "Show var content"
- Double-click on it, and add:
- ShowMessage( 'Value = ' + PythonDelphiVar1.ValueAsString );
-
- Run the application, and type in the source window:
- varname.Value = 10
- print varname, varname.Value
- Click on the Execute button
- Click on the "Show var content button"
-
- So, you can read/write the variable's content in both Python and Delphi !
-
---------------------------------------------------------------
-4) Defining Python/Delphi vars (advanced case): (Kylix ready)
---------------------------------------------------------------
- Warning ! If you access to the Python/Delphi vars with
- the variant interface, you'll have to use simple types
- like integers, floats or strings.
- If you want to use any Python object type, don't use
- variants, but use the Extended interface OnExtGetData, OnExtSetData
- and the ValueObject property. But in this case, be careful with the
- reference counting ! Study carefully the Demo4 example.
-
- Use what you did at 3)
- Drop a TEdit component
- Click on the PythonDelphiVar1 object, show its events
- Double-click on the OnGetData attribute, and add:
- Data := Edit1.Text;
- Double-click on the OnSetData attribute, and add:
- Edit1.Text := Data;
- Double-click on the OnChange attribute, and add:
- with Sender as TPythonDelphiVar do
- ShowMessage( 'Var test changed: ' + ValueAsString );
- Add the following line to the private section:
- FMyPythonObject : PPyObject;
- Drop a TPythonDelphiVar
- Connect its Engine attribute to PythonEngine1
- Change the name of the variable in the VarName attribute and set it to "object".
- Double-click on the OnExtGetData attribute, and add:
- with GetPythonEngine do
- begin
- Data := FMyPythonObject;
- Py_XIncRef(Data); // This is very important
- end;
- Double-click on the OnExtSetData attribute, and add:
- with GetPythonEngine do
- begin
- Py_XDecRef(FMyPythonObject); // This is very important
- FMyPythonObject := Data;
- Py_XIncRef(FMyPythonObject); // This is very important
- end;
-
- Run the application, and type in the source window:
- print "Current value of var test is: ", varname
- varname.Value = "New value set by Python"
- print "-----------------------------------------------------"
- class C:
- def __init__(Self, Arg):
- Self.Arg = Arg
- def __str__(Self):
- return ""
- print "Current value of var object is: ", object
- object.Value = C("Hello !")
- print "New value is:", object
- Click on the Execute button, and look at the Edit1 component.
-
---------------------------------------------------------------
-5) Defining a new Module: (Kylix ready)
---------------------------------------------------------------
- Drop a TPythonModule
- Connect its Engine attribute to PythonEngine1
- Change the ModuleName attribute to "spam"
- Select its events, and Double-click on "OnInitialization" and add:
- with Sender as TPythonModule do
- AddMethod( 'foo', spam_foo, 1, 'foo' );
- Before the PythonModule1Initialization procedure, add:
- function spam_foo( self, args : PPyObject ) : PPyObject; cdecl;
- begin
- with GetPythonEngine do
- begin
- ShowMessage( 'args of foo: '+PyObjectAsString(args) );
- Result := Py_None;
- Py_IncRef(Result);
- end;
- end;
-
- Run the application, and type in the source window:
- import spam
- print spam.foo( "Hello", 1 )
- Click on the Execute button, and look at the Message dialog.
-
---------------------------------------------------------------
-6) Defining a new Type: (Kylix ready)
---------------------------------------------------------------
- A new type is more complex, because you must define a record
- that contains the objects attributes. It must always contain
- the two attributes at first:
- ob_refcnt : Integer;
- ob_type : PPyTypeObject;
- Drop a TPythonType
- Connect its Engine attribute to PythonEngine1
- Change the TypeName attribute to "MyObject"
- You must define procedures that will handle all kind of access
- to the object: Destructor, Get attribute, Set attribute, print...
- You must define its own methods
- You'll need a function in a module that will create an
- instance of that object.
- You must set the attributes of the Type record.
- Add the Objects's methods to the PythonType.
-
- Look at the demo6 for more information about this.
- There's a complete implementation of a new type
- object "Point", which contains two attributes (x and y),
- and one method (OffsetBy).
- The object is created by the function CreatePoint of
- the spam module.
-
---------------------------------------------------------------
-7) Using Delphi methods as Python functions (Kylix ready)
---------------------------------------------------------------
- This demo is the same as the previous one (6) but it introduces
- the use of Delphi methods instead of global functions for the
- python functions of Modules or Types.
-
- Note: Look at (21) for the new Events feature, which will ease the
- declaration of new Python functions.
-
---------------------------------------------------------------
-8) Using Delphi classes for new Python types (Kylix ready)
---------------------------------------------------------------
- Warning for Python version below 2.0:
- Python must be correctly installed otherwise this demo
- will fail. It needs indeed the file exceptions.py
- located in the lib folder of the Python distribution
- in order to initialize correctly the Exceptions as
- Python objects instead of strings.
- If you want to distribute your application with the
- Python Dll, don't forget to copy this file (and maybe the
- whole lib folder) and use the event OnPathInitialization
- of TPythonEngine to initialize properly your Python
- environment.
-
- Note: Look at (21) for the new Events feature, which will ease the
- declaration of new Python methods.
-
- Note: Loot at (26) if you're interested in building a new type that
- may be subclassed inside Python.
-
- Note: Look at (32) if you're using Delphi7 or later as it can make
- your life much easier when trying to expose a regular Delphi
- class to Python. See also the WrapDelphi.pas unit.
-
- Look at demo8, it's a default template that yous should follow
- if you want to build new Python types.
- Create a new project.
- Drop a TRichEdit
- Drop a TPythonGUIInputOutput for displaying Python's messages
- Drop a TPythonEngine on the form.
- Connect the attribute IO of the TPythonEngine to the TPythonGUIInputOutput.
- Connect the attribute Output of TPythonGUIInputOutput to the TRichEdit.
- Drop a TMemo
- Drop a TButton
- Double click on it and add:
- PythonEngine1.ExecStrings( Memo1.Lines );
- Drop a TPythonModule
- Change its property "ModuleName" to "spam"
- Connect it to the PythonEngine1
- Double-click on the property "Errors"
- Add an error
- name it "PointError"
- set it to etClass
- Add an error
- name it "EBadPoint"
- set it to etClass
- Double-click on "ParentClass"
- Set Name to "PointError"
- Drop a TPythonType
- Connect it to the PythonEngine1
- Change the property "TypeName" to "Point"
- Connect the property "Module" to the PythonModule1
- Define the services you'll use in the property "Services"
- Double-click on its event "OnInitialization" and add:
- PythonType1.PyObjectClass := TPyPoint;
- Add this code to the interface section of the unit:
- // This is a Delphi class implementing a new Python type
- // it must derive from TPyObject or one of its descendants.
- // Then it must override some methods, like the constructors,
- // the RegisterMethods and the type services' virtual methods.
- TPyPoint = class(TPyObject)
- x, y : Integer;
-
- // Constructors & Destructors
- constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
-
- // Type services
- ////////////////
-
- // Basic services
- function GetAttr(key : PChar) : PPyObject; override;
- function SetAttr(key : PChar; value : PPyObject) : Integer; override;
- function Repr : PPyObject; override;
-
- // Class methods
- class procedure RegisterMethods( PythonType : TPythonType ); override;
-
- // Methods of TPyPoint
- procedure OffsetBy( dx, dy : Integer );
-
- // Interface methods
- function DoOffsetBy( args : PPyObject ) : PPyObject; cdecl;
- function DoRaiseError( args : PPyObject ) : PPyObject; cdecl;
- end;
-
- Add this code to the implementation section of the unit:
-
- // We override the constructors
-
- constructor TPyPoint.Create( APythonType : TPythonType );
- begin
- inherited;
- x := 0;
- y := 0;
- end;
-
- // Don't call the Create constructor of TPyPoint, because
- // we call the inherited constructor CreateWith that calls
- // the Create constructor first, and because the constructors
- // are virtual, TPyPoint.Create will be automatically be called.
-
- constructor TPyPoint.CreateWith( PythonType : TPythonType; args : PPyObject );
- begin
- inherited;
- with GetPythonEngine do
- begin
- if PyArg_ParseTuple( args, 'ii:CreatePoint', [@x, @y] ) = 0 then
- exit;
- end;
- end;
-
- // Then we override the needed services
-
- function TPyPoint.GetAttr(key : PChar) : PPyObject;
- begin
- with GetPythonEngine do
- begin
- if key = 'x' then
- Result := PyInt_FromLong( x )
- // Or Result := PyInt_FromLong( x )
- else if key = 'y' then
- Result := PyInt_FromLong( y )
- // Or Result := PyInt_FromLong( y )
- else
- Result := inherited GetAttr(key);
- end;
- end;
-
- function TPyPoint.SetAttr(key : PChar; value : PPyObject) : Integer;
- begin
- Result := 0;
- with GetPythonEngine do
- begin
- if key = 'x' then
- begin
- if PyArg_Parse( value, 'i:Point.SetAttr', [@x] ) = 0 then
- Result := -1;
- end
- else if key = 'y' then
- begin
- if PyArg_Parse( value, 'i:Point.SetAttr', [@y] ) = 0 then
- Result := -1;
- end
- else
- Result := inherited SetAttr(key, value);
- end;
- end;
-
- function TPyPoint.Repr : PPyObject;
- begin
- with GetPythonEngine do
- Result := PyString_FromString( PChar(Format('(%d, %d)',[x, y])) );
- // or Result := PyString_FromString( PChar(Format('(%d, %d)',[x, y])) );
- end;
-
- // Class methods
- // We register the methods of our type
-
- class procedure TPyPoint.RegisterMethods( PythonType : TPythonType );
- begin
- inherited;
- with PythonType do
- begin
- AddMethod( 'OffsetBy', @TPyPoint.DoOffsetBy, 'Point.OffsetBy( dx, dy )' );
- AddMethod( 'RaiseError', @TPyPoint.DoRaiseError, 'Point.RaiseError()' );
- end;
- end;
-
- // Methods of TPyPoint
- // They do the real actions on the object
- // It's better to split the functions that interface
- // Delphi to Python and the functions that do the
- // real implementation.
-
- procedure TPyPoint.OffsetBy( dx, dy : Integer );
- begin
- Inc( x, dx );
- Inc( y, dy );
- end;
-
- // Interface methods
- // They will be called directly by Python, so we extract the
- // python arguments and we call the method that will really do
- // the action.
-
- function TPyPoint.DoOffsetBy( args : PPyObject ) : PPyObject;
- var
- dx, dy : Integer;
- begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- // first we extract the arguments
- if PyArg_ParseTuple( args, 'ii:Point.Offset', [@dx, @dy] ) <> 0 then
- begin
- // if it's ok, then we call the method that does the job
- // with the correct arguments
- OffsetBy( dx, dy );
- // Finally, we return nothing
- Result := ReturnNone;
- end
- else // the arguments were not right
- Result := nil;
- end;
- end;
-
- // Here's an example of how you can raise errors defined
- // in the module linked to our type.
- function TPyPoint.DoRaiseError( args : PPyObject ) : PPyObject;
- begin
- with GetPythonEngine do
- begin
- // We adjust the transmitted self argument
- Adjust(@Self);
- // This is a simple call:
- //GetModule.RaiseError( 'PointError', 'this is an example of raising an error !' );
- // This is an advanced call:
- // We provide the instance vars as a dictionary, so that we can intercept the
- // error with "except" and extract informations from the error object.
- // ArrayToPyDict needs a list of pairs: varName (string), varValue (anything)
- GetModule.RaiseErrorObj( 'EBadPoint', 'this is an example of raising an error !',
- ArrayToPyDict( ['a', 1, 'b', 2, 'c', 3] ) );
- Result := nil;
- end;
- end;
-
- Compile and execute this application, then type in the memo
- the following text and execute it:
- import spam
- p = spam.CreatePoint(2, 5)
- print p
- p.OffsetBy( 3, 3 )
- print p.x, p.y
- print dir(spam)
- print spam.Point
- print "p = ", p, " --> ",
- if type(p) is spam.Point:
- print "p is a Point"
- else:
- print "p is not a point"
- p = 2
- print "p = ", p, " --> ",
- if type(p) is spam.Point:
- print "p is a Point"
- else:
- print "p is not a point"
- p = spam.CreatePoint(2, 5)
- try:
- print "raising an error of class EBadPoint"
- p.RaiseError() # it will raise spam.EBadPoint
- except spam.PointError, what: #it shows you that you can intercept a parent class
- print "Catched an error derived from PointError"
- print "Error class = ", what.__class__, " a =", what.a, " b =", what.b, " c =", what.c
-
- # You can raise error from a Python script to !
- print "------------------------------------------------------------------"
- print "Errors in a Python script"
- try:
- raise spam.EBadPoint, "this is a test !"
- except:
- pass
-
- try:
- err = spam.EBadPoint()
- err.a = 1
- err.b = 2
- err.c = 3
- raise err
- except spam.PointError, what: #it shows you that you can intercept a parent class
- print "Catched an error dirived from PointError"
- print "Error class = ", what.__class__, " a =", what.a, " b =", what.b, " c =", what.c
-
-
-
---------------------------------------------------------------
-9) Making a Python module as a Dll (Kylix ready)
---------------------------------------------------------------
- The demo9 contains 2 delphi projects: one for the application
- and one for the dll. The dll extension is renamed as ".pyd".
- The application script does an "import demodll" that will try
- to find first an internal module, then a "demodll.dll" or a
- "demodll.pyd".
- Python executes a procedure named initXXX in the dll, where
- XXX must be the name of the module (in this case it will be
- "demodll"). So, your dll must export only one procedure like this:
- procedure initXXX; cdecl;
-
- In the function initXXX of our DLL, we create an instance of
- TPythonEngine and we define its property "AutoFinalize" to False,
- because TPythonEngine must absolutely not call the function
- Py_Finalize. After you call its method LoadDll.
- Then we create an instance of TPythonModule, we setup its name,
- the engine used, add the methods and finally call Initialize.
- At last, you add a finalize section in order to free the two instances.
-
- WARNING !!! Python cares about letter case, so check if the
- resulting Dll is "demodll.pyd", all in lowercase, otherwise
- the "import demodll" statement won't find the module.
-
---------------------------------------------------------------
-10) Mapping Delphi VCL components inside Python.
---------------------------------------------------------------
- Full mapping of TTable and TQuery that lets you access
- Database from inside Python as you would do it with Delphi.
-
- Look at the demo, I tried to put some comments and I think it is
- self-explicit.
-
- It shows you how you can use Delphi class inheritence for
- making new Python types and avoid duplication of code.
-
- It shows you how to use some special object services like
- sequences.
-
- It shows you how you can subclass any Python object, using
- a Proxy class (see example 6).
-
---------------------------------------------------------------
-11) Using Threads inside Python. (Kylix ready)
---------------------------------------------------------------
- Demonstrates how you can execute python code that interacts with
- Delphi in threads.
-
---------------------------------------------------------------
-12) Using PythonAtom. (Deprecated since Delphi 6, See VarPyth instead)
---------------------------------------------------------------
- Look at Demo12
-
- Simply add the PythonAtom in the uses clause, declare a new var of type OleVariant
- and call the function getAtom( any Python object ). It will return a new OleVariant
- that will let you access properties or methods very simply, as you would do with Word !
-
- var
- pObject : PPyObject;
- myAtom : OleVariant;
- myString : String;
- begin
- pObject := ... a python object ...(using a TPythonDelphiVar.ValueObject for example);
- myAtom := getAtom(pObject); // This is the magic object
- myAtom.myMethod();
- myString := myAtom.myProperty.myProperty2;
- myAtom.myProperty.myProperty3:='Olivier';
- ShowMessage(myAtom.myMethod2('Olivier'));
- ShowMessage(myAtom.myListProperty[3]);
- // Or anything ! Note that type conversion are automatic !
- end;
-
- Note that if you use TPythonDelphiVar.ValueObject, you must decrement the reference on
- the returned object !
-
---------------------------------------------------------------
-13) Using TPythonDatabase.
---------------------------------------------------------------
- Look at Demo13
-
- This demo is based on the Demo10, but uses the TPythonDatabase
- component that was built from the Demo10, in order to let
- you easily access a Database from Python.
-
---------------------------------------------------------------
-14) Making a Dll with TPythonDatabase
---------------------------------------------------------------
-
- Here's how you can make a Dll that will contain the Database components
- in order to let you access a database from any Python application, even
- from the Python console !
-
- Please, compile the database.dpr project prior to Project1.dpr !
-
- If you want to use this module, from anywhere, you must copy the file
- database.pyd in a folder that's in Python's path, like ...\Python\Lib
-
- WARNING !!! Python cares about letter case, so check if the
- resulting Dll is "database.pyd", all in lowercase, otherwise
- the "import database" statement won't find the module.
-
---------------------------------------------------------------
-15) Using a TDataset descendant with Python, except TTable and TQuery.
---------------------------------------------------------------
-
- If you're using a special Dataset object, like TClientDataset or
- a FlashFiler table, this demo is for you !
- Note, that this will only allow you to use the TDataset interface and
- not the methods introduced in the TDataset subclass ! If you need to,
- then study the unit pyDBTables.pas and do the same as we do for a
- TTable or a TQuery !
-
- Add the pyDB unit to your uses clause.
- In the module event OnAfterInitialization, of your dedicated module,
- or simply just before you execute your instructions, do the following things:
-
- - Instanciate your Delphi dataset subclass: ds := TClientDataset.Create(nil);
- - Initialize it properly: ds.DatabaseName := 'DBDemos';
- ds.TableName := 'animals.dbf';
- ds.Active := True;
- - Create the Python interface: obj := NewDataset(ds, True)
- where 'True' means that the Python wrapper will own the delphi dataset object and
- free it. It avoids memory crashes if the TDataset subclass is destroyed
- before the Python engine is finalized. If you encounter such a problem,
- you can use the PythonEngine1.Finalize explicit method before any object is
- destroyed in your form.
- - Define a var containing our object : PythonModule1.SetVar( 'Dataset', obj );
- where PythonModule1 is the TPythonModule object you want to use
- 'Dataset' is the var name in the module that will contain our dataset object
- obj contains the Python object interface
- - Don't forget to decrement 'obj': GetPythonEngine.Py_XDecRef(obj);
-
- This demo shows you how to add a function to your module, that will allow your
- Python script to create its own instances of the Dataset subclass (look at the
- DoCreateTable function).
-
---------------------------------------------------------------
-16) Using a TDelphiVar or Module methods ? (Kylix ready)
---------------------------------------------------------------
-
- Here are examples of 2 differents solutions that let you read/write properties stored
- in your Delphi application (this examples were posted on the Python for Delphi
- mailing list) :
- - The first example uses a DelphiVar that contains a dictionary.
- - The second example uses a new modules (props) that publishes 3 functions
- GetProperty, SetProperty and GetPropertyList
-
- In both examples, I show you how you can simplify any implementation with a
- Proxy class that will use either the DelphiVar or the module functions.
-
-
---------------------------------------------------------------
-17) Using variant arrays of 2 dimensions (Kylix ready)
---------------------------------------------------------------
-
- This demo creates a variant array of 2 dimensions, then
- converts it to a Python object (a list of sub lists) with
- the method VariantAsPyObject.
- The Python list is then converted back to a variant array with
- PyObjectAsVariant, but notice that it is not an array of 2 dimensions,
- but an array of variant arrays.
- Because when PyObjectAsVariant converts a Python sequence it returns
- a variant array and this method is recursive. So, if we have another
- sequence as an item, we'll get an array that will be stored in the
- array.
- This way lets you have any depth of sub-sequences, but you can only
- convert 1, 2 or 3 dimensions variant arrays to Python sequences.
-
---------------------------------------------------------------
-18) C++ Builder: using the Python Dll in a console application
---------------------------------------------------------------
-
-Create a new project application using the console
-Edit the project options and adds the folder \Components\Include to
-the Include directory.
-Adds #include at the beginning of your source
-followed by: using namespace Py;
-Drop the py15.lib to your project folder and add it to the project
-Write Python code and compile !
-
---------------------------------------------------------------
-19) C++ Builder: this is a replicate of the Delphi Demo05
---------------------------------------------------------------
-
---------------------------------------------------------------
-20) C++ Builder: this is a replicate of the Delphi Demo08
---------------------------------------------------------------
-
---------------------------------------------------------------
-21) Using Events in TPythonModule or TPythonType (Kylix ready)
---------------------------------------------------------------
-
-This demo is inspired of the demos 7 and 8, but uses the new feature of the TPythonModule
-and TPythonType: now there's a collection property called Events, which lets you add
-easily your own Module functions, or Type methods.
-Simply double click on the Events property, then add a new CollectionItem, name your event, add
-a DocString if you want to document your function, and double click on the OnExecute event,
-then write the code to implement your function. That's all !
-Note the difference with a TPythonType: you don't use the Adjust procedure, put simply use the
-PythonToDelphi function to convert the PSelf argument to a Delphi instance pointer.
-
---------------------------------------------------------------
-22) Using Threading, Windows Console and Command line arguments (Kylix ready)
---------------------------------------------------------------
-When doing multithreading, be sure that the calling thread finishes after all created threads,
-otherwise your application will hang ! This is easily done by using the threading module of the
-standard Python distribution, and calling the "join" method of the thread objects.
-
-If you want to display messages in your threads, you can't use the PythonForDelphi redirection to
-a memo, as the VCL is not thread safe !
-So, a simple way is to use the new TPythonEngine.UseWindowsConsole property which will use a
-Windows threadsafe console.
-
-In this demo, we use the sys.argv list which contains the command line arguments.
-
-Note for Python 1.5.2:
-if you're using the threading module, you should do a TPythonEngine.Finalize in the
-OnClose event of your form, otherwise you'll get an access violation ! I don't know why ?
-Because it works fine with new 1.6 version !
-
---------------------------------------------------------------
-23) Using Threading and Delphi log window. (Kylix ready)
---------------------------------------------------------------
-This is the same demo as Demo22, but we use the Delphi log window for displaying Python output,
-instead of the Windows console.
-The main advantage is that you can scroll the log window, and save its content to a file,
-but the drawback is that you must run Delphi !
-
-To do it, you must drop a TPythonInputOutput component (instead of the TPythonGUIInputOutput),
-connect it to the TPythonEngine through the IO property, double-click on the TPythonInputOutput.OnSendData
-event and write:
-
-procedure TForm1.PythonInputOutput1SendData(Sender: TObject;
- const Data: String);
-begin
- OutputDebugString( PChar(Data) );
-end;
-
---------------------------------------------------------------
-24) Using TAtomPythonEngine (Deprecated since Delphi 6, See VarPyth instead)
---------------------------------------------------------------
-This demo describes how you can make Delphi methods that are going to be
-used from python without even thinking about conversion and reference
-counting by the use of PythonAtoms and AtomPythonEngine. The Demo is a
-modified version of Demo 5, but the techniques described here can be used
-in aspects of python/delphi programming as well.
-
-The demo describes the use of the PyObjectAsVariant method defined in
-AtomPythonEngine. It returns PythonAtoms when the Python object isn't of a
-standard variant type (string, integer, array etc.). AtomPythonEngine is a
-drop in for PythonEngine with all functionality inherited except for the
-PyObjectAsVariant that is extended as stated above.
-
-The VariantAsPyObject of PythonEngine is also shown to work on
-PythonAtoms.
-
---------------------------------------------------------------
-25) Using VarPyth.pas (Kylix ready)
---------------------------------------------------------------
-Here's a unit test for demonstrating most of what you can do with the
-new custom variant that wraps up the Python objects.
-
---------------------------------------------------------------
-26) Demo8 revisited to allow the new Python type to be subclassed
---------------------------------------------------------------
-Warning! Type subclassing is allowed only in Python 2.2 and later.
-
- Note: Look at (32) if you're using Delphi7 or later as it can make
- your life much easier when trying to expose a regular Delphi
- class to Python. See also the WrapDelphi.pas unit.
-
-You should not override GetAttr and SetAttr anymore and you should not
-select the Basic services flags [bsGetAttr, bsSetAttr].
-Instead, simply select the flags [bsGetAttrO, bsSetAttrO] and the class
-TPyObject does simply call PyObject_GenericGetAttr in GetAttrO
-and PyObject_GenericSetAttr in SetAttrO.
-The Python Generic Get/Set functions will use new slots introduced in
-the type object for specifying a list of members (class fields),
-a list of get/set functions (like properties in Delphi) and a list
-of methods. That way a subclass can introduce its own members/get,set/methods
-and call the others coming from the base classes.
-
-So, now You can override the class methods RegisterMembers and RegisterGetSets
-for allowing your type to be subclassed and offer attributes and
-methods to its subclasses.
-
-This demo declares two members for x and y fields, and one get/set for
-accessing the name fields which is a Delphi string and thus needs to
-be converted from/to Python object.
-The old way of registering methods has not changed at all.
-
---------------------------------------------------------------
-27) Container indexing
---------------------------------------------------------------
-#index:
-s[0]
-#slice
-s[0:2]
-#ellipsis
-s[...]
-#extended slice
-s[0:2:2]
-#multidimensional slice:
-s[10, 10:20, 20:100:5, ...]
-
---------------------------------------------------------------
-28) Iterator (Kylix ready)
---------------------------------------------------------------
-
-This demo implements a new container type wrapping a TStringList
-and shows how to return an iterator that will browse the container's content.
-
---------------------------------------------------------------
-29) Using Python Imaging Library (PAL)
---------------------------------------------------------------
-
-This demo shows how to exchange images between Delphi and the
-Python Imaging Library.
-This demo relies on VarPyth.pas and thus on Delphi 6 or above.
-You need also the library that you can get at:
-http://www.pythonware.com/products/pil/
-
---------------------------------------------------------------
-30) Using Named Parameters (Kylix ready)
---------------------------------------------------------------
-
-This demo shows how you can use named parameters when invoking Python functions or methods.
-This requires VarPyth.
-Look at the code in TForm1.Button1Click
-
---------------------------------------------------------------
-31) Using WrapDelphi to access Delphi Form attributes (Requires Delphi5 or later)
---------------------------------------------------------------
-
-This Demo shows how you expose a Delphi Form to Python, or your
-own custom Delphi classes.
-Note that it will use its full potential with Delphi7 or later.
-
---------------------------------------------------------------
-32) Demo08 revisited using WrapDelphi (Requires Delphi7 or later)
---------------------------------------------------------------
-
-This Demo shows how you can expose a Delphi class much simpler
-using WrapDelphi.
-
---------------------------------------------------------------
-33) Using Threads inside Python II.
---------------------------------------------------------------
-Enhanced Demo 11 showing how to properly interrupt running
-threads.
---------------------------------------------------------------
-
-
-That's all folks !!!
-Hope this helps to build cool Python/Delphi applications.
-
-Morgan
-
diff --git a/OrigDocs/deploying p4d.pdf b/OrigDocs/deploying p4d.pdf
deleted file mode 100644
index 735dfd1..0000000
Binary files a/OrigDocs/deploying p4d.pdf and /dev/null differ
diff --git a/DemoLazarus/demo.lpi b/demos_lazarus/Python_Console/demo.lpi
similarity index 84%
rename from DemoLazarus/demo.lpi
rename to demos_lazarus/Python_Console/demo.lpi
index 25d5916..81cafe4 100644
--- a/DemoLazarus/demo.lpi
+++ b/demos_lazarus/Python_Console/demo.lpi
@@ -1,11 +1,13 @@
-
+
+
+
+
-
@@ -23,19 +25,20 @@
-
-
-
+
+
+
+
-
+
-
+
@@ -55,18 +58,6 @@
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/DemoLazarus/demo.lpr b/demos_lazarus/Python_Console/demo.lpr
similarity index 100%
rename from DemoLazarus/demo.lpr
rename to demos_lazarus/Python_Console/demo.lpr
diff --git a/DemoLazarus/demo.res b/demos_lazarus/Python_Console/demo.res
similarity index 87%
rename from DemoLazarus/demo.res
rename to demos_lazarus/Python_Console/demo.res
index d5ab174..18ed76a 100644
Binary files a/DemoLazarus/demo.res and b/demos_lazarus/Python_Console/demo.res differ
diff --git a/DemoLazarus/formconsole.lfm b/demos_lazarus/Python_Console/formconsole.lfm
similarity index 100%
rename from DemoLazarus/formconsole.lfm
rename to demos_lazarus/Python_Console/formconsole.lfm
diff --git a/DemoLazarus/formconsole.pas b/demos_lazarus/Python_Console/formconsole.pas
similarity index 90%
rename from DemoLazarus/formconsole.pas
rename to demos_lazarus/Python_Console/formconsole.pas
index 7645e66..0cd9165 100644
--- a/DemoLazarus/formconsole.pas
+++ b/demos_lazarus/Python_Console/formconsole.pas
@@ -10,13 +10,13 @@ interface
type
{ TfmConsole }
+
TfmConsole = class(TForm)
edConsole: TEdit;
memoConsole: TMemo;
panelConsole: TPanel;
PopupMenu1: TPopupMenu;
- procedure edConsoleKeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
+ procedure edConsoleKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure edConsoleKeyPress(Sender: TObject; var Key: char);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
@@ -44,8 +44,8 @@ implementation
{$R *.lfm}
const
- cPyConsoleMaxLines = 1000;
- cPyConsolePrompt = '>>> ';
+ cMaxLines = 1000;
+ cPrompt = '>>> ';
procedure TfmConsole.DoLogConsoleLine(const Str: string);
@@ -53,7 +53,7 @@ procedure TfmConsole.DoLogConsoleLine(const Str: string);
with memoConsole do
begin
Lines.BeginUpdate;
- while Lines.Count>cPyConsoleMaxLines do
+ while Lines.Count>cMaxLines do
Lines.Delete(0);
Lines.Add(Str);
Lines.EndUpdate;
@@ -66,7 +66,7 @@ procedure TfmConsole.DoExecuteConsoleLine(Str: string);
var
i: integer;
begin
- DoLogConsoleLine(cPyConsolePrompt+Str);
+ DoLogConsoleLine(cPrompt+Str);
edConsole.Text:= '';
i:= FList.IndexOf(Str);
@@ -134,9 +134,9 @@ procedure TfmConsole.memoConsoleDblClick(Sender: TObject);
if (n>=0) and (n
- left = 232
- top = 216
+ Left = 232
+ Top = 216
end
end
diff --git a/DemoLazarus/formmain.pas b/demos_lazarus/Python_Console/formmain.pas
similarity index 66%
rename from DemoLazarus/formmain.pas
rename to demos_lazarus/Python_Console/formmain.pas
index 608c88f..b2c989a 100644
--- a/DemoLazarus/formmain.pas
+++ b/demos_lazarus/Python_Console/formmain.pas
@@ -1,6 +1,7 @@
unit FormMain;
{$mode objfpc}{$H+}
+{$Codepage utf8}
interface
@@ -41,21 +42,29 @@ implementation
{$R *.lfm}
const
- cPyLibraryWindows = 'python33.dll';
- cPyLibraryLinux = 'libpython3.4m.so.1.0';
- cPyLibraryMac = '/Library/Frameworks/Python.framework/Versions/3.4/lib/libpython3.4.dylib';
- cPyZipWindows = 'python33.zip';
+ cPyLibraryWindows: string = 'python37.dll';
+ cPyLibraryLinux: string = 'libpython3.8.so.1.0'; //default in Ubuntu 20.x
+ cPyLibraryMac: string = '/Library/Frameworks/Python.framework/Versions/3.7/lib/libpython3.7.dylib';
+ cPyZipWindows: string = 'python37.zip';
-function Py_app_version(Self, Args : PPyObject): PPyObject; cdecl;
+function Py_s0(Self, Args : PPyObject): PPyObject; cdecl;
begin
with GetPythonEngine do
- Result:= PyString_FromString('1.0.0');
+ Result:= PyUnicode_FromString('1.0.0');
end;
-function Py_app_api_version(Self, Args : PPyObject): PPyObject; cdecl;
+function Py_s1(Self, Args : PPyObject): PPyObject; cdecl;
+const
+ S0: string = 'begin.Привет.end';
+begin
+ with GetPythonEngine do
+ Result:= PyUnicode_FromString(PChar(S0));
+end;
+
+function Py_n1(Self, Args : PPyObject): PPyObject; cdecl;
begin
with GetPythonEngine do
- Result:= PyString_FromString('1.100');
+ Result:= PyLong_FromLong(-100000);
end;
{ TfmMain }
@@ -78,8 +87,9 @@ procedure TfmMain.PythonModule1Initialization(Sender: TObject);
begin
with Sender as TPythonModule do
begin
- AddMethod('app_version', @Py_app_version, '');
- AddMethod('app_api_version', @Py_app_api_version, '');
+ AddMethod('s0', @Py_s0, '');
+ AddMethod('s1', @Py_s1, '');
+ AddMethod('n1', @Py_n1, '');
end;
end;
@@ -107,6 +117,8 @@ procedure TfmMain.InitFonts;
end;
procedure TfmMain.PythonEngineAfterInit(Sender: TObject);
+const
+ NTest: Longint = 1 shl 30;
var
dir: string;
begin
@@ -115,6 +127,9 @@ procedure TfmMain.PythonEngineAfterInit(Sender: TObject);
Py_SetSysPath([dir+'DLLs', dir+cPyZipWindows], false);
{$endif}
Py_SetSysPath([dir+'Py'], true);
+
+ //test for LongInt
+ //Caption:= BoolToStr(PythonEngine.PyInt_AsLong(PythonEngine.PyInt_FromLong(NTest)) = NTest, true);
end;
procedure TfmMain.DoPy_InitEngine;
@@ -130,5 +145,30 @@ procedure TfmMain.DoPy_InitEngine;
PythonEngine.LoadDll;
end;
+{$ifdef darwin}
+procedure InitMacLibPath;
+var
+ N: integer;
+ S: string;
+begin
+ for N:= 11 downto 5 do
+ begin
+ S:= Format('/Library/Frameworks/Python.framework/Versions/3.%d/lib/libpython3.%d.dylib',
+ [N, N]);
+ if FileExists(S) then
+ begin
+ cPyLibraryMac:= S;
+ exit;
+ end;
+ end;
+end;
+{$endif}
+
+initialization
+
+ {$ifdef darwin}
+ InitMacLibPath;
+ {$endif}
+
end.
diff --git a/demos_lazarus/Python_Console/proc_py.pas b/demos_lazarus/Python_Console/proc_py.pas
new file mode 100644
index 0000000..ebde2c3
--- /dev/null
+++ b/demos_lazarus/Python_Console/proc_py.pas
@@ -0,0 +1,42 @@
+unit proc_py;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ SysUtils,
+ PythonEngine;
+
+procedure Py_SetSysPath(const Dirs: array of string; DoAdd: boolean);
+
+const
+ cDefFixedFontName = {$ifdef windows} 'Consolas' {$else} {$ifdef linux} 'Ubuntu Mono' {$else} 'Monaco' {$endif} {$endif};
+ cDefFixedFontSize = {$ifdef windows} 9 {$else} 11 {$endif};
+
+ cDefVarFontName = {$ifdef windows} 'Tahoma' {$else} {$ifdef linux} 'Ubuntu' {$else} 'default' {$endif} {$endif};
+ cDefVarFontSize = {$ifdef windows} 9 {$else} 10 {$endif};
+
+
+implementation
+
+procedure Py_SetSysPath(const Dirs: array of string; DoAdd: boolean);
+var
+ Str, Sign: string;
+ i: Integer;
+begin
+ Str:= '';
+ for i:= 0 to Length(Dirs)-1 do
+ Str:= Str + 'r"' + Dirs[i] + '"' + ',';
+ if DoAdd then
+ Sign:= '+='
+ else
+ Sign:= '=';
+ Str:= Format('sys.path %s [%s]', [Sign, Str]);
+ GetPythonEngine.ExecString(Str);
+end;
+
+
+
+end.
+
diff --git a/demos_lazarus/Python_Thread/TestPyThread.lpi b/demos_lazarus/Python_Thread/TestPyThread.lpi
new file mode 100644
index 0000000..44596dc
--- /dev/null
+++ b/demos_lazarus/Python_Thread/TestPyThread.lpi
@@ -0,0 +1,100 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Demos/FPC/Demo01/project1.lpr b/demos_lazarus/Python_Thread/TestPyThread.lpr
similarity index 69%
rename from Demos/FPC/Demo01/project1.lpr
rename to demos_lazarus/Python_Thread/TestPyThread.lpr
index 3f84c6e..2e862e4 100644
--- a/Demos/FPC/Demo01/project1.lpr
+++ b/demos_lazarus/Python_Thread/TestPyThread.lpr
@@ -1,4 +1,4 @@
-program project1;
+program TestPyThread;
{$mode objfpc}{$H+}
@@ -7,13 +7,14 @@
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
- Forms, Unit1, LResources, P4DLaz
+ Forms, Unit1, testThds
{ you can add units after this };
-{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
+{$R *.res}
begin
- {$I project1.lrs}
+ RequireDerivedFormResource:=True;
+ Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
diff --git a/demos_lazarus/Python_Thread/TestPyThread.res b/demos_lazarus/Python_Thread/TestPyThread.res
new file mode 100644
index 0000000..2a393ca
Binary files /dev/null and b/demos_lazarus/Python_Thread/TestPyThread.res differ
diff --git a/demos_lazarus/Python_Thread/testThread.py b/demos_lazarus/Python_Thread/testThread.py
new file mode 100644
index 0000000..5095c1a
--- /dev/null
+++ b/demos_lazarus/Python_Thread/testThread.py
@@ -0,0 +1,12 @@
+# coding: utf8
+# script for testing PythonThread
+# Jurassic Pork october 2020
+import time
+print('Coundown Thread1 :')
+time.sleep(1.0)
+i = 1
+while i < 5:
+ print('Thread1 : ',5 - i)
+ i += 1
+ time.sleep(1.0)
+print('Thread1 terminated')
diff --git a/demos_lazarus/Python_Thread/testthds.pas b/demos_lazarus/Python_Thread/testthds.pas
new file mode 100644
index 0000000..23b9a47
--- /dev/null
+++ b/demos_lazarus/Python_Thread/testthds.pas
@@ -0,0 +1,71 @@
+unit Testthds;
+
+ {$mode objfpc}{$H+}
+
+
+interface
+
+uses
+ Classes,
+ Graphics, ExtCtrls, Forms,
+ PythonEngine;
+
+type
+
+{ TTestThread }
+
+ TTestThread = class(TPythonThread)
+ private
+ FScript: TStrings;
+ running : Boolean;
+
+ protected
+ procedure ExecuteWithPython; override;
+ public
+ constructor Create( AThreadExecMode: TThreadExecMode; script: TStrings);
+ procedure Stop;
+ end;
+
+
+implementation
+
+
+{ TTestThread }
+
+constructor TTestThread.Create( AThreadExecMode: TThreadExecMode; script: TStrings);
+begin
+ fScript := script;
+ FreeOnTerminate := True;
+ ThreadExecMode := AThreadExecMode;
+ inherited Create(False);
+end;
+
+procedure TTestThread.ExecuteWithPython;
+begin
+ running := true;
+ try
+ with GetPythonEngine do
+ begin
+ if Assigned(fScript) then
+ ExecStrings(fScript);
+ end;
+ finally
+ running := false;
+ end;
+end;
+
+procedure TTestThread.Stop;
+begin
+ with GetPythonEngine do
+ begin
+ if running then
+ begin
+ PyEval_AcquireThread(self.ThreadState);
+ PyErr_SetString(PyExc_KeyboardInterrupt^, 'Terminated');
+ PyEval_ReleaseThread(self.ThreadState);
+ end;
+ end;
+end;
+
+
+end.
diff --git a/demos_lazarus/Python_Thread/unit1.lfm b/demos_lazarus/Python_Thread/unit1.lfm
new file mode 100644
index 0000000..3b806e1
--- /dev/null
+++ b/demos_lazarus/Python_Thread/unit1.lfm
@@ -0,0 +1,85 @@
+object Form1: TForm1
+ Left = 159
+ Height = 240
+ Top = 207
+ Width = 504
+ Caption = 'Thread Python Test'
+ ClientHeight = 240
+ ClientWidth = 504
+ OnCloseQuery = FormCloseQuery
+ object ScriptBtn: TButton
+ Left = 6
+ Height = 35
+ Top = 199
+ Width = 138
+ Anchors = [akLeft, akBottom]
+ Caption = 'Start script'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ OnClick = ScriptBtnClick
+ ParentFont = False
+ TabOrder = 0
+ end
+ object Memo1: TMemo
+ Left = 6
+ Height = 180
+ Top = 6
+ Width = 495
+ Anchors = [akTop, akLeft, akRight, akBottom]
+ ParentFont = False
+ ScrollBars = ssAutoBoth
+ TabOrder = 1
+ end
+ object ThreadBtn: TButton
+ Left = 166
+ Height = 35
+ Top = 199
+ Width = 176
+ Anchors = [akLeft, akBottom]
+ Caption = 'Start 3 threads'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ OnClick = ThreadBtnClick
+ ParentFont = False
+ TabOrder = 2
+ end
+ object StopThreadBtn: TButton
+ Left = 368
+ Height = 35
+ Top = 199
+ Width = 132
+ Anchors = [akRight, akBottom]
+ Caption = 'Stop threads'
+ Font.CharSet = ANSI_CHARSET
+ Font.Color = clBlack
+ Font.Height = -16
+ Font.Name = 'Segoe UI'
+ Font.Pitch = fpVariable
+ Font.Quality = fqDraft
+ Font.Style = [fsBold]
+ OnClick = StopThreadBtnClick
+ ParentFont = False
+ TabOrder = 3
+ end
+ object PythonEngine1: TPythonEngine
+ DllName = 'python38.dll'
+ DllPath = 'M:/dev/python38'
+ APIVersion = 1013
+ RegVersion = '3.8'
+ UseLastKnownVersion = False
+ InitThreads = True
+ PyFlags = [pfDebug, pfInteractive]
+ Left = 64
+ Top = 26
+ end
+end
diff --git a/demos_lazarus/Python_Thread/unit1.pas b/demos_lazarus/Python_Thread/unit1.pas
new file mode 100644
index 0000000..ebf6c2c
--- /dev/null
+++ b/demos_lazarus/Python_Thread/unit1.pas
@@ -0,0 +1,128 @@
+unit Unit1;
+
+{$mode objfpc}{$H+}
+
+
+interface
+
+uses
+ Classes, SysUtils, Forms, Controls,
+ Graphics, Dialogs, StdCtrls,strUtils,
+ PythonEngine,Testthds;
+
+type
+
+ { TForm1 }
+
+ TForm1 = class(TForm)
+ ScriptBtn: TButton;
+ ThreadBtn: TButton;
+ StopThreadBtn: TButton;
+ Memo1: TMemo;
+ PythonEngine1: TPythonEngine;
+ procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
+ procedure ScriptBtnClick(Sender: TObject);
+ procedure StopThreadBtnClick(Sender: TObject);
+ procedure ThreadBtnClick(Sender: TObject);
+
+ private
+ OwnThreadState: PPyThreadState;
+ ThreadsRunning: Integer;
+ procedure ThreadDone(Sender: TObject);
+ procedure InitThreads(ThreadExecMode: TThreadExecMode);
+
+
+ public
+ Thread1 : TTestThread;
+ Thread2 : TTestThread;
+ Thread3 : TTestThread;
+ end;
+
+var
+ Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+procedure TForm1.InitThreads(ThreadExecMode: TThreadExecMode);
+var script1,script2,script3 : TStringList;
+begin
+script1 := TStringList.Create();
+script2 := TStringList.Create();
+script3 := TStringList.Create();
+script1.LoadFromFile('testThread.py');
+ThreadsRunning := 3;
+Memo1.Clear;
+Memo1.Append('Starting 3 threads');
+with GetPythonEngine do
+ begin
+ OwnThreadState := PyEval_SaveThread();
+
+ Thread1 := TTestThread.Create( ThreadExecMode, script1);
+ Thread1.OnTerminate := @ThreadDone;
+ script2.Text := ReplaceStr(script1.Text,'Thread1','Thread2');
+ script2.Text := ReplaceStr(script2.Text,'(1.0)','(1.4)');
+ Thread2 := TTestThread.Create( ThreadExecMode, script2);
+ Thread2.OnTerminate := @ThreadDone;
+ script3.Text := ReplaceStr(script1.Text,'Thread1','Thread3');
+ script3.Text := ReplaceStr(script3.Text,'(1.0)','(1.9)');
+ Thread3 := TTestThread.Create( ThreadExecMode, script3);
+ Thread3.OnTerminate := @ThreadDone;
+
+end;
+ScriptBtn.Enabled := False;
+ThreadBtn.Enabled := False;
+StopThreadBtn.Enabled := True;
+
+end;
+procedure TForm1.ThreadDone(Sender: TObject);
+begin
+ Dec(ThreadsRunning);
+ if ThreadsRunning = 0 then
+ begin
+ Memo1.Append('all the threads Terminated');
+ GetPythonEngine.PyEval_RestoreThread(OwnThreadState);
+ ScriptBtn.Enabled := True;
+ ThreadBtn.Enabled := True;
+ StopThreadBtn.Enabled := False;
+ Thread1 := nil;
+ Thread2 := nil;
+ Thread3 := nil;
+ end;
+end;
+
+procedure TForm1.ScriptBtnClick(Sender: TObject);
+var script : TStringList;
+begin
+script := TStringList.Create();
+script.LoadFromFile('testThread.py');
+script.Text := ReplaceStr(script.Text,'Thread1','Script');
+Memo1.Clear;
+Memo1.Append('Starting Python Script');
+GetPythonEngine.ExecStrings(script);
+Memo1.Append('Python Script Terminated');
+end;
+
+procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+begin
+ CanClose := ThreadsRunning = 0;
+end;
+
+
+procedure TForm1.ThreadBtnClick(Sender: TObject);
+begin
+ InitThreads(emNewInterpreter);
+end;
+
+procedure TForm1.StopThreadBtnClick(Sender: TObject);
+begin
+ if Assigned(Thread1) and not Thread1.Finished then Thread1.Stop();
+ if Assigned(Thread2) and not Thread2.Finished then Thread2.Stop();
+ if Assigned(Thread3) and not Thread3.Finished then Thread3.Stop();
+end;
+
+
+end.
+
diff --git a/python4lazarus/Definition.Inc b/python4lazarus/Definition.Inc
new file mode 100644
index 0000000..6407265
--- /dev/null
+++ b/python4lazarus/Definition.Inc
@@ -0,0 +1,296 @@
+(**************************************************************************)
+(* *)
+(* Module: 'Definition.Inc' Copyright (c) 1998 *)
+(* *)
+(* Version: 1.5 Dr. Dietmar Budelsky *)
+(* budelsky@ibs.bm.eunet.de *)
+(* IBS Schillings GmbH & Co KG *)
+(* Ein Unternehmen der KROHNE-Gruppe *)
+(* Heisenbergstr. 18 *)
+(* 50169 Kerpen-Türnich *)
+(* Phone: (49)22 37/97 44-0 *)
+(* *)
+(**************************************************************************)
+(* Changes for Delphi 4 or higher are made for Compilers higher *)
+(* than Version 10.0. *)
+(* *)
+(**************************************************************************)
+(* This source code is distributed with no WARRANTY, for no reason or use.*)
+(* Everyone is allowed to use and change this code free, as long as this *)
+(* header and its copyright text is intact. *)
+(* Dr. Dietmar Budelsky, 1998-01-07 *)
+(**************************************************************************)
+
+/////////////////////////////////////////////////////////////////////////////
+// Delphi, C++ Builder versions
+/////////////////////////////////////////////////////////////////////////////
+
+{$IFDEF VER210} // Delphi 2010
+ {$DEFINE DELPHI2010}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER220} // Delphi XE
+ {$DEFINE DELPHIXE}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER230} // Delphi XE2
+ {$DEFINE DELPHIXE2}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER240} // Delphi XE3
+ {$DEFINE DELPHIXE3}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER250} // Delphi XE4
+ {$DEFINE DELPHIXE4}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER260} // Delphi XE5
+ {$DEFINE DELPHIXE5}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER270} // Delphi XE6
+ {$DEFINE DELPHIXE6}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER280} // Delphi XE7
+ {$DEFINE DELPHIXE7}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER290} // Delphi XE8
+ {$DEFINE DELPHIXE8}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER300} // Delphi 10
+ {$DEFINE DELPHI10}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+ {$DEFINE DELPHI10_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER310} // Delphi 10.1
+ {$DEFINE DELPHI10_1}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+ {$DEFINE DELPHI10_OR_HIGHER}
+ {$DEFINE DELPHI10_1_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER320} // Delphi 10.2
+ {$DEFINE DELPHI10_2}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+ {$DEFINE DELPHI10_OR_HIGHER}
+ {$DEFINE DELPHI10_1_OR_HIGHER}
+ {$DEFINE DELPHI10_2_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER330} // Delphi 10.3
+ {$DEFINE DELPHI10_3}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+ {$DEFINE DELPHI10_OR_HIGHER}
+ {$DEFINE DELPHI10_1_OR_HIGHER}
+ {$DEFINE DELPHI10_2_OR_HIGHER}
+ {$DEFINE DELPHI10_3_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER340} // Delphi 10.4
+ {$DEFINE DELPHI10_4}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+ {$DEFINE DELPHI10_OR_HIGHER}
+ {$DEFINE DELPHI10_1_OR_HIGHER}
+ {$DEFINE DELPHI10_2_OR_HIGHER}
+ {$DEFINE DELPHI10_3_OR_HIGHER}
+ {$DEFINE DELPHI10_4_OR_HIGHER}
+ {$IF RTLVERSION1042}
+ {$DEFINE DELPHI10_4_2} //Delphi 10.4.2
+ {$ENDIF RTLVERSION1042}
+{$ENDIF}
+{$IFDEF VER350} // Delphi 11
+ {$DEFINE DELPHI11}
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+ {$DEFINE DELPHI10_OR_HIGHER}
+ {$DEFINE DELPHI10_1_OR_HIGHER}
+ {$DEFINE DELPHI10_2_OR_HIGHER}
+ {$DEFINE DELPHI10_3_OR_HIGHER}
+ {$DEFINE DELPHI10_4_OR_HIGHER}
+ {$DEFINE DELPHI11_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER360} // Delphi 12
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHI12}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+ {$DEFINE DELPHI10_OR_HIGHER}
+ {$DEFINE DELPHI10_1_OR_HIGHER}
+ {$DEFINE DELPHI10_2_OR_HIGHER}
+ {$DEFINE DELPHI10_3_OR_HIGHER}
+ {$DEFINE DELPHI10_4_OR_HIGHER}
+ {$DEFINE DELPHI11_OR_HIGHER}
+ {$DEFINE DELPHI12_OR_HIGHER}
+{$ENDIF}
+{$IFDEF VER370} // Delphi 13
+ {$DEFINE DELPHI2010_OR_HIGHER}
+ {$DEFINE DELPHIXE_OR_HIGHER}
+ {$DEFINE DELPHI13}
+ {$DEFINE DELPHIXE2_OR_HIGHER}
+ {$DEFINE DELPHIXE3_OR_HIGHER}
+ {$DEFINE DELPHIXE4_OR_HIGHER}
+ {$DEFINE DELPHIXE5_OR_HIGHER}
+ {$DEFINE DELPHIXE6_OR_HIGHER}
+ {$DEFINE DELPHIXE7_OR_HIGHER}
+ {$DEFINE DELPHIXE8_OR_HIGHER}
+ {$DEFINE DELPHI10_OR_HIGHER}
+ {$DEFINE DELPHI10_1_OR_HIGHER}
+ {$DEFINE DELPHI10_2_OR_HIGHER}
+ {$DEFINE DELPHI10_3_OR_HIGHER}
+ {$DEFINE DELPHI10_4_OR_HIGHER}
+ {$DEFINE DELPHI11_OR_HIGHER}
+ {$DEFINE DELPHI12_OR_HIGHER}
+ {$DEFINE DELPHI13_OR_HIGHER}
+{$ENDIF}
+
+/////////////////////////////////////////////////////////////////////////////
+// Misc
+/////////////////////////////////////////////////////////////////////////////
+
+{$IFDEF WIN32}
+ {$DEFINE CPUX86}
+{$ENDIF}
+
+{$IFDEF FPC}
+ {$MODE DELPHI}
+
+ {$IFDEF CPU64}
+ {$DEFINE CPU64BITS}
+ {$DEFINE CPUX64}
+ {$ENDIF CPU64}
+
+ {$IFDEF CPU86}
+ {$DEFINE CPUX86}
+ {$ENDIF CPU86}
+
+ {$IFDEF DARWIN}
+ {$DEFINE OSX}
+ {$DEFINE MACOS}
+ {$IFDEF CPU32}
+ {$DEFINE MACOS32}
+ {$ENDIF CPU32}
+ {$IFDEF CPU64}
+ {$DEFINE MACOS64}
+ {$DEFINE OSX64}
+ {$ENDIF CPU64}
+ {$ENDIF DARWIN}
+
+ {$IFDEF CPUARM}
+ {$DEFINE CPUARM32}
+ {$ENDIF}
+
+ {$IFDEF CPUAARCH64}
+ {$DEFINE CPUARM}
+ {$DEFINE CPUARM64}
+ {$ENDIF}
+
+ {$IFDEF UNIX}
+ {$DEFINE POSIX}
+ {$ENDIF UNIX}
+
+ {$IFDEF ANDROID}
+ {$DEFINE POSIX}
+ {$ENDIF ANDROID}
+{$ENDIF FPC}
+
+{$IFDEF DELPHIXE_OR_HIGHER}
+ {$DEFINE EXTENDED_RTTI}
+{$ENDIF DELPHIXE_OR_HIGHER}
+
+{$IFDEF DELPHIXE4_OR_HIGHER}
+ {$LEGACYIFEND ON}
+{$ENDIF DELPHIXE4_OR_HIGHER}
+
+{$IFDEF MACOS}
+ {$DEFINE DARWIN}
+{$ENDIF MACOS}
diff --git a/Components/Sources/Core/MethodCallBack.pas b/python4lazarus/MethodCallBack.pas
similarity index 70%
rename from Components/Sources/Core/MethodCallBack.pas
rename to python4lazarus/MethodCallBack.pas
index 845252d..022e21d 100644
--- a/Components/Sources/Core/MethodCallBack.pas
+++ b/python4lazarus/MethodCallBack.pas
@@ -17,6 +17,7 @@
(* Morgan Martinet (p4d@mmm-experts.com) *)
(* Samuel Iseli (iseli@vertec.ch) *)
(* Andrey Gruzdev (andrey.gruzdev@gmail.com) *)
+(* Lucas Belo (lucas.belo@live.com) *)
(**************************************************************************)
(* This source code is distributed with no WARRANTY, for no reason or use.*)
(* Everyone is allowed to use and change this code free, as long as this *)
@@ -32,20 +33,10 @@ interface
uses SysUtils;
type
- TCallType = (ctSTDCALL, ctCDECL);
+ TCallType = (ctSTDCALL, ctCDECL, ctARMSTD);
TCallBack = procedure of object;
- TDDEAPIfunc = function( CallType, Fmt: Integer; Conv: longint;
- hsz1, hsz2: longint;
- Data: longint; Data1, Data2: integer):
- longint of object; stdcall;
-// Method declaration for DDE(ML) interface. Callbackmethods for DDE(ML) have
-// to be declared according to this.
-
-function GetDDECallBack(method: TDDEAPIfunc): Pointer;
-// Call for example with
-// GetDDECallBack(DDECallBackMethod);
-function GetCallBack( self: TObject; method: Pointer;
+ function GetCallBack( self: TObject; method: Pointer;
argnum: Integer; calltype: tcalltype): Pointer;
// Call for example with
// CallBackProc := GetCallBack( self, @TSelfObject.Method, 2, ctSTDCALL);
@@ -129,18 +120,17 @@ implementation
var
CodeMemPages: PCodeMemPage;
-
+
type
{$IFDEF FPC}
PtrCalcType = PtrUInt;
{$ELSE}
- {$IFDEF CPUX64}
PtrCalcType = NativeInt;
- {$ELSE}
- PtrCalcType = Longint;
- {$ENDIF}
{$ENDIF}
+ EMProtectError = class(Exception)
+ end;
+
{$IFNDEF MSWINDOWS}
{$IFDEF FPC}
function mmap(Addr: Pointer; Len: Integer; Prot: Integer; Flags: Integer; FileDes: Integer; Off: Integer): Pointer; cdecl;
@@ -165,6 +155,9 @@ procedure GetCodeMem(var ptr: PByte; size: integer);
var
page: PCodeMemPage;
block: PCodeMemBlock;
+ {$IFNDEF MSWINDOWS}
+ flags: integer;
+ {$ENDIF}
begin
//---allocates Block from executable memory
// executable memory is requested in pages via VirtualAlloc
@@ -180,14 +173,48 @@ procedure GetCodeMem(var ptr: PByte; size: integer);
page:=VirtualAlloc(nil, PageSize, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
{$ELSE}
//page := GetMem(PageSize);
+ {$WARN SYMBOL_PLATFORM OFF}
page := mmap(Pointer($10000000), PageSize, PROT_NONE, MAP_PRIVATE or MAP_ANON, -1, 0);
- mprotect(page, PageSize, PROT_READ or PROT_WRITE or PROT_EXEC);
- {$ENDIF}
+ {$WARN SYMBOL_PLATFORM ON}
+ if page=Pointer(-1) then //MMAP_FAILED result?
+ begin
+ ptr := nil;
+ exit;
+ end;
+ {
+ macOS for M1 has a bug (Apple Feedback FB8994773) in which mprotect
+ rejects a permission change from NONE -> RWX, resulting a "Permission
+ Denied" error.
+ Solution: give RW permission, make memory changes, then change RW to X
+ }
+ {$IF DEFINED(OSX) AND DEFINED(CPUARM64)}
+ flags := PROT_READ or PROT_WRITE;
+ {$ELSE}
+ flags := PROT_READ or PROT_WRITE or PROT_EXEC;
+ {$IFEND}
+ if mprotect(page, PageSize, flags) <> 0 then
+ raise EMProtectError.CreateFmt('MProtect error: %s', [
+ SysErrorMessage({$IFDEF FPC}GetLastOSError{$ELSE}GetLastError{$ENDIF}())]);
+ {$ENDIF}
page^.next:=CodeMemPages;
CodeMemPages:=page;
// init pointer to end of page
page^.CodeBlocks:=Pointer(PtrCalcType(page) + PageSize);
+ {$IF DEFINED(OSX) AND DEFINED(CPUARM64)}
+ end else begin
+ {
+ macOS for M1 has a bug (Apple Feedback FB8994773) in which mprotect
+ rejects a permission change from NONE -> RWX.
+ Solution: give RW permission, make memory changes, then change RW to X
+ }
+ //RW permission to the entire page for new changes...
+ if mprotect(page, PageSize, PROT_READ or PROT_WRITE) <> 0 then
+ raise EMProtectError.CreateFmt('MProtect error: %s', [
+ SysErrorMessage({$IFDEF FPC}GetLastOSError{$ELSE}GetLastError{$ENDIF}())]);
end;
+ {$ELSE}
+ end;
+ {$IFEND}
//---blocks are assigned starting from the end of the page
block:=Pointer(PtrCalcType(page^.codeBlocks) - (size + sizeof(PCodeMemBlock)));
@@ -206,15 +233,12 @@ procedure FreeCodeMem(ptr: Pointer);
// we need to search through all the assigned blocks
// A page is only released when all blocks in it have been freed
page:=CodeMemPages;
- lastblock:=nil;
lastpage:=nil;
- if page <> nil then
- block:=page^.CodeBlocks
- else
- block:=niL;
while page <> nil do
begin
+ lastblock:=nil;
+ block:=page^.CodeBlocks;
while PtrCalcType(block) < (PtrCalcType(page) + pagesize) do
begin
if @(block^.Code[0]) = ptr then
@@ -240,7 +264,7 @@ procedure FreeCodeMem(ptr: Pointer);
{$ELSE}
// FreeMem(page);
munmap(page,PageSize);
- {$ENDIF}
+ {$ENDIF}
end;
exit;
@@ -250,10 +274,7 @@ procedure FreeCodeMem(ptr: Pointer);
end;
lastpage:=page;
page:=page^.Next;
- block:=page^.CodeBlocks;
- lastblock:=nil;
end;
-
end;
function CodeMemPageCount: integer;
@@ -271,9 +292,32 @@ function CodeMemPageCount: integer;
end;
end;
-function GetDDECallBack(method: TDDEAPIfunc): Pointer;
+procedure DeleteCallBack( Proc: Pointer);
+begin
+ FreeCodeMem(Proc);
+end;
+
+procedure FreeCallBacks;
+var
+ page, nextpage: PCodeMemPage;
begin
- result := GetOfObjectCallBack(TCallBack(method),8,ctSTDCALL);
+ // free each allocated page
+ page := CodeMemPages;
+ while page <> nil do
+ begin
+ nextpage := page^.Next;
+
+ // free the memory
+ {$IFDEF MSWINDOWS}
+ VirtualFree(page, 0, MEM_RELEASE);
+ {$ELSE}
+ //FreeMem(page);
+ munmap(page,PageSize);
+ {$ENDIF}
+
+ page := nextpage;
+ end;
+ CodeMemPages := nil;
end;
function GetOfObjectCallBack( CallBack: TCallBack;
@@ -284,15 +328,17 @@ function GetOfObjectCallBack( CallBack: TCallBack;
argnum, calltype);
end;
-{$IFDEF CPUX64}
-{$DEFINE 64_BIT_CALLBACK}
-{$ELSE}
-{$IFDEF MACOS}
-{$DEFINE ALIGNED_32_BIT_CALLBACK}
-{$ELSE}
-{$DEFINE SIMPLE_32_BIT_CALLBACK}
-{$ENDIF MACOS}
-{$ENDIF CPUX64}
+{$IFNDEF CPUARM}
+ {$IFDEF CPUX64}
+ {$DEFINE 64_BIT_CALLBACK}
+ {$ELSE}
+ {$IFDEF MACOS}
+ {$DEFINE ALIGNED_32_BIT_CALLBACK}
+ {$ELSE}
+ {$DEFINE SIMPLE_32_BIT_CALLBACK}
+ {$ENDIF MACOS}
+ {$ENDIF CPUX64}
+{$ENDIF CPUARM}
{$IFDEF SIMPLE_32_BIT_CALLBACK}
// win32 inplementation
@@ -451,6 +497,7 @@ function GetCallBack( self: TObject; method: Pointer;
Inc(lCount,sizeof(c64jump));
GetCodeMem(Q,lCount);
+ if Q=nil then exit(nil);
P := Q;
lSize := 0;
@@ -582,35 +629,138 @@ function GetCallBack( self: TObject; method: Pointer;
end;
{$ENDIF}
-procedure DeleteCallBack( Proc: Pointer);
+{$IFDEF CPUARM32}
+function GetCallBack(Self: TObject; Method: Pointer; ArgNum: Integer;
+ CallType: TCallType): Pointer;
+const
+ S1: array[0..123] of byte = (
+//big-endian
+//offset :
+ {+ 0:} $80, $40, $2d, $e9, // push {r7, lr}
+ {+ 4:} $0d, $70, $a0, $e1, // mov r7, sp
+ {+ 8:} $1e, $04, $2d, $e9, // push {r1, r2, r3, r4, sl}
+ {+ c:} $5c, $40, $9f, $e5, // ldr r4, [pc, #92] ; 70
+ {+ 10:} $00, $00, $54, $e3, // cmp r4, #0
+ {+ 14:} $04, $d0, $4d, $c0, // subgt sp, sp, r4
+ {+ 18:} $04, $50, $a0, $c1, // movgt r5, r4
+ {+ 1c:} $04, $50, $85, $c2, // addgt r5, r5, #4
+ {+ 20:} $04, $60, $a0, $c1, // movgt r6, r4
+ {+ 24:} $04, $60, $46, $c2, // subgt r6, r6, #4
+ {+ 28:} $09, $00, $00, $cb, // blgt 54
+ {+ 2c:} $0f, $00, $2d, $e9, // push {r0, r1, r2, r3}
+ {+ 30:} $3c, $00, $9f, $e5, // ldr r0, [pc, #60] ; 74
+ {+ 34:} $0e, $00, $bd, $e8, // pop {r1, r2, r3}
+ {+ 38:} $38, $a0, $9f, $e5, // ldr sl, [pc, #56] ; 78
+ {+ 3c:} $3a, $ff, $2f, $e1, // blx sl
+ {+ 40:} $00, $00, $54, $e3, // cmp r4, #0
+ {+ 44:} $04, $d0, $8d, $c0, // addgt sp, sp, r4
+ {+ 48:} $04, $40, $9d, $e4, // pop {r4} ; (ldr r4, [sp], #4)
+ {+ 4c:} $1e, $04, $bd, $e8, // pop {r1, r2, r3, r4, sl}
+ {+ 50:} $80, $80, $bd, $e8, // pop {r7, pc}
+//offset + 00000054 :
+ {+ 54:} $05, $a0, $97, $e7, // ldr sl, [r7, r5]
+ {+ 58:} $06, $a0, $8d, $e7, // str sl, [sp, r6]
+ {+ 5c:} $04, $50, $45, $e2, // sub r5, r5, #4
+ {+ 60:} $04, $60, $46, $e2, // sub r6, r6, #4
+ {+ 64:} $00, $00, $56, $e3, // cmp r6, #0
+ {+ 68:} $f9, $ff, $ff, $aa, // bge 54
+ {+ 6c:} $1e, $ff, $2f, $e1, // bx lr
+//offset + 00000070
+ {+ 70:} $00, $00, $00, $00, // stack space for stack parameters
+ {+ 74:} $00, $00, $00, $00, // Self
+ {+ 78:} $00, $00, $00, $00 // Method
+);
+const
+ ARM_INSTRUCTION_SIZE = 4;
+ ARM_ARGUMENT_COUNT_IN_REGISTERS = 4;
+var
+ P, Q: PByte;
+ LLiteralPool: TArray;
+ I: Integer;
begin
- FreeCodeMem(Proc);
+ GetCodeMem(Q, SizeOf(S1));
+ P := Q;
+ Move(S1, P^, SizeOf(S1));
+
+ LLiteralPool := TArray.Create(
+ Pointer((ArgNum - ARM_ARGUMENT_COUNT_IN_REGISTERS) * ARM_INSTRUCTION_SIZE),
+ Self,
+ Method);
+
+ Inc(P, Length(S1) - (Length(LLiteralPool) * SizeOf(pointer)));
+ for I := Low(LLiteralPool) to High(LLiteralPool) do begin
+ Move(LLiteralPool[I], P^, SizeOf(pointer));
+ Inc(P, SizeOf(pointer));
+ end;
+
+ Result := Pointer(Q); //set arm mode
end;
+{$ENDIF CPUARM32}
-procedure FreeCallBacks;
+{$IFDEF CPUARM64}
+function GetCallBack(Self: TObject; Method: Pointer; ArgNum: Integer;
+ CallType: TCallType): Pointer;
+const
+ S1: array[0..79] of byte = (
+//big-endian
+//offset <_start>:
+ $fd, $7b, $bf, $a9, // stp x29, x30, [sp, #-16]!
+ $fd, $03, $00, $91, // mov x29, sp
+ $e0, $07, $bf, $a9, // stp x0, x1, [sp, #-16]!
+ $e2, $0f, $bf, $a9, // stp x2, x3, [sp, #-16]!
+ $e4, $17, $bf, $a9, // stp x4, x5, [sp, #-16]!
+ $e6, $1f, $bf, $a9, // stp x6, x7, [sp, #-16]!
+ $0a, $00, $00, $10, // adr x10, #0 <_start+0x18>
+ $40, $15, $40, $f9, // ldr x0, [x10, #40]
+ $49, $19, $40, $f9, // ldr x9, [x10, #48]
+ $e7, $2f, $c1, $a8, // ldp x7, x11, [sp], #16
+ $e5, $1b, $c1, $a8, // ldp x5, x6, [sp], #16
+ $e3, $13, $c1, $a8, // ldp x3, x4, [sp], #16
+ $e1, $0b, $c1, $a8, // ldp x1, x2, [sp], #16
+ $20, $01, $3f, $d6, // blr x9
+ $fd, $7b, $c1, $a8, // ldp x29, x30, [sp], #16
+ $c0, $03, $5f, $d6, // ret
+ $00, $00, $00, $00, // .word 0x00000000 //Self
+ $00, $00, $00, $00, // .word 0x00000000
+ $00, $00, $00, $00, // .word 0x00000000 //Method
+ $00, $00, $00, $00 // .word 0x00000000
+);
var
- page, nextpage: PCodeMemPage;
+ P, Q: PByte;
+ LLiteralPool: TArray;
+ I: Integer;
begin
- // free each allocated page
- page := CodeMemPages;
- while page <> nil do
- begin
- nextpage := page^.Next;
+ GetCodeMem(Q, SizeOf(S1));
+ P := Q;
+ Move(S1, P^, SizeOf(S1));
- // free the memory
- {$IFDEF MSWINDOWS}
- VirtualFree(page, 0, MEM_RELEASE);
- {$ELSE}
- //FreeMem(page);
- munmap(page,PageSize);
- {$ENDIF}
+ LLiteralPool := TArray.Create(Self, Method);
- page := nextpage;
+ Inc(P, Length(S1) - (Length(LLiteralPool) * SizeOf(pointer)));
+ for I := Low(LLiteralPool) to High(LLiteralPool) do begin
+ Move(LLiteralPool[I], P^, SizeOf(pointer));
+ Inc(P, SizeOf(pointer));
end;
- CodeMemPages := nil;
+
+ {$IF DEFINED(OSX) AND DEFINED(CPUARM64)}
+ {
+ macOS for M1 has a bug (Apple Feedback FB8994773) in which mprotect
+ rejects a permission change from NONE -> RWX.
+ Solution: give RW permission, make memory changes, then change RW to X
+ }
+ //X permission to the entire page for executions...
+ if mprotect(CodeMemPages, PageSize, PROT_EXEC) <> 0 then
+ raise EMProtectError.CreateFmt('MProtect error: %s', [
+ SysErrorMessage({$IFDEF FPC}GetLastOSError{$ELSE}GetLastError{$ENDIF}())]);
+ {$IFEND}
+
+ Result := Pointer(Q); //set arm mode
end;
+{$ENDIF CPUARM64}
initialization
+
finalization
FreeCallBacks;
+
end.
diff --git a/Components/Sources/Core/PythonAction.pas b/python4lazarus/PythonAction.pas
similarity index 97%
rename from Components/Sources/Core/PythonAction.pas
rename to python4lazarus/PythonAction.pas
index cfa5caa..184f931 100644
--- a/Components/Sources/Core/PythonAction.pas
+++ b/python4lazarus/PythonAction.pas
@@ -124,7 +124,7 @@ function TPythonAction.PythonClear(pself, args: PPyObject): PPyObject;
ClearMethods;
with GetPythonEngine, RegisteredMethods do
begin
- Result := PyInt_FromLong(Count);
+ Result := PyLong_FromLong(Count);
end;
end;
@@ -146,7 +146,7 @@ function TPythonAction.PythonRegister(pself, args: PPyObject): PPyObject;
begin
Py_XINCREF(func);
Add(func);
- Result := PyInt_FromLong(Count);
+ Result := PyLong_FromLong(Count);
end;
end;
@@ -168,7 +168,7 @@ function TPythonAction.PythonUnregister(pself, args: PPyObject): PPyObject;
begin
Py_XDECREF(func);
Remove(func);
- Result := PyInt_FromLong(Count);
+ Result := PyLong_FromLong(Count);
end;
end;
diff --git a/Components/Sources/Core/PythonEngine.dcr b/python4lazarus/PythonEngine.dcr
similarity index 100%
rename from Components/Sources/Core/PythonEngine.dcr
rename to python4lazarus/PythonEngine.dcr
diff --git a/Components/Sources/Core/PythonEngine.pas b/python4lazarus/PythonEngine.pas
similarity index 74%
rename from Components/Sources/Core/PythonEngine.pas
rename to python4lazarus/PythonEngine.pas
index 020d651..7d7141e 100644
--- a/Components/Sources/Core/PythonEngine.pas
+++ b/python4lazarus/PythonEngine.pas
@@ -2,8 +2,8 @@
(* *)
(* Module: Unit 'PythonEngine' Copyright (c) 1997 *)
(* *)
-(* Version: 3.0 Dr. Dietmar Budelsky *)
-(* Sub-Version: 0.33 dbudelsky@web.de *)
+(* Dr. Dietmar Budelsky *)
+(* dbudelsky@web.de *)
(* Germany *)
(* *)
(* Morgan Martinet *)
@@ -12,7 +12,10 @@
(* CANADA *)
(* e-mail: p4d@mmm-experts.com *)
(* *)
-(* look at the project page at: http://python4Delphi.googlecode.com/ *)
+(* PyScripter *)
+(* e-mail: pyscripter@gmail.com *)
+(* *)
+(* Project page: https://github.com/pyscripter/python4delphi *)
(**************************************************************************)
(* Functionality: Delphi Components that provide an interface to the *)
(* Python language (see python.txt for more infos on *)
@@ -31,9 +34,7 @@
(* Stefan Hoffmeister (Stefan.Hoffmeister@Econos.de) *)
(* Michiel du Toit (micdutoit@hsbfn.com) - Lazarus Port *)
(* Chris Nicolai (nicolaitanes@gmail.com) *)
-(* Kiriakos Vlahos (kvlahos@london.edu) *)
-(* Andrey Gruzdev (andrey.gruzdev@gmail.com) *)
-(* Alexey Torgashin (support@uvviewsoft.com) *)
+(* Andrey Gruzdev (andrey.gruzdev@gmail.com) *)
(**************************************************************************)
(* This source code is distributed with no WARRANTY, for no reason or use.*)
(* Everyone is allowed to use and change this code free for his own tasks *)
@@ -59,10 +60,8 @@
{ TODO -oMMM : implement tp_as_buffer slot }
{ TODO -oMMM : implement Attribute descriptor and subclassing stuff }
-{$IFNDEF FPC}
- {$IFNDEF DELPHI7_OR_HIGHER}
- Error! Delphi 7 or higher is required!
- {$ENDIF}
+{$IF defined(UNIX) and not defined(DARWIN)}
+{$define _so_files}
{$ENDIF}
interface
@@ -72,21 +71,14 @@ interface
Windows,
{$ELSE}
Types,
- Dl, //AT
- DynLibs, //AT
- Forms, //AT for "Application.terminate"
+ Dl,
+ DynLibs,
+ Forms, //for Application.Terminate
{$ENDIF}
Classes,
SysUtils,
SyncObjs,
Variants,
-{$IFDEF DELPHI2005_OR_HIGHER}
-{$IFNDEF UNICODE}
- WideStrings,
-{$ENDIF}
-{$ELSE}
- TinyWideStrings,
-{$ENDIF}
MethodCallBack;
//#######################################################
@@ -96,13 +88,6 @@ interface
//#######################################################
type
-{$IFNDEF UNICODE}
- UnicodeString = WideString;
- TUnicodeStringList = TWideStringList;
-{$ELSE}
- TUnicodeStringList = TStringList;
-{$ENDIF}
-
{$IFNDEF FPC}
{$IF CompilerVersion < 21}
NativeInt = integer;
@@ -110,11 +95,6 @@ interface
{$IFEND}
PNativeInt = ^NativeInt;
{$ELSE}
- {$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 20500)}
- {$ELSE}
- NativeInt = integer;
- NativeUInt = Cardinal;
- {$IFEND}
PNativeInt = ^NativeInt;
{$ENDIF}
@@ -123,44 +103,47 @@ interface
DllName : String;
RegVersion : String;
APIVersion : Integer;
- CanUseLatest : Boolean;
end;
const
{$ifdef windows}
- PYTHON_KNOWN_VERSIONS: array[1..7] of TPythonVersionProp =
+ PYTHON_KNOWN_VERSIONS: array[1..10] of TPythonVersionProp =
(
- (DllName: 'python26.dll'; RegVersion: '2.6'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'python27.dll'; RegVersion: '2.7'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'python30.dll'; RegVersion: '3.0'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'python31.dll'; RegVersion: '3.1'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'python32.dll'; RegVersion: '3.2'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'python33.dll'; RegVersion: '3.3'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'python34.dll'; RegVersion: '3.4'; APIVersion: 1013; CanUseLatest: True)
+ (DllName: 'python34.dll'; RegVersion: '3.4'; APIVersion: 1013),
+ (DllName: 'python35.dll'; RegVersion: '3.5'; APIVersion: 1013),
+ (DllName: 'python36.dll'; RegVersion: '3.6'; APIVersion: 1013),
+ (DllName: 'python37.dll'; RegVersion: '3.7'; APIVersion: 1013),
+ (DllName: 'python38.dll'; RegVersion: '3.8'; APIVersion: 1013),
+ (DllName: 'python39.dll'; RegVersion: '3.9'; APIVersion: 1013),
+ (DllName: 'python310.dll'; RegVersion: '3.10'; APIVersion: 1013),
+ (DllName: 'python311.dll'; RegVersion: '3.11'; APIVersion: 1013),
+ (DllName: 'python312.dll'; RegVersion: '3.12'; APIVersion: 1013),
+ (DllName: 'python313.dll'; RegVersion: '3.13'; APIVersion: 1013)
);
{$endif}
-{$ifdef linux}
- PYTHON_KNOWN_VERSIONS: array[1..7] of TPythonVersionProp =
+{$ifdef _so_files}
+ PYTHON_KNOWN_VERSIONS: array[1..9] of TPythonVersionProp =
(
- (DllName: 'libpython2.6.so'; RegVersion: '2.6'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython2.7.so'; RegVersion: '2.7'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.0.so'; RegVersion: '3.0'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.1.so'; RegVersion: '3.1'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.2.so'; RegVersion: '3.2'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.3.so'; RegVersion: '3.3'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.4.so'; RegVersion: '3.4'; APIVersion: 1013; CanUseLatest: True)
+ (DllName: 'libpython3.5m.so'; RegVersion: '3.5'; APIVersion: 1013),
+ (DllName: 'libpython3.6m.so'; RegVersion: '3.6'; APIVersion: 1013),
+ (DllName: 'libpython3.7m.so'; RegVersion: '3.7'; APIVersion: 1013),
+ (DllName: 'libpython3.8.so'; RegVersion: '3.8'; APIVersion: 1013),
+ (DllName: 'libpython3.9.so'; RegVersion: '3.9'; APIVersion: 1013),
+ (DllName: 'libpython3.10.so'; RegVersion: '3.10'; APIVersion: 1013),
+ (DllName: 'libpython3.11.so'; RegVersion: '3.11'; APIVersion: 1013),
+ (DllName: 'libpython3.12.so'; RegVersion: '3.12'; APIVersion: 1013),
+ (DllName: 'libpython3.13.so'; RegVersion: '3.13'; APIVersion: 1013)
);
{$endif}
{$ifdef darwin}
- PYTHON_KNOWN_VERSIONS: array[1..7] of TPythonVersionProp =
+ PYTHON_KNOWN_VERSIONS: array[1..6] of TPythonVersionProp =
(
- (DllName: 'libpython2.6.dylib'; RegVersion: '2.6'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython2.7.dylib'; RegVersion: '2.7'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.0.dylib'; RegVersion: '3.0'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.1.dylib'; RegVersion: '3.1'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.2.dylib'; RegVersion: '3.2'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.3.dylib'; RegVersion: '3.3'; APIVersion: 1013; CanUseLatest: True),
- (DllName: 'libpython3.4.dylib'; RegVersion: '3.4'; APIVersion: 1013; CanUseLatest: True)
+ (DllName: 'libpython3.8.dylib'; RegVersion: '3.8'; APIVersion: 1013),
+ (DllName: 'libpython3.9.dylib'; RegVersion: '3.9'; APIVersion: 1013),
+ (DllName: 'libpython3.10.dylib'; RegVersion: '3.10'; APIVersion: 1013),
+ (DllName: 'libpython3.11.dylib'; RegVersion: '3.11'; APIVersion: 1013),
+ (DllName: 'libpython3.12.dylib'; RegVersion: '3.12'; APIVersion: 1013),
+ (DllName: 'libpython3.13.dylib'; RegVersion: '3.13'; APIVersion: 1013)
);
{$endif}
@@ -172,6 +155,8 @@ interface
METH_VARARGS = $0001;
METH_KEYWORDS = $0002;
+ METH_CLASS = $0010;
+ METH_STATIC = $0020;
// Masks for the co_flags field of PyCodeObject
CO_OPTIMIZED = $0001;
@@ -186,23 +171,54 @@ interface
Py_NE = 3;
Py_GT = 4;
Py_GE = 5;
+
+ {$IFDEF CPUARM}
+ DEFAULT_CALLBACK_TYPE: TCallType = TCallType.ctARMSTD;
+ {$ELSE}
+ DEFAULT_CALLBACK_TYPE: TCallType = TCallType.ctCDECL;
+ {$ENDIF CPUARM}
+
type
// Delphi equivalent used by TPyObject
TRichComparisonOpcode = (pyLT, pyLE, pyEQ, pyNE, pyGT, pyGE);
+
+
+// C long is 8 bytes in non-Windows 64-bit operating systems
+// Same Delphi's LongInt but not fpc LongInt which is always 4 bytes
+// Hence the following
+{$IFDEF MSWINDOWS}
+ C_Long = Integer;
+ C_ULong = Cardinal;
+{$ELSE}
+ C_Long = NativeInt;
+ C_ULong = NativeUInt;
+{$ENDIF}
+
+// wchar_t is 4 bytes on Linux/OS X/Android but 2 bytes on Windows
+{$IFDEF POSIX}
+ PWCharT = PUCS4Char;
+ PPWCharT = ^PUCS4Char;
+ WCharTString = UCS4String;
+{$ELSE}
+ PWCharT = PWideChar;
+ PPWCharT = PPWideChar;
+ WCharTString = UnicodeString;
+{$ENDIF}
+
const
-{Type flags (tp_flags) introduced in version 2.0
+{
+Type flags (tp_flags)
-These flags are used to extend the type structure in a backwards-compatible
-fashion. Extensions can use the flags to indicate (and test) when a given
-type structure contains a new feature. The Python core will use these when
-introducing new functionality between major revisions (to avoid mid-version
-changes in the PYTHON_API_VERSION).
+These flags are used to change expected features and behavior for a
+particular type.
Arbitration of the flag bit positions will need to be coordinated among
-all extension writers who publically release their extensions (this will
-be fewer than you might expect!)..
+all extension writers who publicly release their extensions (this will
+be fewer than you might expect!).
-Python 1.5.2 introduced the bf_getcharbuffer slot into PyBufferProcs.
+Most flags were removed as of Python 3.0 to make room for new flags. (Some
+flags are not for backwards compatibility but to indicate the presence of an
+optional feature; these flags remain of course.)
Type definitions should use Py_TPFLAGS_DEFAULT for their tp_flags value.
@@ -210,140 +226,80 @@ interface
given type object has a specified feature.
}
-// PyBufferProcs contains bf_getcharbuffer
- Py_TPFLAGS_HAVE_GETCHARBUFFER = (1 shl 0);
-
-// PySequenceMethods contains sq_contains
- Py_TPFLAGS_HAVE_SEQUENCE_IN = (1 shl 1);
-
-// Objects which participate in garbage collection (see objimp.h)
- Py_TPFLAGS_GC = (1 shl 2);
-
-// PySequenceMethods and PyNumberMethods contain in-place operators
- Py_TPFLAGS_HAVE_INPLACEOPS = (1 shl 3);
-
-// PyNumberMethods do their own coercion */
- Py_TPFLAGS_CHECKTYPES = (1 shl 4);
+// Set if the type object is dynamically allocated
+ Py_TPFLAGS_HEAPTYPE = (C_ULong(1) shl 9);
- Py_TPFLAGS_HAVE_RICHCOMPARE = (1 shl 5);
+// Set if the type allows subclassing
+ Py_TPFLAGS_BASETYPE = (C_ULong(1) shl 10);
-// Objects which are weakly referencable if their tp_weaklistoffset is >0
-// XXX Should this have the same value as Py_TPFLAGS_HAVE_RICHCOMPARE?
-// These both indicate a feature that appeared in the same alpha release.
+// Set if the type is 'ready' -- fully initialized
+ Py_TPFLAGS_READY = (C_ULong(1) shl 12);
- Py_TPFLAGS_HAVE_WEAKREFS = (1 shl 6);
+// Set while the type is being 'readied', to prevent recursive ready calls
+ Py_TPFLAGS_READYING = (C_ULong(1) shl 13);
-// tp_iter is defined
- Py_TPFLAGS_HAVE_ITER = (1 shl 7);
+// Objects support garbage collection (see objimp.h)
+ Py_TPFLAGS_HAVE_GC = (C_ULong(1) shl 14);
-// New members introduced by Python 2.2 exist
- Py_TPFLAGS_HAVE_CLASS = (1 shl 8);
+// Set if the type implements the vectorcall protocol (PEP 590) */
+ _Py_TPFLAGS_HAVE_VECTORCALL = (C_ULong(1) shl 11);
-// Set if the type object is dynamically allocated
- Py_TPFLAGS_HEAPTYPE = (1 shl 9);
+// Objects behave like an unbound method
+ Py_TPFLAGS_METHOD_DESCRIPTOR = (C_ULong(1) shl 17);
-// Set if the type allows subclassing
- Py_TPFLAGS_BASETYPE = (1 shl 10);
+// Objects support type attribute cache
+ Py_TPFLAGS_HAVE_VERSION_TAG = (C_ULong(1) shl 18);
+ Py_TPFLAGS_VALID_VERSION_TAG = (C_ULong(1) shl 19);
-// Set if the type is 'ready' -- fully initialized
- Py_TPFLAGS_READY = (1 shl 12);
+// Type is abstract and cannot be instantiated
+ Py_TPFLAGS_IS_ABSTRACT = (C_ULong(1) shl 20);
-// Set while the type is being 'readied', to prevent recursive ready calls
- Py_TPFLAGS_READYING = (1 shl 13);
+// These flags are used to determine if a type is a subclass.
+ Py_TPFLAGS_LONG_SUBCLASS = (C_ULong(1) shl 24);
+ Py_TPFLAGS_LIST_SUBCLASS = (C_ULong(1) shl 25);
+ Py_TPFLAGS_TUPLE_SUBCLASS = (C_ULong(1) shl 26);
+ Py_TPFLAGS_BYTES_SUBCLASS = (C_ULong(1) shl 27);
+ Py_TPFLAGS_UNICODE_SUBCLASS = (C_ULong(1) shl 28);
+ Py_TPFLAGS_DICT_SUBCLASS = (C_ULong(1) shl 29);
+ Py_TPFLAGS_BASE_EXC_SUBCLASS = (C_ULong(1) shl 30);
+ Py_TPFLAGS_TYPE_SUBCLASS = (C_ULong(1) shl 31);
-// Objects support garbage collection (see objimp.h)
- Py_TPFLAGS_HAVE_GC = (1 shl 14);
-
- Py_TPFLAGS_DEFAULT = Py_TPFLAGS_HAVE_GETCHARBUFFER
- or Py_TPFLAGS_HAVE_SEQUENCE_IN
- or Py_TPFLAGS_HAVE_INPLACEOPS
- or Py_TPFLAGS_HAVE_RICHCOMPARE
- or Py_TPFLAGS_HAVE_WEAKREFS
- or Py_TPFLAGS_HAVE_ITER
- or Py_TPFLAGS_HAVE_CLASS
- or Py_TPFLAGS_BASETYPE
- ;
+ Py_TPFLAGS_DEFAULT = Py_TPFLAGS_BASETYPE or Py_TPFLAGS_HAVE_VERSION_TAG;
// See function PyType_HasFeature below for testing the flags.
// Delphi equivalent used by TPythonType
type
- TPFlag = (tpfHaveGetCharBuffer, tpfHaveSequenceIn, tpfGC, tpfHaveInplaceOps,
- tpfCheckTypes, tpfHaveRichCompare, tpfHaveWeakRefs
- ,tpfHaveIter, tpfHaveClass, tpfHeapType, tpfBaseType, tpfReady, tpfReadying, tpfHaveGC
- );
+ TPFlag = (tpfHeapType, tpfBaseType, tpfReady, tpfReadying, tpfHaveGC,
+ tpVectorCall, tpMethodDescriptor, tpHaveVersionTag,
+ tpValidVersionTag, tpIsAbstract, tpLongSubclass,
+ tpListSubClass, tpTupleSubclass, tpBytesSubclass,
+ tpBaseExcSubclass, tpTypeSubclass);
TPFlags = set of TPFlag;
const
- TPFLAGS_DEFAULT = [tpfHaveGetCharBuffer, tpfHaveSequenceIn, tpfHaveInplaceOps,
- tpfHaveRichCompare, tpfHaveWeakRefs, tpfHaveIter,
- tpfHaveClass, tpfBaseType
- ];
+ TPFLAGS_DEFAULT = [tpfBaseType, tpHaveVersionTag];
+
//------- Python opcodes ----------//
-Const
+const
single_input = 256;
file_input = 257;
eval_input = 258;
- p4d_funcdef = 259;
- p4d_parameters = 260;
- p4d_varargslist = 261;
- p4d_fpdef = 262;
- p4d_fplist = 263;
- p4d_stmt = 264;
- p4d_simple_stmt = 265;
- p4d_small_stmt = 266;
- p4d_expr_stmt = 267;
- p4d_augassign = 268;
- p4d_print_stmt = 269;
- p4d_del_stmt = 270;
- p4d_pass_stmt = 271;
- p4d_flow_stmt = 272;
- p4d_break_stmt = 273;
- p4d_continue_stmt = 274;
- p4d_return_stmt = 275;
- p4d_raise_stmt = 276;
- p4d_import_stmt = 277;
- p4d_import_as_name = 278;
- p4d_dotted_as_name = 279;
- p4d_dotted_name = 280;
- p4d_global_stmt = 281;
- p4d_exec_stmt = 282;
- p4d_assert_stmt = 283;
- p4d_compound_stmt = 284;
- p4d_if_stmt = 285;
- p4d_while_stmt = 286;
- p4d_for_stmt = 287;
- p4d_try_stmt = 288;
- p4d_except_clause = 289;
- p4d_suite = 290;
- p4d_test = 291;
- p4d_and_test = 291;
- p4d_not_test = 293;
- p4d_comparison = 294;
- p4d_comp_op = 295;
- p4d_expr = 296;
- p4d_xor_expr = 297;
- p4d_and_expr = 298;
- p4d_shift_expr = 299;
- p4d_arith_expr = 300;
- p4d_term = 301;
- p4d_factor = 302;
- p4d_power = 303;
- p4d_atom = 304;
- p4d_listmaker = 305;
- p4d_lambdef = 306;
- p4d_trailer = 307;
- p4d_subscriptlist = 308;
- p4d_subscript = 309;
- p4d_sliceop = 310;
- p4d_exprlist = 311;
- p4d_testlist = 312;
- p4d_dictmaker = 313;
- p4d_classdef = 314;
- p4d_arglist = 315;
- p4d_argument = 316;
- p4d_list_iter = 317;
- p4d_list_for = 318;
- p4d_list_if = 319;
+
+ // UnicodeObject.h
+ const
+ // Return values of the PyUnicode_KIND() macro
+
+ {
+ PyUnicode_WCHAR_KIND is deprecated. Will be removed in Python 12.
+ String contains only wstr byte characters. This is only possible
+ when the string was created with a legacy API and _PyUnicode_Ready()
+ has not been called yet.
+ }
+ PyUnicode_WCHAR_KIND = 0;
+
+ PyUnicode_1BYTE_KIND = 1;
+ PyUnicode_2BYTE_KIND = 2;
+ PyUnicode_4BYTE_KIND = 4;
// structmember.h
const
@@ -390,14 +346,11 @@ interface
//#######################################################
const
- ErrInit = -300;
CR = #13;
LF = #10;
TAB = #09;
CRLF = CR+LF;
-
-
//#######################################################
//## ##
//## Global declarations, nothing Python specific ##
@@ -428,7 +381,6 @@ interface
PPyObject = ^PyObject;
PPPyObject = ^PPyObject;
PPPPyObject = ^PPPyObject;
- PPyIntObject = ^PyIntObject;
PPyTypeObject = ^PyTypeObject;
PPySliceObject = ^PySliceObject;
@@ -443,30 +395,18 @@ interface
lenfunc = function( ob1 : PPyObject): NativeInt; cdecl;
coercion = function( ob1,ob2 : PPPyObject): integer; cdecl;
ssizeargfunc = function( ob1 : PPyObject; i: NativeInt): PPyObject; cdecl;
- ssizessizeargfunc = function( ob1 : PPyObject; i1, i2: NativeInt):
- PPyObject; cdecl;
ssizeobjargproc = function( ob1 : PPyObject; i: NativeInt; ob2 : PPyObject):
integer; cdecl;
- ssizessizeobjargproc = function( ob1: PPyObject; i1, i2: NativeInt;
- ob2: PPyObject): integer; cdecl;
objobjargproc = function( ob1,ob2,ob3 : PPyObject): integer; cdecl;
pydestructor = procedure(ob: PPyObject); cdecl;
- printfunc = function( ob: PPyObject; var f: file; i: integer): integer; cdecl;
getattrfunc = function( ob1: PPyObject; name: PAnsiChar): PPyObject; cdecl;
setattrfunc = function( ob1: PPyObject; name: PAnsiChar; ob2: PPyObject): integer; cdecl;
- cmpfunc = function( ob1,ob2: PPyObject): integer; cdecl;
reprfunc = function( ob: PPyObject): PPyObject; cdecl;
hashfunc = function( ob: PPyObject): NativeInt; cdecl; // !! in 2.x it is still a LongInt
getattrofunc = function( ob1,ob2: PPyObject): PPyObject; cdecl;
setattrofunc = function( ob1,ob2,ob3: PPyObject): integer; cdecl;
-/// jah 29-sep-2000 : updated for python 2.0
-/// added from object.h
- getreadbufferproc = function ( ob1: PPyObject; i: NativeInt; ptr: Pointer): NativeInt; cdecl;
- getwritebufferproc= function ( ob1: PPyObject; i: NativeInt; ptr: Pointer): NativeInt; cdecl;
- getsegcountproc = function ( ob1: PPyObject; i: NativeInt): NativeInt; cdecl;
- getcharbufferproc = function ( ob1: PPyObject; i: NativeInt; const pstr: PAnsiChar): NativeInt; cdecl;
objobjproc = function ( ob1, ob2: PPyObject): integer; cdecl;
visitproc = function ( ob1: PPyObject; ptr: Pointer): integer; cdecl;
traverseproc = function ( ob1: PPyObject; proc: visitproc; ptr: Pointer): integer; cdecl;
@@ -482,35 +422,27 @@ interface
PyNumberMethods = {$IFNDEF CPUX64}packed{$ENDIF} record
nb_add : binaryfunc;
- nb_substract : binaryfunc;
+ nb_subtract : binaryfunc;
nb_multiply : binaryfunc;
- nb_divide : binaryfunc;
nb_remainder : binaryfunc;
nb_divmod : binaryfunc;
nb_power : ternaryfunc;
nb_negative : unaryfunc;
nb_positive : unaryfunc;
nb_absolute : unaryfunc;
- nb_nonzero : inquiry;
+ nb_bool : inquiry;
nb_invert : unaryfunc;
nb_lshift : binaryfunc;
nb_rshift : binaryfunc;
nb_and : binaryfunc;
nb_xor : binaryfunc;
nb_or : binaryfunc;
- nb_coerce : coercion;
nb_int : unaryfunc;
- nb_long : unaryfunc;
+ nb_reserved : Pointer; // not used
nb_float : unaryfunc;
- nb_oct : unaryfunc;
- nb_hex : unaryfunc;
-
-/// jah 29-sep-2000 : updated for python 2.0
-/// added from .h
nb_inplace_add : binaryfunc;
nb_inplace_subtract : binaryfunc;
nb_inplace_multiply : binaryfunc;
- nb_inplace_divide : binaryfunc;
nb_inplace_remainder : binaryfunc;
nb_inplace_power : ternaryfunc;
nb_inplace_lshift : binaryfunc;
@@ -518,13 +450,13 @@ interface
nb_inplace_and : binaryfunc;
nb_inplace_xor : binaryfunc;
nb_inplace_or : binaryfunc;
-
- // Added in release 2.2
- // The following require the Py_TPFLAGS_HAVE_CLASS flag
nb_floor_divide : binaryfunc;
nb_true_divide : binaryfunc;
nb_inplace_floor_divide : binaryfunc;
nb_inplace_true_divide : binaryfunc;
+ nb_index : unaryfunc;
+ nb_matrix_multiply : binaryfunc; // new in python 3.5
+ nb_inplace_matrix_multiply : binaryfunc; // new in python 3.5
end;
PPyNumberMethods = ^PyNumberMethods;
@@ -533,15 +465,12 @@ interface
sq_concat : binaryfunc;
sq_repeat : ssizeargfunc;
sq_item : ssizeargfunc;
- sq_slice : ssizessizeargfunc;
+ was_sq_slice : Pointer; // empty slot in python 3.x
sq_ass_item : ssizeobjargproc;
- sq_ass_slice : ssizessizeobjargproc;
-
-/// jah 29-sep-2000 : updated for python 2.0
-/// added from .h
- sq_contains : objobjproc;
- sq_inplace_concat : binaryfunc;
- sq_inplace_repeat : ssizeargfunc;
+ was_sq_ass_slice : Pointer; // empty slot in python 3.x
+ sq_contains : objobjproc;
+ sq_inplace_concat : binaryfunc;
+ sq_inplace_repeat : ssizeargfunc;
end;
PPySequenceMethods = ^PySequenceMethods;
@@ -552,16 +481,6 @@ interface
end;
PPyMappingMethods = ^PyMappingMethods;
-/// jah 29-sep-2000 : updated for python 2.0
-/// added from .h
- PyBufferProcs = {$IFNDEF CPUX64}packed{$ENDIF} record
- bf_getreadbuffer : getreadbufferproc;
- bf_getwritebuffer : getwritebufferproc;
- bf_getsegcount : getsegcountproc;
- bf_getcharbuffer : getcharbufferproc;
- end;
- PPyBufferProcs = ^PyBufferProcs;
-
Py_complex = {$IFNDEF CPUX64}packed{$ENDIF} record
real : double;
imag : double;
@@ -572,12 +491,6 @@ interface
ob_type: PPyTypeObject;
end;
- PyIntObject = {$IFNDEF CPUX64}packed{$ENDIF} record
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- ob_ival : LongInt;
- end;
-
_frozen = {$IFNDEF CPUX64}packed{$ENDIF} record
name : PAnsiChar;
code : PByte;
@@ -728,23 +641,22 @@ interface
m_free : inquiry;
end;
-
// object.h
PyTypeObject = {$IFNDEF CPUX64}packed{$ENDIF} record
ob_refcnt: NativeInt;
ob_type: PPyTypeObject;
ob_size: NativeInt; // Number of items in variable part
- tp_name: PAnsiChar; // For printing
+ tp_name: PAnsiChar; // For printing
tp_basicsize, tp_itemsize: NativeInt; // For allocation
// Methods to implement standard operations
- tp_dealloc: pydestructor;
- tp_print: printfunc;
- tp_getattr: getattrfunc;
- tp_setattr: setattrfunc;
- tp_compare: cmpfunc;
- tp_repr: reprfunc;
+ tp_dealloc: pydestructor;
+ tp_vectorcall_offset: NativeInt;
+ tp_getattr: getattrfunc;
+ tp_setattr: setattrfunc;
+ tp_as_async: Pointer; // not implemented
+ tp_repr: reprfunc;
// Method suites for standard classes
@@ -760,12 +672,10 @@ interface
tp_getattro: getattrofunc;
tp_setattro: setattrofunc;
-/// jah 29-sep-2000 : updated for python 2.0
-
// Functions to access object as input/output buffer
- tp_as_buffer: PPyBufferProcs;
+ tp_as_buffer: Pointer; // PPyBufferProcs - not implemented
// Flags to define presence of optional/expanded features
- tp_flags: LongInt;
+ tp_flags: C_ULong;
tp_doc: PAnsiChar; // Documentation string
@@ -803,181 +713,29 @@ interface
tp_cache : PPyObject;
tp_subclasses : PPyObject;
tp_weaklist : PPyObject;
+ tp_del : PyDestructor;
+ tp_version_tag : Cardinal; // Type attribute cache version tag. Added in version 2.6
+ tp_finalize : PyDestructor;
+ tp_vectorcall : Pointer; // not implemented
//More spares
+ tp_xxx1 : NativeInt;
+ tp_xxx2 : NativeInt;
+ tp_xxx3 : NativeInt;
+ tp_xxx4 : NativeInt;
+ tp_xxx5 : NativeInt;
+ tp_xxx6 : NativeInt;
tp_xxx7 : NativeInt;
- tp_xxx8 : LongInt;
- end;
-
- PPyMethodChain = ^PyMethodChain;
- PyMethodChain = {$IFNDEF CPUX64}packed{$ENDIF} record
- methods: PPyMethodDef;
- link: PPyMethodChain;
- end;
-
- PPyClassObject = ^PyClassObject;
- PyClassObject = {$IFNDEF CPUX64}packed{$ENDIF} record
- // Start of the Head of an object
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- // End of the Head of an object
- cl_bases : PPyObject; // A tuple of class objects
- cl_dict : PPyObject; // A dictionary
- cl_name : PPyObject; // A string
- // The following three are functions or NULL
- cl_getattr : PPyObject;
- cl_setattr : PPyObject;
- cl_delattr : PPyObject;
+ tp_xxx8 : NativeInt;
+ tp_xxx9 : NativeInt;
+ tp_xxx10 : NativeInt;
end;
- PPyInstanceObject = ^PyInstanceObject;
- PyInstanceObject = {$IFNDEF CPUX64}packed{$ENDIF} record
- // Start of the Head of an object
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- // End of the Head of an object
- in_class : PPyClassObject; // The class object
- in_dict : PPyObject; // A dictionary
- end;
-
-{ Instance method objects are used for two purposes:
- (a) as bound instance methods (returned by instancename.methodname)
- (b) as unbound methods (returned by ClassName.methodname)
- In case (b), im_self is NULL
-}
-
- PPyMethodObject = ^PyMethodObject;
- PyMethodObject = {$IFNDEF CPUX64}packed{$ENDIF} record
- // Start of the Head of an object
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- // End of the Head of an object
- im_func : PPyObject; // The function implementing the method
- im_self : PPyObject; // The instance it is bound to, or NULL
- im_class : PPyObject; // The class that defined the method
- end;
-
-
- // Bytecode object, compile.h
- PPyCodeObject = ^PyCodeObject;
- PyCodeObject = {$IFNDEF CPUX64}packed{$ENDIF} record
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- co_argcount : Integer; // #arguments, except *args
- co_nlocals : Integer; // #local variables
- co_stacksize : Integer; // #entries needed for evaluation stack
- co_flags : Integer; // CO_..., see below
- co_code : PPyObject; // instruction opcodes (it hides a PyStringObject)
- co_consts : PPyObject; // list (constants used)
- co_names : PPyObject; // list of strings (names used)
- co_varnames : PPyObject; // tuple of strings (local variable names)
- co_freevars : PPyObject; // tuple of strings (free variable names)
- co_cellvars : PPyObject; // tuple of strings (cell variable names)
- // The rest doesn't count for hash/cmp
- co_filename : PPyObject; // string (where it was loaded from)
- co_name : PPyObject; // string (name, for reference)
- co_firstlineno : Integer; // first source line number
- co_lnotab : PPyObject; // string (encoding addr<->lineno mapping)
- end;
-
-
// from pystate.h
- PPyInterpreterState = ^PyInterpreterState;
- PPyThreadState = ^PyThreadState;
- PPyFrameObject = ^PyFrameObject;
-
- // Interpreter environments
- PyInterpreterState = {$IFNDEF CPUX64}packed{$ENDIF} record
- next : PPyInterpreterState;
- tstate_head : PPyThreadState;
-
- modules : PPyObject;
- sysdict : PPyObject;
- builtins : PPyObject;
-
- checkinterval : integer;
- end;
-
- // Thread specific information
- PyThreadState = {$IFNDEF CPUX64}packed{$ENDIF} record
- next : PPyThreadState;
- interp : PPyInterpreterState;
-
- frame : PPyFrameObject;
- recursion_depth: integer;
- ticker : integer;
- tracing : integer;
-
- sys_profilefn : Pointer; // c-functions for profile/trace
- sys_tracefn : Pointer;
- sys_profilefunc: PPyObject;
- sys_tracefunc : PPyObject;
-
- curexc_type : PPyObject;
- curexc_value : PPyObject;
- curexc_traceback: PPyObject;
-
- exc_type : PPyObject;
- exc_value : PPyObject;
- exc_traceback : PPyObject;
-
- dict : PPyObject;
- tick_counter :Integer;
- gilstate_counter :Integer;
-
- async_exc :PPyObject; { Asynchronous exception to raise }
- thread_id :LongInt; { Thread id where this tstate was created }
-
- { XXX signal handlers should also be here }
- end;
-
- // from frameobject.h
-
- PPyTryBlock = ^PyTryBlock;
- PyTryBlock = {$IFNDEF CPUX64}packed{$ENDIF} record
- b_type : Integer; // what kind of block this is
- b_handler : Integer; // where to jump to find handler
- b_level : Integer; // value stack level to pop to
- end;
-
- CO_MAXBLOCKS = 0..19;
- PyFrameObject = {$IFNDEF CPUX64}packed{$ENDIF} record
- // Start of the VAR_HEAD of an object.
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- ob_size : NativeInt; // Number of items in variable part
- // End of the Head of an object
- f_back : PPyFrameObject; // previous frame, or NULL
- f_code : PPyCodeObject; // code segment
- f_builtins : PPyObject; // builtin symbol table (PyDictObject)
- f_globals : PPyObject; // global symbol table (PyDictObject)
- f_locals : PPyObject; // local symbol table (PyDictObject)
- f_valuestack : PPPyObject; // points after the last local
- (* Next free slot in f_valuestack. Frame creation sets to f_valuestack.
- Frame evaluation usually NULLs it, but a frame that yields sets it
- to the current stack top. *)
- f_stacktop : PPPyObject;
- f_trace : PPyObject; // Trace function
- f_exc_type, f_exc_value, f_exc_traceback: PPyObject;
- f_tstate : PPyThreadState;
- f_lasti : Integer; // Last instruction if called
- f_lineno : Integer; // Current line number
- f_iblock : Integer; // index in f_blockstack
- f_blockstack : array[CO_MAXBLOCKS] of PyTryBlock; // for try and loop blocks
- f_localsplus : array[0..0] of PPyObject; // locals+stack, dynamically sized
- end;
-
- // From traceback.c
- PPyTraceBackObject = ^PyTraceBackObject;
- PyTraceBackObject = {$IFNDEF CPUX64}packed{$ENDIF} record
- // Start of the Head of an object
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- // End of the Head of an object
- tb_next : PPyTraceBackObject;
- tb_frame : PPyFrameObject;
- tb_lasti : Integer;
- tb_lineno : Integer;
- end;
+ // the structure of PyInterpreterState and PyThreadState is considered
+ // an implementation detail. It has been changing between python versions
+ // and there is no real use of accessing these structures directly.
+ PPyInterpreterState = Pointer;
+ PPyThreadState = Pointer;
// Parse tree node interface
@@ -991,21 +749,15 @@ interface
n_child : PNode;
end;
- // From weakrefobject.h
-
- PPyWeakReference = ^PyWeakReference;
- PyWeakReference = {$IFNDEF CPUX64}packed{$ENDIF} record
- // Start of the Head of an object
- ob_refcnt : NativeInt;
- ob_type : PPyTypeObject;
- // End of the Head of an object
- wr_object : PPyObject;
- wr_callback : PPyObject;
- hash : NativeInt;
- wr_prev : PPyWeakReference;
- wr_next : PPyWeakReference;
+ PPyCompilerFlags = ^PyCompilerFlags;
+ PyCompilerFlags = {$IFNDEF CPUX64}packed{$ENDIF} record
+ flags : integer;
+ cf_feature_version : integer; //added in Python 3.8
end;
+ const
+ PyCF_ONLY_AST = $0400;
+
// from datetime.h
@@ -1038,7 +790,7 @@ interface
ob_refcnt : NativeInt;
ob_type : PPyTypeObject;
// End of the Head of an object
- hashcode : Integer; // -1 when unknown
+ hashcode : NativeInt; // -1 when unknown
days : Integer; // -MAX_DELTA_DAYS <= days <= MAX_DELTA_DAYS
seconds : Integer; // 0 <= seconds < 24*3600 is invariant
microseconds: Integer; // 0 <= microseconds < 1000000 is invariant
@@ -1301,10 +1053,12 @@ EPyRuntimeError = class (EPyStandardError);
EPyNotImplementedError = class (EPyRuntimeError);
EPySyntaxError = class (EPyStandardError)
public
- EFileName: string;
- ELineStr: string;
+ EFileName: UnicodeString;
+ ELineStr: UnicodeString;
ELineNumber: Integer;
EOffset: Integer;
+ EEndLineNumber: Integer;
+ EEndOffset: Integer;
end;
EPyIndentationError = class (EPySyntaxError);
EPyTabError = class (EPyIndentationError);
@@ -1355,7 +1109,7 @@ EPyWindowsError = class (EPyOSError);
TReceiveUniDataEvent = procedure (Sender: TObject; var Data : UnicodeString ) of object;
IOChar = WideChar;
IOString = UnicodeString;
- TIOStringList = TUnicodeStringList;
+ TIOStringList = TStringList;
{$IF not Defined(FPC) and (CompilerVersion >= 23)}
[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
@@ -1482,35 +1236,29 @@ TDynamicDll = class(TComponent)
//-------------------------------------------------------
type
+ (*$HPPEMIT 'typedef int __cdecl (*TPyArg_Parse)(void * args, char * format, ...);' *)
+ TPyArg_Parse = function( args: PPyObject; format: PAnsiChar {;....}) : Integer; cdecl varargs;
+ {$EXTERNALSYM TPyArg_Parse}
- { TPythonInterface }
+ (*$HPPEMIT 'typedef int __cdecl (*TPyArg_ParseTupleAndKeywords)(void * args, void * kw, char * format, char** kwargs, ...);' *)
+ TPyArg_ParseTupleAndKeywords = function( args: PPyObject; kw: PPyObject; format: PAnsiChar; kwargs: PPAnsiChar {;...}): Integer; cdecl varargs;
+ {$EXTERNALSYM TPyArg_ParseTupleAndKeywords}
- TPythonInterface=class(TDynamicDll)
- private
- DLL_Py_GetBuildInfo:
- function : PAnsiChar; cdecl;
- DLL_PyCode_Addr2Line:
- function ( co: PPyCodeObject; addrq : Integer ) : Integer; cdecl;
- DLL_PyImport_ExecCodeModule:
- function ( const name : AnsiString; codeobject : PPyObject) : PPyObject; cdecl;
-
- DLL_PyString_FromString: function( str: PAnsiChar): PPyObject; cdecl;
- DLL_Py_FlushLine:procedure; cdecl;
- procedure DetectPythonVersionFromLibName(const Str: string);
+ (*$HPPEMIT 'typedef int __cdecl (*TPy_BuildValue)(char * format, ...);' *)
+ TPy_BuildValue = function( format: PAnsiChar {;...}): Pointer; cdecl varargs;
+ {$EXTERNALSYM TPy_BuildValue}
+ TPythonInterface=class(TDynamicDll)
protected
FInitialized: Boolean;
FFinalizing: Boolean;
- FIsPython3000: Boolean;
FMajorVersion: integer;
FMinorVersion: integer;
FBuiltInModuleName: String;
- function GetInitialized: Boolean;
procedure AfterLoad; override;
function GetQuitMessage : String; override;
procedure CheckPython;
- function GetUnicodeTypeSuffix : String;
public
// define Python flags. See file pyDebug.h
@@ -1519,21 +1267,15 @@ TPythonInterface=class(TDynamicDll)
Py_InteractiveFlag: PInt;
Py_OptimizeFlag: PInt;
Py_NoSiteFlag: PInt;
- Py_UseClassExceptionsFlag: PInt;
Py_FrozenFlag: PInt;
- Py_TabcheckFlag: PInt;
- Py_UnicodeFlag: PInt;
Py_IgnoreEnvironmentFlag: PInt;
- Py_DivisionWarningFlag: PInt;
- //_PySys_TraceFunc: PPPyObject;
- //_PySys_ProfileFunc: PPPPyObject;
PyImport_FrozenModules: PP_frozen;
Py_None: PPyObject;
Py_Ellipsis: PPyObject;
- Py_False: PPyIntObject;
- Py_True: PPyIntObject;
+ Py_False: PPyObject;
+ Py_True: PPyObject;
Py_NotImplemented: PPyObject;
PyExc_AttributeError: PPPyObject;
@@ -1557,11 +1299,9 @@ TPythonInterface=class(TDynamicDll)
PyExc_Exception: PPPyObject;
PyExc_FloatingPointError: PPPyObject;
PyExc_LookupError: PPPyObject;
- PyExc_StandardError: PPPyObject;
PyExc_AssertionError: PPPyObject;
PyExc_EnvironmentError: PPPyObject;
PyExc_IndentationError: PPPyObject;
- PyExc_MemoryErrorInst: PPPyObject;
PyExc_NotImplementedError: PPPyObject;
PyExc_OSError: PPPyObject;
PyExc_TabError: PPPyObject;
@@ -1583,19 +1323,14 @@ TPythonInterface=class(TDynamicDll)
PyExc_UnicodeEncodeError: PPPyObject;
PyExc_UnicodeTranslateError: PPPyObject;
+ PyCode_Type: PPyTypeObject;
PyType_Type: PPyTypeObject;
PyCFunction_Type: PPyTypeObject;
- PyCObject_Type: PPyTypeObject;
- PyClass_Type: PPyTypeObject;
- PyCode_Type: PPyTypeObject;
PyComplex_Type: PPyTypeObject;
PyDict_Type: PPyTypeObject;
- PyFile_Type: PPyTypeObject;
PyFloat_Type: PPyTypeObject;
PyFrame_Type: PPyTypeObject;
PyFunction_Type: PPyTypeObject;
- PyInstance_Type: PPyTypeObject;
- PyInt_Type: PPyTypeObject;
PyList_Type: PPyTypeObject;
PyLong_Type: PPyTypeObject;
PyMethod_Type: PPyTypeObject;
@@ -1603,10 +1338,9 @@ TPythonInterface=class(TDynamicDll)
PyObject_Type: PPyTypeObject;
PyRange_Type: PPyTypeObject;
PySlice_Type: PPyTypeObject;
- PyString_Type: PPyTypeObject;
+ PyBytes_Type: PPyTypeObject;
PyTuple_Type: PPyTypeObject;
PyBaseObject_Type: PPyTypeObject;
- PyBuffer_Type: PPyTypeObject;
PyCallIter_Type: PPyTypeObject;
PyCell_Type: PPyTypeObject;
PyClassMethod_Type: PPyTypeObject;
@@ -1620,20 +1354,11 @@ TPythonInterface=class(TDynamicDll)
_PyWeakref_RefType: PPyTypeObject;
_PyWeakref_ProxyType: PPyTypeObject;
_PyWeakref_CallableProxyType: PPyTypeObject;
- PyBaseString_Type: PPyTypeObject;
PyBool_Type: PPyTypeObject;
PyEnum_Type: PPyTypeObject;
- //PyArg_GetObject: function(args : PPyObject; nargs, i: integer; p_a: PPPyObject): integer; cdecl;
- //PyArg_GetLong: function(args : PPyObject; nargs, i: integer; p_a: PLong): integer; cdecl;
- //PyArg_GetShort: function(args : PPyObject; nargs, i: integer; p_a: PShort): integer; cdecl;
- //PyArg_GetFloat: function(args : PPyObject; nargs, i: integer; p_a: PFloat): integer; cdecl;
- //PyArg_GetString: function(args : PPyObject; nargs, i: integer; p_a: PAnsiString): integer; cdecl;
- //PyArgs_VaParse: function (args : PPyObject; format: PAnsiChar; va_list: array of const): integer; cdecl;
- // Does not work!
- // Py_VaBuildValue: function (format: PAnsiChar; va_list: array of const): PPyObject; cdecl;
- //PyBuiltin_Init: procedure; cdecl;
-
+ Py_GetBuildInfo: function : PAnsiChar; cdecl;
+ PyImport_ExecCodeModule: function ( const name : AnsiString; codeobject : PPyObject) : PPyObject; cdecl;
PyComplex_FromCComplex: function(c: Py_complex):PPyObject; cdecl;
PyComplex_FromDoubles: function(realv,imag : double):PPyObject; cdecl;
PyComplex_RealAsDouble: function(op : PPyObject ): double; cdecl;
@@ -1642,19 +1367,13 @@ TPythonInterface=class(TDynamicDll)
PyCFunction_GetFunction: function(ob : PPyObject): Pointer; cdecl;
PyCFunction_GetSelf: function(ob : PPyObject): PPyObject; cdecl;
PyCallable_Check: function(ob : PPyObject): integer; cdecl;
- PyCObject_FromVoidPtr: function(cobj, destruct : Pointer): PPyObject; cdecl;
- PyCObject_AsVoidPtr: function(ob : PPyObject): Pointer; cdecl;
- PyClass_New: function (ob1,ob2,ob3 : PPyObject): PPyObject; cdecl;
- PyClass_IsSubclass: function (ob1, ob2 : PPyObject): integer cdecl;
- Py_InitModule4: function( name: PAnsiChar; methods: PPyMethodDef; doc: PAnsiChar;
- passthrough: PPyObject; Api_Version: Integer):PPyObject; cdecl;
PyModule_Create2: function(moduledef: PPyModuleDef; Api_Version: Integer):PPyObject; cdecl;
PyErr_BadArgument: function: integer; cdecl;
PyErr_BadInternalCall: procedure; cdecl;
PyErr_CheckSignals: function: integer; cdecl;
PyErr_Clear: procedure; cdecl;
- PyErr_Fetch: procedure( errtype, errvalue, errtraceback: PPPyObject); cdecl;
+ PyErr_Fetch: procedure(out errtype, errvalue, errtraceback: PPyObject); cdecl;
PyErr_NoMemory: function: PPyObject; cdecl;
PyErr_Occurred: function: PPyObject; cdecl;
PyErr_Print: procedure; cdecl;
@@ -1663,11 +1382,15 @@ TPythonInterface=class(TDynamicDll)
PyErr_SetNone: procedure(value: PPyObject); cdecl;
PyErr_SetObject: procedure (ob1, ob2 : PPyObject); cdecl;
PyErr_SetString: procedure( ErrorObject: PPyObject; text: PAnsiChar); cdecl;
+ PyErr_WarnEx: function (ob: PPyObject; text: PAnsiChar; stack_level: NativeInt): integer; cdecl;
+ PyErr_WarnExplicit: function (ob: PPyObject; text: PAnsiChar; filename: PAnsiChar; lineno: integer; module: PAnsiChar; registry: PPyObject): integer; cdecl;
PyImport_GetModuleDict: function: PPyObject; cdecl;
- PyInt_FromLong: function( x: LongInt):PPyObject; cdecl;
- PyArg_Parse: function( args: PPyObject; format: PAnsiChar {;....}) : Integer; cdecl varargs;
- PyArg_ParseTuple: function( args: PPyObject; format: PAnsiChar {;...}): Integer; cdecl varargs;
- Py_BuildValue: function( format: PAnsiChar {;...}): PPyObject; cdecl varargs;
+
+ PyArg_Parse: TPyArg_Parse;
+ PyArg_ParseTuple: TPyArg_Parse;
+ PyArg_ParseTupleAndKeywords: TPyArg_ParseTupleAndKeywords;
+ Py_BuildValue: TPy_BuildValue;
+
Py_Initialize: procedure; cdecl;
Py_Exit: procedure( RetVal: Integer); cdecl;
PyEval_GetBuiltins: function: PPyObject; cdecl;
@@ -1681,57 +1404,49 @@ TPythonInterface=class(TDynamicDll)
PyDict_Values: function(mp: PPyObject):PPyObject; cdecl;
PyDict_Items: function(mp: PPyObject):PPyObject; cdecl;
PyDict_Size: function(mp: PPyObject):NativeInt; cdecl;
+ PyDict_Update: function (a: PPyObject; b: PPyObject):Integer; cdecl;
PyDict_DelItemString: function(dp : PPyObject;key : PAnsiChar ):integer; cdecl;
PyDict_New: function: PPyObject; cdecl;
PyDict_GetItemString: function( dp: PPyObject; key: PAnsiChar): PPyObject; cdecl;
PyDict_SetItemString: function( dp: PPyObject; key: PAnsiChar; item: PPyObject):
Integer; cdecl;
- PyDictProxy_New: function (obj : PPyObject) : PPyObject; cdecl;
+ PyDictProxy_New: function (obj : PPyObject) : PPyObject; cdecl;
PyModule_GetDict: function( module:PPyObject): PPyObject; cdecl;
PyObject_Str: function( v: PPyObject): PPyObject; cdecl;
PyRun_String: function( str: PAnsiChar; start: Integer; globals: PPyObject;
locals: PPyObject): PPyObject; cdecl;
PyRun_SimpleString: function( str: PAnsiChar): Integer; cdecl;
- PyString_AsString: function( ob: PPyObject): PAnsiChar; cdecl;
- PySys_SetArgv: procedure( argc: Integer; argv: PPAnsiChar); cdecl;
- PySys_SetArgv3000: procedure( argc: Integer; argv: PPWideChar); cdecl;
+ PyBytes_AsString: function( ob: PPyObject): PAnsiChar; cdecl;
+ PyBytes_AsStringAndSize: function( ob: PPyObject; var buffer: PAnsiChar; var size: NativeInt): integer; cdecl;
+ PySys_SetArgv: procedure( argc: Integer; argv: PPWCharT); cdecl;
- PyCFunction_New: function(md:PPyMethodDef;ob:PPyObject):PPyObject; cdecl;
+ PyCFunction_NewEx: function(md:PPyMethodDef;self, ob:PPyObject):PPyObject; cdecl;
// Removed. Use PyEval_CallObjectWithKeywords with third argument nil
// PyEval_CallObject: function(callable_obj, args:PPyObject):PPyObject; cdecl;
PyEval_CallObjectWithKeywords:function (callable_obj, args, kw:PPyObject):PPyObject; cdecl;
PyEval_GetFrame:function :PPyObject; cdecl;
PyEval_GetGlobals:function :PPyObject; cdecl;
PyEval_GetLocals:function :PPyObject; cdecl;
- //PyEval_GetOwner:function :PPyObject; cdecl;
- PyEval_GetRestricted:function :integer; cdecl;
PyEval_InitThreads:procedure; cdecl;
PyEval_RestoreThread:procedure( tstate: PPyThreadState); cdecl;
PyEval_SaveThread:function :PPyThreadState; cdecl;
- PyFile_FromString:function (pc1,pc2:PAnsiChar):PPyObject; cdecl;
PyFile_GetLine:function (ob:PPyObject;i:integer):PPyObject; cdecl;
- PyFile_Name:function (ob:PPyObject):PPyObject; cdecl;
- PyFile_SetBufSize:procedure(ob:PPyObject;i:integer); cdecl;
- PyFile_SoftSpace:function (ob:PPyObject;i:integer):integer; cdecl;
PyFile_WriteObject:function (ob1,ob2:PPyObject;i:integer):integer; cdecl;
PyFile_WriteString:procedure(s:PAnsiChar;ob:PPyObject); cdecl;
PyFloat_AsDouble:function (ob:PPyObject):DOUBLE; cdecl;
PyFloat_FromDouble:function (db:double):PPyObject; cdecl;
+ PyFloat_FromString:function (str:PPyObject):PPyObject; cdecl;
PyFunction_GetCode:function (ob:PPyObject):PPyObject; cdecl;
PyFunction_GetGlobals:function (ob:PPyObject):PPyObject; cdecl;
PyFunction_New:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyImport_AddModule:function (name:PAnsiChar):PPyObject; cdecl;
- PyImport_Cleanup:procedure; cdecl;
- PyImport_GetMagicNumber:function :LONGINT; cdecl;
+ PyImport_GetMagicNumber:function :C_Long; cdecl;
PyImport_ImportFrozenModule:function (key:PAnsiChar):integer; cdecl;
PyImport_ImportModule:function (name:PAnsiChar):PPyObject; cdecl;
PyImport_Import:function (name:PPyObject):PPyObject; cdecl;
- //PyImport_Init:procedure; cdecl;
PyImport_ReloadModule:function (ob:PPyObject):PPyObject; cdecl;
- PyInstance_New:function (obClass, obArg, obKW:PPyObject):PPyObject; cdecl;
- PyInt_AsLong:function (ob:PPyObject):LONGINT; cdecl;
PyList_Append:function (ob1,ob2:PPyObject):integer; cdecl;
PyList_AsTuple:function (ob:PPyObject):PPyObject; cdecl;
PyList_GetItem:function (ob:PPyObject;i:NativeInt):PPyObject; cdecl;
@@ -1744,22 +1459,25 @@ TPythonInterface=class(TDynamicDll)
PyList_Size:function (ob:PPyObject):NativeInt; cdecl;
PyList_Sort:function (ob:PPyObject):integer; cdecl;
PyLong_AsDouble:function (ob:PPyObject):DOUBLE; cdecl;
- PyLong_AsLong:function (ob:PPyObject):LONGINT; cdecl;
+ PyLong_AsLong:function (ob:PPyObject):C_Long; cdecl;
PyLong_FromDouble:function (db:double):PPyObject; cdecl;
- PyLong_FromLong:function (l:longint):PPyObject; cdecl;
+ PyLong_FromLong:function (l:C_Long):PPyObject; cdecl;
PyLong_FromString:function (pc:PAnsiChar;var ppc:PAnsiChar;i:integer):PPyObject; cdecl;
- PyLong_FromUnsignedLong:function(val:cardinal) : PPyObject; cdecl;
- PyLong_AsUnsignedLong:function(ob:PPyObject) : Cardinal; cdecl;
- PyLong_FromUnicode:function(ob:PPyObject; a, b : integer) : PPyObject; cdecl;
- PyLong_FromLongLong:function(val:Int64) : PPyObject; cdecl;
- PyLong_AsLongLong:function(ob:PPyObject) : Int64; cdecl;
+ PyLong_FromUnsignedLong:function(val:C_ULong): PPyObject; cdecl;
+ PyLong_AsUnsignedLong:function(ob:PPyObject): C_ULong; cdecl;
+ PyLong_FromUnicodeObject:function(ob:PPyObject; base : integer): PPyObject; cdecl;
+ PyLong_FromLongLong:function(val:Int64): PPyObject; cdecl;
+ PyLong_FromUnsignedLongLong:function(val:UInt64) : PPyObject; cdecl;
+ PyLong_AsLongLong:function(ob:PPyObject): Int64; cdecl;
+ PyLong_FromVoidPtr:function(p: Pointer): PPyObject; cdecl;
PyMapping_Check:function (ob:PPyObject):integer; cdecl;
PyMapping_GetItemString:function (ob:PPyObject;key:PAnsiChar):PPyObject; cdecl;
PyMapping_HasKey:function (ob,key:PPyObject):integer; cdecl;
PyMapping_HasKeyString:function (ob:PPyObject;key:PAnsiChar):integer; cdecl;
PyMapping_Length:function (ob:PPyObject):NativeInt; cdecl;
PyMapping_SetItemString:function (ob:PPyObject; key:PAnsiChar; value:PPyObject):integer; cdecl;
- PyMethod_Class:function (ob:PPyObject):PPyObject; cdecl;
+ PyMapping_Keys:function(mp: PPyObject):PPyObject; cdecl;
+ PyMapping_Values:function(mp: PPyObject):PPyObject; cdecl;
PyMethod_Function:function (ob:PPyObject):PPyObject; cdecl;
PyMethod_New:function (ob1,ob2,ob3:PPyObject):PPyObject; cdecl;
PyMethod_Self:function (ob:PPyObject):PPyObject; cdecl;
@@ -1769,13 +1487,10 @@ TPythonInterface=class(TDynamicDll)
PyNumber_Add:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyNumber_And:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyNumber_Check:function (ob:PPyObject):integer; cdecl;
- PyNumber_Coerce:function (var ob1,ob2:PPyObject):integer; cdecl;
- PyNumber_Divide:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyNumber_FloorDivide:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyNumber_TrueDivide:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyNumber_Divmod:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyNumber_Float:function (ob:PPyObject):PPyObject; cdecl;
- PyNumber_Int:function (ob:PPyObject):PPyObject; cdecl;
PyNumber_Invert:function (ob:PPyObject):PPyObject; cdecl;
PyNumber_Long:function (ob:PPyObject):PPyObject; cdecl;
PyNumber_Lshift:function (ob1,ob2:PPyObject):PPyObject; cdecl;
@@ -1788,18 +1503,16 @@ TPythonInterface=class(TDynamicDll)
PyNumber_Rshift:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyNumber_Subtract:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyNumber_Xor:function (ob1,ob2:PPyObject):PPyObject; cdecl;
- PyOS_InitInterrupts:procedure; cdecl;
PyOS_InterruptOccurred:function :integer; cdecl;
PyObject_CallObject:function (ob,args:PPyObject):PPyObject; cdecl;
PyObject_CallMethod : function ( obj : PPyObject; method, format : PAnsiChar {...}) : PPyObject; cdecl varargs;
- PyObject_CallMethodStr: function ( obj : PPyObject; method, format, value : PAnsiChar ) : PPyObject; cdecl;
- PyObject_Compare: function (ob1,ob2:PPyObject):integer; cdecl;
PyObject_RichCompare:function (ob1,ob2:PPyObject;opid:integer):PPyObject; cdecl;
PyObject_RichCompareBool:function (ob1,ob2:PPyObject;opid:integer):Integer; cdecl;
PyObject_GetAttr:function (ob1,ob2:PPyObject):PPyObject; cdecl;
PyObject_GetAttrString:function (ob:PPyObject;c:PAnsiChar):PPyObject; cdecl;
PyObject_GetItem:function (ob,key:PPyObject):PPyObject; cdecl;
PyObject_DelItem:function (ob,key:PPyObject):PPyObject; cdecl;
+ PyObject_HasAttr:function (ob, attr_name:PPyObject):integer; cdecl;
PyObject_HasAttrString:function (ob:PPyObject;key:PAnsiChar):integer; cdecl;
PyObject_Hash:function (ob:PPyObject):NativeInt; cdecl;
PyObject_IsTrue:function (ob:PPyObject):integer; cdecl;
@@ -1820,7 +1533,7 @@ TPythonInterface=class(TDynamicDll)
PyObject_Call:function (ob, args, kw:PPyObject):PPyObject; cdecl;
PyObject_GenericGetAttr:function (obj, name : PPyObject) : PPyObject; cdecl;
PyObject_GenericSetAttr:function (obj, name, value : PPyObject) : Integer; cdecl;
- PyObject_GC_Malloc:function (size:NativeUInt):PPyObject; cdecl;
+ PyObject_Malloc:function (size:NativeUInt):PPyObject; cdecl;
PyObject_GC_New:function (t:PPyTypeObject):PPyObject; cdecl;
PyObject_GC_NewVar:function (t:PPyTypeObject; size:NativeInt):PPyObject; cdecl;
PyObject_GC_Resize:function (t:PPyObject; newsize:NativeInt):PPyObject; cdecl;
@@ -1841,25 +1554,23 @@ TPythonInterface=class(TDynamicDll)
PySequence_DelSlice:function (ob:PPyObject;i1,i2:NativeInt):integer; cdecl;
PySequence_Tuple:function (ob:PPyObject):PPyObject; cdecl;
PySequence_Contains:function (ob, value:PPyObject):integer; cdecl;
+ PySequence_List:function (o:PPyObject):PPyObject; cdecl;
PySeqIter_New: function(obj : PPyObject) : PPyObject; cdecl;
PySlice_GetIndices:function (ob:PPySliceObject;length:NativeInt;var start,stop,step:NativeInt):integer; cdecl;
PySlice_GetIndicesEx:function (ob:PPySliceObject;length:NativeInt;var start,stop,step,slicelength:NativeInt):integer; cdecl;
PySlice_New:function (start,stop,step:PPyObject):PPyObject; cdecl;
- PyString_Concat:procedure(var ob1:PPyObject;ob2:PPyObject); cdecl;
- PyString_ConcatAndDel:procedure(var ob1:PPyObject;ob2:PPyObject); cdecl;
- PyString_Format:function (ob1,ob2:PPyObject):PPyObject; cdecl;
- PyString_FromStringAndSize:function (s:PAnsiChar;i:NativeInt):PPyObject; cdecl;
- PyString_Size:function (ob:PPyObject):NativeInt; cdecl;
- PyString_DecodeEscape:function(s:PAnsiChar; len:NativeInt; errors:PAnsiChar; unicode:NativeInt; recode_encoding:PAnsiChar):PPyObject; cdecl;
- PyString_Repr:function(ob:PPyObject; smartquotes:integer):PPyObject; cdecl;
+ PyBytes_Concat:procedure(var ob1:PPyObject;ob2:PPyObject); cdecl;
+ PyBytes_ConcatAndDel:procedure(var ob1:PPyObject;ob2:PPyObject); cdecl;
+ PyBytes_FromString:function (s:PAnsiChar):PPyObject; cdecl;
+ PyBytes_FromStringAndSize:function (s:PAnsiChar;i:NativeInt):PPyObject; cdecl;
+ PyBytes_Size:function (ob:PPyObject):NativeInt; cdecl;
+ PyBytes_DecodeEscape:function(s:PAnsiChar; len:NativeInt; errors:PAnsiChar; unicode:NativeInt; recode_encoding:PAnsiChar):PPyObject; cdecl;
+ PyBytes_Repr:function(ob:PPyObject; smartquotes:integer):PPyObject; cdecl;
PySys_GetObject:function (s:PAnsiChar):PPyObject; cdecl;
- //PySys_Init:procedure; cdecl;
PySys_SetObject:function (s:PAnsiChar;ob:PPyObject):integer; cdecl;
PySys_SetPath:procedure(path:PAnsiChar); cdecl;
- //PyTraceBack_Fetch:function :PPyObject; cdecl;
PyTraceBack_Here:function (p:pointer):integer; cdecl;
PyTraceBack_Print:function (ob1,ob2:PPyObject):integer; cdecl;
- //PyTraceBack_Store:function (ob:PPyObject):integer; cdecl;
PyTuple_GetItem:function (ob:PPyObject;i:NativeInt):PPyObject; cdecl;
PyTuple_GetSlice:function (ob:PPyObject;i1,i2:NativeInt):PPyObject; cdecl;
PyTuple_New:function (size:NativeInt):PPyObject; cdecl;
@@ -1869,45 +1580,49 @@ TPythonInterface=class(TDynamicDll)
PyType_GenericAlloc:function(atype: PPyTypeObject; nitems:NativeInt) : PPyObject; cdecl;
PyType_GenericNew:function(atype: PPyTypeObject; args, kwds : PPyObject) : PPyObject; cdecl;
PyType_Ready:function(atype: PPyTypeObject) : integer; cdecl;
- PyUnicode_FromWideChar:function (const w:PWideChar; size:NativeInt):PPyObject; cdecl;
- PyUnicode_AsWideChar:function (unicode: PPyObject; w:PWideChar; size:NativeInt):integer; cdecl;
+ PyUnicode_FromWideChar:function (const w:PWCharT; size:NativeInt):PPyObject; cdecl;
+ PyUnicode_FromString:function (s:PAnsiChar):PPyObject; cdecl;
+ PyUnicode_FromStringAndSize:function (s:PAnsiChar;i:NativeInt):PPyObject; cdecl;
+ PyUnicode_FromKindAndData:function (kind:integer;const buffer:pointer;size:NativeInt):PPyObject; cdecl;
+ PyUnicode_AsWideChar:function (unicode: PPyObject; w:PWCharT; size:NativeInt):integer; cdecl;
+ PyUnicode_AsUTF8:function (unicode: PPyObject):PAnsiChar; cdecl;
+ PyUnicode_AsUTF8AndSize:function (unicode: PPyObject; size: PNativeInt):PAnsiChar; cdecl;
PyUnicode_Decode:function (const s:PAnsiChar; size: NativeInt; const encoding : PAnsiChar; const errors: PAnsiChar):PPyObject; cdecl;
+ PyUnicode_DecodeUTF16:function (const s:PAnsiChar; size: NativeInt; const errors: PAnsiChar; byteoder: PInteger):PPyObject; cdecl;
PyUnicode_AsEncodedString:function (unicode:PPyObject; const encoding:PAnsiChar; const errors:PAnsiChar):PPyObject; cdecl;
PyUnicode_FromOrdinal:function (ordinal:integer):PPyObject; cdecl;
+ PyUnicode_GetLength:function (unicode:PPyObject):NativeInt; cdecl;
PyWeakref_GetObject: function ( ref : PPyObject) : PPyObject; cdecl;
PyWeakref_NewProxy: function ( ob, callback : PPyObject) : PPyObject; cdecl;
PyWeakref_NewRef: function ( ob, callback : PPyObject) : PPyObject; cdecl;
PyWrapper_New: function ( ob1, ob2 : PPyObject) : PPyObject; cdecl;
PyBool_FromLong: function ( ok : Integer) : PPyObject; cdecl;
- PyThreadState_SetAsyncExc: function(t_id :LongInt; exc :PPyObject) : Integer; cdecl;
+ PyThreadState_SetAsyncExc: function(t_id:C_ULong; exc:PPyObject) : Integer; cdecl;
Py_AtExit:function (proc: AtExitProc):integer; cdecl;
- //Py_Cleanup:procedure; cdecl;
- Py_CompileString:function (s1,s2:PAnsiChar;i:integer):PPyObject; cdecl;
+ Py_CompileStringExFlags:function (str,filename:PAnsiChar;start:integer;flags:PPyCompilerFlags;optimize:integer):PPyObject; cdecl;
Py_FatalError:procedure(s:PAnsiChar); cdecl;
- Py_FindMethod:function (md:PPyMethodDef;ob:PPyObject;key:PAnsiChar):PPyObject; cdecl;
- Py_FindMethodInChain:function (mc:PPyMethodChain;ob:PPyObject;key:PAnsiChar):PPyObject; cdecl;
_PyObject_New:function (obt:PPyTypeObject;ob:PPyObject):PPyObject; cdecl;
- _PyString_Resize:function (var ob:PPyObject;i:NativeInt):integer; cdecl;
+ _PyBytes_Resize:function (var ob:PPyObject;i:NativeInt):integer; cdecl;
Py_Finalize : procedure; cdecl;
PyErr_ExceptionMatches : function ( exc : PPyObject) : Integer; cdecl;
PyErr_GivenExceptionMatches : function ( raised_exc, exc : PPyObject) : Integer; cdecl;
- PyEval_EvalCode : function ( co : PPyCodeObject; globals, locals : PPyObject) : PPyObject; cdecl;
+ PyEval_EvalCode : function ( co : PPyObject; globals, locals : PPyObject) : PPyObject; cdecl;
Py_GetVersion : function : PAnsiChar; cdecl;
Py_GetCopyright : function : PAnsiChar; cdecl;
- Py_GetExecPrefix : function : PAnsiChar; cdecl;
- Py_GetPath : function : PAnsiChar; cdecl;
- Py_GetPrefix : function : PAnsiChar; cdecl;
- Py_GetProgramName : function : PAnsiChar; cdecl;
-
- PyParser_SimpleParseString : function ( str : PAnsiChar; start : Integer) : PNode; cdecl;
+ Py_GetExecPrefix : function : PWCharT; cdecl;
+ Py_GetPath : function : PWCharT; cdecl;
+ Py_SetPath : procedure (path: PWCharT); cdecl;
+ Py_SetPythonHome : procedure (home : PWCharT); cdecl;
+ Py_GetPythonHome : function : PWCharT; cdecl;
+ Py_GetPrefix : function : PWCharT; cdecl;
+ Py_GetProgramName : function : PWCharT; cdecl;
+
+ PyParser_SimpleParseStringFlags : function ( str : PAnsiChar; start, flags : Integer) : PNode; cdecl;
PyNode_Free : procedure( n : PNode ); cdecl;
PyErr_NewException : function ( name : PAnsiChar; base, dict : PPyObject ) : PPyObject; cdecl;
- Py_Malloc : function ( size : NativeInt ) : Pointer;
- PyMem_Malloc : function ( size : NativeInt ) : Pointer;
+ PyMem_Malloc : function ( size : NativeUInt ) : Pointer;
-{New exported Objects in Python 1.5}
- Py_SetProgramName : procedure( name: PAnsiChar); cdecl;
- Py_SetProgramName3000 : procedure( name: PWideChar); cdecl;
+ Py_SetProgramName : procedure( name: PWCharT); cdecl;
Py_IsInitialized : function : integer; cdecl;
Py_GetProgramFullPath : function : PAnsiChar; cdecl;
Py_NewInterpreter : function : PPyThreadState; cdecl;
@@ -1927,90 +1642,63 @@ TPythonInterface=class(TDynamicDll)
PyErr_SetInterrupt : procedure; cdecl;
PyGILState_Ensure : function() : PyGILstate_STATE; cdecl;
PyGILState_Release : procedure(gilstate : PyGILState_STATE); cdecl;
-{Further exported Objects, may be implemented later}
-{
- PyCode_New: Pointer;
- PyFile_AsFile: Pointer;
- PyFile_FromFile: Pointer;
- PyFloat_AsString: Pointer;
- PyFrame_BlockPop: Pointer;
- PyFrame_BlockSetup: Pointer;
- PyFrame_ExtendStack: Pointer;
- PyFrame_FastToLocals: Pointer;
- PyFrame_LocalsToFast: Pointer;
- PyFrame_New: Pointer;
- PyGrammar_AddAccelerators: Pointer;
- PyGrammar_FindDFA: Pointer;
- PyGrammar_LabelRepr: Pointer;
- PyInstance_DoBinOp: Pointer;
- PyInt_GetMax: Pointer;
- PyMarshal_Init: Pointer;
- PyMarshal_ReadLongFromFile: Pointer;
- PyMarshal_ReadObjectFromFile: Pointer;
- PyMarshal_ReadObjectFromString: Pointer;
- PyMarshal_WriteLongToFile: Pointer;
- PyMarshal_WriteObjectToFile: Pointer;
- PyMember_Get: Pointer;
- PyMember_Set: Pointer;
- PyNode_AddChild: Pointer;
- PyNode_Compile: Pointer;
- PyNode_New: Pointer;
- PyOS_GetLastModificationTime: Pointer;
- PyOS_Readline: Pointer;
- PyOS_strtol: Pointer;
- PyOS_strtoul: Pointer;
- PyObject_CallFunction: Pointer;
- PyObject_Print: Pointer;
- PyParser_AddToken: Pointer;
- PyParser_Delete: Pointer;
- PyParser_New: Pointer;
- PyParser_ParseFile: Pointer;
- PyParser_ParseString: Pointer;
- PyParser_SimpleParseFile: Pointer;
- PyRun_AnyFile: Pointer;
- PyRun_File: Pointer;
- PyRun_InteractiveLoop: Pointer;
- PyRun_InteractiveOne: Pointer;
- PyRun_SimpleFile: Pointer;
- PySys_GetFile: Pointer;
- PyToken_OneChar: Pointer;
- PyToken_TwoChars: Pointer;
- PyTokenizer_Free: Pointer;
- PyTokenizer_FromFile: Pointer;
- PyTokenizer_FromString: Pointer;
- PyTokenizer_Get: Pointer;
- Py_Main: Pointer;
- _PyParser_Grammar: Pointer;
- _PyParser_TokenNames: Pointer;
- _PyThread_Started: Pointer;
- _Py_c_diff: Pointer;
- _Py_c_neg: Pointer;
- _Py_c_pow: Pointer;
- _Py_c_prod: Pointer;
- _Py_c_quot: Pointer;
- _Py_c_sum: Pointer;
-}
+
+ // Not exported in Python 3.8 and implemented as functions - this has been fixed
+ // TODO - deal with the following:
+ // the PyParser_* functions are deprecated in python 3.9 and will be removed in
+ // Python 3.10
+ function PyParser_SimpleParseString(str : PAnsiChar; start : Integer) : PNode; cdecl;
+ function Py_CompileString(str,filename:PAnsiChar;start:integer) : PPyObject; cdecl;
+
// functions redefined in Delphi
- procedure Py_INCREF ( op: PPyObject);
- procedure Py_DECREF ( op: PPyObject);
- procedure Py_XINCREF ( op: PPyObject);
- procedure Py_XDECREF ( op: PPyObject);
-
- function Py_GetPlatform: PAnsiChar; cdecl;
- function PyCode_Addr2Line( co: PPyCodeObject; addrq : Integer ) : Integer; cdecl;
- function Py_GetBuildInfo: PAnsiChar; cdecl;
- function PyImport_ExecCodeModule( const AName : AnsiString; codeobject : PPyObject) : PPyObject;
- function PyString_Check( obj : PPyObject ) : Boolean;
- function PyString_CheckExact( obj : PPyObject ) : Boolean;
+ class procedure Py_INCREF(op: PPyObject); static; inline;
+ class procedure Py_DECREF(op: PPyObject); static; inline;
+ class procedure Py_XINCREF(op: PPyObject); static; inline;
+ class procedure Py_XDECREF(op: PPyObject); static; inline;
+ (* Safely decref `op` and set `op` to NULL, especially useful in tp_clear
+ * and tp_dealloc implementations.
+ *
+ * Note that "the obvious" code can be deadly:
+ *
+ * Py_XDECREF(op);
+ * op = NULL;
+ *
+ * Typically, `op` is something like self->containee, and `self` is done
+ * using its `containee` member. In the code sequence above, suppose
+ * `containee` is non-NULL with a refcount of 1. Its refcount falls to
+ * 0 on the first line, which can trigger an arbitrary amount of code,
+ * possibly including finalizers (like __del__ methods or weakref callbacks)
+ * coded in Python, which in turn can release the GIL and allow other threads
+ * to run, etc. Such code may even invoke methods of `self` again, or cause
+ * cyclic gc to trigger, but-- oops! --self->containee still points to the
+ * object being torn down, and it may be in an insane state while being torn
+ * down. This has in fact been a rich historic source of miserable (rare &
+ * hard-to-diagnose) segfaulting (and other) bugs.
+ *
+ * The safe way is:
+ *
+ * Py_CLEAR(op);
+ *
+ * That arranges to set `op` to NULL _before_ decref'ing, so that any code
+ * triggered as a side-effect of `op` getting torn down no longer believes
+ * `op` points to a valid object.
+ *
+ * There are cases where it's safe to use the naive code, but they're brittle.
+ * For example, if `op` points to a Python integer, you know that destroying
+ * one of those can't cause problems -- but in part that relies on that
+ * Python integers aren't currently weakly referencable. Best practice is
+ * to use Py_CLEAR() even if you can't think of a reason for why you need to.
+ *)
+ class procedure Py_CLEAR(var op: PPyObject); static; inline;
+
+ function PyBytes_Check( obj : PPyObject ) : Boolean;
+ function PyBytes_CheckExact( obj : PPyObject ) : Boolean;
function PyFloat_Check( obj : PPyObject ) : Boolean;
function PyFloat_CheckExact( obj : PPyObject ) : Boolean;
- function PyInt_Check( obj : PPyObject ) : Boolean;
- function PyInt_CheckExact( obj : PPyObject ) : Boolean;
function PyLong_Check( obj : PPyObject ) : Boolean;
function PyLong_CheckExact( obj : PPyObject ) : Boolean;
function PyTuple_Check( obj : PPyObject ) : Boolean;
function PyTuple_CheckExact( obj : PPyObject ) : Boolean;
- function PyInstance_Check( obj : PPyObject ) : Boolean;
function PyClass_Check( obj : PPyObject ) : Boolean;
function PyType_CheckExact( obj : PPyObject ) : Boolean;
function PyMethod_Check( obj : PPyObject ) : Boolean;
@@ -2031,14 +1719,9 @@ TPythonInterface=class(TDynamicDll)
function PyWeakref_CheckRef( obj : PPyObject ) : Boolean;
function PyWeakref_CheckProxy( obj : PPyObject ) : Boolean;
function PyBool_Check( obj : PPyObject ) : Boolean;
- function PyBaseString_Check( obj : PPyObject ) : Boolean;
function PyEnum_Check( obj : PPyObject ) : Boolean;
function PyObject_TypeCheck(obj:PPyObject; t:PPyTypeObject) : Boolean;
- function Py_InitModule( const AName : PAnsiChar; md : PPyMethodDef) : PPyObject;
- function Py_InitModule3000( const md : PyModuleDef) : PPyObject;
- function PyString_FromString( str: PAnsiChar): PPyObject; virtual; abstract;
- function PyString_AsDelphiString( ob: PPyObject): string; virtual; abstract;
- procedure Py_FlushLine; cdecl;
+ function Py_InitModule( const md : PyModuleDef) : PPyObject;
// Constructors & Destructors
constructor Create(AOwner: TComponent); override;
@@ -2047,9 +1730,8 @@ TPythonInterface=class(TDynamicDll)
procedure MapDll;
// Public properties
- property Initialized : Boolean read GetInitialized;
+ property Initialized : Boolean read FInitialized;
property Finalizing : Boolean read FFinalizing;
- property IsPython3000 : Boolean read FIsPython3000;
property MajorVersion : integer read FMajorVersion;
property MinorVersion : integer read FMinorVersion;
property BuiltInModuleName: String read FBuiltInModuleName write FBuiltInModuleName;
@@ -2070,8 +1752,8 @@ TPythonInterface=class(TDynamicDll)
TEngineClient = class;
TPathInitializationEvent = procedure ( Sender : TObject; var Path : String ) of Object;
TSysPathInitEvent = procedure ( Sender : TObject; PathList : PPyObject ) of Object;
- TPythonFlag = (pfDebug, pfInteractive, pfNoSite, pfOptimize, pfTabcheck, pfUnicode, pfVerbose,
- pfUseClassExceptionsFlag, pfFrozenFlag, pfIgnoreEnvironmentFlag, pfDivisionWarningFlag);
+ TPythonFlag = (pfDebug, pfInteractive, pfNoSite, pfOptimize, pfVerbose,
+ pfFrozenFlag, pfIgnoreEnvironmentFlag);
TPythonFlags = set of TPythonFlag;
@@ -2094,28 +1776,32 @@ TPythonTraceback = class
destructor Destroy; override;
procedure Clear;
- procedure Refresh;
+ procedure Refresh(pytraceback: PPyObject = nil);
+ procedure AddItem(const Context, FileName: string; LineNo: Integer);
property ItemCount : Integer read GetItemCount;
property Items[ idx : Integer ] : TTracebackItem read GetItem;
property Limit : Integer read FLimit write FLimit;
end;
+ TPythonType = class; //forward declaration
+
{$IF not Defined(FPC) and (CompilerVersion >= 23)}
[ComponentPlatformsAttribute(pidWin32 or pidWin64)]
{$IFEND}
TPythonEngine = class(TPythonInterface)
private
+ FVenvPythonExe: string;
FInitScript: TStrings;
FIO: TPythonInputOutput;
FRedirectIO: Boolean;
FOnAfterInit: TNotifyEvent;
FClients: TList;
- FLock: TCriticalSection;
FExecModule: AnsiString;
FAutoFinalize: Boolean;
- FProgramName: AnsiString;
- FProgramNameW: UnicodeString;
+ FProgramName: WCharTString;
+ FPythonHome: WCharTString;
+ FPythonPath: WCharTString;
FInitThreads: Boolean;
FOnPathInitialization: TPathInitializationEvent;
FOnSysPathInit: TSysPathInitEvent;
@@ -2135,16 +1821,19 @@ TPythonEngine = class(TPythonInterface)
FPyDateTime_TZInfoType: PPyObject;
FPyDateTime_TimeTZType: PPyObject;
FPyDateTime_DateTimeTZType: PPyObject;
- function GetVersion: String;
- procedure SetVersion(const Value: String);
+ function GetPythonHome: UnicodeString;
+ function GetProgramName: UnicodeString;
+ function GetPythonPath: UnicodeString;
+ procedure SetPythonPath(const Value: UnicodeString);
protected
+ procedure Initialize;
+ procedure Finalize;
procedure AfterLoad; override;
procedure BeforeLoad; override;
procedure DoOpenDll(const aDllName : String); override;
procedure SetInitScript(Value: TStrings);
function GetThreadState: PPyThreadState;
- function GetInterpreterState: PPyInterpreterState;
procedure SetInitThreads(Value: Boolean);
function GetClientCount : Integer;
function GetClients( idx : Integer ) : TEngineClient;
@@ -2165,41 +1854,45 @@ TPythonEngine = class(TPythonInterface)
destructor Destroy; override;
// Public methods
- procedure Initialize;
- procedure Finalize;
- procedure Lock;
- procedure Unlock;
+ procedure SetPythonHome(const PythonHome: UnicodeString);
+ procedure SetProgramName(const ProgramName: UnicodeString);
function IsType(ob: PPyObject; obt: PPyTypeObject): Boolean;
- function GetAttrString(obj: PPyObject; AName: PAnsiChar):PAnsiChar;
- function CleanString(const s : AnsiString) : AnsiString;
- function Run_CommandAsString(const command : AnsiString; mode : Integer) : String;
- function Run_CommandAsObject(const command : AnsiString; mode : Integer) : PPyObject;
- function Run_CommandAsObjectWithDict(const command : AnsiString; mode : Integer; locals, globals : PPyObject) : PPyObject;
- procedure ExecString(const command : AnsiString); overload;
- procedure ExecStrings( strings : TStrings ); overload;
- function EvalString(const command : AnsiString) : PPyObject; overload;
- function EvalStringAsStr(const command : AnsiString) : String;
- function EvalStrings( strings : TStrings ) : PPyObject; overload;
- procedure ExecString(const command : AnsiString; locals, globals : PPyObject ); overload;
- procedure ExecStrings( strings : TStrings; locals, globals : PPyObject ); overload;
- function EvalString( const command : AnsiString; locals, globals : PPyObject ) : PPyObject; overload;
- function EvalStrings( strings : TStrings; locals, globals : PPyObject ) : PPyObject; overload;
- function EvalStringsAsStr( strings : TStrings ) : String;
+ function Run_CommandAsString(const command: AnsiString; mode: Integer; const FileName: string = ''): string;
+ function Run_CommandAsObject(const command: AnsiString; mode: Integer; const FileName: string = ''): PPyObject;
+ function Run_CommandAsObjectWithDict(const command: AnsiString; mode: Integer; locals, globals: PPyObject; const FileName: string = ''): PPyObject;
+ function EncodeString (const str: UnicodeString): AnsiString; {$IFDEF FPC}overload;{$ENDIF}
+ {$IFDEF FPC}
+ overload;
+ function EncodeString (const str: AnsiString): AnsiString; overload;
+ {$ENDIF}
+ function EncodeWindowsFilePath(const str: string): AnsiString;
+ procedure ExecString(const command: AnsiString; const FileName: string = ''); overload;
+ procedure ExecStrings(strings: TStrings; const FileName: string = ''); overload;
+ procedure ExecString(const command: AnsiString; locals, globals: PPyObject; const FileName: string = ''); overload;
+ procedure ExecFile(const FileName: string; locals: PPyObject = nil; globals: PPyObject = nil); overload;
+ procedure ExecStrings(strings: TStrings; locals, globals: PPyObject; const FileName: string = ''); overload;
+ function EvalString(const command: AnsiString; const FileName: string = ''): PPyObject; overload;
+ function EvalStringAsStr(const command: AnsiString; const FileName: string = ''): string;
+ function EvalStrings(strings: TStrings; const FileName: string = ''): PPyObject; overload;
+ function EvalString(const command: AnsiString; locals, globals: PPyObject; const FileName: string = ''): PPyObject; overload;
+ function EvalStrings(strings: TStrings; locals, globals: PPyObject; const FileName: string = ''): PPyObject; overload;
+ function EvalStringsAsStr(strings: TStrings; const FileName: string = ''): string;
function EvalPyFunction(pyfunc, pyargs:PPyObject): Variant;
function EvalFunction(pyfunc:PPyObject; args: array of const): Variant;
function EvalFunctionNoArgs(pyfunc:PPyObject): Variant;
- function CheckEvalSyntax( const str : AnsiString ) : Boolean;
- function CheckExecSyntax( const str : AnsiString ) : Boolean;
+ function CheckEvalSyntax( const str : AnsiString ) : Boolean; inline;
+ function CheckExecSyntax( const str : AnsiString ) : Boolean; inline;
function CheckSyntax( const str : AnsiString; mode : Integer ) : Boolean;
procedure RaiseError;
function PyObjectAsString( obj : PPyObject ) : String;
procedure DoRedirectIO;
procedure AddClient( client : TEngineClient );
procedure RemoveClient( client : TEngineClient );
- function FindClient( const aName : string ) : TEngineClient;
+ function FindClient( const aName : AnsiString ) : TEngineClient;
+ function FindPythonType( const TypeName : AnsiString ) : TPythonType;
function TypeByName( const aTypeName : AnsiString ) : PPyTypeObject;
function ModuleByName( const aModuleName : AnsiString ) : PPyObject;
- function MethodsByName( const aMethodsContainer: string ) : PPyMethodDef;
+ function MethodsByName( const aMethodsContainer: AnsiString ) : PPyMethodDef;
function VariantAsPyObject( const V : Variant ) : PPyObject; virtual;
function PyObjectAsVariant( obj : PPyObject ) : Variant; virtual;
function VarRecAsPyObject( v : TVarRec ) : PPyObject;
@@ -2210,11 +1903,11 @@ TPythonEngine = class(TPythonInterface)
function ArrayToPyDict( items : array of const) : PPyObject;
function StringsToPyList( strings : TStrings ) : PPyObject;
function StringsToPyTuple( strings : TStrings ) : PPyObject;
- procedure PyListToStrings( list : PPyObject; strings : TStrings );
+ procedure PyListToStrings(list: PPyObject; Strings: TStrings; ClearStrings: Boolean = True);
procedure PyTupleToStrings( tuple: PPyObject; strings : TStrings );
- function PyUnicode_AsWideString( obj : PPyObject ) : UnicodeString;
- function PyUnicode_FromWideString( const AString : UnicodeString) : PPyObject;
function ReturnNone : PPyObject;
+ function ReturnTrue : PPyObject;
+ function ReturnFalse : PPyObject;
function FindModule( const ModuleName : AnsiString ) : PPyObject;
function FindFunction(ModuleName,FuncName: AnsiString): PPyObject;
function SetToList( data : Pointer; size : Integer ) : PPyObject;
@@ -2234,23 +1927,29 @@ TPythonEngine = class(TPythonInterface)
function PyTZInfo_Check( obj : PPyObject ) : Boolean;
function PyTZInfo_CheckExact( obj : PPyObject ) : Boolean;
{ end date/time functions }
- function PyString_FromString( str: PAnsiChar): PPyObject; override;
- function PyString_AsDelphiString( ob: PPyObject): string; override;
- function PyString_AsAnsiString( ob: PPyObject): AnsiString;
- function PyString_AsWideString( ob: PPyObject): UnicodeString;
+
+ { String conversion }
+ function PyUnicodeFromString(const AString : UnicodeString) : PPyObject; overload;
+ function PyUnicodeFromString(const AString: AnsiString): PPyObject; overload;
+ function PyUnicodeAsString( obj : PPyObject ) : UnicodeString;
+ function PyUnicodeAsUTF8String( obj : PPyObject ) : RawByteString;
+ function PyBytesAsAnsiString( obj : PPyObject ) : AnsiString;
// Public Properties
property ClientCount : Integer read GetClientCount;
property Clients[ idx : Integer ] : TEngineClient read GetClients;
property ExecModule : AnsiString read FExecModule write FExecModule;
property ThreadState: PPyThreadState read GetThreadState;
- property InterpreterState: PPyInterpreterState read GetInterpreterState;
property Traceback : TPythonTraceback read FTraceback;
property LocalVars : PPyObject read FLocalVars Write SetLocalVars;
property GlobalVars : PPyObject read FGlobalVars Write SetGlobalVars;
property IOPythonModule: TObject read FIOPythonModule; {TPythonModule}
+ property PythonHome: UnicodeString read GetPythonHome write SetPythonHome;
+ property ProgramName: UnicodeString read GetProgramName write SetProgramName;
+ property PythonPath: UnicodeString read GetPythonPath write SetPythonPath;
published
property AutoFinalize: Boolean read FAutoFinalize write FAutoFinalize default True;
+ property VenvPythonExe: string read FVenvPythonExe write FVenvPythonExe;
property DatetimeConversionMode: TDatetimeConversionMode read FDatetimeConversionMode write FDatetimeConversionMode default DEFAULT_DATETIME_CONVERSION_MODE;
property InitScript: TStrings read FInitScript write SetInitScript;
property InitThreads: Boolean read FInitThreads write SetInitThreads default False;
@@ -2258,7 +1957,6 @@ TPythonEngine = class(TPythonInterface)
property PyFlags: TPythonFlags read FPyFlags write SetPyFlags default [];
property RedirectIO: Boolean read FRedirectIO write FRedirectIO default True;
property UseWindowsConsole: Boolean read FUseWindowsConsole write FUseWindowsConsole default False;
- property Version : String read GetVersion write SetVersion stored False;
property OnAfterInit: TNotifyEvent read FOnAfterInit write FOnAfterInit;
property OnPathInitialization: TPathInitializationEvent read FOnPathInitialization write FOnPathInitialization;
property OnSysPathInit: TSysPathInitEvent read FOnSysPathInit write FOnSysPathInit;
@@ -2282,8 +1980,6 @@ TEngineClient = class(TComponent)
procedure SetEngine( val : TPythonEngine ); virtual;
procedure Loaded; override;
- procedure Notification( AComponent: TComponent;
- Operation: TOperation); override;
procedure ModuleReady(Sender : TObject); virtual;
public
// Constructors & destructors
@@ -2330,8 +2026,8 @@ TEventDef = class(TCollectionItem)
FDocString: TStringList;
procedure SetDocString(const Value: TStringList);
protected
- function GetDisplayName: string; override;
- procedure SetDisplayName(const Value: string); override;
+ function GetDisplayName: AnsiString; override;
+ procedure SetDisplayName(const Value: AnsiString); override;
public
constructor Create(ACollection: TCollection); override;
destructor Destroy; override;
@@ -2341,7 +2037,7 @@ TEventDef = class(TCollectionItem)
function PythonEvent(pself, args: PPyObject): PPyObject; cdecl;
function Owner : TEventDefs;
published
- property Name: string read GetDisplayName write SetDisplayName;
+ property Name: AnsiString read GetDisplayName write SetDisplayName;
property OnExecute: TPythonEvent read FOnExecute write FOnExecute;
property DocString: TStringList read FDocString write SetDocString;
end;
@@ -2370,7 +2066,7 @@ TMethodsContainer = class(TEngineClient)
FMethodCount : Integer;
FAllocatedMethodCount : Integer;
FMethods : PPyMethodDef;
- FModuleDef : PyModuleDef; // for Python 3000
+ FModuleDef : PyModuleDef;
FEventDefs: TEventDefs;
procedure AllocMethods;
@@ -2396,6 +2092,12 @@ TMethodsContainer = class(TEngineClient)
function AddMethodWithKeywords( AMethodName : PAnsiChar;
AMethod : PyCFunctionWithKW;
ADocString : PAnsiChar ) : PPyMethodDef;
+ function AddClassMethodWithKeywords( AMethodName : PAnsiChar;
+ AMethod : PyCFunctionWithKW;
+ ADocString : PAnsiChar ) : PPyMethodDef;
+ function AddStaticMethodWithKeywords( AMethodName : PAnsiChar;
+ AMethod : PyCFunctionWithKW;
+ ADocString : PAnsiChar ) : PPyMethodDef;
function AddDelphiMethod( AMethodName : PAnsiChar;
ADelphiMethod: TDelphiMethod;
ADocString : PAnsiChar ) : PPyMethodDef;
@@ -2533,7 +2235,7 @@ TError = class(TCollectionItem)
FErrorType : TErrorType;
FParentClass : TParentClassError;
- function GetDisplayName: string; override;
+ function GetDisplayName: AnsiString; override;
procedure SetName( const Value : AnsiString );
procedure SetText( const Value : AnsiString );
procedure SetErrorType( Value : TErrorType );
@@ -2597,7 +2299,8 @@ TPythonModule = class(TMethodsContainer)
procedure DefineDocString;
procedure Initialize; override;
procedure InitializeForNewInterpreter;
- procedure AddClient( client : TEngineClient );
+ procedure AddClient(Client : TEngineClient);
+ procedure RemoveClient(Client : TEngineClient);
function ErrorByName( const AName : AnsiString ) : TError;
procedure RaiseError( const error, msg : AnsiString );
procedure RaiseErrorFmt( const error, format : AnsiString; Args : array of const );
@@ -2628,9 +2331,6 @@ TPythonModule = class(TMethodsContainer)
//-- --
//-------------------------------------------------------
-type
- TPythonType = class; //forward declaration
-
{
A B C
+-------------------++------------------------------------------------------+
@@ -2672,7 +2372,7 @@ TPyObject = class
// Constructors & Destructors
constructor Create( APythonType : TPythonType ); virtual;
- constructor CreateWith( APythonType : TPythonType; args : PPyObject ); virtual;
+ constructor CreateWith(APythonType: TPythonType; args, kwds: PPyObject); virtual;
destructor Destroy; override;
class function NewInstance: TObject; override;
@@ -2710,30 +2410,26 @@ TPyObject = class
// Number services
function NbAdd( obj : PPyObject) : PPyObject; virtual;
- function NbSubstract( obj : PPyObject) : PPyObject; virtual;
+ function NbSubtract( obj : PPyObject) : PPyObject; virtual;
function NbMultiply( obj : PPyObject) : PPyObject; virtual;
- function NbDivide( obj : PPyObject) : PPyObject; virtual;
function NbFloorDivide( obj : PPyObject) : PPyObject; virtual;
function NbTrueDivide( obj : PPyObject) : PPyObject; virtual;
+ function NbMatrixMultiply( obj : PPyObject) : PPyObject; virtual;
function NbRemainder( obj : PPyObject) : PPyObject; virtual;
function NbDivmod( obj : PPyObject) : PPyObject; virtual;
function NbPower( ob1, ob2 : PPyObject) : PPyObject; virtual;
function NbNegative : PPyObject; virtual;
function NbPositive : PPyObject; virtual;
function NbAbsolute : PPyObject; virtual;
- function NbNonZero : Integer; virtual;
+ function NbBool : Integer; virtual;
function NbInvert : PPyObject; virtual;
function NbLShift( obj : PPyObject) : PPyObject; virtual;
function NbRShift( obj : PPyObject) : PPyObject; virtual;
function NbAnd( obj : PPyObject) : PPyObject; virtual;
function NbXor( obj : PPyObject) : PPyObject; virtual;
function NbOr( obj : PPyObject) : PPyObject; virtual;
- function NbCoerce( obj : PPPyObject) : Integer; virtual;
function NbInt : PPyObject; virtual;
- function NbLong : PPyObject; virtual;
function NbFloat : PPyObject; virtual;
- function NbOct : PPyObject; virtual;
- function NbHex : PPyObject; virtual;
function NbInplaceAdd( obj : PPyObject): PPyObject; virtual;
function NbInplaceSubtract( obj : PPyObject): PPyObject; virtual;
function NbInplaceMultiply( obj : PPyObject): PPyObject; virtual;
@@ -2747,14 +2443,13 @@ TPyObject = class
function NbInplaceAnd( obj : PPyObject): PPyObject; virtual;
function NbInplaceXor( obj : PPyObject): PPyObject; virtual;
function NbInplaceOr( obj : PPyObject): PPyObject; virtual;
+ function NbInplaceMatrixMultiply(obj: PPyObject): PPyObject; virtual;
// Sequence services
function SqLength : NativeInt; virtual;
function SqConcat( obj : PPyObject) : PPyObject; virtual;
function SqRepeat( val : NativeInt ) : PPyObject; virtual;
function SqItem( idx : NativeInt ) : PPyObject; virtual;
- function SqSlice( idx1, idx2 : NativeInt ) : PPyObject; virtual;
function SqAssItem( idx : NativeInt; obj : PPyObject) : Integer; virtual;
- function SqAssSlice( idx1, idx2 : NativeInt; obj : PPyObject): integer; virtual;
function SqContains( obj: PPyObject): integer; virtual;
function SqInplaceConcat( obj : PPyObject): PPyObject; virtual;
function SqInplaceRepeat( i: NativeInt): PPyObject; virtual;
@@ -2771,7 +2466,7 @@ TPyObject = class
end;
TPyObjectClass = class of TPyObject;
- TBasicServices = set of (bsPrint, bsGetAttr, bsSetAttr,
+ TBasicServices = set of (bsGetAttr, bsSetAttr,
bsRepr, bsCompare, bsHash,
bsStr, bsGetAttrO, bsSetAttrO,
bsCall,
@@ -2781,32 +2476,30 @@ TPyObjectClass = class of TPyObject;
bsRichCompare,
// since version 2.2
bsIter, bsIterNext);
- TNumberServices = set of (nsAdd, nsSubstract, nsMultiply,
- nsDivide, nsRemainder, nsDivmod,
+ TNumberServices = set of (nsAdd, nsSubtract, nsMultiply,
+ nsRemainder, nsDivmod,
nsPower, nsNegative, nsPositive,
- nsAbsolute, nsNonZero, nsInvert,
+ nsAbsolute, nsInvert,
nsLShift, nsRShift, nsAnd,
- nsXor, nsOr, nsCoerce,
- nsInt, nsLong, nsFloat,
- nsOct, nsHex,
- // since version 2.2
- nsFloorDivide, nsTrueDivide);
+ nsXor, nsOr,
+ nsInt, nsFloat,
+ nsFloorDivide, nsTrueDivide,
+ // since version 3.0
+ nsMatrixMultiply, nsBool);
// TInplaceNumberServices exists since version 2.0
TInplaceNumberServices = set of (nsInplaceAdd, nsInplaceSubtract,
- nsInplaceMultiply, nsInplaceDivide,
+ nsInplaceMultiply,
nsInplaceRemainder, nsInplacePower,
nsInplaceLShift, nsInplaceRShift,
nsInplaceAnd, nsInplaceXor, nsInplaceOr,
- // since version 2.2
- nsInplaceFloorDivide, nsInplaceTrueDivide);
+ nsInplaceFloorDivide, nsInplaceTrueDivide,
+ // since version 3.0
+ nsInplaceMatrixMultiply);
TSequenceServices = set of (ssLength, ssConcat, ssRepeat,
- ssItem, ssSlice, ssAssItem,
- ssAssSlice,
- // since version 2.0
- ssContains,
- ssInplaceConcat,
+ ssItem, ssAssItem,
+ ssContains, ssInplaceConcat,
ssInplaceRepeat
);
@@ -2867,10 +2560,11 @@ TPythonType = class(TGetSetContainer)
procedure SetModule( val : TPythonModule );
procedure SetServices( val : TTypeServices );
procedure SetTypeName( const val : AnsiString );
- function CreateMethod( pSelf, args : PPyObject ) : PPyObject; cdecl;
+ procedure SetBaseType(AType: TPythonType);
+ function CreateMethod(pSelf, args, kwds: PPyObject): PPyObject; cdecl;
procedure InitServices;
procedure SetDocString( value : TStringList );
- function TypeFlagsAsInt : LongInt;
+ function TypeFlagsAsInt : C_ULong;
function GetMembersStartOffset : Integer; override;
procedure ModuleReady(Sender : TObject); override;
procedure ReallocMethods; override;
@@ -2891,12 +2585,13 @@ TPythonType = class(TGetSetContainer)
procedure Initialize; override;
procedure Finalize; override;
function CreateInstance : PPyObject;
- function CreateInstanceWith( args : PPyObject ) : PPyObject;
+ function CreateInstanceWith(args, kwds: PPyObject): PPyObject;
procedure AddTypeVar;
property TheType : PyTypeObject read FType write FType;
property TheTypePtr : PPyTypeObject read GetTypePtr;
property PyObjectClass : TPyObjectClass read FPyObjectClass write SetPyObjectClass stored False;
+ property BaseType: TPythonType write SetBaseType;
property InstanceCount : Integer read FInstanceCount;
property CreateHits : Integer read FCreateHits;
property DeleteHits : Integer read FDeleteHits;
@@ -2942,7 +2637,7 @@ TPythonDelphiVar = class( TEngineClient )
procedure SetValue( const val : Variant );
function GetValueAsPyObject : PPyObject;
procedure SetValueFromPyObject( val : PPyObject );
- function GetValueAsString : string;
+ function GetValueAsString : AnsiString;
procedure SetVarName( const val : AnsiString );
public
@@ -2958,7 +2653,7 @@ TPythonDelphiVar = class( TEngineClient )
property Value : Variant read GetValue write SetValue;
// Warning: ValueObject returns a preincremented object !
property ValueObject : PPyObject read GetValueAsPyObject write SetValueFromPyObject;
- property ValueAsString : string read GetValueAsString;
+ property ValueAsString : AnsiString read GetValueAsString;
property VarObject : PPyObject read FVarObject write FVarObject;
published
@@ -2979,15 +2674,15 @@ TPyVar = class(TPyObject)
// Constructors & Destructors
constructor Create( APythonType : TPythonType ); override;
- constructor CreateWith( APythonType : TPythonType; args : PPyObject ); override;
+ constructor CreateWith(APythonType: TPythonType; args, kwds: PPyObject); override;
destructor Destroy; override;
// Type services
////////////////
// Basic services
- function GetAttr(key : PAnsiChar) : PPyObject; override;
- function SetAttr(key : PAnsiChar; value : PPyObject) : Integer; override;
+ function GetAttrO( key: PPyObject) : PPyObject; override;
+ function SetAttrO( key, value: PPyObject) : Integer; override;
function Repr : PPyObject; override;
// Class methods
@@ -3012,30 +2707,25 @@ TPyVar = class(TPyObject)
{$HINTS OFF}
TPythonThread = class(TThread)
private
- f_savethreadstate: PPyThreadState;
- fInterpreterState: PPyInterpreterState;
fThreadState: PPyThreadState;
fThreadExecMode: TThreadExecMode;
-
-// Do not overwrite Execute! Use ExecuteWithPython instead!
+ private class {$if FPC_FULLVERSION>=30200} threadvar {$else} var {$endif}
+ f_savethreadstate: PPyThreadState;
+ private
+ // Do not overwrite Execute! Use ExecuteWithPython instead!
procedure Execute; override;
protected
procedure ExecuteWithPython; virtual; abstract;
-
- procedure Py_Begin_Allow_Threads;
- procedure Py_End_Allow_Threads;
-// The following procedures are redundant and only for
-// compatibility to the C API documentation.
- procedure Py_Begin_Block_Threads;
- procedure Py_Begin_Unblock_Threads;
-
public
- property InterpreterState: PPyInterpreterState read fInterpreterState
- write fInterpreterState
- default nil;
- property ThreadState: PPyThreadState read fThreadState
- write fThreadState;
- property ThreadExecMode: TThreadExecMode read fThreadExecMode;
+ class procedure Py_Begin_Allow_Threads;
+ class procedure Py_End_Allow_Threads;
+ // The following procedures are redundant and only for
+ // compatibility to the C API documentation.
+ class procedure Py_Begin_Block_Threads;
+ class procedure Py_Begin_Unblock_Threads;
+
+ property ThreadState : PPyThreadState read fThreadState;
+ property ThreadExecMode: TThreadExecMode read fThreadExecMode write fThreadExecMode;
end;
{$HINTS ON}
@@ -3073,14 +2763,16 @@ procedure PyObjectDestructor( pSelf : PPyObject); cdecl;
procedure FreeSubtypeInst(ob:PPyObject); cdecl;
procedure Register;
function PyType_HasFeature(AType : PPyTypeObject; AFlag : Integer) : Boolean;
+function SysVersionFromDLLName(const DLLFileName : string): string;
+procedure PythonVersionFromDLLName(LibName: string; out MajorVersion, MinorVersion: integer);
{ Helper functions}
(*
Checks whether the PythonVersion x.x is Registered
*)
{$IFDEF windows}
-function IsPythonVersionRegistered(PythonVersion : string;
- out InstallPath: string; out AllUserInstall: Boolean) : Boolean;
+function IsPythonVersionRegistered(PythonVersion : AnsiString;
+ out InstallPath: AnsiString; out AllUserInstall: Boolean) : Boolean;
{$ENDIF}
(*
Mask FPU Excptions - Useful for importing SciPy and other Python libs
@@ -3096,15 +2788,43 @@ procedure MaskFPUExceptions(ExceptionsMasked : boolean;
//## ##
//#######################################################
+(*
+ Converts line breaks to LF and optionally adds a line break at the end
+*)
+function CleanString(const s : AnsiString; AppendLF : Boolean = True) : AnsiString; overload;
implementation
{$R *.dcr} //AT
-{$IFDEF windows}
-uses Registry;
-{$ENDIF}
+uses
+ {$IFDEF windows}
+ Registry,
+ {$ENDIF}
+ Math;
+function _IsBufferAscii(buf: PAnsiChar): boolean; inline;
+begin
+ if buf=nil then
+ exit(true);
+ while buf^ <> #0 do
+ begin
+ if Ord(buf^) >= 128 then
+ exit(false);
+ Inc(buf);
+ end;
+ Result := true;
+end;
+
+(*******************************************************)
+(** **)
+(** Resource strings **)
+(** **)
+(*******************************************************)
+resourcestring
+SPyConvertionError = 'Conversion Error: %s expects a %s Python object';
+SPyExcStopIteration = 'Stop Iteration';
+SPyExcSystemError = 'Unhandled SystemExit exception. Code: %s';
(*******************************************************)
(** **)
@@ -3287,7 +3007,8 @@ procedure TDynamicDll.DoOpenDll(const aDllName : String);
FDLLHandle := Windows.LoadLibrary(PChar(S));
{$else}
//Linux: need here RTLD_GLOBAL, so Python can do "import ctypes"
- FDLLHandle := PtrInt(dlopen(PAnsiChar(S), RTLD_LAZY+RTLD_GLOBAL));
+ //Haiku: without RTLD_NOW it doesn't seem to detect the library or plugins without running with "LD_PRELOAD ..."
+ FDLLHandle := PtrInt(dlopen(PAnsiChar(S), {$ifdef haiku}RTLD_NOW{$else}RTLD_LAZY{$endif}+RTLD_GLOBAL));
{$endif}
end;
end;
@@ -3300,11 +3021,13 @@ function TDynamicDll.GetDllPath : String;
begin
Result := DllPath;
+ (*
{$IFDEF windows}
if DLLPath = '' then begin
IsPythonVersionRegistered(RegVersion, Result, AllUserInstall);
end;
{$ENDIF}
+ *)
if Result <> '' then
begin
@@ -3364,7 +3087,7 @@ function TDynamicDll.Import(const funcname: AnsiString; canFail : Boolean = True
var
E : EDllImportError;
begin
- Result := GetProcAddress( FDLLHandle, PAnsiChar(funcname) );
+ Result := GetProcAddress( FDLLHandle, PChar(funcname) );
if (Result = nil) and canFail then begin
E := EDllImportError.CreateFmt('Error: could not find symbol "%s"', [funcname]); //AT
//E.ErrorCode := GetLastError;
@@ -3471,6 +3194,7 @@ constructor TPythonInterface.Create(AOwner: TComponent);
i : Integer;
begin
inherited;
+ FInitialized := False;
i := COMPILED_FOR_PYTHON_VERSION_INDEX;
DllName := PYTHON_KNOWN_VERSIONS[i].DllName;
FAPIVersion := PYTHON_KNOWN_VERSIONS[i].APIVersion;
@@ -3478,34 +3202,12 @@ constructor TPythonInterface.Create(AOwner: TComponent);
FAutoUnload := True;
end;
-procedure TPythonInterface.DetectPythonVersionFromLibName(const Str: string);
-var
- NPos: integer;
-begin
- //Win: "python34.dll"
- //Linux: "libpython3.4.so"
- NPos := Pos('python', LowerCase(Str));
- if NPos>0 then
- begin
- Inc(NPos, Length('python'));
- FIsPython3000 := Str[NPos]='3';
- FMajorVersion := StrToIntDef(Str[NPos], 3);
- Inc(NPos);
- if Str[NPos]='.' then
- Inc(NPos);
- FMinorVersion := StrToIntDef(Str[NPos], 3);
- end;
-end;
-
procedure TPythonInterface.AfterLoad;
begin
inherited;
+ PythonVersionFromDLLName(DLLName, FMajorVersion, FMinorVersion);
- DetectPythonVersionFromLibName(DLLName);
- if FIsPython3000 then
- FBuiltInModuleName := 'builtins'
- else
- FBuiltInModuleName := '__builtin__';
+ FBuiltInModuleName := 'builtins';
try
MapDll;
@@ -3527,30 +3229,12 @@ function TPythonInterface.GetQuitMessage : String;
Result := Format( 'Python could not be properly initialized. We must quit.', [DllName]);
end;
-function TPythonInterface.GetInitialized: Boolean;
-begin
- if Assigned(Py_IsInitialized) then
- Result := Py_IsInitialized() <> 0
- else
- Result := FInitialized;
-end;
-
procedure TPythonInterface.CheckPython;
begin
if not Initialized then
raise Exception.Create('Python is not properly initialized' );
end;
-function TPythonInterface.GetUnicodeTypeSuffix : String;
-begin
- if (fMajorVersion > 3) or ((fMajorVersion = 3) and (fMinorVersion >= 3)) then
- Result := ''
- else if APIVersion >= 1011 then
- Result := 'UCS2'
- else
- Result := '';
-end;
-
procedure TPythonInterface.MapDll;
begin
Py_DebugFlag := Import('Py_DebugFlag');
@@ -3558,26 +3242,13 @@ procedure TPythonInterface.MapDll;
Py_InteractiveFlag := Import('Py_InteractiveFlag');
Py_OptimizeFlag := Import('Py_OptimizeFlag');
Py_NoSiteFlag := Import('Py_NoSiteFlag');
- Py_UseClassExceptionsFlag := Import('Py_UseClassExceptionsFlag');
Py_FrozenFlag := Import('Py_FrozenFlag');
- if not IsPython3000 then begin
- Py_TabcheckFlag := Import('Py_TabcheckFlag');
- Py_UnicodeFlag := Import('Py_UnicodeFlag');
- end;
- if (fMajorVersion < 3) or ((fMajorVersion = 3) and (fMinorVersion <3)) then
- Py_DivisionWarningFlag := Import('Py_DivisionWarningFlag');
Py_IgnoreEnvironmentFlag := Import('Py_IgnoreEnvironmentFlag');
- //_PySys_TraceFunc := Import('_PySys_TraceFunc');
- //_PySys_ProfileFunc := Import('_PySys_ProfileFunc');
-
Py_None := Import('_Py_NoneStruct');
Py_Ellipsis := Import('_Py_EllipsisObject');
- if IsPython3000 then
- Py_False := Import('_Py_FalseStruct')
- else
- Py_False := Import('_Py_ZeroStruct');
+ Py_False := Import('_Py_FalseStruct');
Py_True := Import('_Py_TrueStruct');
Py_NotImplemented := Import('_Py_NotImplementedStruct');
@@ -3604,10 +3275,6 @@ procedure TPythonInterface.MapDll;
PyExc_Exception := Import('PyExc_Exception');
PyExc_FloatingPointError := Import('PyExc_FloatingPointError');
PyExc_LookupError := Import('PyExc_LookupError');
- if not IsPython3000 then begin
- PyExc_StandardError := Import('PyExc_StandardError');
- PyExc_MemoryErrorInst := Import('PyExc_MemoryErrorInst');
- end;
PyExc_AssertionError := Import('PyExc_AssertionError');
PyExc_EnvironmentError := Import('PyExc_EnvironmentError');
PyExc_IndentationError := Import('PyExc_IndentationError');
@@ -3616,7 +3283,7 @@ procedure TPythonInterface.MapDll;
PyExc_TabError := Import('PyExc_TabError');
PyExc_UnboundLocalError := Import('PyExc_UnboundLocalError');
PyExc_UnicodeError := Import('PyExc_UnicodeError');
- {$IFDEF windows}
+ {$IFDEF MSWINDOWS}
PyExc_WindowsError := Import('PyExc_WindowsError');
{$ENDIF}
PyExc_Warning := Import('PyExc_Warning');
@@ -3633,22 +3300,12 @@ procedure TPythonInterface.MapDll;
PyExc_UnicodeTranslateError:= Import('PyExc_UnicodeTranslateError');
PyType_Type := Import('PyType_Type');
PyCFunction_Type := Import('PyCFunction_Type');
- if not IsPython3000 then begin
- PyCObject_Type := Import('PyCObject_Type'); // Removed in Python 3.2
- PyClass_Type := Import('PyClass_Type');
- end;
PyCode_Type := Import('PyCode_Type');
PyComplex_Type := Import('PyComplex_Type');
PyDict_Type := Import('PyDict_Type');
- if not IsPython3000 then
- PyFile_Type := Import('PyFile_Type');
PyFloat_Type := Import('PyFloat_Type');
PyFrame_Type := Import('PyFrame_Type');
PyFunction_Type := Import('PyFunction_Type');
- if not IsPython3000 then
- PyInstance_Type := Import('PyInstance_Type');
- if not IsPython3000 then
- PyInt_Type := Import('PyInt_Type');
PyList_Type := Import('PyList_Type');
PyLong_Type := Import('PyLong_Type');
PyMethod_Type := Import('PyMethod_Type');
@@ -3656,15 +3313,10 @@ procedure TPythonInterface.MapDll;
PyObject_Type := Import('PyObject_Type');
PyRange_Type := Import('PyRange_Type');
PySlice_Type := Import('PySlice_Type');
- if not IsPython3000 then
- PyString_Type := Import('PyString_Type')
- else
- PyString_Type := Import('PyBytes_Type');
+ PyBytes_Type := Import('PyBytes_Type');
PyTuple_Type := Import('PyTuple_Type');
PyUnicode_Type := Import('PyUnicode_Type');
PyBaseObject_Type := Import('PyBaseObject_Type');
- if not IsPython3000 then
- PyBuffer_Type := Import('PyBuffer_Type');
PyCallIter_Type := Import('PyCallIter_Type');
PyCell_Type := Import('PyCell_Type');
PyClassMethod_Type := Import('PyClassMethod_Type');
@@ -3677,19 +3329,9 @@ procedure TPythonInterface.MapDll;
_PyWeakref_RefType := Import('_PyWeakref_RefType');
_PyWeakref_ProxyType := Import('_PyWeakref_ProxyType');
_PyWeakref_CallableProxyType:=Import('_PyWeakref_CallableProxyType');
- if not IsPython3000 then
- PyBaseString_Type := Import('PyBaseString_Type');
PyBool_Type := Import('PyBool_Type');
PyEnum_Type := Import('PyEnum_Type');
- //@PyArg_GetObject := Import('PyArg_GetObject');
- //@PyArg_GetLong := Import('PyArg_GetLong');
- //@PyArg_GetShort := Import('PyArg_GetShort');
- //@PyArg_GetFloat := Import('PyArg_GetFloat');
- //@PyArg_GetString := Import('PyArg_GetString');
- //@PyArgs_VaParse := Import('PyArgs_VaParse');
- //@Py_VaBuildValue := Import('Py_VaBuildValue');
- //@PyBuiltin_Init := Import('PyBuiltin_Init');
PyComplex_FromCComplex := Import('PyComplex_FromCComplex');
PyComplex_FromDoubles := Import('PyComplex_FromDoubles');
PyComplex_RealAsDouble := Import('PyComplex_RealAsDouble');
@@ -3698,12 +3340,6 @@ procedure TPythonInterface.MapDll;
PyCFunction_GetFunction := Import('PyCFunction_GetFunction');
PyCFunction_GetSelf := Import('PyCFunction_GetSelf');
PyCallable_Check := Import('PyCallable_Check');
- if not IsPython3000 then begin
- PyClass_New := Import('PyClass_New');
- PyClass_IsSubclass := Import('PyClass_IsSubclass');
- PyCObject_FromVoidPtr := Import('PyCObject_FromVoidPtr'); // Removed in Python 3.2
- PyCObject_AsVoidPtr := Import('PyCObject_AsVoidPtr');
- end;
PyDict_GetItem := Import('PyDict_GetItem');
PyDict_SetItem := Import('PyDict_SetItem');
PyDict_DelItem := Import('PyDict_DelItem');
@@ -3715,11 +3351,11 @@ procedure TPythonInterface.MapDll;
PyDict_Size := Import('PyDict_Size');
PyDict_DelItemString := Import('PyDict_DelItemString');
PyDict_Copy := Import('PyDict_Copy');
+ PyDict_New := Import('PyDict_New');
+ PyDict_Update := Import('PyDict_Update');
+ PyDict_SetItemString := Import('PyDict_SetItemString');
PyDictProxy_New := Import('PyDictProxy_New');
- if not IsPython3000 then
- Py_InitModule4 := {$IFDEF CPUX64}Import('Py_InitModule4_64'){$ELSE}Import('Py_InitModule4'){$ENDIF}
- else
- PyModule_Create2 := Import('PyModule_Create2');
+ PyModule_Create2 := Import('PyModule_Create2');
PyErr_Print := Import('PyErr_Print');
PyErr_SetNone := Import('PyErr_SetNone');
PyErr_SetObject := Import('PyErr_SetObject');
@@ -3733,290 +3369,236 @@ procedure TPythonInterface.MapDll;
PyErr_Clear := Import('PyErr_Clear');
PyErr_Fetch := Import('PyErr_Fetch');
PyErr_SetString := Import('PyErr_SetString');
+ PyErr_WarnEx := Import('PyErr_WarnEx');
+ PyErr_WarnExplicit := Import('PyErr_WarnExplicit');
PyEval_GetBuiltins := Import('PyEval_GetBuiltins');
PyImport_GetModuleDict := Import('PyImport_GetModuleDict');
- if IsPython3000 then
- PyInt_FromLong := Import('PyLong_FromLong')
- else
- PyInt_FromLong := Import('PyInt_FromLong');
PyArg_Parse := Import('PyArg_Parse');
PyArg_ParseTuple := Import('PyArg_ParseTuple');
+ PyArg_ParseTupleAndKeywords := Import('PyArg_ParseTupleAndKeywords');
Py_BuildValue := Import('Py_BuildValue');
Py_Initialize := Import('Py_Initialize');
- PyDict_New := Import('PyDict_New');
- PyDict_SetItemString := Import('PyDict_SetItemString');
PyModule_GetDict := Import('PyModule_GetDict');
PyObject_Str := Import('PyObject_Str');
PyRun_String := Import('PyRun_String');
PyRun_SimpleString := Import('PyRun_SimpleString');
PyDict_GetItemString := Import('PyDict_GetItemString');
- if not IsPython3000 then
- PyString_AsString := Import('PyString_AsString')
- else
- PyString_AsString := Import('PyBytes_AsString');
- if not IsPython3000 then
- DLL_PyString_FromString := Import('PyString_FromString');
- if not IsPython3000 then
- PySys_SetArgv := Import('PySys_SetArgv')
- else
- PySys_SetArgv3000 := Import('PySys_SetArgv');
+ PySys_SetArgv := Import('PySys_SetArgv');
Py_Exit := Import('Py_Exit');
- PyCFunction_New :=Import('PyCFunction_New');
- PyEval_CallObjectWithKeywords:=Import('PyEval_CallObjectWithKeywords');
- PyEval_GetFrame :=Import('PyEval_GetFrame');
- PyEval_GetGlobals :=Import('PyEval_GetGlobals');
- PyEval_GetLocals :=Import('PyEval_GetLocals');
- //@PyEval_GetOwner :=Import('PyEval_GetOwner');
- if not IsPython3000 then
- PyEval_GetRestricted :=Import('PyEval_GetRestricted');
- PyEval_InitThreads :=Import('PyEval_InitThreads');
- PyEval_RestoreThread :=Import('PyEval_RestoreThread');
- PyEval_SaveThread :=Import('PyEval_SaveThread');
- if not IsPython3000 then
- PyFile_FromString :=Import('PyFile_FromString');
- PyFile_GetLine :=Import('PyFile_GetLine');
- if not IsPython3000 then
- PyFile_Name :=Import('PyFile_Name');
- if not IsPython3000 then
- PyFile_SetBufSize :=Import('PyFile_SetBufSize');
- if not IsPython3000 then
- PyFile_SoftSpace :=Import('PyFile_SoftSpace');
- PyFile_WriteObject :=Import('PyFile_WriteObject');
- PyFile_WriteString :=Import('PyFile_WriteString');
- PyFloat_AsDouble :=Import('PyFloat_AsDouble');
- PyFloat_FromDouble :=Import('PyFloat_FromDouble');
- PyFunction_GetCode :=Import('PyFunction_GetCode');
- PyFunction_GetGlobals :=Import('PyFunction_GetGlobals');
- PyFunction_New :=Import('PyFunction_New');
- PyImport_AddModule :=Import('PyImport_AddModule');
- PyImport_Cleanup :=Import('PyImport_Cleanup');
- PyImport_GetMagicNumber :=Import('PyImport_GetMagicNumber');
- PyImport_ImportFrozenModule:=Import('PyImport_ImportFrozenModule');
- PyImport_ImportModule :=Import('PyImport_ImportModule');
- PyImport_Import :=Import('PyImport_Import');
- //PyImport_Init :=Import('PyImport_Init');
- PyImport_ReloadModule :=Import('PyImport_ReloadModule');
- if not IsPython3000 then
- PyInstance_New :=Import('PyInstance_New');
- if IsPython3000 then
- PyInt_AsLong :=Import('PyLong_AsLong')
- else
- PyInt_AsLong :=Import('PyInt_AsLong');
- PyList_Append :=Import('PyList_Append');
- PyList_AsTuple :=Import('PyList_AsTuple');
- PyList_GetItem :=Import('PyList_GetItem');
- PyList_GetSlice :=Import('PyList_GetSlice');
- PyList_Insert :=Import('PyList_Insert');
- PyList_New :=Import('PyList_New');
- PyList_Reverse :=Import('PyList_Reverse');
- PyList_SetItem :=Import('PyList_SetItem');
- PyList_SetSlice :=Import('PyList_SetSlice');
- PyList_Size :=Import('PyList_Size');
- PyList_Sort :=Import('PyList_Sort');
- PyLong_AsDouble :=Import('PyLong_AsDouble');
- PyLong_AsLong :=Import('PyLong_AsLong');
- PyLong_FromDouble :=Import('PyLong_FromDouble');
- PyLong_FromLong :=Import('PyLong_FromLong');
- PyLong_FromString :=Import('PyLong_FromString');
- PyLong_FromString :=Import('PyLong_FromString');
- PyLong_FromUnsignedLong :=Import('PyLong_FromUnsignedLong');
- PyLong_AsUnsignedLong :=Import('PyLong_AsUnsignedLong');
- PyLong_FromUnicode :=Import('PyLong_FromUnicode');
- PyLong_FromLongLong :=Import('PyLong_FromLongLong');
- PyLong_AsLongLong :=Import('PyLong_AsLongLong');
- PyMapping_Check :=Import('PyMapping_Check');
- PyMapping_GetItemString :=Import('PyMapping_GetItemString');
- PyMapping_HasKey :=Import('PyMapping_HasKey');
- PyMapping_HasKeyString :=Import('PyMapping_HasKeyString');
- PyMapping_Length :=Import('PyMapping_Length');
- PyMapping_SetItemString :=Import('PyMapping_SetItemString');
- if not IsPython3000 then
- PyMethod_Class :=Import('PyMethod_Class');
- PyMethod_Function :=Import('PyMethod_Function');
- PyMethod_New :=Import('PyMethod_New');
- PyMethod_Self :=Import('PyMethod_Self');
- PyModule_GetName :=Import('PyModule_GetName');
- PyModule_New :=Import('PyModule_New');
- PyNumber_Absolute :=Import('PyNumber_Absolute');
- PyNumber_Add :=Import('PyNumber_Add');
- PyNumber_And :=Import('PyNumber_And');
- PyNumber_Check :=Import('PyNumber_Check');
- if not IsPython3000 then
- PyNumber_Coerce :=Import('PyNumber_Coerce');
- if IsPython3000 then
- PyNumber_Divide :=Import('PyNumber_TrueDivide')
- else
- PyNumber_Divide :=Import('PyNumber_Divide');
- PyNumber_FloorDivide :=Import('PyNumber_FloorDivide');
- PyNumber_TrueDivide :=Import('PyNumber_TrueDivide');
- PyNumber_Divmod :=Import('PyNumber_Divmod');
- PyNumber_Float :=Import('PyNumber_Float');
- if not IsPython3000 then
- PyNumber_Int :=Import('PyNumber_Int');
- PyNumber_Invert :=Import('PyNumber_Invert');
- PyNumber_Long :=Import('PyNumber_Long');
- PyNumber_Lshift :=Import('PyNumber_Lshift');
- PyNumber_Multiply :=Import('PyNumber_Multiply');
- PyNumber_Negative :=Import('PyNumber_Negative');
- PyNumber_Or :=Import('PyNumber_Or');
- PyNumber_Positive :=Import('PyNumber_Positive');
- PyNumber_Power :=Import('PyNumber_Power');
- PyNumber_Remainder :=Import('PyNumber_Remainder');
- PyNumber_Rshift :=Import('PyNumber_Rshift');
- PyNumber_Subtract :=Import('PyNumber_Subtract');
- PyNumber_Xor :=Import('PyNumber_Xor');
- PyOS_InitInterrupts :=Import('PyOS_InitInterrupts');
- PyOS_InterruptOccurred :=Import('PyOS_InterruptOccurred');
- PyObject_CallObject :=Import('PyObject_CallObject');
- PyObject_CallMethod :=Import('PyObject_CallMethod');
- PyObject_CallMethodStr :=Import('PyObject_CallMethod');
- if not IsPython3000 then
- PyObject_Compare :=Import('PyObject_Compare');
- PyObject_RichCompare :=Import('PyObject_RichCompare');
- PyObject_RichCompareBool :=Import('PyObject_RichCompareBool');
- PyObject_GetAttr :=Import('PyObject_GetAttr');
- PyObject_GetAttrString :=Import('PyObject_GetAttrString');
- PyObject_GetItem :=Import('PyObject_GetItem');
- PyObject_DelItem :=Import('PyObject_DelItem');
- PyObject_HasAttrString :=Import('PyObject_HasAttrString');
- PyObject_Hash :=Import('PyObject_Hash');
- PyObject_IsTrue :=Import('PyObject_IsTrue');
- PyObject_Length :=Import('PyObject_Length');
- PyObject_Repr :=Import('PyObject_Repr');
- PyObject_SetAttr :=Import('PyObject_SetAttr');
- PyObject_SetAttrString :=Import('PyObject_SetAttrString');
- PyObject_SetItem :=Import('PyObject_SetItem');
- PyObject_Init :=Import('PyObject_Init');
- PyObject_InitVar :=Import('PyObject_InitVar');
- PyObject_New :=Import('_PyObject_New');
- PyObject_NewVar :=Import('_PyObject_NewVar');
- PyObject_Free :=Import('PyObject_Free');
- PyObject_GetIter :=Import('PyObject_GetIter');
- PyIter_Next :=Import('PyIter_Next');
- PyObject_IsInstance :=Import('PyObject_IsInstance');
- PyObject_IsSubclass :=Import('PyObject_IsSubclass');
- PyObject_Call :=Import('PyObject_Call');
- PyObject_GenericGetAttr :=Import('PyObject_GenericGetAttr');
- PyObject_GenericSetAttr :=Import('PyObject_GenericSetAttr');
- PyObject_GC_Malloc :=Import('_PyObject_GC_Malloc');
- PyObject_GC_New :=Import('_PyObject_GC_New');
- PyObject_GC_NewVar :=Import('_PyObject_GC_NewVar');
- PyObject_GC_Resize :=Import('_PyObject_GC_Resize');
- PyObject_GC_Del :=Import('PyObject_GC_Del');
- PyObject_GC_Track :=Import('PyObject_GC_Track');
- PyObject_GC_UnTrack :=Import('PyObject_GC_UnTrack');
- PySequence_Check :=Import('PySequence_Check');
- PySequence_Concat :=Import('PySequence_Concat');
- PySequence_Count :=Import('PySequence_Count');
- PySequence_GetItem :=Import('PySequence_GetItem');
- PySequence_GetSlice :=Import('PySequence_GetSlice');
- PySequence_In :=Import('PySequence_In');
- PySequence_Index :=Import('PySequence_Index');
- PySequence_Length :=Import('PySequence_Length');
- PySequence_Repeat :=Import('PySequence_Repeat');
- PySequence_SetItem :=Import('PySequence_SetItem');
- PySequence_SetSlice :=Import('PySequence_SetSlice');
- PySequence_DelSlice :=Import('PySequence_DelSlice');
- PySequence_Tuple :=Import('PySequence_Tuple');
- PySequence_Contains :=Import('PySequence_Contains');
- PySlice_GetIndices :=Import('PySlice_GetIndices');
- PySeqIter_New :=Import('PySeqIter_New');
- PySlice_GetIndicesEx :=Import('PySlice_GetIndicesEx');
- PySlice_New :=Import('PySlice_New');
- if not IsPython3000 then begin
- PyString_Concat :=Import('PyString_Concat');
- PyString_ConcatAndDel :=Import('PyString_ConcatAndDel');
- PyString_Format :=Import('PyString_Format');
- PyString_FromStringAndSize:=Import('PyString_FromStringAndSize');
- PyString_Size :=Import('PyString_Size');
- PyString_DecodeEscape :=Import('PyString_DecodeEscape');
- PyString_Repr :=Import('PyString_Repr');
- end else begin
- PyString_Concat :=Import('PyBytes_Concat');
- PyString_ConcatAndDel :=Import('PyBytes_ConcatAndDel');
- PyString_FromStringAndSize:=Import('PyBytes_FromStringAndSize');
- PyString_Size :=Import('PyBytes_Size');
- PyString_DecodeEscape :=Import('PyBytes_DecodeEscape');
- PyString_Repr :=Import('PyBytes_Repr');
- end;
- PySys_GetObject :=Import('PySys_GetObject');
- //PySys_Init :=Import('PySys_Init');
- PySys_SetObject :=Import('PySys_SetObject');
- PySys_SetPath :=Import('PySys_SetPath');
- //PyTraceBack_Fetch :=Import('PyTraceBack_Fetch');
- PyTraceBack_Here :=Import('PyTraceBack_Here');
- PyTraceBack_Print :=Import('PyTraceBack_Print');
- //@PyTraceBack_Store :=Import('PyTraceBack_Store');
- PyTuple_GetItem :=Import('PyTuple_GetItem');
- PyTuple_GetSlice :=Import('PyTuple_GetSlice');
- PyTuple_New :=Import('PyTuple_New');
- PyTuple_SetItem :=Import('PyTuple_SetItem');
- PyTuple_Size :=Import('PyTuple_Size');
- PyType_IsSubtype :=Import('PyType_IsSubtype');
- PyType_GenericAlloc :=Import('PyType_GenericAlloc');
- PyType_GenericNew :=Import('PyType_GenericNew');
- PyType_Ready :=Import('PyType_Ready');
- PyUnicode_FromWideChar :=Import(AnsiString(Format('PyUnicode%s_FromWideChar',[GetUnicodeTypeSuffix])));
- PyUnicode_AsWideChar :=Import(AnsiString(Format('PyUnicode%s_AsWideChar',[GetUnicodeTypeSuffix])));
- PyUnicode_Decode :=Import(AnsiString(Format('PyUnicode%s_Decode',[GetUnicodeTypeSuffix])));
- PyUnicode_AsEncodedString :=Import(AnsiString(Format('PyUnicode%s_AsEncodedString',[GetUnicodeTypeSuffix])));
- PyUnicode_FromOrdinal :=Import(AnsiString(Format('PyUnicode%s_FromOrdinal',[GetUnicodeTypeSuffix])));
- PyWeakref_GetObject :=Import('PyWeakref_GetObject');
- PyWeakref_NewProxy :=Import('PyWeakref_NewProxy');
- PyWeakref_NewRef :=Import('PyWeakref_NewRef');
- PyWrapper_New :=Import('PyWrapper_New');
- PyBool_FromLong :=Import('PyBool_FromLong');
- PyThreadState_SetAsyncExc :=Import('PyThreadState_SetAsyncExc');
- Py_AtExit :=Import('Py_AtExit');
- //Py_Cleanup :=Import('Py_Cleanup');
- Py_CompileString :=Import('Py_CompileString');
- Py_FatalError :=Import('Py_FatalError');
- if not IsPython3000 then begin
- Py_FindMethod :=Import('Py_FindMethod');
- Py_FindMethodInChain :=Import('Py_FindMethodInChain');
- DLL_Py_FlushLine :=Import('Py_FlushLine');
- end;
- _PyObject_New :=Import('_PyObject_New');
- if not IsPython3000 then
- _PyString_Resize :=Import('_PyString_Resize')
- else
- _PyString_Resize :=Import('_PyBytes_Resize');
- Py_Finalize :=Import('Py_Finalize');
- if getProcAddress( FDLLHandle, 'PyCode_Addr2Line' ) <> nil then
- DLL_PyCode_Addr2Line := Import('PyCode_Addr2Line');
- if getProcAddress( FDLLHandle, 'PyImport_ExecCodeModule' ) <> nil then
- DLL_PyImport_ExecCodeModule := Import('PyImport_ExecCodeModule');
- //@PyClass_IsSubclass :=Import('PyClass_IsSubclass');
- PyErr_ExceptionMatches :=Import('PyErr_ExceptionMatches');
- PyErr_GivenExceptionMatches:=Import('PyErr_GivenExceptionMatches');
- PyEval_EvalCode :=Import('PyEval_EvalCode');
- Py_GetVersion :=Import('Py_GetVersion');
- Py_GetCopyright :=Import('Py_GetCopyright');
- Py_GetExecPrefix :=Import('Py_GetExecPrefix');
- Py_GetPath :=Import('Py_GetPath');
- Py_GetPrefix :=Import('Py_GetPrefix');
- Py_GetProgramName :=Import('Py_GetProgramName');
- PyParser_SimpleParseString :=Import('PyParser_SimpleParseString');
- PyNode_Free :=Import('PyNode_Free');
- PyErr_NewException :=Import('PyErr_NewException');
-/// jah 29-sep-2000 : updated for python 2.0
-/// replaced Py_Malloc with PyMem_Malloc
-///--- @Py_Malloc := Import ('Py_Malloc');
-///+++ @Py_Malloc := Import ('PyMem_Malloc');
+ PyCFunction_NewEx := Import('PyCFunction_NewEx');
+
+ PyEval_CallObjectWithKeywords:= Import('PyEval_CallObjectWithKeywords');
+ PyEval_GetFrame := Import('PyEval_GetFrame');
+ PyEval_GetGlobals := Import('PyEval_GetGlobals');
+ PyEval_GetLocals := Import('PyEval_GetLocals');
+ PyEval_InitThreads := Import('PyEval_InitThreads');
+ PyEval_RestoreThread := Import('PyEval_RestoreThread');
+ PyEval_SaveThread := Import('PyEval_SaveThread');
+ PyFile_GetLine := Import('PyFile_GetLine');
+ PyFile_WriteObject := Import('PyFile_WriteObject');
+ PyFile_WriteString := Import('PyFile_WriteString');
+ PyFloat_AsDouble := Import('PyFloat_AsDouble');
+ PyFloat_FromDouble := Import('PyFloat_FromDouble');
+ PyFloat_FromString := Import('PyFloat_FromString');
+ PyFunction_GetCode := Import('PyFunction_GetCode');
+ PyFunction_GetGlobals := Import('PyFunction_GetGlobals');
+ PyFunction_New := Import('PyFunction_New');
+ PyImport_AddModule := Import('PyImport_AddModule');
+ PyImport_GetMagicNumber := Import('PyImport_GetMagicNumber');
+ PyImport_ImportFrozenModule:= Import('PyImport_ImportFrozenModule');
+ PyImport_ImportModule := Import('PyImport_ImportModule');
+ PyImport_Import := Import('PyImport_Import');
+ PyImport_ReloadModule := Import('PyImport_ReloadModule');
+ PyList_Append := Import('PyList_Append');
+ PyList_AsTuple := Import('PyList_AsTuple');
+ PyList_GetItem := Import('PyList_GetItem');
+ PyList_GetSlice := Import('PyList_GetSlice');
+ PyList_Insert := Import('PyList_Insert');
+ PyList_New := Import('PyList_New');
+ PyList_Reverse := Import('PyList_Reverse');
+ PyList_SetItem := Import('PyList_SetItem');
+ PyList_SetSlice := Import('PyList_SetSlice');
+ PyList_Size := Import('PyList_Size');
+ PyList_Sort := Import('PyList_Sort');
+ PyLong_AsDouble := Import('PyLong_AsDouble');
+ PyLong_AsLong := Import('PyLong_AsLong');
+ PyLong_FromDouble := Import('PyLong_FromDouble');
+ PyLong_FromLong := Import('PyLong_FromLong');
+ PyLong_FromString := Import('PyLong_FromString');
+ PyLong_FromString := Import('PyLong_FromString');
+ PyLong_FromUnsignedLong := Import('PyLong_FromUnsignedLong');
+ PyLong_AsUnsignedLong := Import('PyLong_AsUnsignedLong');
+ PyLong_FromUnicodeObject := Import('PyLong_FromUnicodeObject');
+ PyLong_FromLongLong := Import('PyLong_FromLongLong');
+ PyLong_FromUnsignedLongLong := Import('PyLong_FromUnsignedLongLong');
+ PyLong_AsLongLong := Import('PyLong_AsLongLong');
+ PyLong_FromVoidPtr := Import('PyLong_FromVoidPtr');
+ PyMapping_Check := Import('PyMapping_Check');
+ PyMapping_GetItemString := Import('PyMapping_GetItemString');
+ PyMapping_HasKey := Import('PyMapping_HasKey');
+ PyMapping_HasKeyString := Import('PyMapping_HasKeyString');
+ PyMapping_Length := Import('PyMapping_Length');
+ PyMapping_SetItemString := Import('PyMapping_SetItemString');
+ PyMapping_Keys := Import('PyMapping_Keys');
+ PyMapping_Values := Import('PyMapping_Values');
+ PyMethod_Function := Import('PyMethod_Function');
+ PyMethod_New := Import('PyMethod_New');
+ PyMethod_Self := Import('PyMethod_Self');
+ PyModule_GetName := Import('PyModule_GetName');
+ PyModule_New := Import('PyModule_New');
+ PyNumber_Absolute := Import('PyNumber_Absolute');
+ PyNumber_Add := Import('PyNumber_Add');
+ PyNumber_And := Import('PyNumber_And');
+ PyNumber_Check := Import('PyNumber_Check');
+ PyNumber_FloorDivide := Import('PyNumber_FloorDivide');
+ PyNumber_TrueDivide := Import('PyNumber_TrueDivide');
+ PyNumber_Divmod := Import('PyNumber_Divmod');
+ PyNumber_Float := Import('PyNumber_Float');
+ PyNumber_Invert := Import('PyNumber_Invert');
+ PyNumber_Long := Import('PyNumber_Long');
+ PyNumber_Lshift := Import('PyNumber_Lshift');
+ PyNumber_Multiply := Import('PyNumber_Multiply');
+ PyNumber_Negative := Import('PyNumber_Negative');
+ PyNumber_Or := Import('PyNumber_Or');
+ PyNumber_Positive := Import('PyNumber_Positive');
+ PyNumber_Power := Import('PyNumber_Power');
+ PyNumber_Remainder := Import('PyNumber_Remainder');
+ PyNumber_Rshift := Import('PyNumber_Rshift');
+ PyNumber_Subtract := Import('PyNumber_Subtract');
+ PyNumber_Xor := Import('PyNumber_Xor');
+ PyOS_InterruptOccurred := Import('PyOS_InterruptOccurred');
+ PyObject_CallObject := Import('PyObject_CallObject');
+ PyObject_CallMethod := Import('PyObject_CallMethod');
+ PyObject_RichCompare := Import('PyObject_RichCompare');
+ PyObject_RichCompareBool := Import('PyObject_RichCompareBool');
+ PyObject_GetAttr := Import('PyObject_GetAttr');
+ PyObject_GetAttrString := Import('PyObject_GetAttrString');
+ PyObject_GetItem := Import('PyObject_GetItem');
+ PyObject_DelItem := Import('PyObject_DelItem');
+ PyObject_HasAttr := Import('PyObject_HasAttr');
+ PyObject_HasAttrString := Import('PyObject_HasAttrString');
+ PyObject_Hash := Import('PyObject_Hash');
+ PyObject_IsTrue := Import('PyObject_IsTrue');
+ PyObject_Length := Import('PyObject_Length');
+ PyObject_Repr := Import('PyObject_Repr');
+ PyObject_SetAttr := Import('PyObject_SetAttr');
+ PyObject_SetAttrString := Import('PyObject_SetAttrString');
+ PyObject_SetItem := Import('PyObject_SetItem');
+ PyObject_Init := Import('PyObject_Init');
+ PyObject_InitVar := Import('PyObject_InitVar');
+ PyObject_New := Import('_PyObject_New');
+ PyObject_NewVar := Import('_PyObject_NewVar');
+ PyObject_Free := Import('PyObject_Free');
+ PyObject_GetIter := Import('PyObject_GetIter');
+ PyIter_Next := Import('PyIter_Next');
+ PyObject_IsInstance := Import('PyObject_IsInstance');
+ PyObject_IsSubclass := Import('PyObject_IsSubclass');
+ PyObject_Call := Import('PyObject_Call');
+ PyObject_GenericGetAttr := Import('PyObject_GenericGetAttr');
+ PyObject_GenericSetAttr := Import('PyObject_GenericSetAttr');
+ PyObject_Malloc := Import('PyObject_Malloc');
+ PyObject_GC_New := Import('_PyObject_GC_New');
+ PyObject_GC_NewVar := Import('_PyObject_GC_NewVar');
+ PyObject_GC_Resize := Import('_PyObject_GC_Resize');
+ PyObject_GC_Del := Import('PyObject_GC_Del');
+ PyObject_GC_Track := Import('PyObject_GC_Track');
+ PyObject_GC_UnTrack := Import('PyObject_GC_UnTrack');
+ PySequence_Check := Import('PySequence_Check');
+ PySequence_Concat := Import('PySequence_Concat');
+ PySequence_Count := Import('PySequence_Count');
+ PySequence_GetItem := Import('PySequence_GetItem');
+ PySequence_GetSlice := Import('PySequence_GetSlice');
+ PySequence_In := Import('PySequence_In');
+ PySequence_Index := Import('PySequence_Index');
+ PySequence_Length := Import('PySequence_Length');
+ PySequence_Repeat := Import('PySequence_Repeat');
+ PySequence_SetItem := Import('PySequence_SetItem');
+ PySequence_SetSlice := Import('PySequence_SetSlice');
+ PySequence_DelSlice := Import('PySequence_DelSlice');
+ PySequence_Tuple := Import('PySequence_Tuple');
+ PySequence_Contains := Import('PySequence_Contains');
+ PySequence_List := Import('PySequence_List');
+ PySlice_GetIndices := Import('PySlice_GetIndices');
+ PySeqIter_New := Import('PySeqIter_New');
+ PySlice_GetIndicesEx := Import('PySlice_GetIndicesEx');
+ PySlice_New := Import('PySlice_New');
+ PyBytes_AsString := Import('PyBytes_AsString');
+ PyBytes_AsStringAndSize := Import('PyBytes_AsStringAndSize');
+ PyBytes_Concat := Import('PyBytes_Concat');
+ PyBytes_ConcatAndDel := Import('PyBytes_ConcatAndDel');
+ PyBytes_FromString := Import('PyBytes_FromString');
+ PyBytes_FromStringAndSize := Import('PyBytes_FromStringAndSize');
+ PyBytes_Size := Import('PyBytes_Size');
+ PyBytes_DecodeEscape := Import('PyBytes_DecodeEscape');
+ PyBytes_Repr := Import('PyBytes_Repr');
+ _PyBytes_Resize := Import('_PyBytes_Resize');
+ PySys_GetObject := Import('PySys_GetObject');
+ PySys_SetObject := Import('PySys_SetObject');
+ PySys_SetPath := Import('PySys_SetPath');
+ PyTraceBack_Here := Import('PyTraceBack_Here');
+ PyTraceBack_Print := Import('PyTraceBack_Print');
+ PyTuple_GetItem := Import('PyTuple_GetItem');
+ PyTuple_GetSlice := Import('PyTuple_GetSlice');
+ PyTuple_New := Import('PyTuple_New');
+ PyTuple_SetItem := Import('PyTuple_SetItem');
+ PyTuple_Size := Import('PyTuple_Size');
+ PyType_IsSubtype := Import('PyType_IsSubtype');
+ PyType_GenericAlloc := Import('PyType_GenericAlloc');
+ PyType_GenericNew := Import('PyType_GenericNew');
+ PyType_Ready := Import('PyType_Ready');
+ PyUnicode_FromWideChar := Import('PyUnicode_FromWideChar');
+ PyUnicode_FromString := Import('PyUnicode_FromString');
+ PyUnicode_FromStringAndSize := Import('PyUnicode_FromStringAndSize');
+ PyUnicode_FromKindAndData := Import('PyUnicode_FromKindAndData');
+ PyUnicode_AsWideChar := Import('PyUnicode_AsWideChar');
+ PyUnicode_AsUTF8 := Import('PyUnicode_AsUTF8');
+ PyUnicode_AsUTF8AndSize := Import('PyUnicode_AsUTF8AndSize');
+ PyUnicode_Decode := Import('PyUnicode_Decode');
+ PyUnicode_DecodeUTF16 := Import('PyUnicode_DecodeUTF16');
+ PyUnicode_AsEncodedString := Import('PyUnicode_AsEncodedString');
+ PyUnicode_FromOrdinal := Import('PyUnicode_FromOrdinal');
+ PyUnicode_GetLength := Import('PyUnicode_GetLength');
+ PyWeakref_GetObject := Import('PyWeakref_GetObject');
+ PyWeakref_NewProxy := Import('PyWeakref_NewProxy');
+ PyWeakref_NewRef := Import('PyWeakref_NewRef');
+ PyWrapper_New := Import('PyWrapper_New');
+ PyBool_FromLong := Import('PyBool_FromLong');
+ PyThreadState_SetAsyncExc := Import('PyThreadState_SetAsyncExc');
+ Py_AtExit := Import('Py_AtExit');
+ Py_FatalError := Import('Py_FatalError');
+ Py_CompileStringExFlags := Import('Py_CompileStringExFlags');
+ _PyObject_New := Import('_PyObject_New');
+ Py_Finalize := Import('Py_Finalize');
+ PyImport_ExecCodeModule := Import('PyImport_ExecCodeModule');
+ PyErr_ExceptionMatches := Import('PyErr_ExceptionMatches');
+ PyErr_GivenExceptionMatches := Import('PyErr_GivenExceptionMatches');
+ PyEval_EvalCode := Import('PyEval_EvalCode');
+ Py_GetVersion := Import('Py_GetVersion');
+ Py_GetCopyright := Import('Py_GetCopyright');
+ Py_GetExecPrefix := Import('Py_GetExecPrefix');
+ Py_GetPath := Import('Py_GetPath');
+ Py_SetPath := Import('Py_SetPath');
+ Py_SetPythonHome := Import('Py_SetPythonHome');
+ Py_GetPythonHome := Import('Py_GetPythonHome');
+ Py_GetPrefix := Import('Py_GetPrefix');
+ Py_GetProgramName := Import('Py_GetProgramName');
+
+ if (FMajorVersion = 3) and (MinorVersion < 10) then
+ begin
+ PyParser_SimpleParseStringFlags := Import('PyParser_SimpleParseStringFlags');
+ PyNode_Free := Import('PyNode_Free');
+ end;
+
+ PyErr_NewException := Import('PyErr_NewException');
try
- Py_Malloc := Import ('PyMem_Malloc');
PyMem_Malloc := Import ('PyMem_Malloc');
except
end;
- if not IsPython3000 then
- Py_SetProgramName := Import('Py_SetProgramName')
- else
- Py_SetProgramName3000 := Import('Py_SetProgramName');
+ Py_SetProgramName := Import('Py_SetProgramName');
Py_IsInitialized := Import('Py_IsInitialized');
Py_GetProgramFullPath := Import('Py_GetProgramFullPath');
- if getProcAddress( FDLLHandle, 'Py_GetBuildInfo' ) <> nil then
- DLL_Py_GetBuildInfo := Import('Py_GetBuildInfo');
+ Py_GetBuildInfo := Import('Py_GetBuildInfo');
Py_NewInterpreter := Import('Py_NewInterpreter');
Py_EndInterpreter := Import('Py_EndInterpreter');
PyEval_AcquireLock := Import('PyEval_AcquireLock');
@@ -4036,12 +3618,22 @@ procedure TPythonInterface.MapDll;
PyGILState_Release := Import('PyGILState_Release');
end;
-procedure TPythonInterface.Py_INCREF(op: PPyObject);
+function TPythonInterface.Py_CompileString(str,filename:PAnsiChar;start:integer):PPyObject;
+begin
+ Result := Py_CompileStringExFlags(str, filename, start, nil, -1);
+end;
+
+function TPythonInterface.PyParser_SimpleParseString( str : PAnsiChar; start : integer) : PNode; cdecl;
+begin
+ Result := PyParser_SimpleParseStringFlags(str, start, 0);
+end;
+
+class procedure TPythonInterface.Py_INCREF(op: PPyObject);
begin
Inc(op^.ob_refcnt);
end;
-procedure TPythonInterface.Py_DECREF(op: PPyObject);
+class procedure TPythonInterface.Py_DECREF(op: PPyObject);
begin
with op^ do begin
Dec(ob_refcnt);
@@ -4051,121 +3643,37 @@ procedure TPythonInterface.Py_DECREF(op: PPyObject);
end;
end;
-procedure TPythonInterface.Py_XINCREF(op: PPyObject);
+class procedure TPythonInterface.Py_XINCREF(op: PPyObject);
begin
if op <> nil then Py_INCREF(op);
end;
-procedure TPythonInterface.Py_XDECREF(op: PPyObject);
+class procedure TPythonInterface.Py_XDECREF(op: PPyObject);
begin
if op <> nil then Py_DECREF(op);
end;
-function TPythonInterface.Py_GetPlatform: PAnsiChar; cdecl;
-begin
- Py_GetPlatform := 'win32';
-end;
-
-// This function is copied from compile.c because it was not
-// exported in the Dll
-function TPythonInterface.PyCode_Addr2Line( co: PPyCodeObject; addrq : Integer ) : Integer; cdecl;
-var
- size : Integer;
- p : PAnsiChar;
- line : Integer;
- addr : Integer;
- cpt : Integer;
-begin
- if Assigned(DLL_PyCode_Addr2Line) then
- begin
- Result := DLL_PyCode_Addr2Line( co, addrq );
- Exit;
- end;
- size := PyString_Size(co^.co_lnotab) div 2;
- p := PyString_AsString(co^.co_lnotab);
- line := co^.co_firstlineno;
- addr := 0;
- cpt := 0;
- while (size-1) >= 0 do
- begin
- Dec(size);
- Inc( addr, Ord(p[cpt]) );
- Inc(cpt);
- if addr > addrq then
- Break;
- Inc( line, Ord(p[cpt]) );
- Inc(cpt);
- end;
- Result := line;
-end;
-function TPythonInterface.Py_GetBuildInfo : PAnsiChar; cdecl;
-begin
- if Assigned(DLL_Py_GetBuildInfo) then
- begin
- Result := DLL_Py_GetBuildInfo;
- Exit;
- end;
- Result := 'No build info';
-end;
-
-function TPythonInterface.PyImport_ExecCodeModule( const AName : AnsiString; codeobject : PPyObject) : PPyObject;
-var
- m, d, v, modules : PPyObject;
+class procedure TPythonInterface.Py_CLEAR(var op: PPyObject);
+Var
+ _py_tmp : PPyObject;
begin
- if Assigned(DLL_PyImport_ExecCodeModule) then
+ _py_tmp := op;
+ if _py_tmp <> nil then
begin
- Result := DLL_PyImport_ExecCodeModule(PAnsiChar(AName), codeobject);
- Exit;
+ op := nil;
+ Py_DECREF(_py_tmp);
end;
- CheckPython;
- m := PyImport_AddModule(PAnsiChar(AName));
- if not Assigned(m) then
- begin
- Result := nil;
- Exit;
- end;
- d := PyModule_GetDict(m);
- if PyDict_GetItemString(d, '__builtins__') = nil then
- begin
- if PyDict_SetItemString(d, '__builtins__', PyEval_GetBuiltins) <> 0 then
- begin
- Result := nil;
- Exit;
- end;
- end;
- // Remember the fielname as the __file__ attribute
- if PyDict_SetItemString(d, '__file__', PPyCodeObject(codeobject)^.co_filename) <> 0 then
- PyErr_Clear; // Not important enough to report
- v := PyEval_EvalCode(PPyCodeObject(codeobject), d, d); // XXX owner ?
- if not Assigned(v) then
- begin
- Result := nil;
- Exit;
- end;
- Py_XDECREF(v);
- modules := PyImport_GetModuleDict;
- if PyDict_GetItemString(modules, PAnsiChar(AName)) = nil then
- begin
- PyErr_SetString(PyExc_ImportError^,
- PAnsiChar(AnsiString(Format('Loaded module %.200s not found in sys.modules', [AName]))));
- Result := nil;
- Exit;
- end;
- Py_XINCREF(m);
- Result := m;
end;
-function TPythonInterface.PyString_Check( obj : PPyObject ) : Boolean;
+function TPythonInterface.PyBytes_Check( obj : PPyObject ) : Boolean;
begin
- Result := PyObject_TypeCheck(obj, PyString_Type);
- if not Result then
- Result := PyObject_TypeCheck(obj, PyUnicode_Type);
+ Result := PyObject_TypeCheck(obj, PyBytes_Type);
end;
-function TPythonInterface.PyString_CheckExact(obj: PPyObject): Boolean;
+function TPythonInterface.PyBytes_CheckExact(obj: PPyObject): Boolean;
begin
- Result := Assigned( obj ) and (obj^.ob_type = PPyTypeObject(PyString_Type));
+ Result := Assigned( obj ) and (obj^.ob_type = PPyTypeObject(PyBytes_Type));
end;
function TPythonInterface.PyFloat_Check( obj : PPyObject ) : Boolean;
@@ -4178,22 +3686,6 @@ function TPythonInterface.PyFloat_CheckExact(obj: PPyObject): Boolean;
Result := Assigned( obj ) and (obj^.ob_type = PPyTypeObject(PyFloat_Type));
end;
-function TPythonInterface.PyInt_Check( obj : PPyObject ) : Boolean;
-begin
- if IsPython3000 then
- Result := PyObject_TypeCheck(obj, PyLong_Type)
- else
- Result := PyObject_TypeCheck(obj, PyInt_Type);
-end;
-
-function TPythonInterface.PyInt_CheckExact(obj: PPyObject): Boolean;
-begin
- if IsPython3000 then
- Result := Assigned( obj ) and (obj^.ob_type = PPyTypeObject(PyLong_Type))
- else
- Result := Assigned( obj ) and (obj^.ob_type = PPyTypeObject(PyInt_Type));
-end;
-
function TPythonInterface.PyLong_Check( obj : PPyObject ) : Boolean;
begin
Result := PyObject_TypeCheck(obj, PyLong_Type);
@@ -4214,14 +3706,9 @@ function TPythonInterface.PyTuple_CheckExact(obj: PPyObject): Boolean;
Result := Assigned( obj ) and (obj^.ob_type = PPyTypeObject(PyTuple_Type));
end;
-function TPythonInterface.PyInstance_Check( obj : PPyObject ) : Boolean;
-begin
- Result := Assigned( obj ) and (not IsPython3000) and (obj^.ob_type = PPyTypeObject(PyInstance_Type));
-end;
-
function TPythonInterface.PyClass_Check( obj : PPyObject ) : Boolean;
begin
- Result := Assigned( obj ) and not IsPython3000 and (obj^.ob_type = PPyTypeObject(PyClass_Type));
+ Result := Assigned( obj ) and (PyObject_IsInstance(obj, PPyObject(PyType_Type)) <> 0);
end;
function TPythonInterface.PyType_CheckExact( obj : PPyObject ) : Boolean;
@@ -4276,11 +3763,9 @@ function TPythonInterface.PyFunction_Check( obj : PPyObject ) : Boolean;
(obj^.ob_type = PPyTypeObject(PyFunction_Type)));
end;
-function TPythonInterface.PyIter_Check( obj : PPyObject ) : Boolean;
+function TPythonInterface.PyIter_Check(obj: PPyObject): Boolean;
begin
- Result := Assigned( obj ) and
- (IsPython3000 or (PyType_HasFeature(obj^.ob_type, Py_TPFLAGS_HAVE_ITER))
- and Assigned(obj^.ob_type^.tp_iternext));
+ Result := Assigned(obj) and Assigned(obj^.ob_type^.tp_iternext);
end;
function TPythonInterface.PyUnicode_Check( obj : PPyObject ) : Boolean;
@@ -4326,14 +3811,6 @@ function TPythonInterface.PyBool_Check( obj : PPyObject ) : Boolean;
Result := PyObject_TypeCheck(obj, PyBool_Type);
end;
-function TPythonInterface.PyBaseString_Check( obj : PPyObject ) : Boolean;
-begin
- if IsPython3000 then
- Result:= PyObject_TypeCheck(obj, PyUnicode_Type)
- else
- Result := PyObject_TypeCheck(obj, PyBaseString_Type);
-end;
-
function TPythonInterface.PyEnum_Check( obj : PPyObject ) : Boolean;
begin
Result := Assigned( obj ) and (obj^.ob_type = PPyTypeObject(PyEnum_Type));
@@ -4346,13 +3823,7 @@ function TPythonInterface.PyObject_TypeCheck(obj : PPyObject; t : PPyTypeObject)
Result := PyType_IsSubtype(obj^.ob_type, t) = 1;
end;
-function TPythonInterface.Py_InitModule( const AName : PAnsiChar; md : PPyMethodDef) : PPyObject;
-begin
- CheckPython;
- Result := Py_InitModule4( AName, md, nil, nil, APIVersion );
-end;
-
-function TPythonInterface.Py_InitModule3000(const md: PyModuleDef): PPyObject;
+function TPythonInterface.Py_InitModule(const md: PyModuleDef): PPyObject;
Var
modules : PPyObject;
begin
@@ -4366,12 +3837,6 @@ function TPythonInterface.Py_InitModule3000(const md: PyModuleDef): PPyObject;
GetPythonEngine.CheckError;
end;
-procedure TPythonInterface.Py_FlushLine; cdecl;
-begin
- if Assigned(DLL_Py_FlushLine) then
- DLL_Py_FlushLine;
-end;
-
(*******************************************************)
(** **)
(** class TPythonTraceback **)
@@ -4402,6 +3867,18 @@ destructor TPythonTraceback.Destroy;
inherited;
end;
+procedure TPythonTraceback.AddItem(const Context, FileName: string;
+ LineNo: Integer);
+var
+ Item: TTracebackItem;
+begin
+ Item := TTracebackItem.Create;
+ Item.Context := Context;
+ Item.FileName := FileName;
+ Item.LineNo := LineNo;
+ FItems.Add(Item);
+end;
+
procedure TPythonTraceback.Clear;
var
i : Integer;
@@ -4424,7 +3901,6 @@ procedure TPythonTraceback.Clear;
}
procedure TPythonTraceback.Refresh;
var
-// tb, tb1 : PPyTraceBackObject;
tb, tb1 : PPyObject;
obj : PPyObject;
frame : PPyObject;
@@ -4440,8 +3916,8 @@ procedure TPythonTraceback.Refresh;
// get the limit of the traceback
alimit := FLimit;
limitv := PySys_GetObject('tracebacklimit');
- if Assigned(limitv) and PyInt_Check(limitv) then
- alimit := PyInt_AsLong(limitv);
+ if Assigned(limitv) and PyLong_Check(limitv) then
+ alimit := PyLong_AsLong(limitv);
tb := PySys_GetObject('last_traceback');
tb1 := tb;
Py_XIncRef(tb1);
@@ -4530,8 +4006,6 @@ constructor TPythonEngine.Create(AOwner: TComponent);
i : Integer;
begin
inherited;
- FLock := TCriticalSection.Create;
- FInitialized := False;
FInitScript := TstringList.Create;
FClients := TList.Create;
FRedirectIO := True;
@@ -4552,18 +4026,21 @@ constructor TPythonEngine.Create(AOwner: TComponent);
end;
destructor TPythonEngine.Destroy;
+var
+ I: Integer;
begin
LocalVars := nil;
GlobalVars := nil;
Destroying;
Finalize;
-{$IFDEF FPC}
+ for I := 0 to ClientCount - 1 do
+ Clients[I].ClearEngine;
+{$IFDEF FPC} // See https://github.com/Alexey-T/Python-for-Lazarus/issues/29
inherited;
-{$ENDIF} // Free our objects
+{$ENDIF}
FClients.Free;
FInitScript.Free;
FTraceback.Free;
- FLock.Free;
{$IFNDEF FPC}
inherited;
{$ENDIF}
@@ -4572,7 +4049,6 @@ destructor TPythonEngine.Destroy;
procedure TPythonEngine.Finalize;
var
i: integer;
- canDetachClients : Boolean;
begin
// switch off redirection when the component is destroying,
// because the form or datamodule is beeing closed, and
@@ -4595,27 +4071,17 @@ procedure TPythonEngine.Finalize;
Finalize;
end;
// Then finalize Python, if we have to
- if Initialized and FAutoFinalize then
+ if Initialized and FAutoFinalize then begin
try
- FFinalizing := True;
- Py_Finalize;
- finally
- FFinalizing := False;
- end;
- // Detach our clients, when engine is beeing destroyed or one of its clients.
- canDetachClients := csDestroying in ComponentState;
- if not canDetachClients then
- for i := 0 to ClientCount - 1 do
- if csDestroying in Clients[i].ComponentState then
- begin
- canDetachClients := True;
- Break;
+ try
+ FFinalizing := True;
+ Py_Finalize;
+ finally
+ FFinalizing := False;
+ FInitialized := False;
end;
- if canDetachClients then
- begin
- for i := 0 to ClientCount - 1 do
- Clients[i].ClearEngine;
- FClients.Clear;
+ except
+ end;
end;
// Free our reference
gPythonEngine := nil;
@@ -4629,16 +4095,6 @@ procedure TPythonEngine.Finalize;
FPyDateTime_DateTimeTZType := nil;
end;
-procedure TPythonEngine.Lock;
-begin
- FLock.Enter;
-end;
-
-procedure TPythonEngine.Unlock;
-begin
- FLock.Leave;
-end;
-
procedure TPythonEngine.AfterLoad;
begin
inherited;
@@ -4654,10 +4110,10 @@ procedure TPythonEngine.BeforeLoad;
procedure TPythonEngine.DoOpenDll(const aDllName : String);
var
- i : Integer;
+ i: Integer;
begin
if UseLastKnownVersion then
- for i:= Integer(COMPILED_FOR_PYTHON_VERSION_INDEX) to High(PYTHON_KNOWN_VERSIONS) do
+ for i:= Integer(COMPILED_FOR_PYTHON_VERSION_INDEX) downto 1 do
begin
RegVersion := PYTHON_KNOWN_VERSIONS[i].RegVersion;
FDLLHandle := SafeLoadLibrary(GetDllPath+PYTHON_KNOWN_VERSIONS[i].DllName);
@@ -4667,10 +4123,12 @@ procedure TPythonEngine.DoOpenDll(const aDllName : String);
APIVersion := PYTHON_KNOWN_VERSIONS[i].APIVersion;
Exit;
end;
- if not PYTHON_KNOWN_VERSIONS[i].CanUseLatest then
- Break;
- end;
- inherited;
+ end
+ else
+ begin
+ RegVersion := SysVersionFromDLLName(aDllName);
+ inherited;
+ end;
end;
procedure TPythonEngine.AssignPyFlags;
@@ -4690,15 +4148,8 @@ procedure TPythonEngine.AssignPyFlags;
SetFlag(Py_InteractiveFlag, pfInteractive in FPyFlags);
SetFlag(Py_OptimizeFlag, pfOptimize in FPyFlags);
SetFlag(Py_NoSiteFlag, pfNoSite in FPyFlags);
- SetFlag(Py_UseClassExceptionsFlag, pfUseClassExceptionsFlag in FPyFlags);
SetFlag(Py_FrozenFlag, pfFrozenFlag in FPyFlags);
- if not IsPython3000 then begin
- SetFlag(Py_UnicodeFlag, pfUnicode in FPyFlags);
- SetFlag(Py_TabcheckFlag, pfTabcheck in FPyFlags);
- end;
SetFlag(Py_IgnoreEnvironmentFlag, pfIgnoreEnvironmentFlag in FPyFlags);
- if Assigned(Py_DivisionWarningFlag) then
- SetFlag(Py_DivisionWarningFlag, pfDivisionWarningFlag in FPyFlags);
end;
procedure TPythonEngine.Initialize;
@@ -4706,7 +4157,19 @@ procedure TPythonEngine.Initialize;
procedure InitSysPath;
var
_path : PPyObject;
+ const Script =
+ 'import sys' + sLineBreak +
+ 'sys.executable = r"%s"' + sLineBreak +
+ 'path = sys.path' + sLineBreak +
+ 'for i in range(len(path)-1, -1, -1):' + sLineBreak +
+ ' if path[i].find("site-packages") > 0:' + sLineBreak +
+ ' path.pop(i)' + sLineBreak +
+ 'import site' + sLineBreak +
+ 'site.main()' + sLineBreak +
+ 'del sys, path, i, site';
begin
+ if VenvPythonExe <> '' then
+ ExecString(AnsiString(Format(Script, [VenvPythonExe])));
_path := PySys_GetObject('path');
if Assigned(FOnSysPathInit) then
FOnSysPathInit(Self, _path);
@@ -4765,33 +4228,18 @@ procedure TPythonEngine.Initialize;
if Assigned(gPythonEngine) then
raise Exception.Create('There is already one instance of TPythonEngine running' );
- {$IFDEF FPC}
- //this allows you to just call Initialize to create a non-IDE instance with
- //Lazarus.
- if(AutoLoad and not IsHandleValid) then begin
- LoadDLL;//Calls initialize
- exit;
- end;
- {$ENDIF}
-
gPythonEngine := Self;
CheckRegistry;
- if IsPython3000 then begin
- if Assigned(Py_SetProgramName3000) then
- begin
- FProgramNameW := ParamStr(0);
- Py_SetProgramName3000(PWideChar(FProgramNameW));
- end
- end else begin
- if Assigned(Py_SetProgramName) then
- begin
- FProgramName := AnsiString(ParamStr(0));
- Py_SetProgramName(PAnsiChar(FProgramName));
- end
- end;
+ if Assigned(Py_SetProgramName) and (Length(FProgramName) > 0) then
+ Py_SetProgramName(PWCharT(FProgramName));
AssignPyFlags;
+ if Length(FPythonHome) > 0 then
+ Py_SetPythonHome(PWCharT(FPythonHome));
Py_Initialize;
- FInitialized := True;
+ if Assigned(Py_IsInitialized) then
+ FInitialized := Py_IsInitialized() <> 0
+ else
+ FInitialized := True;
FIORedirected := False;
InitSysPath;
SetProgramArgs;
@@ -4816,17 +4264,6 @@ procedure TPythonEngine.SetInitScript(Value: TStrings);
FInitScript.Assign(Value);
end;
-function TPythonEngine.GetInterpreterState: PPyInterpreterState;
-var
- res: PPyThreadState;
-begin
- if Assigned(PyThreadState_Get) then begin
- res:= PyThreadState_Get;
- Result := res^.interp;
- end else
- Result := nil;
-end;
-
function TPythonEngine.GetThreadState: PPyThreadState;
begin
if Assigned(PyThreadState_Get) then
@@ -4857,24 +4294,10 @@ function TPythonEngine.GetClients( idx : Integer ) : TEngineClient;
procedure TPythonEngine.Notification( AComponent: TComponent;
Operation: TOperation);
-var
- i : Integer;
begin
inherited;
- if Operation = opRemove then
- begin
- if AComponent = IO then
- IO := nil
- else
- begin
- for i := 0 to ClientCount - 1 do
- if Clients[i] = AComponent then
- begin
- RemoveClient( Clients[i] );
- Break;
- end;
- end;
- end;
+ if (Operation = opRemove) and (AComponent = IO) then
+ IO := nil
end;
procedure TPythonEngine.CheckRegistry;
@@ -4923,53 +4346,36 @@ procedure TPythonEngine.CheckRegistry;
procedure TPythonEngine.SetProgramArgs;
var
- buff : PAnsiChar;
- argv : PPAnsiChar;
- i, argc : Integer;
- L : array of AnsiString;
- wbuff : PWideChar;
- wargv : PPWideChar;
- WL : array of UnicodeString;
+ I, argc : Integer;
+ wargv : array of PWCharT;
+ WL : array of WCharTString;
+ TempS: UnicodeString;
begin
- Exit; //AT: code hangs on Linux x64
- //////////////////////////////
-
// we build a string list of the arguments, because ParamStr returns a volatile string
- // and we want to build an array of PAnsiChar, pointing to valid strings.
+ // and we want to build an array of PWCharT, pointing to valid strings.
argc := ParamCount;
- if not IsPython3000 then begin
- SetLength(L, argc+1);
- GetMem( buff, sizeof(PAnsiChar)*(argc+1) );
- try
- argv := PPAnsiChar(buff);
- // get the strings
- // build the PAnsiChar array
- for i := 0 to argc do begin
- L[i] := AnsiString(ParamStr(i));
- argv^[i] := PAnsiChar(L[i]);
- end;
- // set the argv list of the sys module with the application arguments
- PySys_SetArgv( argc+1, argv );
- finally
- FreeMem( buff );
- end;
- end else begin
- SetLength(WL, argc+1);
- GetMem( wbuff, sizeof(PWideChar)*(argc+1) );
- try
- wargv := PPWideChar(wbuff);
- // get the strings
- // build the PAnsiChar array
- for i := 0 to argc do begin
- WL[i] := ParamStr(i);
- wargv^[i] := PWideChar(WL[i]);
- end;
- // set the argv list of the sys module with the application arguments
- PySys_SetArgv3000( argc + 1, wargv );
- finally
- FreeMem( wbuff );
- end;
+ SetLength(wargv, argc + 1);
+ // build the PWCharT array
+ SetLength(WL, argc+1);
+ for I := 0 to argc do begin
+ {
+ ... the first entry should refer to the script file to be executed rather
+ than the executable hosting the Python interpreter. If there isn’t a
+ script that will be run, the first entry in argv can be an empty string.
+ }
+ if I = 0 then
+ TempS := ''
+ else
+ TempS := ParamStr(I);
+ {$IFDEF POSIX}
+ WL[I] := UnicodeStringToUCS4String(TempS);
+ {$ELSE}
+ WL[I] := UnicodeString(TempS);
+ {$ENDIF}
+ wargv[I] := PWCharT(WL[I]);
end;
+ // set the argv list of the sys module with the application arguments
+ PySys_SetArgv( argc + 1, PPWCharT(wargv) );
end;
procedure TPythonEngine.InitWinConsole;
@@ -5034,40 +4440,71 @@ procedure TPythonEngine.SetPyFlags(const Value: TPythonFlags);
end; // of if
end;
-function TPythonEngine.IsType(ob: PPyObject; obt: PPyTypeObject): Boolean;
+function TPythonEngine.GetPythonHome: UnicodeString;
begin
- result := ob^.ob_type = obt;
+{$IFDEF POSIX}
+ if Length(FPythonHome) = 0 then
+ Result := ''
+ else
+ Result := UCS4StringToUnicodeString(FPythonHome);
+{$ELSE}
+ Result := FPythonHome;
+{$ENDIF}
end;
-function TPythonEngine.GetAttrString(obj: PPyObject; AName: PAnsiChar):PAnsiChar;
-var
- attr: PPyObject;
+function TPythonEngine.GetPythonPath: UnicodeString;
begin
- CheckPython;
- result := nil;
- attr := PyObject_GetAttrString(obj, AName);
- if attr <> nil then begin
- result := PyString_AsString(attr);
- Py_XDECREF(attr);
- end;
- PyErr_Clear;
+{$IFDEF POSIX}
+ if (Length(FPythonPath) > 0) then
+ Result := UCS4StringToUnicodeString(FPythonPath)
+ else
+ Result := '';
+{$ELSE}
+ Result := FPythonPath;
+{$ENDIF}
end;
-function TPythonEngine.CleanString(const s : AnsiString) : AnsiString;
-var
- i : Integer;
+function TPythonEngine.GetProgramName: UnicodeString;
begin
- result := s;
- if s = '' then
- Exit;
- i := Pos(AnsiString(CR),s);
- while i > 0 do
- begin
- Delete( result, i, 1 );
- i := Pos(AnsiString(CR),result);
- end;
- if result[length(result)] <> LF then
- Insert( LF, result, length(result)+1 );
+{$IFDEF POSIX}
+ if Length(FProgramName) = 0 then
+ Result := ''
+ else
+ Result := UCS4StringToUnicodeString(FProgramName);
+{$ELSE}
+ Result := FProgramName;
+{$ENDIF}
+end;
+procedure TPythonEngine.SetPythonHome(const PythonHome: UnicodeString);
+begin
+{$IFDEF POSIX}
+ FPythonHome := UnicodeStringToUCS4String(PythonHome);
+{$ELSE}
+ FPythonHome := PythonHome;
+{$ENDIF}
+end;
+
+procedure TPythonEngine.SetPythonPath(const Value: UnicodeString);
+begin
+{$IFDEF POSIX}
+ FPythonPath := UnicodeStringToUCS4String(Value);
+{$ELSE}
+ FPythonPath := Value;
+{$ENDIF}
+end;
+
+procedure TPythonEngine.SetProgramName(const ProgramName: UnicodeString);
+begin
+{$IFDEF POSIX}
+ FProgramName := UnicodeStringToUCS4String(ProgramName);
+{$ELSE}
+ FProgramName := ProgramName;
+{$ENDIF}
+end;
+
+function TPythonEngine.IsType(ob: PPyObject; obt: PPyTypeObject): Boolean;
+begin
+ result := ob^.ob_type = obt;
end;
function TPythonEngine.EvalPyFunction(pyfunc, pyargs:PPyObject): Variant;
@@ -5095,9 +4532,7 @@ function TPythonEngine.EvalPyFunction(pyfunc, pyargs:PPyObject): Variant;
Py_DECREF(presult);
end;
end;
- Py_FlushLine;
except
- Py_FlushLine;
if PyErr_Occurred <> nil then
CheckError(False)
else
@@ -5129,40 +4564,55 @@ function TPythonEngine.EvalFunctionNoArgs(pyfunc:PPyObject): Variant;
end;
end;
-function TPythonEngine.EvalStringAsStr(const command : AnsiString) : String;
+function TPythonEngine.EvalStringAsStr(const command: AnsiString; const
+ FileName: string = ''): string;
begin
- Result := Run_CommandAsString( command, eval_input );
+ Result := Run_CommandAsString(command, eval_input, FileName);
end;
-function TPythonEngine.EvalString(const command : AnsiString) : PPyObject;
+function TPythonEngine.EvalString(const command: AnsiString; const FileName:
+ string = ''): PPyObject;
begin
- Result := Run_CommandAsObject( command, eval_input );
+ Result := Run_CommandAsObject(command, eval_input, FileName);
end;
-procedure TPythonEngine.ExecString(const command : AnsiString);
+procedure TPythonEngine.ExecString(const command: AnsiString; const FileName:
+ string = '');
begin
- Py_XDecRef( Run_CommandAsObject( command, file_input ) );
+ Py_XDecRef(Run_CommandAsObject(command, file_input, FileName));
end;
-function TPythonEngine.Run_CommandAsString(const command : AnsiString; mode : Integer) : String;
+function TPythonEngine.Run_CommandAsString(const command: AnsiString; mode:
+ Integer; const FileName: string = ''): string;
var
- v : PPyObject;
+ PRes : PPyObject;
begin
Result := '';
- v := Run_CommandAsObject( command, mode );
- Result := PyObjectAsString( v );
- Py_XDECREF(v);
+ PRes := Run_CommandAsObject(command, mode, FileName);
+ Result := PyObjectAsString(PRes);
+ Py_XDECREF(PRes);
end;
-function TPythonEngine.Run_CommandAsObject(const command : AnsiString; mode : Integer) : PPyObject;
+function TPythonEngine.Run_CommandAsObject(const command: AnsiString; mode:
+ Integer; const FileName: string = ''): PPyObject;
begin
- Result := Run_CommandAsObjectWithDict(command, mode, nil, nil);
+ Result := Run_CommandAsObjectWithDict(command, mode, nil, nil, FileName);
end;
-function TPythonEngine.Run_CommandAsObjectWithDict(const command : AnsiString; mode : Integer; locals, globals : PPyObject) : PPyObject;
+function TPythonEngine.Run_CommandAsObjectWithDict(const command: AnsiString;
+ mode: Integer; locals, globals: PPyObject; const FileName: string =
+ ''): PPyObject;
+{
+ This is the core function for executing/evaluating python code
+ Parameters:
+ - command: utf-8 encoded AnsiString with the code that will be executed or evaluated
+ - mode: one of the constants file_input, single_input, eval_input
+ - locals, globals: python dictionaries with local/global namespaces. Can be nil.
+ - FileName; optional string used when debugging code with external debuggers
+}
var
m : PPyObject;
- _locals, _globals : PPyObject;
+ _locals, _globals, Code : PPyObject;
begin
CheckPython;
Result := nil;
@@ -5185,15 +4635,17 @@ function TPythonEngine.Run_CommandAsObjectWithDict(const command : AnsiString; m
else if Assigned(FGlobalVars) then
_globals := GlobalVars
else
- _globals := PyModule_GetDict(m);
+ _globals := _locals;
try
- Result := PyRun_String(PAnsiChar(CleanString(command)), mode, _globals, _locals);
+ Code := Py_CompileString(PAnsiChar(CleanString(command)),
+ PAnsiChar(EncodeString(FileName)), mode);
+ if Code = nil then
+ CheckError(False);
+ Result := PyEval_EvalCode(Code, _globals, _locals );
if Result = nil then
CheckError(False);
- Py_FlushLine;
except
- Py_FlushLine;
if PyErr_Occurred <> nil then
CheckError(False)
else
@@ -5201,39 +4653,62 @@ function TPythonEngine.Run_CommandAsObjectWithDict(const command : AnsiString; m
end;
end;
-procedure TPythonEngine.ExecStrings( strings : TStrings );
+procedure TPythonEngine.ExecStrings(strings: TStrings; const FileName: string =
+ '');
+begin
+ Py_XDecRef(Run_CommandAsObject(EncodeString(strings.Text), file_input, FileName));
+end;
+
+function TPythonEngine.EvalStrings(strings: TStrings; const FileName: string =
+ ''): PPyObject;
begin
- Py_XDecRef( Run_CommandAsObject( CleanString( AnsiString(strings.Text) ), file_input ) );
+ Result := Run_CommandAsObject(EncodeString(strings.Text) , eval_input, FileName);
end;
-function TPythonEngine.EvalStrings( strings : TStrings ) : PPyObject;
+procedure TPythonEngine.ExecFile(const FileName: string; locals,
+ globals: PPyObject);
+var
+ SL: TStringList;
begin
- Result := Run_CommandAsObject( CleanString( AnsiString(strings.Text) ), eval_input );
+ SL := TStringList.Create;
+ try
+ SL.LoadFromFile(FileName, TEncoding.UTF8);
+ ExecStrings(SL, locals, globals, FileName);
+ finally
+ SL.Free;
+ end;
end;
-procedure TPythonEngine.ExecString(const command : AnsiString; locals, globals : PPyObject );
+procedure TPythonEngine.ExecString(const command: AnsiString; locals, globals:
+ PPyObject; const FileName: string = '');
begin
- Py_XDecRef( Run_CommandAsObjectWithDict( command, file_input, locals, globals ) );
+ Py_XDecRef(Run_CommandAsObjectWithDict(command, file_input, locals, globals, FileName));
end;
-procedure TPythonEngine.ExecStrings( strings : TStrings; locals, globals : PPyObject );
+procedure TPythonEngine.ExecStrings(strings: TStrings; locals, globals:
+ PPyObject; const FileName: string = '');
begin
- Py_XDecRef( Run_CommandAsObjectWithDict( CleanString( AnsiString(strings.Text) ), file_input, locals, globals ) );
+ Py_XDecRef( Run_CommandAsObjectWithDict(EncodeString(strings.Text),
+ file_input, locals, globals, FileName));
end;
-function TPythonEngine.EvalString( const command : AnsiString; locals, globals : PPyObject ) : PPyObject;
+function TPythonEngine.EvalString(const command: AnsiString; locals, globals:
+ PPyObject; const FileName: string = ''): PPyObject;
begin
- Result := Run_CommandAsObjectWithDict( command, eval_input, locals, globals );
+ Result := Run_CommandAsObjectWithDict(command, eval_input, locals, globals, FileName);
end;
-function TPythonEngine.EvalStrings( strings : TStrings; locals, globals : PPyObject ) : PPyObject;
+function TPythonEngine.EvalStrings(strings: TStrings; locals, globals:
+ PPyObject; const FileName: string = ''): PPyObject;
begin
- Result := Run_CommandAsObjectWithDict( CleanString( AnsiString(strings.Text) ), eval_input, locals, globals );
+ Result := Run_CommandAsObjectWithDict(EncodeString(strings.Text),
+ eval_input, locals, globals, FileName);
end;
-function TPythonEngine.EvalStringsAsStr( strings : TStrings ) : String;
+function TPythonEngine.EvalStringsAsStr(strings: TStrings; const FileName:
+ string = ''): string;
begin
- Result := Run_CommandAsString( CleanString( AnsiString(strings.Text) ), eval_input );
+ Result := Run_CommandAsString(EncodeString(strings.Text), eval_input, FileName);
end;
function TPythonEngine.CheckEvalSyntax( const str : AnsiString ) : Boolean;
@@ -5269,14 +4744,16 @@ procedure TPythonEngine.RaiseError;
Result := E;
end;
- function DefineSyntaxError( E : EPySyntaxError; const sType, sValue : String; err_type, err_value : PPyObject ) : EPySyntaxError;
+ function DefineSyntaxError( E : EPySyntaxError; const sType, sValue : UnicodeString; err_type, err_value : PPyObject ) : EPySyntaxError;
var
- s_value : String;
- s_line : String;
- s_filename : String;
- i_line_number : Integer;
- i_offset : Integer;
- tmp : PPyObject;
+ s_value : UnicodeString;
+ s_line : UnicodeString;
+ s_filename : UnicodeString;
+ i_line_number : Integer;
+ i_offset : Integer;
+ i_end_line_number : Integer;
+ i_end_offset : Integer;
+ tmp : PPyObject;
begin
Result := E;
Result.EName := sType;
@@ -5286,64 +4763,82 @@ procedure TPythonEngine.RaiseError;
s_filename := '';
i_line_number := 0;
i_offset := 0;
+ i_end_line_number := 0;
+ i_end_offset := 0;
// Sometimes there's a tuple instead of instance...
- if PyTuple_Check( err_value ) and (PyTuple_Size( err_value) >= 2) then
+ if PyTuple_Check(err_value) and (PyTuple_Size( err_value) >= 2) then
begin
- s_value := PyString_AsDelphiString(PyTuple_GetItem( err_value, 0));
+ s_value := PyObjectAsString(PyTuple_GetItem( err_value, 0));
err_value := PyTuple_GetItem( err_value, 1);
if PyTuple_Check( err_value ) and (PyTuple_Size( err_value) >= 4) then
begin
- i_line_number := PyInt_AsLong(PyTuple_GetItem( err_value, 1));
- i_offset := PyInt_AsLong(PyTuple_GetItem( err_value, 2));
- s_line := Trim(PyString_AsDelphiString(PyTuple_GetItem( err_value, 3)));
+ i_line_number := PyLong_AsLong(PyTuple_GetItem( err_value, 1));
+ i_offset := PyLong_AsLong(PyTuple_GetItem( err_value, 2));
+ s_line := Trim(PyObjectAsString(PyTuple_GetItem( err_value, 3)));
end;
end else
// Is it an instance of the SyntaxError class ?
- if (PyInstance_Check( err_value ) and (PyClass_IsSubclass( PPyObject(PPyInstanceObject(err_value)^.in_class), err_type ) <> 0)) or
- ((PyType_IsSubtype(PPyTypeObject(err_type), PPyTypeObject(PyExc_SyntaxError^)) = 1) and IsType(err_value, PPyTypeObject(err_type))) then
- begin
- // Get the filename
- tmp := PyObject_GetAttrString(err_value, 'filename');
- if tmp <> nil then begin
- if PyString_Check(tmp) then
- s_filename := PyString_AsDelphiString(tmp)
- else if tmp = Py_None then
- s_filename := '???';
- Py_XDECREF(tmp);
- end;
- // Get the text containing the error, cut of carriage return
- tmp := PyObject_GetAttrString(err_value, 'text');
- if Assigned(tmp) and PyString_Check(tmp) then
- s_line := Trim(PyString_AsDelphiString(tmp));
- Py_XDECREF(tmp);
- // Get the offset where the error should appear
- tmp := PyObject_GetAttrString(err_value, 'offset' );
- if Assigned(tmp) and PyInt_Check(tmp) then
- i_offset := PyInt_AsLong(tmp);
+ if (PyType_IsSubtype(PPyTypeObject(err_type), PPyTypeObject(PyExc_SyntaxError^)) = 1)
+ and IsType(err_value, PPyTypeObject(err_type))
+ then
+ begin
+ // Get the filename
+ tmp := PyObject_GetAttrString(err_value, 'filename');
+ if tmp <> nil then begin
+ if PyUnicode_Check(tmp) then
+ s_filename := PyUnicodeAsString(tmp)
+ else if tmp = Py_None then
+ s_filename := '???';
Py_XDECREF(tmp);
- // Get the line number of the error
- tmp := PyObject_GetAttrString(err_value, 'lineno' );
- if Assigned(tmp) and PyInt_Check(tmp) then
- i_line_number := PyInt_AsLong(tmp);
+ end;
+ // Get the text containing the error, cut of carriage return
+ tmp := PyObject_GetAttrString(err_value, 'text');
+ if Assigned(tmp) and PyUnicode_Check(tmp) then
+ s_line := Trim(PyUnicodeAsString(tmp));
+ Py_XDECREF(tmp);
+ // Get the offset where the error should appear
+ tmp := PyObject_GetAttrString(err_value, 'offset' );
+ if Assigned(tmp) and PyLong_Check(tmp) then
+ i_offset := PyLong_AsLong(tmp);
+ Py_XDECREF(tmp);
+ // Get the line number of the error
+ tmp := PyObject_GetAttrString(err_value, 'lineno' );
+ if Assigned(tmp) and PyLong_Check(tmp) then
+ i_line_number := PyLong_AsLong(tmp);
+ Py_XDECREF(tmp);
+ // Get the message of the error
+ tmp := PyObject_GetAttrString(err_value, 'msg' );
+ if Assigned(tmp) and PyUnicode_Check(tmp) then
+ s_value := PyUnicodeAsString(tmp);
+ Py_XDECREF(tmp);
+ if (MajorVersion > 3) or (MinorVersion >= 10) then
+ begin
+ // Get the end offset of the error
+ tmp := PyObject_GetAttrString(err_value, 'end_offset' );
+ if Assigned(tmp) and PyLong_Check(tmp) then
+ i_end_offset := PyLong_AsLong(tmp);
Py_XDECREF(tmp);
- // Get the message of the error
- tmp := PyObject_GetAttrString(err_value, 'msg' );
- if Assigned(tmp) and PyString_Check(tmp) then
- s_value := PyString_AsDelphiString(tmp);
+ // Get the end line number of the error
+ tmp := PyObject_GetAttrString(err_value, 'end_lineno' );
+ if Assigned(tmp) and PyLong_Check(tmp) then
+ i_end_line_number := PyLong_AsLong(tmp);
Py_XDECREF(tmp);
end;
+ end;
// If all is ok
if s_value <> '' then
begin
with Result do
begin
- Message := Format('%s: %s (line %d, offset %d): ''%s''', [sType,s_value,i_line_number, i_offset,s_line]);
- EName := sType;
- EValue := s_value;
- EFileName := s_filename;
- ELineNumber := i_line_number;
- EOffset := i_offset;
- ELineStr := s_line;
+ Message := Format('%s: %s (line %d, offset %d): ''%s''', [sType,s_value,i_line_number, i_offset,s_line]);
+ EName := sType;
+ EValue := s_value;
+ EFileName := s_filename;
+ ELineNumber := i_line_number;
+ EOffset := i_offset;
+ EEndLineNumber := i_end_line_number;
+ EEndOffset := i_end_offset;
+ ELineStr := s_line;
end;
end
else
@@ -5352,11 +4847,8 @@ procedure TPythonEngine.RaiseError;
function GetTypeAsString( obj : PPyObject ) : String;
begin
- if PyClass_Check( obj ) then
- with PPyClassObject(obj)^ do
- Result := PyString_AsDelphiString(cl_name)
- else if PyType_CheckExact( obj ) then
- Result := String(PPyTypeObject(obj).tp_name)
+ if PyType_CheckExact( obj ) then
+ Result := string(PPyTypeObject(obj).tp_name)
else
Result := PyObjectAsString(obj);
end;
@@ -5447,8 +4939,6 @@ procedure TPythonEngine.RaiseError;
raise Define( EPySystemError.Create(''), s_type, s_value )
else if (PyErr_GivenExceptionMatches(err_type, PyExc_MemoryError^) <> 0) then
raise Define( EPyMemoryError.Create(''), s_type, s_value )
- else if (not IsPython3000) and (PyErr_GivenExceptionMatches(err_type, PyExc_StandardError^) <> 0) then
- raise Define( EPyStandardError.Create(''), s_type, s_value )
else if (PyErr_GivenExceptionMatches(err_type, PyExc_UserWarning^) <> 0) then
raise Define( EPyUserWarning.Create(''), s_type, s_value )
else if (PyErr_GivenExceptionMatches(err_type, PyExc_DeprecationWarning^) <> 0) then
@@ -5470,38 +4960,29 @@ procedure TPythonEngine.RaiseError;
raise Define( EPyExecError.Create(''), s_type, s_value );
end
else
- raise EPythonError.Create('RaiseError: could''nt fetch last exception');
+ raise EPythonError.Create('RaiseError: couldn''t fetch last exception');
end;
-function TPythonEngine.PyObjectAsString( obj : PPyObject ) : String;
+function TPythonEngine.PyObjectAsString( obj : PPyObject ) : string;
+//differs from Python4Delphi- Alexey
var
- s : PPyObject;
-// i : Integer;
-// tmp : PAnsiChar;
- w : UnicodeString;
+ S : PPyObject;
begin
- CheckPython;
Result := '';
if not Assigned( obj ) then
Exit;
if PyUnicode_Check(obj) then
begin
- w := PyUnicode_AsWideString(obj);
- Result := w;
+ Result := PyUnicodeAsUTF8String(obj);
Exit;
end;
- s := PyObject_Str( obj );
- if Assigned(s) and PyString_Check(s) then
- begin
- Result := PyString_AsDelphiString(s);
-// tmp := PyString_AsString(s);
-// SetLength( Result, PyString_Size(s)+1 );
-// Result := '';
-// for i := 0 to PyString_Size(s) - 1 do
-// Insert( tmp[i], Result, i+1 );
- end;
- Py_XDECREF(s);
+ S := PyObject_Str( obj );
+ if Assigned(S) and PyUnicode_Check(S) then
+ begin
+ Result := PyUnicodeAsUTF8String(S);
+ end;
+ Py_XDECREF(S);
end;
procedure TPythonEngine.DoRedirectIO;
@@ -5517,6 +4998,8 @@ procedure TPythonEngine.DoRedirectIO;
' return self.pyio.read(size)'+LF+
' def flush(self):' + LF +
' pass' + LF +
+ ' def isatty(self):' + LF +
+ ' return False' + LF +
'sys.old_stdin=sys.stdin'+LF+
'sys.old_stdout=sys.stdout'+LF+
'sys.old_stderr=sys.stderr'+LF+
@@ -5560,14 +5043,14 @@ procedure TPythonEngine.RemoveClient( client : TEngineClient );
// is not predictable and may cause some memory crashes !
if (csDesigning in ComponentState) then
FClients.Remove( client )
- else if (Initialized) then begin
+ else if Initialized then begin
FClients.Remove( client );
if (ClientCount = 0) then
Finalize;
end;
end;
-function TPythonEngine.FindClient( const aName : string ) : TEngineClient;
+function TPythonEngine.FindClient( const aName : AnsiString ) : TEngineClient;
var
i : Integer;
begin
@@ -5581,6 +5064,27 @@ function TPythonEngine.FindClient( const aName : string ) : TEngineClient;
end;
end;
+function TPythonEngine.EncodeString(const str: UnicodeString): AnsiString; {$IFDEF FPC}overload;{$ENDIF}
+begin
+ Result := UTF8Encode(str)
+end;
+
+{$IFDEF FPC}
+function TPythonEngine.EncodeString (const str: AnsiString): AnsiString; overload;
+begin
+ Result := UTF8Encode(str);
+end;
+{$ENDIF}
+
+function TPythonEngine.EncodeWindowsFilePath(const str: string): AnsiString;
+{PEP 529}
+begin
+ if (MajorVersion > 3) or ((MajorVersion = 3) and (MinorVersion >=6) )then
+ Result := UTF8Encode(str)
+ else
+ Result := AnsiString(str);
+end;
+
function TPythonEngine.TypeByName( const aTypeName : AnsiString ) : PPyTypeObject;
var
i : Integer;
@@ -5611,7 +5115,7 @@ function TPythonEngine.ModuleByName( const aModuleName : AnsiString ) : PPyObj
raise Exception.CreateFmt('Could not find module: %s', [aModuleName]);
end;
-function TPythonEngine.MethodsByName( const aMethodsContainer: string ) : PPyMethodDef;
+function TPythonEngine.MethodsByName( const aMethodsContainer: AnsiString ) : PPyMethodDef;
var
i : Integer;
begin
@@ -5679,7 +5183,7 @@ function TPythonEngine.VariantAsPyObject( const V : Variant ) : PPyObject;
for j := VarArrayLowBound( DeRefV, 2 ) to VarArrayHighBound( DeRefV, 2 ) do
begin
L2 := PyList_New( VarArrayHighBound( DeRefV, 3 ) - VarArrayLowBound( DeRefV, 3 ) + 1 );
- PyList_SetItem( Result, cpt2, L );
+ PyList_SetItem( L, cpt2, L2 );
cpt3 := 0;
for k := VarArrayLowBound( DeRefV, 3 ) to VarArrayHighBound( DeRefV, 3 ) do
begin
@@ -5692,20 +5196,14 @@ function TPythonEngine.VariantAsPyObject( const V : Variant ) : PPyObject;
end;
end;
-const
- GUID_NULL: TGUID = '{00000000-0000-0000-0000-000000000000}'; // copied from ActiveX.pas
var
s : AnsiString;
y, m, d, h, mi, sec, ms, jd, wd : WORD;
dt : TDateTime;
dl : Integer;
- myInt : NativeInt;
wStr : UnicodeString;
- Disp : IDispatch;
- DispID : Integer;
args : PPyObject;
begin
- Disp := nil;
//Dereference Variant
DerefV := V;
while VarType(DeRefV) = varByRef or varVariant do
@@ -5724,7 +5222,7 @@ function TPythonEngine.VariantAsPyObject( const V : Variant ) : PPyObject;
varShortInt,
varWord,
varLongWord,
- varInteger: Result := PyInt_FromLong( DeRefV );
+ varInteger: Result := PyLong_FromLong( LongInt(DeRefV) );
varInt64: Result := PyLong_FromLongLong( DeRefV );
varSingle,
varDouble,
@@ -5738,7 +5236,7 @@ function TPythonEngine.VariantAsPyObject( const V : Variant ) : PPyObject;
begin
wd := (DayOfWeek( dt ) + 7 - 2) mod 7; // In Python, Monday is the first day (=0)
jd := Round(EncodeDate(y,m,d)-EncodeDate(y,1,1))+1; // This shoud be the Julian day, the day in a year (0-366)
- dl := -1; // This is daylight save... ??????? I don't know what it is...
+ dl := -1; // This is daylight save... ?Ξ?Ξ? I don't know what it is...
Result := ArrayToPyTuple( [y, m, d, h, mi, sec, wd, jd, dl] );
end
else if (DatetimeConversionMode = dcmToDatetime) then
@@ -5762,30 +5260,18 @@ function TPythonEngine.VariantAsPyObject( const V : Variant ) : PPyObject;
wStr := ''
else
wStr := DeRefV;
- {$IFDEF PREFER_UNICODE}
- Result := PyUnicode_FromWideChar( PWideChar(wStr), Length(wStr) );
- {$ELSE}
- s := wStr;
- Result := PyString_FromStringAndSize(PAnsiChar(s), Length(s));
- {$ENDIF}
+ Result := PyUnicodeFromString(wStr);
end;
varString:
begin
s := AnsiString(DeRefV);
- Result := PyString_FromStringAndSize(PAnsiChar(s), Length(s));
+ Result := PyBytes_FromStringAndSize(PAnsiChar(s), Length(s));
end;
- {$IFDEF UNICODE}
varUString:
begin
- wStr := DeRefV;
- {$IFDEF PREFER_UNICODE}
- Result := PyUnicode_FromWideChar( PWideChar(wStr), Length(wStr) );
- {$ELSE}
- s := wStr;
- Result := PyString_FromStringAndSize(PAnsiChar(s), Length(s));
- {$ENDIF}
+ wStr := DeRefV;
+ Result := PyUnicodeFromString(wStr);
end;
- {$ENDIF}
else
if VarType(DeRefV) and varArray <> 0 then
begin
@@ -5802,22 +5288,8 @@ function TPythonEngine.VariantAsPyObject( const V : Variant ) : PPyObject;
Result := ReturnNone;
end
else
- try
- Disp := DeRefV;
- wStr := '__asPPyObject__';
- // detect if the variant supports this special property
- if Assigned(Disp) and (Disp.GetIDsOfNames(GUID_NULL, @wStr, 1, 0, @DispID) = S_OK) then
- begin
- myInt := PtrInt(DeRefV.__asPPyObject__); //Returns the address to PPyObject as integer. (See impl. in PythonAtom.pas)
- Result := PPyObject(myInt);
- Py_XIncRef(Result);
- end
- else //If variant don't implement __asPPyObject__, then we have to return nothing.
- Result := ReturnNone;
- except
- // if something went wrong, just return none!
- Result := ReturnNone;
- end; // of try
+ // if we cannot get something useful then
+ Result := ReturnNone;
end; // of case
end;
@@ -5831,8 +5303,8 @@ function TPythonEngine.PyObjectAsVariant( obj : PPyObject ) : Variant;
begin
member := PyObject_GetAttrString( obj, PAnsiChar(AMember) );
CheckError(False);
- if PyInt_Check(member) then
- Result := PyInt_AsLong(member)
+ if PyLong_Check(member) then
+ Result := PyLong_AsLong(member)
else
raise EPythonError.CreateFmt('Unexpected type found in member %s of a time_struct object', [AMember]);
Py_XDecRef(member);
@@ -5902,17 +5374,17 @@ function TPythonEngine.PyObjectAsVariant( obj : PPyObject ) : Variant;
else if PyTuple_Check( obj ) and (PyTuple_Size(obj) = 9) then
begin
for i := 0 to 8 do
- if not PyInt_Check(PyTuple_GetItem(obj, i)) then
+ if not PyLong_Check(PyTuple_GetItem(obj, i)) then
Exit;
- y := PyInt_AsLong( PyTuple_GetItem(obj, 0) );
- m := PyInt_AsLong( PyTuple_GetItem(obj, 1) );
- d := PyInt_AsLong( PyTuple_GetItem(obj, 2) );
- h := PyInt_AsLong( PyTuple_GetItem(obj, 3) );
- mi := PyInt_AsLong( PyTuple_GetItem(obj, 4) );
- sec := PyInt_AsLong( PyTuple_GetItem(obj, 5) );
- wd := PyInt_AsLong( PyTuple_GetItem(obj, 6) );
- jd := PyInt_AsLong( PyTuple_GetItem(obj, 7) );
- dl := PyInt_AsLong( PyTuple_GetItem(obj, 8) );
+ y := PyLong_AsLong( PyTuple_GetItem(obj, 0) );
+ m := PyLong_AsLong( PyTuple_GetItem(obj, 1) );
+ d := PyLong_AsLong( PyTuple_GetItem(obj, 2) );
+ h := PyLong_AsLong( PyTuple_GetItem(obj, 3) );
+ mi := PyLong_AsLong( PyTuple_GetItem(obj, 4) );
+ sec := PyLong_AsLong( PyTuple_GetItem(obj, 5) );
+ wd := PyLong_AsLong( PyTuple_GetItem(obj, 6) );
+ jd := PyLong_AsLong( PyTuple_GetItem(obj, 7) );
+ dl := PyLong_AsLong( PyTuple_GetItem(obj, 8) );
if not (m in [1..12]) or
not (d in [1..31]) or
not (h in [0..23]) or
@@ -5953,13 +5425,10 @@ function TPythonEngine.PyObjectAsVariant( obj : PPyObject ) : Variant;
Result := PyObject_IsTrue(obj) = 1
else if PyLong_Check(obj) then
Result := PyLong_AsLongLong(obj)
- // changed the order of Long and int check (KV)
- else if PyInt_Check(obj) then
- Result := PyInt_AsLong(obj)
else if PyUnicode_Check(obj) then
- Result := PyUnicode_AsWideString(obj)
- else if PyString_Check(obj) then
- Result := PyObjectAsString(obj)
+ Result := PyUnicodeAsString(obj)
+ else if PyBytes_Check(obj) then
+ Result := AnsiString(PyBytes_AsString(obj))
else if ExtractDate( Result ) then
begin
// Nothing to do
@@ -5991,57 +5460,53 @@ function TPythonEngine.PyObjectAsVariant( obj : PPyObject ) : Variant;
end;
function TPythonEngine.VarRecAsPyObject( v : TVarRec ) : PPyObject;
-var
- buff : array [0..256] of AnsiChar;
begin
case v.VType of
- vtInteger: Result := PyInt_FromLong( v.VInteger );
- vtBoolean: Result := PyInt_FromLong( Integer(v.VBoolean) );
- vtChar: Result := PyString_FromString( PAnsiChar(AnsiString(v.VChar)) );
+ vtInteger: Result := PyLong_FromLong( v.VInteger );
+ vtBoolean: Result := PyLong_FromLong( Integer(v.VBoolean) );
+ vtChar: Result := PyUnicodeFromString(AnsiString(v.VChar));
vtExtended: Result := PyFloat_FromDouble( v.VExtended^ );
vtString:
begin
if Assigned(v.VString) then
- Result := PyString_FromString( StrPCopy( buff, v.VString^) )
+ Result := PyUnicodeFromString(AnsiString(v.VString^))
else
- Result := PyString_FromString( '' );
+ Result := PyUnicodeFromString('');
end;
- vtPChar: Result := PyString_FromString( v.VPChar );
+ vtPChar: Result := PyUnicodeFromString(AnsiString(v.VPChar));
vtAnsiString:
begin
if Assigned(v.VAnsiString) then
- Result := PyString_FromString( v.VAnsiString )
+ Result := PyUnicodeFromString(PAnsiChar(v.VAnsiString))
else
- Result := PyString_FromString('');
+ Result := PyUnicodeFromString('');;
end;
vtCurrency: Result := PyFloat_FromDouble( v.VCurrency^ );
vtVariant: Result := VariantAsPyObject( v.VVariant^ );
vtPointer: Result := v.VPointer;
vtInt64: Result := PyLong_FromLongLong( v.VInt64^ );
- vtWideChar: Result := PyUnicode_FromWideString( v.VWideChar );
+ vtWideChar: Result := PyUnicodeFromString( v.VWideChar );
vtPWideChar:
begin
if Assigned(v.VPWideChar) then
- Result := PyUnicode_FromWideString( UnicodeString(v.VPWideChar) )
+ Result := PyUnicodeFromString( UnicodeString(v.VPWideChar) )
else
- Result := PyUnicode_FromWideString( '' );
+ Result := PyUnicodeFromString( '' );
end;
vtWideString:
begin
if Assigned(v.VWideString) then
- Result := PyUnicode_FromWideString( WideString(v.VWideString) )
+ Result := PyUnicodeFromString( WideString(v.VWideString) )
else
- Result := PyUnicode_FromWideString( '' );
+ Result := PyUnicodeFromString( '' );
end;
- {$IFDEF UNICODE}
vtUnicodeString:
begin
if Assigned(v.VUnicodeString) then
- Result := PyUnicode_FromWideString( UnicodeString(v.VUnicodeString) )
+ Result := PyUnicodeFromString( UnicodeString(v.VUnicodeString) )
else
- Result := PyUnicode_FromWideString( '' );
+ Result := PyUnicodeFromString( '' );
end;
- {$ENDIF}
else
Raise Exception.Create('Argument type not allowed');
end;
@@ -6128,7 +5593,7 @@ function TPythonEngine.ArrayToPyDict( items : array of const) : PPyObject;
vtAnsiString:
begin
if Assigned(v.VAnsiString) then
- Result := StrPas(PAnsiChar(Ansistring(v.VAnsiString)))
+ Result := AnsiString(v.VAnsiString)
else
Result := '';
end;
@@ -6146,7 +5611,6 @@ function TPythonEngine.ArrayToPyDict( items : array of const) : PPyObject;
else
Result := '';
end;
- {$IFDEF UNICODE}
vtUnicodeString:
begin
if Assigned(v.VUnicodeString) then
@@ -6154,7 +5618,6 @@ function TPythonEngine.ArrayToPyDict( items : array of const) : PPyObject;
else
Result := '';
end;
- {$ENDIF}
else
Raise Exception.Create('Argument type not allowed');
end;
@@ -6197,7 +5660,7 @@ function TPythonEngine.StringsToPyList( strings : TStrings ) : PPyObject;
raise EPythonError.Create('Could not create a new list object');
for i := 0 to strings.Count - 1 do
PyList_SetItem( Result, i,
- PyString_FromString( PAnsiChar(AnsiString(strings.Strings[i])) ) );
+ PyUnicodeFromString( strings.Strings[i]) );
end;
function TPythonEngine.StringsToPyTuple( strings : TStrings ) : PPyObject;
@@ -6209,18 +5672,20 @@ function TPythonEngine.StringsToPyTuple( strings : TStrings ) : PPyObject;
raise EPythonError.Create('Could not create a new tuple object');
for i := 0 to strings.Count - 1 do
PyTuple_SetItem( Result, i,
- PyString_FromString( PAnsiChar(AnsiString(strings.Strings[i])) ) );
+ PyUnicodeFromString( strings.Strings[i]) );
end;
-procedure TPythonEngine.PyListToStrings( list : PPyObject; strings : TStrings );
+procedure TPythonEngine.PyListToStrings(list: PPyObject; Strings: TStrings;
+ ClearStrings: Boolean = True);
var
i : Integer;
begin
if not PyList_Check(list) then
raise EPythonError.Create('the python object is not a list');
- strings.Clear;
+ if ClearStrings then
+ Strings.Clear;
for i := 0 to PyList_Size( list ) - 1 do
- strings.Add( PyObjectAsString( PyList_GetItem( list, i ) ) );
+ Strings.Add( PyObjectAsString( PyList_GetItem( list, i ) ) );
end;
procedure TPythonEngine.PyTupleToStrings( tuple: PPyObject; strings : TStrings );
@@ -6234,61 +5699,95 @@ procedure TPythonEngine.PyTupleToStrings( tuple: PPyObject; strings : TStrings )
strings.Add( PyObjectAsString( PyTuple_GetItem( tuple, i ) ) );
end;
-function TPythonEngine.PyUnicode_AsWideString( obj : PPyObject ) : UnicodeString;
+function TPythonEngine.PyBytesAsAnsiString(obj: PPyObject): AnsiString;
var
- _size : Integer;
-{$IFDEF unix}
- _ucs4Str : UCS4String;
-{$ENDIF}
+ buffer: PAnsiChar;
+ size: NativeInt;
+begin
+ if PyBytes_Check(obj) then
+ begin
+ PyBytes_AsStringAndSize(obj, buffer, size);
+ SetString(Result, buffer, size);
+ end
+ else
+ raise EPythonError.CreateFmt(SPyConvertionError, ['PyBytesAsAnsiString', 'Bytes']);
+end;
+
+function TPythonEngine.PyUnicodeAsString(obj : PPyObject) : UnicodeString;
+var
+ Buffer: PAnsiChar;
+ Size: NativeInt;
+ NewSize: Cardinal;
begin
if PyUnicode_Check(obj) then
begin
- _size := PySequence_Length(obj);
- if _size > 0 then
- begin
-{$IFDEF unix}
- // Note that Linux uses UCS4 strings, whereas it declares using UCS2 strings!!!
- SetLength(_ucs4Str, _size+1);
- if PyUnicode_AsWideChar(obj, @_ucs4Str[0], _size) <> _size then
- raise EPythonError.Create('Could not copy the whole Unicode string into its buffer');
- Result := UCS4StringToWideString(_ucs4Str);
- // remove trailing zeros (needed by Kylix1)
- while (Length(Result) > 0) and (Result[Length(Result)] = #0) do
- Delete(Result, Length(Result), 1);
-{$ELSE}
- SetLength(Result, _size);
- if PyUnicode_AsWideChar(obj, @Result[1], _size) <> _size then
- raise EPythonError.Create('Could not copy the whole Unicode string into its buffer');
-{$ENDIF}
- end
+ // Size does not include the final #0
+ Buffer := PyUnicode_AsUTF8AndSize(obj, @Size);
+ SetLength(Result, Size);
+ if (Size = 0) or (Buffer = nil) then
+ Exit;
+
+ // The second argument is the size of the destination (Result) including #0
+ NewSize := Utf8ToUnicode(PUnicodeChar(Result), Size + 1, Buffer, Size);
+ // NewSize includes #0
+ SetLength(Result, NewSize - 1);
+ end
+ else
+ raise EPythonError.CreateFmt(SPyConvertionError, ['PyUnicodeAsString', 'Unicode']);
+end;
+
+function TPythonEngine.PyUnicodeAsUTF8String( obj : PPyObject ) : RawByteString;
+var
+ buffer: PAnsiChar;
+ size: NativeInt;
+begin
+ if PyUnicode_Check(obj) then
+ begin
+ Result := '';
+ buffer := PyUnicode_AsUTF8AndSize(obj, @size);
+ if Assigned(buffer) then
+ SetString(Result, buffer, size)
else
Result := '';
+ SetCodePage(Result, CP_UTF8, False);
end
else
- raise EPythonError.Create('PyUnicode_AsWideString expects a Unicode Python object');
+ raise EPythonError.CreateFmt(SPyConvertionError, ['PyUnicodeAsUTF8String', 'Unicode']);
end;
-function TPythonEngine.PyUnicode_FromWideString( const AString : UnicodeString) : PPyObject;
-{$IFDEF unix}
+function TPythonEngine.PyUnicodeFromString(const AString : UnicodeString) : PPyObject;
+{$IFDEF POSIX}
var
_ucs4Str : UCS4String;
{$ENDIF}
begin
-{$IFDEF unix}
+{$IFDEF POSIX}
// Note that Linux uses UCS4 strings, whereas it declares using UCS2 strings!!!
_ucs4Str := WideStringToUCS4String(AString);
- Result := PyUnicode_FromWideChar( {PWideChar}(@_ucs4Str[0]), Length(AString) );
+ Result := PyUnicode_FromWideChar( {PWideChar}(@_ucs4Str[0]), Length(_ucs4Str)-1 {trim trailing zero});
{$ELSE}
Result := PyUnicode_FromWideChar( PWideChar(AString), Length(AString) );
{$ENDIF}
end;
+function TPythonEngine.ReturnFalse : PPyObject;
+begin
+ Result := Py_False;
+ Py_INCREF( Result );
+end;
+
function TPythonEngine.ReturnNone : PPyObject;
begin
Result := Py_None;
Py_INCREF( Result );
end;
+function TPythonEngine.ReturnTrue : PPyObject;
+begin
+ Result := Py_True;
+ Py_INCREF( Result );
+end;
+
function TPythonEngine.FindModule( const ModuleName : AnsiString ) : PPyObject;
var
modules, m : PPyObject;
@@ -6301,6 +5800,19 @@ function TPythonEngine.FindModule( const ModuleName : AnsiString ) : PPyObject;
Result := nil;
end;
+function TPythonEngine.FindPythonType(const TypeName: AnsiString): TPythonType;
+var
+ i : Integer;
+begin
+ Result := nil;
+ for i := 0 to ClientCount - 1 do
+ if (Clients[i] is TPythonType) and (TPythonType(Clients[i]).TypeName = TypeName) then
+ begin
+ Result := TPythonType(Clients[i]);
+ Break;
+ end;
+end;
+
function TPythonEngine.FindFunction(ModuleName,FuncName: AnsiString): PPyObject;
var
module,func: PPyObject;
@@ -6352,7 +5864,7 @@ function TPythonEngine.SetToList( data : Pointer; size : Integer ) : PPyObject;
for i := 0 to size*8-1 do
if GetBit(i) then
begin
- PyList_SetItem( Result, cpt, PyInt_FromLong(i) );
+ PyList_SetItem( Result, cpt, PyLong_FromLong(i) );
Inc(cpt);
end;
end;
@@ -6379,14 +5891,36 @@ procedure TPythonEngine.ListToSet( List : PPyObject; data : Pointer; size : Inte
end;
procedure TPythonEngine.CheckError(ACatchStopEx : Boolean = False);
+
+ procedure ProcessSystemExit;
+ var
+ errtype, errvalue, errtraceback: PPyObject;
+ SErrValue: string;
+ begin
+ // PyErr_Fetch clears the error. The returned python objects are new references
+ PyErr_Fetch(errtype, errvalue, errtraceback);
+ Traceback.Refresh(errtraceback);
+ SErrValue := PyObjectAsString(errvalue);
+ Py_XDECREF(errtype);
+ Py_XDECREF(errvalue);
+ Py_XDECREF(errtraceback);
+ raise EPySystemExit.CreateResFmt(@SPyExcSystemError, [SErrValue]);
+ end;
+
+var
+ PyException: PPyObject;
begin
- if PyErr_Occurred <> nil then
+ PyException := PyErr_Occurred;
+ if PyException <> nil then
begin
- if ACatchStopEx and (PyErr_GivenExceptionMatches(PyErr_Occurred, PyExc_StopIteration^) <> 0) then
+ if ACatchStopEx and (PyErr_GivenExceptionMatches(PyException, PyExc_StopIteration^) <> 0) then
begin
PyErr_Clear;
- raise EPyStopIteration.Create('Stop iteration');
+ raise EPyStopIteration.CreateRes(@SPyExcStopIteration);
end
+ else if PyErr_GivenExceptionMatches(PyException, PyExc_SystemExit^) <> 0 then
+ // Special treatment for SystemExit. Calling PyErr_Print would terminate the process
+ ProcessSystemExit
else
begin
PyErr_Print;
@@ -6401,7 +5935,7 @@ function TPythonEngine.GetMainModule : PPyObject;
Result := PyImport_AddModule(PAnsiChar(ExecModule));
end;
-function TPythonEngine.PyTimeStruct_Check( obj : PPyObject ) : Boolean;
+function TPythonEngine.PyTimeStruct_Check(obj : PPyObject) : Boolean;
begin
Result := Assigned(FTimeStruct) and (Pointer(obj^.ob_type) = FTimeStruct);
end;
@@ -6456,55 +5990,12 @@ function TPythonEngine.PyTZInfo_CheckExact( obj : PPyObject ) : Boolean;
Result := Assigned(FPyDateTime_DateType) and (Pointer(obj^.ob_type) = FPyDateTime_TZInfoType);
end;
-function TPythonEngine.GetVersion: String;
-begin
- Result := '3.32';
-end;
-
-procedure TPythonEngine.SetVersion(const Value: String);
-begin
- // do nothing
-end;
-
-function TPythonEngine.PyString_AsDelphiString(ob: PPyObject): string;
-begin
- if PyUnicode_Check(ob) then
- Result := string(PyUnicode_AsWideString(ob))
- else
- Result := string(PyString_AsString(ob));
-end;
-
-function TPythonEngine.PyString_AsAnsiString( ob: PPyObject): AnsiString;
-begin
- if PyUnicode_Check(ob) then
- Result := AnsiString(PyUnicode_AsWideString(ob))
- else
- Result := AnsiString(PyString_AsString(ob));
-end;
-
-function TPythonEngine.PyString_AsWideString( ob: PPyObject): UnicodeString;
-begin
- if PyUnicode_Check(ob) then
- Result := PyUnicode_AsWideString(ob)
- else
- Result := UnicodeString(PyString_AsString(ob));
-end;
-
-function TPythonEngine.PyString_FromString( str: PAnsiChar): PPyObject;
-var
- _text : UnicodeString;
+function TPythonEngine.PyUnicodeFromString(const AString: AnsiString): PPyObject;
begin
- if IsPython3000 then
- begin
- _text := UnicodeString(str);
- Result := PyUnicode_FromWideString(_text);
- end
- else
- Result := DLL_PyString_FromString(str);
+ Result := PyUnicodeFromString(UnicodeString(AString));
end;
-
(*******************************************************)
(** **)
(** class TEngineClient **)
@@ -6544,6 +6035,10 @@ constructor TEngineClient.Create( AOwner : TComponent );
destructor TEngineClient.Destroy;
begin
+ // if the client is destroyed before the Python Engine then
+ // we need to finalize it. Otherwise it will already be finalized
+ if FInitialized then
+ Finalize;
Engine := nil; // This detaches the client from the Engine.
if Assigned( FOnDestroy ) then
FOnDestroy( Self );
@@ -6557,14 +6052,6 @@ procedure TEngineClient.Loaded;
FOnCreate( Self );
end;
-procedure TEngineClient.Notification( AComponent: TComponent; Operation: TOperation);
-begin
- inherited;
- if Operation = opRemove then
- if AComponent = FEngine then
- FEngine := nil;
-end;
-
procedure TEngineClient.Initialize;
begin
if FInitialized then
@@ -6617,15 +6104,16 @@ destructor TEventDef.Destroy;
inherited;
end;
-function TEventDef.GetDisplayName: string;
+function TEventDef.GetDisplayName: AnsiString;
begin
- Result := string(FName);
+ Result := AnsiString(FName);
end;
function TEventDef.GetDocString : AnsiString;
begin
Owner.Container.CheckEngine;
- FTmpDocString := Owner.Container.Engine.CleanString(AnsiString(FDocString.Text));
+ FTmpDocString :=
+ CleanString(FDocString.Text, False);
Result := fTmpDocString;
end;
@@ -6645,7 +6133,7 @@ function TEventDef.Owner : TEventDefs;
Result := Collection as TEventDefs;
end;
-procedure TEventDef.SetDisplayName(const Value: string);
+procedure TEventDef.SetDisplayName(const Value: AnsiString);
begin
FName := AnsiString(Value);
inherited;
@@ -6801,12 +6289,26 @@ function TMethodsContainer.AddMethodWithKeywords( AMethodName : PAnsiChar;
Result^.ml_flags := Result^.ml_flags or METH_KEYWORDS;
end;
+function TMethodsContainer.AddStaticMethodWithKeywords(AMethodName: PAnsiChar;
+ AMethod: PyCFunctionWithKW; ADocString: PAnsiChar): PPyMethodDef;
+begin
+ Result := AddMethodWithKeywords(AMethodName, AMethod, ADocString);
+ Result^.ml_flags := Result^.ml_flags or METH_STATIC;
+end;
+
+function TMethodsContainer.AddClassMethodWithKeywords(AMethodName: PAnsiChar;
+ AMethod: PyCFunctionWithKW; ADocString: PAnsiChar): PPyMethodDef;
+begin
+ Result := AddMethodWithKeywords(AMethodName, AMethod, ADocString);
+ Result^.ml_flags := Result^.ml_flags or METH_CLASS;
+end;
+
function TMethodsContainer.AddDelphiMethod( AMethodName : PAnsiChar;
ADelphiMethod: TDelphiMethod;
ADocString : PAnsiChar ) : PPyMethodDef;
begin
Result := AddMethod( AMethodName,
- GetOfObjectCallBack( TCallBack(ADelphiMethod), 2, ctCDECL),
+ GetOfObjectCallBack( TCallBack(ADelphiMethod), 2, DEFAULT_CALLBACK_TYPE),
ADocString );
end;
@@ -6815,7 +6317,7 @@ function TMethodsContainer.AddDelphiMethodWithKeywords( AMethodName : PAnsiCh
ADocString : PAnsiChar ) : PPyMethodDef;
begin
Result := AddMethod( AMethodName,
- GetOfObjectCallBack( TCallBack(ADelphiMethod), 3, ctCDECL),
+ GetOfObjectCallBack( TCallBack(ADelphiMethod), 3, DEFAULT_CALLBACK_TYPE),
ADocString );
Result^.ml_flags := Result^.ml_flags or METH_KEYWORDS;
end;
@@ -7041,7 +6543,7 @@ procedure TParentClassError.AssignTo( Dest: TPersistent );
function TError.GetDisplayName: String;
begin
- Result := string(Name);
+ Result := AnsiString(Name);
if Result = '' then Result := inherited GetDisplayName;
end;
@@ -7150,6 +6652,7 @@ procedure TError.Assign(Source: TPersistent);
begin
Name := TError(Source).Name;
Text := TError(Source).Text;
+ ErrorType := TError(Source).ErrorType;
Exit;
end;
inherited Assign(Source);
@@ -7194,7 +6697,7 @@ procedure TError.BuildError( const ModuleName : AnsiString );
with Owner.Owner.Engine do
begin
if ErrorType = etString then
- Error := PyString_FromString( PAnsiChar(Text) )
+ Error := PyUnicodeFromString(Text)
else if ErrorType = etClass then
begin
if FParentClass.Name <> '' then
@@ -7214,13 +6717,12 @@ procedure TError.RaiseError( const msg : AnsiString );
begin
Owner.Owner.CheckEngine;
with Owner.Owner.Engine do
- PyErr_SetString( Error, PAnsiChar(msg) );
+ PyErr_SetString(Error, PAnsiChar(EncodeString(msg)));
end;
procedure TError.RaiseErrorObj( const msg : AnsiString; obj : PPyObject );
var
args, res, str : PPyObject;
- inst : PPyInstanceObject;
i : Integer;
keys : PPyObject;
key : PPyObject;
@@ -7239,21 +6741,12 @@ procedure TError.RaiseErrorObj( const msg : AnsiString; obj : PPyObject );
Py_DECREF(args);
if not Assigned(res) then
raise Exception.CreateFmt('TError.RaiseErrorObj: Could not create an instance of "%s"', [Self.Name]);
- if PyInstance_Check( res ) then
- begin
- inst := PPyInstanceObject(res);
- Py_XDECREF( inst^.in_dict );
- inst^.in_dict := obj;
- str := PyString_FromString( PAnsiChar(msg) );
- PyDict_SetItemString( obj, 'args', str );
- Py_XDecRef(str);
- end
- else if PyObject_TypeCheck(res, PPyTypeObject(PyExc_Exception^)) then
+ if PyObject_TypeCheck(res, PPyTypeObject(PyExc_Exception^)) then
begin
args := PyTuple_New(1);
if not Assigned(args) then
raise Exception.Create('TError.RaiseErrorObj: Could not create an empty tuple');
- str := PyString_FromString( PAnsiChar(msg) );
+ str := PyUnicodeFromString(msg);
PyTuple_SetItem(args, 0, str);
res := PyEval_CallObjectWithKeywords(Error, args, nil);
Py_DECREF(args);
@@ -7275,7 +6768,8 @@ procedure TError.RaiseErrorObj( const msg : AnsiString; obj : PPyObject );
end
else
raise Exception.Create('TError.RaiseErrorObj: I didn''t get an instance' );
- PyErr_SetObject( Error, res );
+ PyErr_SetObject(Error, res);
+ Py_XDECREF(res);
end
else
PyErr_SetObject( Error, obj );
@@ -7401,7 +6895,8 @@ procedure TPythonModule.DefineDocString;
begin
if DocString.Text <> '' then
begin
- doc := PyString_FromString( PAnsiChar(CleanString(AnsiString(FDocString.Text))) );
+ doc :=
+ PyUnicodeFromString(CleanString(FDocString.Text, False));
PyObject_SetAttrString( FModule, '__doc__', doc );
Py_XDecRef(doc);
CheckError(False);
@@ -7416,15 +6911,12 @@ procedure TPythonModule.MakeModule;
Exit;
with Engine do
begin
- if IsPython3000 then begin
- FillChar(FModuleDef, SizeOf(FModuleDef), 0);
- FModuleDef.m_base.ob_refcnt := 1;
- FModuleDef.m_name := PAnsiChar(ModuleName);
- FModuleDef.m_methods := MethodsData;
- FModuleDef.m_size := -1;
- FModule := Py_InitModule3000( ModuleDef );
- end else
- FModule := Py_InitModule( PAnsiChar(ModuleName), MethodsData );
+ FillChar(FModuleDef, SizeOf(FModuleDef), 0);
+ FModuleDef.m_base.ob_refcnt := 1;
+ FModuleDef.m_name := PAnsiChar(ModuleName);
+ FModuleDef.m_methods := MethodsData;
+ FModuleDef.m_size := -1;
+ FModule := Py_InitModule( ModuleDef );
DefineDocString;
end;
end;
@@ -7460,9 +6952,10 @@ procedure TPythonModule.InitializeForNewInterpreter;
end;
end;
-procedure TPythonModule.AddClient( client : TEngineClient );
+procedure TPythonModule.AddClient(Client : TEngineClient);
begin
- FClients.Add( client );
+ if FClients.IndexOf(Client) < 0 then
+ FClients.Add(Client);
end;
function TPythonModule.ErrorByName( const AName : AnsiString ) : TError;
@@ -7470,7 +6963,7 @@ function TPythonModule.ErrorByName( const AName : AnsiString ) : TError;
i : Integer;
begin
for i := 0 to Errors.Count - 1 do
- if CompareText( string(Errors.Items[i].Name), string(AName) ) = 0 then
+ if CompareText( AnsiString(Errors.Items[i].Name), AnsiString(AName) ) = 0 then
begin
Result := Errors.Items[i];
Exit;
@@ -7485,7 +6978,7 @@ procedure TPythonModule.RaiseError( const error, msg : AnsiString );
procedure TPythonModule.RaiseErrorFmt( const error, format : AnsiString; Args : array of const );
begin
- RaiseError( error, AnsiString(SysUtils.Format( string(format), Args )) );
+ RaiseError( error, AnsiString(SysUtils.Format( AnsiString(format), Args )) );
end;
procedure TPythonModule.RaiseErrorObj( const error, msg : AnsiString; obj : PPyObject );
@@ -7493,6 +6986,12 @@ procedure TPythonModule.RaiseErrorObj( const error, msg : AnsiString; obj : PPyO
ErrorByName( error ).RaiseErrorObj( msg, obj );
end;
+procedure TPythonModule.RemoveClient(Client: TEngineClient);
+begin
+ // Remove does not raise an exception if not found
+ FClients.Remove(Client);
+end;
+
procedure TPythonModule.BuildErrors;
var
i : Integer;
@@ -7580,11 +7079,12 @@ function TPythonModule.GetVarAsVariant( const varName : AnsiString ) : Variant;
with Engine do
begin
obj := GetVar( varName );
- try
- Result := PyObjectAsVariant( obj );
- finally
- Py_XDecRef(obj);
- end;
+ if Assigned(obj) then
+ try
+ Result := PyObjectAsVariant( obj );
+ finally
+ Py_XDecRef(obj);
+ end;
end;
end;
@@ -7613,7 +7113,8 @@ constructor TPyObject.Create( APythonType : TPythonType );
end;
end;
-constructor TPyObject.CreateWith( APythonType : TPythonType; args : PPyObject );
+constructor TPyObject.CreateWith(APythonType: TPythonType; args, kwds:
+ PPyObject);
begin
Create( APythonType );
end;
@@ -7707,21 +7208,12 @@ function TPyObject.GetAttr(key : PAnsiChar) : PPyObject;
begin
with GetPythonEngine do
begin
- PyKey := PyString_FromString(key);
+ PyKey := PyUnicodeFromString(key);
try
Result := PyObject_GenericGetAttr(GetSelf, PyKey)
finally
Py_XDecRef(PyKey);
end;
-
-// // check for a method
-// if IsPython3000 then
-// // I think Python 3000 from beta 2 gets the methods from the tp_methods field
-// Result := nil
-// else
-// Result := Py_FindMethod( PythonType.MethodsData, GetSelf, key);
-// if not Assigned(Result) then
-// PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
end;
end;
@@ -7731,15 +7223,15 @@ function TPyObject.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
begin
Result := -1;
PyErr_SetString (PyExc_AttributeError^,
- PAnsiChar(AnsiString(Format('Unknown attribute "%s"',[key]))));
+ PAnsiChar(EncodeString(Format('Unknown attribute "%s"',[key]))));
end;
end;
function TPyObject.Repr : PPyObject;
begin
- with GetPythonEngine do
- Result :=
- PyString_FromString( PAnsiChar(AnsiString(Format('<%s at %x>', [PythonType.TypeName, NativeInt(self)]))) );
+ Result :=
+ GetPythonEngine.PyUnicodeFromString( Format('<%s at %x>',
+ [PythonType.TypeName, NativeInt(self)]) );
end;
function TPyObject.Compare( obj: PPyObject) : Integer;
@@ -7782,9 +7274,25 @@ function TPyObject.Clear: integer;
Result := 0;
end;
+
function TPyObject.RichCompare( obj : PPyObject; Op : TRichComparisonOpcode) : PPyObject;
-begin
- Result := nil;
+Var
+ Res : Boolean;
+begin
+ Res := False;
+ case Op of
+ pyLT: Res := Compare(obj) < 0;
+ pyLE: Res := Compare(obj) <= 0;
+ pyEQ: Res := Compare(obj) = 0;
+ pyNE: Res := Compare(obj) <> 0;
+ pyGT: Res := Compare(obj) > 0;
+ pyGE: Res := Compare(obj) >= 0;
+ end;
+ if Res then
+ Result := PPyObject(GetPythonEngine.Py_True)
+ else
+ Result := PPyObject(GetPythonEngine.Py_False);
+ GetPythonEngine.Py_INCREF( Result );
end;
function TPyObject.Iter : PPyObject;
@@ -7809,7 +7317,7 @@ function TPyObject.NbAdd( obj : PPyObject) : PPyObject;
Result := nil;
end;
-function TPyObject.NbSubstract( obj : PPyObject) : PPyObject;
+function TPyObject.NbSubtract( obj : PPyObject) : PPyObject;
begin
Result := nil;
end;
@@ -7819,17 +7327,17 @@ function TPyObject.NbMultiply( obj : PPyObject) : PPyObject;
Result := nil;
end;
-function TPyObject.NbDivide( obj : PPyObject) : PPyObject;
+function TPyObject.NbFloorDivide( obj : PPyObject) : PPyObject;
begin
Result := nil;
end;
-function TPyObject.NbFloorDivide( obj : PPyObject) : PPyObject;
+function TPyObject.NbTrueDivide( obj : PPyObject) : PPyObject;
begin
Result := nil;
end;
-function TPyObject.NbTrueDivide( obj : PPyObject) : PPyObject;
+function TPyObject.NbMatrixMultiply( obj : PPyObject) : PPyObject;
begin
Result := nil;
end;
@@ -7864,9 +7372,9 @@ function TPyObject.NbAbsolute : PPyObject;
Result := nil;
end;
-function TPyObject.NbNonZero : Integer;
+function TPyObject.NbBool : Integer;
begin
- Result := -1;
+ Result := 0;
end;
function TPyObject.NbInvert : PPyObject;
@@ -7899,36 +7407,16 @@ function TPyObject.NbOr( obj : PPyObject) : PPyObject;
Result := nil;
end;
-function TPyObject.NbCoerce( obj : PPPyObject) : Integer;
-begin
- Result := 0;
-end;
-
function TPyObject.NbInt : PPyObject;
begin
Result := nil;
end;
-function TPyObject.NbLong : PPyObject;
-begin
- Result := nil;
-end;
-
function TPyObject.NbFloat : PPyObject;
begin
Result := nil;
end;
-function TPyObject.NbOct : PPyObject;
-begin
- Result := nil;
-end;
-
-function TPyObject.NbHex : PPyObject;
-begin
- Result := nil;
-end;
-
function TPyObject.NbInplaceAdd(obj: PPyObject): PPyObject;
begin
Result := nil;
@@ -7969,6 +7457,11 @@ function TPyObject.NbInplaceOr(obj: PPyObject): PPyObject;
Result := nil;
end;
+function TPyObject.NbInplaceMatrixMultiply(obj: PPyObject): PPyObject;
+begin
+ Result := nil;
+end;
+
function TPyObject.NbInplacePower(ob1, ob2: PPyObject): PPyObject;
begin
Result := nil;
@@ -8015,21 +7508,11 @@ function TPyObject.SqItem( idx : NativeInt ) : PPyObject;
Result := GetPythonEngine.ReturnNone;
end;
-function TPyObject.SqSlice( idx1, idx2 : NativeInt ) : PPyObject;
-begin
- Result := GetPythonEngine.ReturnNone;
-end;
-
function TPyObject.SqAssItem( idx : NativeInt; obj : PPyObject) : Integer;
begin
Result := -1;
end;
-function TPyObject.SqAssSlice( idx1, idx2 : NativeInt; obj : PPyObject): integer;
-begin
- Result := -1;
-end;
-
function TPyObject.SqContains(obj: PPyObject): integer;
begin
Result := -1;
@@ -8087,7 +7570,7 @@ class procedure TPyObject.SetupType(APythonType: TPythonType);
constructor TTypeServices.Create;
begin
inherited;
- FBasic := [bsGetAttr, bsSetAttr, bsRepr, bsStr];
+ FBasic := [bsGetAttrO, bsSetAttrO, bsRepr, bsStr];
end;
procedure TTypeServices.AssignTo( Dest: TPersistent );
@@ -8163,13 +7646,21 @@ procedure TPythonType.SetModule( val : TPythonModule );
begin
if val <> FModule then
begin
+ if Assigned(FModule) then
+ begin
+ FModule.RemoveFreeNotification(Self);
+ FModule.RemoveClient(Self);
+ end;
FModule := val;
if Assigned(val) then
+ begin
+ val.FreeNotification(Self);
if Initialized and not (csLoading in ComponentState) then
if val.Initialized then
AddTypeVar
else
val.AddClient(Self);
+ end;
end;
end;
@@ -8192,9 +7683,9 @@ procedure TPythonType.SetTypeName( const val : AnsiString );
end;
end;
-function TPythonType.CreateMethod( pSelf, args : PPyObject ) : PPyObject;
+function TPythonType.CreateMethod(pSelf, args, kwds: PPyObject): PPyObject;
begin
- Result := CreateInstanceWith( args );
+ Result := CreateInstanceWith(args, kwds);
end;
procedure TPythonType.ReallocGetSets;
@@ -8219,32 +7710,22 @@ procedure TPythonType.ReallocMethods;
FType.tp_methods := MethodsData;
end;
+procedure TPythonType.SetBaseType(AType: TPythonType);
+begin
+ if AType = nil then
+ FType.tp_base := nil
+ else
+ FType.tp_base := @AType.FType;
+end;
+
procedure TPythonType.SetDocString( value : TStringList );
begin
FDocString.Assign( value );
end;
-function TPythonType.TypeFlagsAsInt : LongInt;
+function TPythonType.TypeFlagsAsInt : C_ULong;
begin
Result := 0;
- if tpfHaveGetCharBuffer in TypeFlags then
- Result := Result or Py_TPFLAGS_HAVE_GETCHARBUFFER;
- if tpfHaveSequenceIn in TypeFlags then
- Result := Result or Py_TPFLAGS_HAVE_SEQUENCE_IN;
- if tpfGC in TypeFlags then
- Result := Result or Py_TPFLAGS_GC;
- if tpfHaveInplaceOps in TypeFlags then
- Result := Result or Py_TPFLAGS_HAVE_INPLACEOPS;
- if tpfCheckTypes in TypeFlags then
- Result := Result or Py_TPFLAGS_CHECKTYPES;
- if tpfHaveRichCompare in TypeFlags then
- Result := Result or Py_TPFLAGS_HAVE_RICHCOMPARE;
- if tpfHaveWeakRefs in TypeFlags then
- Result := Result or Py_TPFLAGS_HAVE_WEAKREFS;
- if tpfHaveIter in TypeFlags then
- Result := Result or Py_TPFLAGS_HAVE_ITER;
- if tpfHaveClass in TypeFlags then
- Result := Result or Py_TPFLAGS_HAVE_CLASS;
if tpfHeapType in TypeFlags then
Result := Result or Py_TPFLAGS_HEAPTYPE;
if tpfBaseType in TypeFlags then
@@ -8255,6 +7736,28 @@ function TPythonType.TypeFlagsAsInt : LongInt;
Result := Result or Py_TPFLAGS_READYING;
if tpfHaveGC in TypeFlags then
Result := Result or Py_TPFLAGS_HAVE_GC;
+ if tpVectorCall in TypeFlags then
+ Result := Result or _Py_TPFLAGS_HAVE_VECTORCALL;
+ if tpMethodDescriptor in TypeFlags then
+ Result := Result or Py_TPFLAGS_METHOD_DESCRIPTOR;
+ if tpHaveVersionTag in TypeFlags then
+ Result := Result or Py_TPFLAGS_HAVE_VERSION_TAG;
+ if tpValidVersionTag in TypeFlags then
+ Result := Result or Py_TPFLAGS_VALID_VERSION_TAG;
+ if tpIsAbstract in TypeFlags then
+ Result := Result or Py_TPFLAGS_IS_ABSTRACT;
+ if tpLongSubclass in TypeFlags then
+ Result := Result or Py_TPFLAGS_LONG_SUBCLASS;
+ if tpListSubClass in TypeFlags then
+ Result := Result or Py_TPFLAGS_LIST_SUBCLASS;
+ if tpTupleSubclass in TypeFlags then
+ Result := Result or Py_TPFLAGS_TUPLE_SUBCLASS;
+ if tpBytesSubclass in TypeFlags then
+ Result := Result or Py_TPFLAGS_BYTES_SUBCLASS;
+ if tpBaseExcSubclass in TypeFlags then
+ Result := Result or Py_TPFLAGS_BASE_EXC_SUBCLASS;
+ if tpTypeSubclass in TypeFlags then
+ Result := Result or Py_TPFLAGS_TYPE_SUBCLASS;
end;
// Type services
@@ -8359,7 +7862,7 @@ function TPythonType.NewSubtypeInst( aType: PPyTypeObject; args, kwds : PPyObje
obj.ob_type := aType;
obj.IsSubtype := aType <> @FType;
obj.PythonAlloc := True;
- obj.CreateWith(Self, args);
+ obj.CreateWith(Self, args, kwds);
if Engine.PyErr_Occurred <> nil then
begin
Engine.Py_DECREF(Result);
@@ -8386,9 +7889,9 @@ function TPythonType_NbAdd( pSelf, obj : PPyObject) : PPyObject; cdecl;
Result := PythonToDelphi(pSelf).NbAdd( obj );
end;
-function TPythonType_NbSubstract( pSelf, obj : PPyObject) : PPyObject; cdecl;
+function TPythonType_NbSubtract( pSelf, obj : PPyObject) : PPyObject; cdecl;
begin
- Result := PythonToDelphi(pSelf).NbSubstract( obj );
+ Result := PythonToDelphi(pSelf).NbSubtract( obj );
end;
function TPythonType_NbMultiply( pSelf, obj : PPyObject) : PPyObject; cdecl;
@@ -8396,11 +7899,6 @@ function TPythonType_NbMultiply( pSelf, obj : PPyObject) : PPyObject; cdecl;
Result := PythonToDelphi(pSelf).NbMultiply( obj );
end;
-function TPythonType_NbDivide( pSelf, obj : PPyObject) : PPyObject; cdecl;
-begin
- Result := PythonToDelphi(pSelf).NbDivide( obj );
-end;
-
function TPythonType_NbFloorDivide( pSelf, obj : PPyObject) : PPyObject; cdecl;
begin
Result := PythonToDelphi(pSelf).NbFloorDivide( obj );
@@ -8411,6 +7909,11 @@ function TPythonType_NbTrueDivide( pSelf, obj : PPyObject) : PPyObject; cdecl;
Result := PythonToDelphi(pSelf).NbTrueDivide( obj );
end;
+function TPythonType_NbMatrixMultiply( pSelf, obj : PPyObject) : PPyObject; cdecl;
+begin
+ Result := PythonToDelphi(pSelf).NbMatrixMultiply( obj );
+end;
+
function TPythonType_NbRemainder( pSelf, obj : PPyObject) : PPyObject; cdecl;
begin
Result := PythonToDelphi(pSelf).NbRemainder( obj );
@@ -8441,9 +7944,9 @@ function TPythonType_NbAbsolute( pSelf : PPyObject ) : PPyObject; cdecl;
Result := PythonToDelphi(pSelf).NbAbsolute;
end;
-function TPythonType_NbNonZero( pSelf : PPyObject ) : Integer; cdecl;
+function TPythonType_NbBool( pSelf : PPyObject ) : Integer; cdecl;
begin
- Result := PythonToDelphi(pSelf).NbNonZero;
+ Result := PythonToDelphi(pSelf).NbBool;
end;
function TPythonType_NbInvert( pSelf : PPyObject ) : PPyObject; cdecl;
@@ -8476,36 +7979,16 @@ function TPythonType_NbOr( pSelf, obj : PPyObject) : PPyObject; cdecl;
Result := PythonToDelphi(pSelf).NbOr( obj );
end;
-function TPythonType_NbCoerce( pSelf, obj : PPPyObject) : Integer; cdecl;
-begin
- Result := PythonToDelphi(pSelf^).NbCoerce( obj );
-end;
-
function TPythonType_NbInt( pSelf : PPyObject ) : PPyObject; cdecl;
begin
Result := PythonToDelphi(pSelf).NbInt;
end;
-function TPythonType_NbLong( pSelf : PPyObject ) : PPyObject; cdecl;
-begin
- Result := PythonToDelphi(pSelf).NbLong;
-end;
-
function TPythonType_NbFloat( pSelf : PPyObject ) : PPyObject; cdecl;
begin
Result := PythonToDelphi(pSelf).NbFloat;
end;
-function TPythonType_NbOct( pSelf : PPyObject ) : PPyObject; cdecl;
-begin
- Result := PythonToDelphi(pSelf).NbOct;
-end;
-
-function TPythonType_NbHex( pSelf : PPyObject ) : PPyObject; cdecl;
-begin
- Result := PythonToDelphi(pSelf).NbHex;
-end;
-
function TPythonType_NbInplaceAdd(pSelf, obj: PPyObject): PPyObject; cdecl;
begin
Result := PythonToDelphi(pSelf).NbInplaceAdd( obj );
@@ -8546,6 +8029,11 @@ function TPythonType_NbInplaceOr(pSelf, obj: PPyObject): PPyObject; cdecl;
Result := PythonToDelphi(pSelf).NbInplaceOr( obj );
end;
+function TPythonType_NbInplaceMatrixMultiply(pSelf, obj: PPyObject): PPyObject; cdecl;
+begin
+ Result := PythonToDelphi(pSelf).NbInplaceMatrixMultiply( obj );
+end;
+
function TPythonType_NbInplacePower(pSelf, ob1, ob2: PPyObject): PPyObject; cdecl;
begin
Result := PythonToDelphi(pSelf).NbInplacePower( ob1, ob2 );
@@ -8593,22 +8081,11 @@ function TPythonType_SqItem( pSelf : PPyObject; idx : NativeInt ) : PPyObject;
Result := PythonToDelphi(pSelf).SqItem( idx );
end;
-function TPythonType_SqSlice( pSelf : PPyObject; idx1, idx2 : NativeInt ) : PPyObject; cdecl;
-begin
- Result := PythonToDelphi(pSelf).SqSlice( idx1, idx2 );
-end;
-
function TPythonType_SqAssItem( pSelf : PPyObject; idx : NativeInt; obj : PPyObject) : Integer; cdecl;
begin
Result := PythonToDelphi(pSelf).SqAssItem( idx, obj );
end;
-function TPythonType_SqAssSlice( pSelf : PPyObject; idx1, idx2 : NativeInt; obj : PPyObject): integer; cdecl;
-begin
- Result := PythonToDelphi(pSelf).SqAssSlice( idx1, idx2, obj );
-end;
-
-
// Mapping services
function TPythonType_MpLength( pSelf : PPyObject ) : NativeInt; cdecl;
@@ -8642,13 +8119,15 @@ function TPythonType_SqInplaceRepeat(pSelf : PPyObject; i: NativeInt): PPyObject
end;
procedure TPythonType.InitServices;
+{ Called from TPythonType.Initialize which first calls CheckEngine - FEngine is alread assigned }
begin
with FType do
begin
// Basic services
if FDocString.Count > 0 then
+ with Engine do
begin
- FCurrentDocString := GetPythonEngine.CleanString(AnsiString(FDocString.Text));
+ FCurrentDocString := CleanString(FDocString.Text, False);
tp_doc := PAnsiChar(FCurrentDocString);
end;
tp_dealloc := @PyObjectDestructor;
@@ -8660,8 +8139,6 @@ procedure TPythonType.InitServices;
tp_repr := TPythonType_Repr;
if bsStr in Services.Basic then
tp_str := TPythonType_Str;
- if bsCompare in Services.Basic then
- tp_compare := TPythonType_Compare;
if bsHash in Services.Basic then
tp_hash := TPythonType_Hash;
if bsGetAttrO in Services.Basic then
@@ -8684,101 +8161,70 @@ procedure TPythonType.InitServices;
begin
tp_init := TPythonType_InitSubtype;
tp_alloc := TPythonType_AllocSubtypeInst;
- tp_new := GetCallBack( Self, @TPythonType.NewSubtypeInst, 3, ctCDECL);
+ tp_new := GetCallBack( Self, @TPythonType.NewSubtypeInst, 3, DEFAULT_CALLBACK_TYPE);
tp_free := FreeSubtypeInst;
tp_methods := MethodsData;
tp_members := MembersData;
tp_getset := GetSetData;
end;
- // Number services
+ // Number services
if Services.Number <> [] then
+ begin
tp_as_number := @FNumber;
- with FNumber do
+
+ with FNumber do
begin
- if nsAdd in Services.Number then
- nb_add := TPythonType_NbAdd;
- if nsSubstract in Services.Number then
- nb_substract := TPythonType_NbSubstract;
- if nsMultiply in Services.Number then
- nb_multiply := TPythonType_NbMultiply;
- if nsDivide in Services.Number then
- nb_divide := TPythonType_NbDivide;
- if nsFloorDivide in Services.Number then
- nb_floor_divide := TPythonType_NbFloorDivide;
- if nsTrueDivide in Services.Number then
- nb_true_divide := TPythonType_NbTrueDivide;
- if nsRemainder in Services.Number then
- nb_remainder := TPythonType_NbRemainder;
- if nsDivmod in Services.Number then
- nb_divmod := TPythonType_NbDivmod;
- if nsPower in Services.Number then
- nb_power := TPythonType_NbPower;
- if nsNegative in Services.Number then
- nb_negative := TPythonType_NbNegative;
- if nsPositive in Services.Number then
- nb_positive := TPythonType_NbPositive;
- if nsAbsolute in Services.Number then
- nb_absolute := TPythonType_NbAbsolute;
- if nsNonZero in Services.Number then
- nb_nonzero := TPythonType_NbNonZero;
- if nsInvert in Services.Number then
- nb_invert := TPythonType_NbInvert;
- if nsLShift in Services.Number then
- nb_lshift := TPythonType_NbLShift;
- if nsRShift in Services.Number then
- nb_rshift := TPythonType_NbRShift;
- if nsAnd in Services.Number then
- nb_and := TPythonType_NbAnd;
- if nsXor in Services.Number then
- nb_xor := TPythonType_NbXor;
- if nsOr in Services.Number then
- nb_or := TPythonType_NbOr;
- if nsCoerce in Services.Number then
- nb_coerce := TPythonType_NbCoerce;
- if nsInt in Services.Number then
- nb_int := TPythonType_NbInt;
- if nsLong in Services.Number then
- nb_long := TPythonType_NbLong;
- if nsFloat in Services.Number then
- nb_float := TPythonType_NbFloat;
- if nsOct in Services.Number then
- nb_oct := TPythonType_NbOct;
- if nsHex in Services.Number then
- nb_hex := TPythonType_NbHex;
- if nsInplaceAdd in Services.InplaceNumber then
- nb_inplace_add := TPythonType_NbInplaceAdd;
- if nsInplaceSubtract in Services.InplaceNumber then
- nb_inplace_subtract := TPythonType_NbInplaceSubtract;
- if nsInplaceMultiply in Services.InplaceNumber then
- nb_inplace_multiply := TPythonType_NbInplaceMultiply;
- if nsInplaceDivide in Services.InplaceNumber then
- nb_inplace_divide := TPythonType_NbInplaceDivide;
- if nsInplaceFloorDivide in Services.InplaceNumber then
- nb_inplace_floor_divide := TPythonType_NbInplaceFloorDivide;
- if nsInplaceTrueDivide in Services.InplaceNumber then
- nb_inplace_true_divide := TPythonType_NbInplaceTrueDivide;
- if nsInplaceRemainder in Services.InplaceNumber then
- nb_inplace_remainder := TPythonType_NbInplaceRemainder;
- if nsInplacePower in Services.InplaceNumber then
- nb_inplace_power := TPythonType_NbInplacePower;
- if nsInplaceLShift in Services.InplaceNumber then
- nb_inplace_lshift := TPythonType_NbInplaceLShift;
- if nsInplaceRShift in Services.InplaceNumber then
- nb_inplace_rshift := TPythonType_NbInplaceRShift;
- if nsInplaceAnd in Services.InplaceNumber then
- nb_inplace_and := TPythonType_NbInplaceAnd;
- if nsInplaceXor in Services.InplaceNumber then
- nb_inplace_xor := TPythonType_NbInplaceXor;
- if nsInplaceOr in Services.InplaceNumber then
- nb_inplace_or := TPythonType_NbInplaceOr;
+ if nsAdd in Services.Number then nb_add := TPythonType_NbAdd; // #3.1
+ if nsSubtract in Services.Number then nb_subtract := TPythonType_NbSubtract; // #3.2
+ if nsMultiply in Services.Number then nb_multiply := TPythonType_NbMultiply; // #3.3
+ if nsFloorDivide in Services.Number then nb_floor_divide := TPythonType_NbFloorDivide; // #3.30
+ if nsTrueDivide in Services.Number then nb_true_divide := TPythonType_NbTrueDivide; // #3.31
+ if (nsMatrixMultiply in Services.Number) and ((FEngine.MajorVersion > 3)
+ or ((FEngine.MajorVersion = 3) and (FEngine.MinorVersion >= 5)))
+ then
+ nb_matrix_multiply := TPythonType_NbMatrixMultiply; // #3.35
+ if nsRemainder in Services.Number then nb_remainder := TPythonType_NbRemainder; // #3.4
+ if nsDivmod in Services.Number then nb_divmod := TPythonType_NbDivmod; // #3.5
+ if nsPower in Services.Number then nb_power := TPythonType_NbPower; // #3.6
+ if nsNegative in Services.Number then nb_negative := TPythonType_NbNegative; // #3.7
+ if nsPositive in Services.Number then nb_positive := TPythonType_NbPositive; // #3.8
+ if nsAbsolute in Services.Number then nb_absolute := TPythonType_NbAbsolute; // #3.9
+ if nsBool in Services.Number then nb_bool := TPythonType_NbBool; // #3.10
+ if nsInvert in Services.Number then nb_invert := TPythonType_NbInvert; // #3.11
+ if nsLShift in Services.Number then nb_lshift := TPythonType_NbLShift; // #3.12
+ if nsRShift in Services.Number then nb_rshift := TPythonType_NbRShift; // #3.13
+ if nsAnd in Services.Number then nb_and := TPythonType_NbAnd; // #3.14
+ if nsXor in Services.Number then nb_xor := TPythonType_NbXor; // #3.15
+ if nsOr in Services.Number then nb_or := TPythonType_NbOr; // #3.16
+ if nsInt in Services.Number then nb_int := TPythonType_NbInt; // #3.17
+ if nsFloat in Services.Number then nb_float := TPythonType_NbFloat; // #3.19
+ if nsInplaceAdd in Services.InplaceNumber then nb_inplace_add := TPythonType_NbInplaceAdd; // #3.20
+ if nsInplaceSubtract in Services.InplaceNumber then nb_inplace_subtract := TPythonType_NbInplaceSubtract; // #3.21
+ if nsInplaceMultiply in Services.InplaceNumber then nb_inplace_multiply := TPythonType_NbInplaceMultiply; // #3.22
+ if nsInplaceFloorDivide in Services.InplaceNumber then nb_inplace_floor_divide := TPythonType_NbInplaceFloorDivide; // #3.32
+ if nsInplaceTrueDivide in Services.InplaceNumber then nb_inplace_true_divide := TPythonType_NbInplaceTrueDivide; // #3.33
+ if nsInplaceRemainder in Services.InplaceNumber then nb_inplace_remainder := TPythonType_NbInplaceRemainder; // #3.23
+ if nsInplacePower in Services.InplaceNumber then nb_inplace_power := TPythonType_NbInplacePower; // #3.24
+ if nsInplaceLShift in Services.InplaceNumber then nb_inplace_lshift := TPythonType_NbInplaceLShift; // #3.25
+ if nsInplaceRShift in Services.InplaceNumber then nb_inplace_rshift := TPythonType_NbInplaceRShift; // #3.26
+ if nsInplaceAnd in Services.InplaceNumber then nb_inplace_and := TPythonType_NbInplaceAnd; // #3.27
+ if nsInplaceXor in Services.InplaceNumber then nb_inplace_xor := TPythonType_NbInplaceXor; // #3.28
+ if nsInplaceOr in Services.InplaceNumber then nb_inplace_or := TPythonType_NbInplaceOr; // #3.29
+ if (nsInplaceMatrixMultiply in Services.InplaceNumber) and
+ ((FEngine.MajorVersion > 3) or ((FEngine.MajorVersion = 3)
+ and (FEngine.MinorVersion >= 5)))
+ then
+ nb_inplace_matrix_multiply := TPythonType_NbInplaceMatrixMultiply; // #3.36
end;
+ end;
// Sequence services
if Services.Sequence <> [] then
+ begin
tp_as_sequence := @FSequence;
- with FSequence do
+ with FSequence do
begin
if ssLength in Services.Sequence then
sq_length := TPythonType_SqLength;
@@ -8788,12 +8234,8 @@ procedure TPythonType.InitServices;
sq_repeat := TPythonType_SqRepeat;
if ssItem in Services.Sequence then
sq_item := TPythonType_SqItem;
- if ssSlice in Services.Sequence then
- sq_slice := TPythonType_SqSlice;
if ssAssItem in Services.Sequence then
sq_ass_item := TPythonType_SqAssItem;
- if ssAssSlice in Services.Sequence then
- sq_ass_slice := TPythonType_SqAssSlice;
if ssContains in Services.Sequence then
sq_contains := TPythonType_SqContains;
if ssInplaceConcat in Services.Sequence then
@@ -8801,12 +8243,14 @@ procedure TPythonType.InitServices;
if ssInplaceRepeat in Services.Sequence then
sq_inplace_repeat := TPythonType_SqInplaceRepeat;
end;
+ end;
// Mapping services
if Services.Mapping <> [] then
+ begin
tp_as_mapping := @FMapping;
- with FMapping do
+ with FMapping do
begin
if msLength in Services.Mapping then
mp_length := TPythonType_MpLength;
@@ -8815,6 +8259,7 @@ procedure TPythonType.InitServices;
if msAssSubscript in Services.Mapping then
mp_ass_subscript := TPythonType_MpAssSubscript;
end;
+ end;
end;
end;
@@ -8834,6 +8279,7 @@ destructor TPythonType.Destroy;
begin
if gVarType = Self then
gVarType := nil;
+ Module := nil;
FDocString.Free;
FServices.Free;
inherited;
@@ -8867,7 +8313,8 @@ procedure TPythonType.Initialize;
procedure TPythonType.Finalize;
begin
- Engine.Py_XDECREF(FCreateFunc);
+ if Assigned(Engine) then
+ Engine.Py_CLEAR(FCreateFunc);
FCreateFunc := nil;
inherited;
end;
@@ -8891,14 +8338,14 @@ function TPythonType.CreateInstance : PPyObject;
end;
end;
-function TPythonType.CreateInstanceWith( args : PPyObject ) : PPyObject;
+function TPythonType.CreateInstanceWith(args, kwds: PPyObject): PPyObject;
var
obj : TPyObject;
begin
CheckEngine;
with Engine do
begin
- obj := PyObjectClass.CreateWith( Self, args );
+ obj := PyObjectClass.CreateWith(Self, args, kwds);
obj.ob_type := @FType;
if PyErr_Occurred <> nil then
begin
@@ -8913,7 +8360,7 @@ function TPythonType.CreateInstanceWith( args : PPyObject ) : PPyObject;
procedure TPythonType.AddTypeVar;
var
d : PPyObject;
- meth : TDelphiMethod;
+ meth : TDelphiMethodWithKW;
begin
CheckEngine;
Assert(Module <> nil);
@@ -8926,10 +8373,11 @@ procedure TPythonType.AddTypeVar;
begin
meth := CreateMethod;
FCreateFuncDef.ml_name := PAnsiChar(FCreateFuncName);
- FCreateFuncDef.ml_meth := GetOfObjectCallBack( TCallBack(meth), 2, ctCDECL);
- FCreateFuncDef.ml_flags := METH_VARARGS;
+ FCreateFuncDef.ml_meth := GetOfObjectCallBack(TCallBack(meth), 3, DEFAULT_CALLBACK_TYPE);
+ FCreateFuncDef.ml_flags := METH_KEYWORDS;
FCreateFuncDef.ml_doc := PAnsiChar(FCreateFuncDoc);
- FCreateFunc := Engine.PyCFunction_New(@FCreateFuncDef, nil);
+ FCreateFunc := Engine.PyCFunction_NewEx(@FCreateFuncDef, nil, nil);
+ Engine.Py_INCREF(FCreateFunc);
end;
Assert(Assigned(FCreateFunc));
end;
@@ -9046,13 +8494,11 @@ function TPythonDelphiVar.IsVariantOk( const v : Variant ) : Boolean;
(t = varOleStr) or
(t = varBoolean) or
(t = varByte) or
- {$IFDEF UNICODE}
(t = varUString) or
- {$ENDIF}
(t = varString);
end;
-function TPythonDelphiVar.GetValueAsString : string;
+function TPythonDelphiVar.GetValueAsString : AnsiString;
var
v : Variant;
obj : PPyObject;
@@ -9167,7 +8613,7 @@ constructor TPyVar.Create( APythonType : TPythonType );
// the Create constructor first, and because the constructors
// are virtual, TPyVar.Create will be automatically be called.
-constructor TPyVar.CreateWith( APythonType : TPythonType; args : PPyObject );
+constructor TPyVar.CreateWith(APythonType: TPythonType; args, kwds: PPyObject);
begin
inherited;
with GetPythonEngine do
@@ -9192,26 +8638,26 @@ destructor TPyVar.Destroy;
// Then we override the needed services
-function TPyVar.GetAttr(key : PAnsiChar) : PPyObject;
+function TPyVar.GetAttrO( key: PPyObject) : PPyObject;
begin
with GetPythonEngine do
begin
- if CompareText( string(key), 'Value') = 0 then
+ if CompareText( PyObjectAsString(key), 'Value') = 0 then
Result := GetValue
else
- Result := inherited GetAttr(key);
+ Result := inherited GetAttrO(key);
end;
end;
-function TPyVar.SetAttr(key : PAnsiChar; value : PPyObject) : Integer;
+function TPyVar.SetAttrO( key, value: PPyObject) : Integer;
begin
Result := 0;
with GetPythonEngine do
begin
- if CompareText( string(key), 'Value' ) = 0 then
+ if CompareText( PyObjectAsString(key), 'Value' ) = 0 then
SetValue( value )
else
- Result := inherited SetAttr(key, value);
+ Result := inherited SetAttrO(key, value);
end;
end;
@@ -9224,8 +8670,8 @@ function TPyVar.Repr : PPyObject;
obj := GetValue;
try
Result :=
- PyString_FromString( PAnsiChar(AnsiString(Format('<%s: %s>',
- [PythonType.TypeName, PyObjectAsString(obj)]))) );
+ PyUnicodeFromString(Format('<%s: %s>',
+ [PythonType.TypeName, PyObjectAsString(obj)]) );
finally
Py_XDecRef(obj);
end;
@@ -9338,29 +8784,22 @@ procedure TPyVar.SetValueFromVariant( const value : Variant );
procedure TPythonThread.Execute;
var
- withinterp: Boolean;
global_state : PPyThreadState;
gilstate : PyGILState_STATE;
begin
- withinterp := Assigned( fInterpreterState);
with GetPythonEngine do
begin
- if withinterp then
+ if fThreadExecMode = emNewState then
begin
- fThreadExecMode := emNewState;
- fThreadState := PyThreadState_New( fInterpreterState);
- if Assigned(fThreadState) then
- begin
- PyEval_AcquireThread(fThreadState);
+ gilstate := PyGILState_Ensure();
+ try
+ fThreadState := GetThreadState;
ExecuteWithPython;
- PyEval_ReleaseThread( fThreadState);
- PyThreadState_Clear( fThreadState);
- PyThreadState_Delete( fThreadState);
- end else
- raise EPythonError.Create( 'Could not create a new thread state');
- end else {withinterp}
+ finally
+ PyGILState_Release(gilstate);
+ end;
+ end else {fThreadExecMode}
begin
- fThreadExecMode := emNewInterpreter;
gilstate := PyGILState_Ensure();
global_state := PyThreadState_Get;
PyThreadState_Swap(nil);
@@ -9380,24 +8819,24 @@ procedure TPythonThread.Execute;
end;
-procedure TPythonThread.Py_Begin_Allow_Threads;
+class procedure TPythonThread.Py_Begin_Allow_Threads;
begin
with GetPythonEngine do
f_savethreadstate := PyEval_SaveThread;
end;
-procedure TPythonThread.Py_End_Allow_Threads;
+class procedure TPythonThread.Py_End_Allow_Threads;
begin
with GetPythonEngine do
PyEval_RestoreThread( f_savethreadstate);
end;
-procedure TPythonThread.Py_Begin_Block_Threads;
+class procedure TPythonThread.Py_Begin_Block_Threads;
begin
Py_End_Allow_Threads;
end;
-procedure TPythonThread.Py_Begin_Unblock_Threads;
+class procedure TPythonThread.Py_Begin_Unblock_Threads;
begin
Py_Begin_Allow_Threads;
end;
@@ -9422,7 +8861,7 @@ function pyio_write(self, args : PPyObject) : PPyObject;
if GetCurrentThreadId <> MainThreadId then
with GetPythonEngine do
begin
- if RedirectIO and (IO <> nil) and (IO.ClassName <> 'TPythonInputOutput') then
+ if RedirectIO and (IO <> nil) and (IO.ClassName <> 'TPythonInputOutput') and not IO.DelayWrites then
begin
Result := GetPythonEngine.ReturnNone;
Exit;
@@ -9437,10 +8876,9 @@ function pyio_write(self, args : PPyObject) : PPyObject;
if RedirectIO and (IO <> nil) and Assigned(a1) then
begin
if PyUnicode_Check(a1) then
- IO.Write(PyUnicode_AsWideString(a1))
+ IO.Write(PyUnicodeAsString(a1))
else
- if PyString_Check(a1) then
- IO.Write(PyObjectAsString(a1));
+ IO.Write(IOString(PyObjectAsString(a1)));
end;
Result := ReturnNone;
end
@@ -9465,23 +8903,19 @@ function pyio_read(self, args : PPyObject) : PPyObject;
if Assigned(IO) then
if IO.UnicodeIO then begin
Widetxt := IO.ReceiveUniData;
- // KV!!!!!!
if PyErr_Occurred <> nil then
Result := nil
else
- // KV!!!!!!
- Result := PyUnicode_FromWideString(PWideChar(Widetxt));
+ Result := PyUnicodeFromString(PWideChar(Widetxt));
end else begin
txt := IO.ReceiveData;
- // KV!!!!!!
if PyErr_Occurred <> nil then
Result := nil
else
- // KV!!!!!!
- Result := PyString_FromString(PAnsiChar(txt));
+ Result := PyUnicodeFromString(txt);
end
else
- Result := PyString_FromString(PAnsiChar(txt));
+ Result := PyUnicodeFromString(txt);
end
else
Result := ReturnNone;
@@ -9535,29 +8969,13 @@ function pyio_GetTypesStats(self, args : PPyObject) : PPyObject;
with GetPythonEngine do
begin
Result := PyTuple_New(4);
- PyTuple_SetItem( Result, 0, PyString_FromString(PAnsiChar(T.TypeName)) );
- PyTuple_SetItem( Result, 1, PyInt_FromLong(T.InstanceCount) );
- PyTuple_SetItem( Result, 2, PyInt_FromLong(T.CreateHits) );
- PyTuple_SetItem( Result, 3, PyInt_FromLong(T.DeleteHits) );
+ PyTuple_SetItem( Result, 0, PyUnicodeFromString(T.TypeName));
+ PyTuple_SetItem( Result, 1, PyLong_FromLong(T.InstanceCount) );
+ PyTuple_SetItem( Result, 2, PyLong_FromLong(T.CreateHits) );
+ PyTuple_SetItem( Result, 3, PyLong_FromLong(T.DeleteHits) );
end;
end;
- function FindType( const TName : AnsiString ) : TPythonType;
- var
- i : Integer;
- begin
- Result := nil;
- with GetPythonEngine do
- for i := 0 to ClientCount - 1 do
- if Clients[i] is TPythonType then
- with TPythonType(Clients[i]) do
- if TypeName = TName then
- begin
- Result := TPythonType(Clients[i]);
- Break;
- end;
- end;
-
var
i : Integer;
T : TPythonType;
@@ -9571,7 +8989,7 @@ function pyio_GetTypesStats(self, args : PPyObject) : PPyObject;
for i := 0 to PyTuple_Size(args)-1 do
begin
str := AnsiString(PyObjectAsString( PyTuple_GetItem(args, i) ));
- T := FindType( str );
+ T := FindPythonType( str );
if Assigned(T) then
begin
obj := HandleType( T );
@@ -9591,9 +9009,6 @@ function pyio_GetTypesStats(self, args : PPyObject) : PPyObject;
end;
-
-
-
(*******************************************************)
(** **)
(** Global procedures **)
@@ -9604,9 +9019,8 @@ function GetPythonEngine : TPythonEngine;
begin
if not Assigned( gPythonEngine ) then
raise Exception.Create( 'No Python engine was created' );
- if not gPythonEngine.Finalizing then
- if not gPythonEngine.Initialized then
- raise Exception.Create( 'The Python engine is not properly initialized' );
+ if not gPythonEngine.Finalizing and not gPythonEngine.Initialized then
+ raise Exception.Create( 'The Python engine is not properly initialized' );
Result := gPythonEngine;
end;
@@ -9645,6 +9059,14 @@ procedure Register;
TPythonType, TPythonModule, TPythonDelphiVar]);
end;
+function SysVersionFromDLLName(const DLLFileName : string): string;
+var
+ Minor, Major: integer;
+begin
+ PythonVersionFromDLLName(DLLFileName, Major, Minor);
+ Result := Format('%d.%d', [Major, Minor]);
+end;
+
function PyType_HasFeature(AType : PPyTypeObject; AFlag : Integer) : Boolean;
begin
//(((t)->tp_flags & (f)) != 0)
@@ -9654,24 +9076,33 @@ function PyType_HasFeature(AType : PPyTypeObject; AFlag : Integer) : Boolean;
procedure MaskFPUExceptions(ExceptionsMasked : boolean;
MatchPythonPrecision : Boolean);
begin
- {$ifndef CPUARM}
- if MatchPythonPrecision then begin
- if ExceptionsMasked then
- Set8087CW($1232 or $3F)
- else
- Set8087CW($1232);
- end else begin
- if ExceptionsMasked then
- Set8087CW($1332 or $3F)
+//this define is from fpcsrc/rtl/inc/mathh.inc
+{$if defined(cpui8086) or defined(cpui386) or defined(cpux86_64)}
+ if ExceptionsMasked then
+ SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide,
+ exOverflow, exUnderflow, exPrecision])
+ else
+ SetExceptionMask([exDenormalized, exUnderflow, exPrecision]);
+{$IFNDEF NEXTGEN}{$WARN SYMBOL_PLATFORM OFF}
+ if MatchPythonPrecision then
+ SetPrecisionMode(pmDouble)
else
- Set8087CW($1332);
- end;
- {$endif}
+ SetPrecisionMode(pmExtended);
+{$ENDIF !NEXTGEN}{$WARN SYMBOL_PLATFORM ON}
+{$endif}
+end;
+
+function CleanString(const s : AnsiString; AppendLF : Boolean) : AnsiString;
+begin
+ Result := AdjustLineBreaks(s, tlbsLF);
+ if Result = '' then Exit;
+ if AppendLF and (result[length(result)] <> LF) then
+ Result := Result + LF;
end;
{$IFDEF windows}
-function IsPythonVersionRegistered(PythonVersion : string;
- out InstallPath: string; out AllUserInstall: Boolean) : Boolean;
+function IsPythonVersionRegistered(PythonVersion : AnsiString;
+ out InstallPath: AnsiString; out AllUserInstall: Boolean) : Boolean;
// Python provides for All user and Current user installations
// All User installations place the Python DLL in the Windows System directory
// and write registry info to HKEY_LOCAL_MACHINE
@@ -9680,7 +9111,7 @@ function IsPythonVersionRegistered(PythonVersion : string;
// Hence, for Current user installations we need to try and find the install path
// since it may not be on the system path.
var
- key: string;
+ key: AnsiString;
begin
Result := False;
InstallPath := '';
@@ -9715,5 +9146,55 @@ function IsPythonVersionRegistered(PythonVersion : string;
end;
{$ENDIF}
+procedure PythonVersionFromDLLName(LibName: string; out MajorVersion, MinorVersion: integer);
+//Windows: 'c:\some\path\python310.dll'
+//Linux: '/some/path/libpython3.10m.so'
+const
+ cPython = 'python';
+ DefaultMajor = 3;
+ DefaultMinor = 4;
+var
+ NPos: integer;
+ ch: char;
+begin
+ MajorVersion:= DefaultMajor;
+ MinorVersion:= DefaultMinor;
+ LibName:= LowerCase(ExtractFileName(LibName)); //strip path
+ NPos:= Pos(cPython, LibName);
+ if NPos=0 then exit;
+ Inc(NPos, Length(cPython));
+ if NPos>Length(LibName) then exit;
+ ch:= LibName[NPos];
+ case ch of
+ '2'..'5': //support major versions 2...5
+ MajorVersion:= StrToIntDef(ch, DefaultMajor);
+ else
+ exit;
+ end;
+ Delete(LibName, 1, NPos);
+ if LibName='' then exit;
+ case LibName[1] of
+ '.': //Unix name with dot
+ Delete(LibName, 1, 1);
+ '0'..'9': //Windows name w/o dot
+ begin end;
+ else //unknown char after major version
+ exit;
+ end;
+ //strip file extension and handle 'libpython3.10m.so'
+ for NPos:= 1 to Length(LibName) do
+ begin
+ case LibName[NPos] of
+ '.', 'a'..'z':
+ begin
+ SetLength(LibName, NPos-1);
+ Break
+ end;
+ end;
+ end;
+ //the rest is minor version number '0'...'999'
+ MinorVersion:= StrToIntDef(LibName, DefaultMinor);
+end;
+
end.
diff --git a/Components/Sources/Core/PythonGUIInputOutput.pas b/python4lazarus/PythonGUIInputOutput.pas
similarity index 94%
rename from Components/Sources/Core/PythonGUIInputOutput.pas
rename to python4lazarus/PythonGUIInputOutput.pas
index b606c7b..83d80f4 100644
--- a/Components/Sources/Core/PythonGUIInputOutput.pas
+++ b/python4lazarus/PythonGUIInputOutput.pas
@@ -1,252 +1,256 @@
-{$I Definition.Inc}
-unit PythonGUIInputOutput;
-
-(**************************************************************************)
-(* *)
-(* Module: Unit 'PythonGUIInputOutput' Copyright (c) 1997 *)
-(* *)
-(* Dr. Dietmar Budelsky *)
-(* dbudelsky@web.de *)
-(* Germany *)
-(* *)
-(* Morgan Martinet *)
-(* 4723 rue Brebeuf *)
-(* H2J 3L2 MONTREAL (QC) *)
-(* CANADA *)
-(* e-mail: p4d@mmm-experts.com *)
-(* *)
-(* look our page at: http://mmm-experts.com/ *)
-(**************************************************************************)
-(* Functionality: Delphi Components that provide an interface to the *)
-(* Python language (see python.txt for more infos on *)
-(* Python itself). *)
-(* *)
-(**************************************************************************)
-(* Contributors: *)
-(* Mark Watts(mark_watts@hotmail.com) *)
-(* Michiel du Toit (micdutoit@hsbfn.com) *)
-(**************************************************************************)
-(* This source code is distributed with no WARRANTY, for no reason or use.*)
-(* Everyone is allowed to use and change this code free for his own tasks *)
-(* and projects, as long as this header and its copyright text is intact. *)
-(* For changed versions of this code, which are public distributed the *)
-(* following additional conditions have to be fullfilled: *)
-(* 1) The header has to contain a comment on the change and the author of *)
-(* it. *)
-(* 2) A copy of the changed source has to be sent to the above E-Mail *)
-(* address or my then valid address, if this is possible to the *)
-(* author. *)
-(* The second condition has the target to maintain an up to date central *)
-(* version of the component. If this condition is not acceptable for *)
-(* confidential or legal reasons, everyone is free to derive a component *)
-(* or to generate a diff file to my or other original sources. *)
-(* Dr. Dietmar Budelsky, 1997-11-17 *)
-(**************************************************************************)
-
-interface
-
-uses
-{$IFDEF MSWINDOWS}
- Windows, Messages,
-{$ENDIF}
- SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, PythonEngine;
-
-{$IFDEF MSWINDOWS}
-const
- WM_WriteOutput = WM_USER + 1;
-{$ENDIF}
-
-type
- {$IF not Defined(FPC) and (CompilerVersion >= 23)}
- [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
- {$IFEND}
- TPythonGUIInputOutput = class(TPythonInputOutput)
- private
- { Private declarations }
- FCustomMemo : TCustomMemo;
-{$IFDEF MSWINDOWS}
- FWinHandle : HWND;
-{$ENDIF}
- protected
- { Protected declarations }
-{$IFDEF MSWINDOWS}
- procedure pyGUIOutputWndProc (var Message: TMessage);
-{$ENDIF}
- procedure Notification(AComponent: TComponent; Operation: TOperation); override;
- procedure SendData( const Data : AnsiString ); override;
- function ReceiveData : AnsiString; override;
- procedure SendUniData( const Data : UnicodeString ); override;
- function ReceiveUniData : UnicodeString; override;
- procedure AddPendingWrite; override;
- procedure WriteOutput;
- public
- { Public declarations }
- constructor Create( AOwner : TComponent ); override;
- destructor Destroy; override;
-
- procedure DisplayString( const str : string );
-
- published
- { Published declarations }
- property Output : TCustomMemo read FCustomMemo write FCustomMemo;
- end;
-
-procedure Register;
-
-implementation
-
-{$IFDEF FPC}
-{$IFDEF MSWINDOWS}
-Uses
- InterfaceBase;
-{$ENDIF}
-{$ENDIF}
-
-{PROTECTED METHODS}
-
-{------------------------------------------------------------------------------}
-procedure TPythonGUIInputOutput.Notification(AComponent: TComponent; Operation: TOperation);
-begin
- inherited;
- if Operation = opRemove then
- if aComponent = fCustomMemo then
- fCustomMemo := nil;
-end;
-
-{------------------------------------------------------------------------------}
-{$IFDEF MSWINDOWS}
-procedure TPythonGUIInputOutput.pyGUIOutputWndProc(var Message: TMessage);
-begin
- case Message.Msg of
- WM_WriteOutput : WriteOutput;
- end;{case}
-end;
-{$ENDIF}
-{------------------------------------------------------------------------------}
-procedure TPythonGUIInputOutput.SendData( const Data : AnsiString );
-begin
- if Assigned(FOnSendData) then
- inherited
- else
- DisplayString( string(Data) );
-end;
-
-procedure TPythonGUIInputOutput.SendUniData(const Data: UnicodeString);
-begin
- //inherited; //AT
- if Assigned(FOnSendUniData) then
- inherited
- else
- DisplayString( Data );
-end;
-
-{------------------------------------------------------------------------------}
-function TPythonGUIInputOutput.ReceiveData : AnsiString;
-Var
- S : string;
-begin
- if Assigned( FOnReceiveData ) then
- Result := inherited ReceiveData
- else
- begin
- S := '';
- InputQuery( 'Query from Python', 'Text:', S);
- Result := AnsiString(S);
- end;
-end;
-
-function TPythonGUIInputOutput.ReceiveUniData: UnicodeString;
-var
- S: String;
-begin
- if Assigned( FOnReceiveUniData ) then
- Result := inherited ReceiveUniData
- else
- begin
- S := '';
- InputQuery('Python prompt', 'Text:', S);
- Result := S;
- end;
-end;
-
-{------------------------------------------------------------------------------}
-procedure TPythonGUIInputOutput.AddPendingWrite;
-begin
-{$IFDEF MSWINDOWS}
- PostMessage( fWinHandle, WM_WriteOutput, 0, 0 );
-{$ENDIF}
-end;
-
-{------------------------------------------------------------------------------}
-procedure TPythonGUIInputOutput.WriteOutput;
-var
- S : IOString;
-begin
- if FQueue.Count = 0 then
- Exit;
- S := FQueue.Strings[ 0 ];
- FQueue.Delete(0);
- DisplayString( S )
-end;
-
-{PUBLIC METHODS}
-
-{------------------------------------------------------------------------------}
-constructor TPythonGUIInputOutput.Create( AOwner : TComponent );
-begin
- inherited Create(AOwner);
-{$IFDEF MSWINDOWS}
- // Create an internal window for use in delayed writes
- // This will allow writes from multiple threads to be queue up and
- // then written out to the associated TCustomMemo by the main UI thread.
- {$IFDEF FPC}
- fWinHandle := WidgetSet.AllocateHWnd(pyGUIOutputWndProc);
- {$ELSE}
- fWinHandle := Classes.AllocateHWnd(pyGUIOutputWndProc);
- {$ENDIF}
-{$ENDIF}
-{$IFDEF UNICODE}
- UnicodeIO := True;
-{$ENDIF}
-end;
-
-{------------------------------------------------------------------------------}
-destructor TPythonGUIInputOutput.Destroy;
-begin
-{$IFDEF MSWINDOWS}
- // Destroy the internal window used for Delayed write operations
- {$IFDEF FPC}
- WidgetSet.DeallocateHWnd(fWinHandle);
- {$ELSE}
- Classes.DeallocateHWnd(fWinHandle);
- {$ENDIF}
-{$ENDIF}
- inherited Destroy;
-end;
-
-{------------------------------------------------------------------------------}
-type
- TMyCustomMemo = class(TCustomMemo);
-
-procedure TPythonGUIInputOutput.DisplayString( const str : string );
-begin
- if Assigned(Output) then
- begin
- if TMyCustomMemo(Output).Lines.Count >= MaxLines then
- TMyCustomMemo(Output).Lines.Delete(0);
- TMyCustomMemo(Output).Lines.Add(str);
-{$IFDEF MSWINDOWS}
- SendMessage( Output.Handle, em_ScrollCaret, 0, 0);
- //SendMessage( Output.Handle, EM_LINESCROLL, 0, Output.Lines.Count);
-{$ENDIF}
- end;{if}
-end;
-
-{------------------------------------------------------------------------------}
-procedure Register;
-begin
- RegisterComponents('Python', [TPythonGUIInputOutput]);
-end;
-
-end.
+{$I Definition.Inc}
+unit PythonGUIInputOutput;
+
+(**************************************************************************)
+(* *)
+(* Module: Unit 'PythonGUIInputOutput' Copyright (c) 1997 *)
+(* *)
+(* Dr. Dietmar Budelsky *)
+(* dbudelsky@web.de *)
+(* Germany *)
+(* *)
+(* Morgan Martinet *)
+(* 4723 rue Brebeuf *)
+(* H2J 3L2 MONTREAL (QC) *)
+(* CANADA *)
+(* e-mail: p4d@mmm-experts.com *)
+(* *)
+(* look our page at: http://mmm-experts.com/ *)
+(**************************************************************************)
+(* Functionality: Delphi Components that provide an interface to the *)
+(* Python language (see python.txt for more infos on *)
+(* Python itself). *)
+(* *)
+(**************************************************************************)
+(* Contributors: *)
+(* Mark Watts(mark_watts@hotmail.com) *)
+(* Michiel du Toit (micdutoit@hsbfn.com) *)
+(**************************************************************************)
+(* This source code is distributed with no WARRANTY, for no reason or use.*)
+(* Everyone is allowed to use and change this code free for his own tasks *)
+(* and projects, as long as this header and its copyright text is intact. *)
+(* For changed versions of this code, which are public distributed the *)
+(* following additional conditions have to be fullfilled: *)
+(* 1) The header has to contain a comment on the change and the author of *)
+(* it. *)
+(* 2) A copy of the changed source has to be sent to the above E-Mail *)
+(* address or my then valid address, if this is possible to the *)
+(* author. *)
+(* The second condition has the target to maintain an up to date central *)
+(* version of the component. If this condition is not acceptable for *)
+(* confidential or legal reasons, everyone is free to derive a component *)
+(* or to generate a diff file to my or other original sources. *)
+(* Dr. Dietmar Budelsky, 1997-11-17 *)
+(**************************************************************************)
+
+interface
+
+uses
+{$IFDEF MSWINDOWS}
+ Windows, Messages,
+{$ENDIF}
+ SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+ StdCtrls, PythonEngine;
+
+{$IFDEF MSWINDOWS}
+const
+ WM_WriteOutput = WM_USER + 1;
+{$ENDIF}
+
+type
+ {$IF not Defined(FPC) and (CompilerVersion >= 23)}
+ [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
+ {$IFEND}
+ TPythonGUIInputOutput = class(TPythonInputOutput)
+ private
+ { Private declarations }
+ FCustomMemo : TCustomMemo;
+{$IFDEF MSWINDOWS}
+ FWinHandle : HWND;
+{$ENDIF}
+ protected
+ { Protected declarations }
+{$IFDEF MSWINDOWS}
+ procedure pyGUIOutputWndProc (var Message: TMessage);
+{$ENDIF}
+ procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+ procedure SendData( const Data : AnsiString ); override;
+ function ReceiveData : AnsiString; override;
+ procedure SendUniData( const Data : UnicodeString ); override;
+ function ReceiveUniData : UnicodeString; override;
+ procedure AddPendingWrite; override;
+ procedure WriteOutput;
+ public
+ { Public declarations }
+ constructor Create( AOwner : TComponent ); override;
+ destructor Destroy; override;
+
+ procedure DisplayString( const str : string );
+
+ published
+ { Published declarations }
+ property Output : TCustomMemo read FCustomMemo write FCustomMemo;
+ end;
+
+procedure Register;
+
+implementation
+
+{$IFDEF FPC}
+{$IFDEF MSWINDOWS}
+Uses
+ InterfaceBase;
+{$ENDIF}
+{$ENDIF}
+
+{PROTECTED METHODS}
+
+{------------------------------------------------------------------------------}
+procedure TPythonGUIInputOutput.Notification(AComponent: TComponent; Operation: TOperation);
+begin
+ inherited;
+ if Operation = opRemove then
+ if aComponent = fCustomMemo then
+ fCustomMemo := nil;
+end;
+
+{------------------------------------------------------------------------------}
+{$IFDEF MSWINDOWS}
+procedure TPythonGUIInputOutput.pyGUIOutputWndProc(var Message: TMessage);
+begin
+ case Message.Msg of
+ WM_WriteOutput : WriteOutput;
+ end;{case}
+end;
+{$ENDIF}
+{------------------------------------------------------------------------------}
+procedure TPythonGUIInputOutput.SendData( const Data : AnsiString );
+begin
+ if Assigned(FOnSendData) then
+ inherited
+ else
+ DisplayString( string(Data) );
+end;
+
+procedure TPythonGUIInputOutput.SendUniData(const Data: UnicodeString);
+begin
+ if Assigned(FOnSendUniData) then
+ inherited
+ else
+ DisplayString( Data );
+end;
+
+{------------------------------------------------------------------------------}
+function TPythonGUIInputOutput.ReceiveData : AnsiString;
+Var
+ S : string;
+begin
+ if Assigned( FOnReceiveData ) then
+ Result := inherited ReceiveData
+ else
+ begin
+ InputQuery( 'Query from Python', 'Enter text', S);
+ Result := AnsiString(S);
+ end;
+end;
+
+function TPythonGUIInputOutput.ReceiveUniData: UnicodeString;
+Var
+ S : string;
+begin
+ if Assigned( FOnReceiveUniData ) then
+ Result := inherited ReceiveUniData
+ else
+ begin
+ InputQuery( 'Query from Python', 'Enter text', S);
+ Result := S;
+ end;
+end;
+
+{------------------------------------------------------------------------------}
+procedure TPythonGUIInputOutput.AddPendingWrite;
+begin
+{$IFDEF MSWINDOWS}
+ PostMessage( fWinHandle, WM_WriteOutput, 0, 0 );
+{$ENDIF}
+end;
+
+{------------------------------------------------------------------------------}
+procedure TPythonGUIInputOutput.WriteOutput;
+var
+ S : IOString;
+begin
+ if FQueue.Count = 0 then
+ Exit;
+
+ Lock;
+ try
+ while FQueue.Count > 0 do
+ begin
+ S := FQueue.Strings[ 0 ];
+ FQueue.Delete(0);
+ DisplayString( S );
+ end;
+ finally
+ Unlock;
+ end;
+end;
+
+{PUBLIC METHODS}
+
+{------------------------------------------------------------------------------}
+constructor TPythonGUIInputOutput.Create( AOwner : TComponent );
+begin
+ inherited Create(AOwner);
+{$IFDEF MSWINDOWS}
+ // Create an internal window for use in delayed writes
+ // This will allow writes from multiple threads to be queue up and
+ // then written out to the associated TCustomMemo by the main UI thread.
+ {$IFDEF FPC}
+ fWinHandle := WidgetSet.AllocateHWnd(pyGUIOutputWndProc);
+ {$ELSE}
+ fWinHandle := Classes.AllocateHWnd(pyGUIOutputWndProc);
+ {$ENDIF}
+{$ENDIF}
+ UnicodeIO := True;
+end;
+
+{------------------------------------------------------------------------------}
+destructor TPythonGUIInputOutput.Destroy;
+begin
+{$IFDEF MSWINDOWS}
+ // Destroy the internal window used for Delayed write operations
+ {$IFDEF FPC}
+ WidgetSet.DeallocateHWnd(fWinHandle);
+ {$ELSE}
+ Classes.DeallocateHWnd(fWinHandle);
+ {$ENDIF}
+{$ENDIF}
+ inherited Destroy;
+end;
+
+{------------------------------------------------------------------------------}
+type
+ TMyCustomMemo = class(TCustomMemo);
+
+procedure TPythonGUIInputOutput.DisplayString( const str : string );
+begin
+ if Assigned(Output) then
+ begin
+ if TMyCustomMemo(Output).Lines.Count >= MaxLines then
+ TMyCustomMemo(Output).Lines.Delete(0);
+ TMyCustomMemo(Output).Lines.Add(str);
+{$IFDEF MSWINDOWS}
+ SendMessage( Output.Handle, em_ScrollCaret, 0, 0);
+ //SendMessage( Output.Handle, EM_LINESCROLL, 0, Output.Lines.Count);
+{$ENDIF}
+ end;{if}
+end;
+
+{------------------------------------------------------------------------------}
+procedure Register;
+begin
+ RegisterComponents('Python', [TPythonGUIInputOutput]);
+end;
+
+end.
diff --git a/python4lazarus/PythonVersions.pas b/python4lazarus/PythonVersions.pas
new file mode 100644
index 0000000..6b746de
--- /dev/null
+++ b/python4lazarus/PythonVersions.pas
@@ -0,0 +1,545 @@
+{-----------------------------------------------------------------------------
+ Unit Name: PythonVersions
+ Author: PyScripter
+ Purpose: Discover and get info about Python versions
+ Part of the Python for Delphi library
+
+ History:
+-----------------------------------------------------------------------------}
+
+unit PythonVersions;
+
+interface
+Uses
+ Classes;
+
+type
+
+ TPythonVersion = record
+ private
+ FDisplayName: string;
+ FHelpFile: string;
+ fSysArchitecture : string;
+ function GetDLLName: string;
+ function ExpectedArchitecture:string;
+ function GetIsPython3K: Boolean;
+ function GetHelpFile: string;
+ function GetDisplayName: string;
+ function GetApiVersion: integer;
+ function GetSysArchitecture: string;
+ function GetPythonExecutable: string;
+ public
+ IsRegistered: Boolean;
+ IsAllUsers: Boolean;
+ SysVersion: string;
+ Version: string;
+ DLLPath: string;
+ InstallPath: string;
+ PythonPath: string;
+ function Is_venv: Boolean;
+ function Is_virtualenv: Boolean;
+ function Is_conda: Boolean;
+ procedure AssignTo(PythonEngine: TPersistent);
+ property PythonExecutable: string read GetPythonExecutable;
+ property DLLName: string read GetDLLName;
+ property SysArchitecture: string read GetSysArchitecture;
+ property IsPython3K: Boolean read GetIsPython3K;
+ property HelpFile: string read GetHelpFile write FHelpFile;
+ property DisplayName: string read GetDisplayName write FDisplayName;
+ property ApiVersion: integer read GetApiVersion;
+ end;
+
+ TPythonVersions = array of TPythonVersion;
+
+ (*
+ Compares two Version strings and returns -1, 0, 1 depending on result
+ The function result has the semantics of Delphi compare functions
+ -1: A is bigger (newer), 0: equal versions, 1: B is bigger (newer)
+ *)
+ function CompareVersions(A, B : string) : Integer;
+
+ {$IFDEF MSWINDOWS}
+ (* Checks whether an executable was compiled for X64 *)
+ function IsEXEx64(const EXEName: string): Boolean;
+ (* Checks whether a DLL was compiled for X64 *)
+ function Isx64(const FileName: string): Boolean;
+ (* Checks whether a Python version is registered and returns the related info *)
+ function GetRegisteredPythonVersion(SysVersion: string;
+ out PythonVersion: TPythonVersion): Boolean;
+ (* Returns all registered Python versions *)
+ function GetRegisteredPythonVersions(const MinVersion: string = '0.0';
+ const MaxVersion: string = '100.100'): TPythonVersions;
+ (* Returns the highest numbered registered Python version *)
+ function GetLatestRegisteredPythonVersion(out PythonVersion: TPythonVersion;
+ const MinVersion: string = '0.0'; const MaxVersion: string = '100.100'): Boolean;
+ function PythonVersionFromPath(const Path: string; out PythonVersion: TPythonVersion;
+ AcceptVirtualEnvs: Boolean = True; const MinVersion: string = '0.0';
+ const MaxVersion: string = '100.100'): Boolean;
+ {$ENDIF}
+
+implementation
+
+Uses
+ {$IFDEF MSWINDOWS}
+ Windows,
+ Registry,
+ {$ENDIF}
+ SysUtils,
+ Math,
+ PythonEngine;
+
+{ TPythonVersion }
+
+function TPythonVersion.GetDLLName: string;
+begin
+ {$IFDEF MSWINDOWS}
+ Result := SysVersion;
+ Delete(Result, 2, 1);
+ Result := 'python' + Result + '.dll';
+ {$ELSE}
+ Result := 'libpython' + SysVersion + '.so';
+ {$ENDIF}
+end;
+
+function TPythonVersion.ExpectedArchitecture: string;
+begin
+ Result := '';
+ {$IF Defined(CPUX64) or Defined(CPU64) or Defined(CPU64bits)}
+ Result := '64bit';
+ {$ENDIF}
+ if Result = '' then
+ Result := '32bit';
+end;
+
+procedure TPythonVersion.AssignTo(PythonEngine: TPersistent);
+begin
+ if PythonEngine is TPythonEngine then
+ begin
+ TPythonEngine(PythonEngine).UseLastKnownVersion := False;
+ TPythonEngine(PythonEngine).RegVersion := SysVersion;
+ TPythonEngine(PythonEngine).DllName := DLLName;
+ TPythonEngine(PythonEngine).DllPath := DLLPath;
+ TPythonEngine(PythonEngine).APIVersion := ApiVersion;
+ if Is_venv then begin
+ TPythonEngine(PythonEngine).VenvPythonExe := PythonExecutable;
+ TPythonEngine(PythonEngine).SetPythonHome(DLLPath);
+ end else if not IsRegistered or Is_conda then
+ {
+ Not sure why but PythonHome needs to be set even for
+ registered conda distributions
+ Note also that for conda distributions to work properly,
+ you need to add Format('%s;%0:s\Library\bin;', [Version.InstallPath]
+ to your Windows path if it is not there already.
+ }
+ TPythonEngine(PythonEngine).SetPythonHome(InstallPath);
+ end;
+end;
+
+function TPythonVersion.GetApiVersion: integer;
+begin
+ if CompareVersions(SysVersion, '2.4') < 0 then
+ Result := 1013
+ else
+ Result := 1012;
+end;
+
+function TPythonVersion.GetDisplayName: string;
+Var
+ FormatStr: string;
+begin
+ if FDisplayName = '' then
+ begin
+ if Is_conda then
+ FormatStr := 'Conda %s (%s)'
+ else
+ FormatStr := 'Python %s (%s)';
+ if Is_virtualenv then
+ FormatStr := FormatStr + ' -virtualenv'
+ else if Is_venv then
+ FormatStr := FormatStr + ' -venv';
+
+ FDisplayName := Format(FormatStr, [SysVersion, SysArchitecture]);
+ end;
+ Result := FDisplayName;
+end;
+
+function TPythonVersion.GetHelpFile: string;
+var
+ PythonHelpFilePath: string;
+ HtmlIndex: string;
+ Res: Integer;
+ SR: TSearchRec;
+begin
+ Result := FHelpFile;
+ // for unregistered Python or python 11
+ if ((Result = '') or (ExtractFileExt(Result) = '.html')) and (InstallPath <> '') then
+ begin
+ PythonHelpFilePath := IncludeTrailingPathDelimiter(InstallPath) + 'Doc\python*.chm';
+ Res := FindFirst(PythonHelpFilePath, faAnyFile, SR);
+ if Res = 0 then
+ Result := IncludeTrailingPathDelimiter(InstallPath) + 'Doc\' + SR.Name
+ else if Result = '' then
+ begin
+ HtmlIndex := IncludeTrailingPathDelimiter(InstallPath) + 'Doc\html\index.html';
+ if FileExists(HtmlIndex) then
+ Result := HtmlIndex;
+ end;
+ FindClose(SR);
+ end;
+end;
+
+function TPythonVersion.GetIsPython3K: Boolean;
+begin
+ try
+ Result := StrToInt(SysVersion[1]) >= 3;
+ except
+ Result := False;
+ end;
+end;
+
+function TPythonVersion.GetPythonExecutable: string;
+begin
+ Result := IncludeTrailingPathDelimiter(InstallPath) + 'python.exe';
+ if not FileExists(Result) then begin
+ Result := IncludeTrailingPathDelimiter(InstallPath) + 'Scripts' + PathDelim + 'python.exe';
+ if not FileExists(Result) then Result := '';
+ end;
+end;
+
+function TPythonVersion.GetSysArchitecture: string;
+begin
+ Result := fSysArchitecture;
+ if Result = '' then
+ Result := 'Unknown platform';
+end;
+
+function TPythonVersion.Is_conda: Boolean;
+begin
+ Result := DirectoryExists(IncludeTrailingPathDelimiter(InstallPath) + 'conda-meta');
+end;
+
+function TPythonVersion.Is_venv: Boolean;
+{
+ Check weather this is python venv folder introduced in python 3.5
+ Note: venv is different from virtualenv
+}
+begin
+ Result := not IsRegistered and (InstallPath <> DLLPath) and
+ FileExists(IncludeTrailingPathDelimiter(InstallPath) + 'pyvenv.cfg');
+end;
+
+function TPythonVersion.Is_virtualenv: Boolean;
+begin
+ Result := Is_venv and FileExists(IncludeTrailingPathDelimiter(InstallPath) + 'Scripts' + PathDelim + DLLName);
+end;
+
+function CompareVersions(A, B : string) : Integer;
+
+ function GetNextNumber(var Version: string): Integer;
+ var
+ P: Integer;
+ S: string;
+ begin
+ P := Pos('.', Version);
+ if P > 0 then
+ begin
+ S := Copy(Version, 1, P - 1);
+ Version := Copy(Version, P + 1, Length(Version) - P);
+ end
+ else
+ begin
+ S := Version;
+ Version := '';
+ end;
+ Result := StrToIntDef(S, 0)
+ end;
+
+var
+ N1, N2: Integer;
+begin
+ Result := 0;
+ repeat
+ N1 := GetNextNumber(A);
+ N2 := GetNextNumber(B);
+ if N2 > N1 then
+ begin
+ Result := 1;
+ Exit;
+ end
+ else
+ if N2 < N1 then
+ begin
+ Result := -1;
+ Exit;
+ end
+ until (A = '') and (B = '');
+end;
+
+{$IFDEF MSWINDOWS}
+function IsEXEx64(const EXEName: string): Boolean;
+var
+ BinaryType: DWORD;
+begin
+ Result := FileExists(EXEName) and
+ GetBinaryType(PChar(ExeName), Binarytype) and
+ (BinaryType = SCS_64BIT_BINARY);
+end;
+
+function Isx64(const FileName: string): Boolean;
+var
+ Strm : TFileStream;
+ Header: TImageDosHeader;
+ ImageNtHeaders: TImageNtHeaders;
+begin
+ Strm := TFileStream.Create(FileName, fmOpenRead);
+ try
+ Strm.ReadBuffer(Header, SizeOf(Header));
+ if (Header.e_magic <> IMAGE_DOS_SIGNATURE) or (Header._lfanew = 0) then
+ Exit(False);
+ Strm.Position := Header._lfanew;
+ Strm.ReadBuffer(ImageNtHeaders, SizeOf(ImageNtHeaders));
+ if ImageNtHeaders.Signature <> IMAGE_NT_SIGNATURE then
+ Exit(False);
+ Result := ImageNtHeaders.FileHeader.Machine <> IMAGE_FILE_MACHINE_I386;
+ finally
+ Strm.Free;
+ end;
+end;
+
+function GetRegisteredPythonVersion(SysVersion: string;
+ out PythonVersion: TPythonVersion): Boolean;
+ // Python provides for All user and Current user installations
+ // All User installations place the Python DLL in the Windows System directory
+ // and write registry info to HKEY_LOCAL_MACHINE
+ // Current User installations place the DLL in the install path and
+ // the registry info in HKEY_CURRENT_USER.
+ // Hence, for Current user installations we need to try and find the install path
+ // since it may not be on the system path.
+
+ // The above convension was changed in Python 3.5. Now even for all user
+ // installations the dll is located at the InstallPath.
+ // Also from version 3.5 onwards 32 bit version have a suffix -32 e.g. "3.6-32"
+ // See also PEP 514
+
+ function ReadFromRegistry(Root: HKEY; key: string): Boolean;
+ begin
+ Result := False;
+ try
+ with TRegistry.Create(KEY_READ and not KEY_NOTIFY) do
+ try
+ RootKey := Root;
+ if OpenKey(Key + '\InstallPath', False) then begin
+ PythonVersion.InstallPath := ReadString('');
+ if PythonVersion.IsAllUsers and (CompareVersions(SysVersion, '3.5') > 0) then
+ PythonVersion.DLLPath := ''
+ else
+ PythonVersion.DLLPath := PythonVersion.InstallPath;
+ CloseKey;
+ end;
+ Result := (PythonVersion.InstallPath <> '') and
+ DirectoryExists(ExcludeTrailingPathDelimiter(PythonVersion.InstallPath));
+ if not Result then Exit;
+
+ if OpenKey(Key, False) then begin
+ PythonVersion.DisplayName := ReadString('DisplayName');
+ PythonVersion.Version := ReadString('Version');
+ PythonVersion.fSysArchitecture := ReadString('SysArchitecture');
+ CloseKey;
+ end;
+ if OpenKey(Key + '\PythonPath', False) then begin
+ PythonVersion.PythonPath := ReadString('');
+ CloseKey;
+ end;
+ if OpenKey(Key + '\Help\Main Python Documentation', False) then begin
+ PythonVersion.HelpFile := ReadString('');
+ CloseKey;
+ end;
+ finally
+ Free;
+ end;
+ except
+ end;
+
+ end;
+
+var
+ key: string;
+ VersionSuffix: string;
+ APythonVersion: TPythonVersion;
+begin
+ // Initialize PythohVersion
+ Finalize(PythonVersion);
+ FillChar(PythonVersion, SizeOf(TPythonVersion), 0);
+
+ VersionSuffix := '';
+ {$IFDEF CPUX86}
+ if CompareVersions(SysVersion, '3.5') <= 0 then
+ VersionSuffix := '-32';
+ {$ENDIF}
+ key := Format('\Software\Python\PythonCore\%s%s', [SysVersion, VersionSuffix]);
+
+
+ PythonVersion.SysVersion := SysVersion;
+ // First try HKEY_CURRENT_USER as per PEP514
+ PythonVersion.IsAllUsers := False;
+ Result := ReadFromRegistry(HKEY_CURRENT_USER, key);
+
+ //Then try for an all user installation
+ if not Result then begin
+ PythonVersion.IsAllUsers := True;
+ Result := ReadFromRegistry(HKEY_LOCAL_MACHINE, key);
+ if PythonVersion.fSysArchitecture = '' then
+ // for all user installations we can be sure.
+ /// But not for local user installations
+ PythonVersion.fSysArchitecture := PythonVersion.ExpectedArchitecture;
+ end;
+
+ if Result and (PythonVersion.fSysArchitecture = '') then begin
+ // We need to check it is the proper platform
+ Result := PythonVersionFromPath(PythonVersion.InstallPath, APythonVersion);
+ if Result then
+ PythonVersion.fSysArchitecture := PythonVersion.ExpectedArchitecture;
+ end;
+
+ PythonVersion.IsRegistered := Result;
+end;
+
+function GetRegisteredPythonVersions(const MinVersion: string = '0.0';
+ const MaxVersion: string = '100.100'): TPythonVersions;
+Var
+ Count: Integer;
+ I: Integer;
+ PythonVersion : TPythonVersion;
+begin
+ Count := 0;
+ SetLength(Result, High(PYTHON_KNOWN_VERSIONS));
+ for I := High(PYTHON_KNOWN_VERSIONS) downto 1 do
+ begin
+ if CompareVersions(PYTHON_KNOWN_VERSIONS[I].RegVersion, MaxVersion) < 0 then
+ continue;
+ if CompareVersions(PYTHON_KNOWN_VERSIONS[I].RegVersion, MinVersion) > 0 then
+ break;
+ if GetRegisteredPythonVersion(PYTHON_KNOWN_VERSIONS[I].RegVersion, PythonVersion) then
+ begin
+ Result[Count] := PythonVersion;
+ Inc(Count);
+ end;
+ end;
+ SetLength(Result, Count);
+end;
+
+function GetLatestRegisteredPythonVersion(out PythonVersion: TPythonVersion;
+ const MinVersion: string = '0.0'; const MaxVersion: string = '100.100'): Boolean;
+Var
+ I: Integer;
+begin
+ Result := False;
+ for I := High(PYTHON_KNOWN_VERSIONS) downto 1 do
+ begin
+ if CompareVersions(PYTHON_KNOWN_VERSIONS[I].RegVersion, MaxVersion) < 0 then
+ continue;
+ if CompareVersions(PYTHON_KNOWN_VERSIONS[I].RegVersion, MinVersion) > 0 then
+ break;
+ if GetRegisteredPythonVersion(PYTHON_KNOWN_VERSIONS[I].RegVersion, PythonVersion) then
+ Exit(True);
+ end;
+end;
+
+function PythonVersionFromPath(const Path: string; out PythonVersion: TPythonVersion;
+ AcceptVirtualEnvs: Boolean = True; const MinVersion: string = '0.0';
+ const MaxVersion: string = '100.100'): Boolean;
+
+ function FindPythonDLL(APath : string): string;
+ Var
+ FindFileData: TWIN32FindData;
+ Handle : THandle;
+ DLLFileName: string;
+ begin
+ Result := '';
+ Handle := FindFirstFile(PWideChar(APath+'\python*.dll'), FindFileData);
+ if Handle = INVALID_HANDLE_VALUE then Exit; // not python dll
+ DLLFileName:= FindFileData.cFileName;
+ // skip if python3.dll was found
+ if Length(DLLFileName) <= 11 then FindNextFile(Handle, FindFileData);
+ if Handle = INVALID_HANDLE_VALUE then Exit;
+ Windows.FindClose(Handle);
+ DLLFileName:= FindFileData.cFileName;
+ if Length(DLLFileName) > 11 then
+ Result := DLLFileName;
+ end;
+
+ function GetVenvBasePrefix(InstallPath: string): string;
+ var
+ SL : TStringList;
+ begin
+ SL := TStringList.Create;
+ try
+ try
+ SL.LoadFromFile(IncludeTrailingPathDelimiter(InstallPath)+'pyvenv.cfg');
+ Result := Trim(SL.Values['home']);
+ if Result = '' then
+ Result := Trim(SL.Values['home ']);
+ except
+ end;
+ finally
+ SL.Free;
+ end;
+ end;
+
+Var
+ DLLFileName: string;
+ DLLPath: string;
+ SysVersion: string;
+ BasePrefix: string;
+ I: integer;
+begin
+ Result := False;
+ Finalize(PythonVersion);
+ FillChar(PythonVersion, SizeOf(TPythonVersion), 0);
+ DLLPath := ExcludeTrailingPathDelimiter(Path);
+
+ PythonVersion.InstallPath := DLLPath;
+
+ DLLFileName := FindPythonDLL(DLLPath);
+
+ if DLLFileName = '' then begin
+ if AcceptVirtualEnvs and PythonVersion.Is_venv then
+ begin
+ BasePrefix := GetVenvBasePrefix(PythonVersion.InstallPath);
+ if (BasePrefix <> '') and PythonVersionFromPath(BasePrefix, PythonVersion, False) then
+ begin
+ // Install path points to venv but the rest of the info is from base_prefix
+ PythonVersion.InstallPath := ExcludeTrailingPathDelimiter(Path);
+ Result := True;
+ end;
+ end;
+ Exit;
+ end;
+
+ // check if same platform
+ try
+ if {$IFDEF CPUX64}not {$ENDIF}IsEXEx64(DLLPath+'\python.exe') then Exit;
+ except
+ Exit;
+ end;
+ PythonVersion.DLLPath := DLLPath;
+
+ SysVersion := SysVersionFromDLLName(DLLFileName);
+
+ PythonVersion.SysVersion := SysVersion;
+ PythonVersion.fSysArchitecture := PythonVersion.ExpectedArchitecture;
+
+ if (CompareVersions(MinVersion, SysVersion) >= 0) and
+ (CompareVersions(MaxVersion, SysVersion) <= 0)
+ then
+ // Full search in case some python version is not supported
+ for I := High(PYTHON_KNOWN_VERSIONS) downto 1 do
+ if PYTHON_KNOWN_VERSIONS[I].RegVersion = SysVersion then begin
+ Result := True;
+ break;
+ end;
+end;
+
+{$ENDIF}
+
+end.
diff --git a/Components/Sources/Core/VarPyth.pas b/python4lazarus/VarPyth.pas
similarity index 71%
rename from Components/Sources/Core/VarPyth.pas
rename to python4lazarus/VarPyth.pas
index ed6dfab..29f2328 100644
--- a/Components/Sources/Core/VarPyth.pas
+++ b/python4lazarus/VarPyth.pas
@@ -12,8 +12,6 @@
(* CANADA *)
(* e-mail: p4d@mmm-experts.com *)
(* *)
-(* look our page at: http://mmm-experts.com/ *)
-(* and our Wiki at: http://py4d.pbwiki.com/ *)
(**************************************************************************)
(* Functionality: This allows you to use Python objects like COM *)
(* automation objects, inside your Delphi source code. *)
@@ -42,7 +40,7 @@
interface
uses
- Variants, PythonEngine;
+ Variants, PythonEngine, Classes;
type
TSequenceType = (stTuple, stList);
@@ -52,7 +50,6 @@ function VarPythonCreate( AObject : PPyObject ) : Variant; overload;
function VarPythonCreate( const AValue : Variant ) : Variant; overload;
function VarPythonCreate( const AValues : array of const; ASequenceType : TSequenceType = stList ) : Variant; overload;
function VarPythonEval( const APythonExpression : AnsiString) : Variant;
-function GetAtom( AObject : PPyObject ) : Variant; // compatibility function with PythonAtom.pas
{ Python variant helper functions }
function VarPython: TVarType;
@@ -71,7 +68,6 @@ function VarIsPythonTuple(const AValue: Variant): Boolean;
function VarIsPythonList(const AValue: Variant): Boolean;
function VarIsPythonDict(const AValue: Variant): Boolean;
function VarIsPythonClass(const AValue: Variant): Boolean;
-function VarIsPythonInstance(const AValue: Variant): Boolean;
function VarIsPythonMethod(const AValue: Variant): Boolean;
function VarIsPythonFunction(const AValue: Variant): Boolean;
function VarIsPythonModule(const AValue: Variant): Boolean;
@@ -100,22 +96,52 @@ function NewPythonDict: Variant;
// Not really needed since you can assign a PythonVariant to a string anyway
// but it is slightly faster and in some places avoids the declaration of a variable
function VarPythonAsString(AValue : Variant) : string;
+{$IFDEF FPC}
+// to work around http://mantis.freepascal.org/view.php?id=20849)
+function VarPythonToVariant(AValue : Variant): Variant;
+{$ENDIF}
-function None : Variant;
-function Ellipsis : Variant;
-function MainModule : Variant; // return the main module that's used for executing a script.
-function BuiltinModule : Variant; // return the builtin module
-function SysModule : Variant; // return the builtin module 'sys'
-function DatetimeModule : Variant; // return the builtin module 'datetime'
-function Import( const AModule : AnsiString ) : Variant; // import a Python module and return the module object.
-function len(const AValue : Variant ) : NativeInt; // return the length of a Python collection.
-function _type(const AValue : Variant ) : Variant; // return the type object of a Python object.
-function iter(const AValue : Variant ) : Variant; // return an iterator for the container AValue. You can call the 'next' method of the iterator until you catch the EPyStopIteration exception.
+function None: Variant;
+function Ellipsis: Variant;
+function MainModule: Variant; // return the main module that's used for executing a script.
+function BuiltinModule: Variant; // return the builtin module
+function SysModule: Variant; // return the builtin module 'sys'
+function DatetimeModule: Variant; // return the builtin module 'datetime'
+function Import(const AModule: string): Variant; // import a Python module and return the module object.
+function Reload(const AModule: Variant): Variant; //reload a Python imported module and return the module object.
+function len(const AValue : Variant ): NativeInt; // return the length of a Python collection.
+function _type(const AValue : Variant ): Variant; // return the type object of a Python object.
+function iter(const AValue : Variant ): Variant; // return an iterator for the container AValue. You can call the 'next' method of the iterator until you catch the EPyStopIteration exception.
+
+type
+ TVarPyEnumerator = record
+ private
+ FIterator: Variant;
+ FCurrent: Variant;
+ public
+ constructor Create(const AValue: Variant);
+ function MoveNext: Boolean; inline;
+ function GetCurrent: Variant; inline;
+ property Current: Variant read GetCurrent;
+ end;
+
+ TVarPyEnumerateHelper = record
+ private
+ FIterable: Variant;
+ public
+ constructor Create(const AValue: Variant);
+ function GetEnumerator: TVarPyEnumerator;
+ end;
+
+function VarPyIterate(const AValue: Variant): TVarPyEnumerateHelper;
+
+// Adds a python iterable items to a TStrings
+procedure VarPyToStrings(const AValue : Variant; const AStrings: TStrings);
implementation
uses
- VarUtils, SysUtils, SysConst, TypInfo, Classes;
+ VarUtils, SysUtils, TypInfo;
type
TNamedParamDesc = record
@@ -124,11 +150,8 @@ TNamedParamDesc = record
end;
TNamedParamArray = array of TNamedParamDesc;
-{$IFDEF DELPHIXE2_OR_HIGHER}
- {$DEFINE USESYSTEMDISPINVOKE} //Delphi 2010 DispInvoke is buggy
-{$ENDIF}
-{$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 20500)}
- {$DEFINE USESYSTEMDISPINVOKE}
+{$IF not defined(FPC) and (defined(OSX64) or defined(LINUX) or not defined(DELPHI10_4_OR_HIGHER))}
+ {$DEFINE PATCHEDSYSTEMDISPINVOKE} //To correct memory leaks
{$IFEND}
{ Python variant type handler }
@@ -143,22 +166,14 @@ TPythonVariantType = class(TInvokeableVariantType, IVarInstanceReference)
function EvalPython(const V: TVarData; const AName: AnsiString;
const Arguments: TVarDataArray): PPyObject;
function VarDataToPythonObject( AVarData : TVarData ) : PPyObject;
- procedure PythonObjectToVarData( var Dest : TVarData; AObject : PPyObject; APythonAtomCompatible : Boolean );
procedure PyhonVarDataCreate( var Dest : TVarData; AObject : PPyObject );
- {$IFNDEF USESYSTEMDISPINVOKE}
- procedure DoDispInvoke(Dest: PVarData; const Source: TVarData;
- CallDesc: PCallDesc; Params: Pointer); virtual;
- function GetPropertyWithArg(var Dest: TVarData; const V: TVarData;
- const AName: AnsiString; AArg : TVarData): Boolean; virtual;
- {$ENDIF USESYSTEMDISPINVOKE}
- {$IFNDEF FPC}
- function FixupIdent(const AText: string): string; override;
- {$ENDIF FPC}
{$IFDEF FPC}
procedure VarDataClear(var Dest: TVarData);
procedure VarDataCopyNoInd(var Dest: TVarData; const Source: TVarData);
procedure VarDataCastTo(var Dest: TVarData; const Source: TVarData;
const AVarType: TVarType); overload;
+ {$ELSE}
+ function FixupIdent(const AText: string): string; override;
{$ENDIF FPC}
public
procedure Clear(var V: TVarData); override;
@@ -180,10 +195,15 @@ TPythonVariantType = class(TInvokeableVariantType, IVarInstanceReference)
const Arguments: TVarDataArray): Boolean; override;
function GetProperty(var Dest: TVarData; const V: TVarData;
const AName: string): Boolean; override;
- function SetProperty(const V: TVarData; const AName: string;
+ function SetProperty({$IFDEF FPC}var{$ELSE}const{$ENDIF} V: TVarData; const AName: string;
const Value: TVarData): Boolean; override;
- procedure DispInvoke(Dest: PVarData; const Source: TVarData;
- CallDesc: PCallDesc; Params: Pointer); override;
+ {$IFDEF DELPHIXE7_OR_HIGHER}
+ procedure DispInvoke(Dest: PVarData;
+ [Ref] const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);override;
+ {$ELSE}
+ procedure DispInvoke(Dest: PVarData;
+ var Source: TVarData; CallDesc: PCallDesc; Params: Pointer);override;
+ {$ENDIF}
end;
var
@@ -195,15 +215,13 @@ TPythonVariantType = class(TInvokeableVariantType, IVarInstanceReference)
TPythonData = class(TObject)
private
fPyObject: PPyObject;
- fPythonAtomCompatible: Boolean;
- function GetAsString: String;
+ function GetAsString: string;
procedure SetPyObject(const Value: PPyObject);
function GetAsVariant: Variant;
function GetAsWideString: UnicodeString;
function GetAsAnsiString: AnsiString;
public
- constructor Create(AObject : PPyObject); overload;
- constructor Create(AObject : PPyObject; APythonAtomCompatible : Boolean); overload;
+ constructor Create(AObject : PPyObject);
destructor Destroy; override;
// query state
@@ -211,7 +229,6 @@ TPythonData = class(TObject)
// non-destructive operations
function Equal(const Right: TPythonData): Boolean;
- function Compare(const Right: TPythonData): Integer;
function LessThan(const Right: TPythonData): Boolean;
function LessOrEqualThan(const Right: TPythonData): Boolean;
function GreaterThan(const Right: TPythonData): Boolean;
@@ -233,14 +250,13 @@ TPythonData = class(TObject)
procedure DoNot;
// conversion
- property AsString: String read GetAsString;
+ property AsString: string read GetAsString;
property AsAnsiString: AnsiString read GetAsAnsiString;
property AsVariant: Variant read GetAsVariant;
property AsWideString: UnicodeString read GetAsWideString;
// data
property PyObject : PPyObject read fPyObject write SetPyObject;
- property PythonAtomCompatible : Boolean read fPythonAtomCompatible;
end;
type
@@ -249,17 +265,16 @@ TPythonData = class(TObject)
VType: TVarType;
Reserved1, Reserved2, Reserved3: Word;
VPython: TPythonData;
- Reserved4: LongInt;
- {$IFDEF CPUX64}
- Reserved5: LongInt; // size is 24 bytes in 64bit
- {$ENDIF CPUX64}
+ Reserved4: Integer;
+ {$IFDEF CPU64BITS}
+ Reserved5: Integer; // size is 24 bytes in 64bit
+ {$ENDIF CPU64BITS}
end;
resourcestring
SMultiDimensionalPropsNotSupported = 'Multi-dimensional sequences or mappings are not supported in Python';
SCantConvertArg = 'Can''t convert argument #%d of %s into a Python object';
- SBothOperandsOfIntDivideMustBeIntegers = 'Both operands of an integer division must be of type integer';
SCantConvertKeyToPythonObject = 'Can''t convert Key into a Python object';
SCantConvertValueToPythonObject = 'Can''t convert Value into a Python object';
SCantCreateNewSequenceObject = 'Can''t create a new sequence object';
@@ -345,17 +360,6 @@ function VarPythonEval( const APythonExpression : AnsiString) : Variant;
end;
end;
-// compatibility function with PythonAtom.pas
-function GetAtom( AObject : PPyObject ) : Variant;
-begin
- VarClear(Result);
- if Assigned(AObject) then
- begin
- TPythonVarData(Result).VType := VarPython;
- TPythonVarData(Result).VPython := TPythonData.Create(AObject, True);
- end; // of if
-end;
-
function VarPython: TVarType;
begin
Result := PythonVariantType.VarType;
@@ -420,13 +424,13 @@ function VarIsPythonNumber(const AValue: Variant): Boolean;
function VarIsPythonString(const AValue: Variant): Boolean;
begin
Result := VarIsPython(AValue) and
- GetPythonEngine.PyString_Check(ExtractPythonObjectFrom(AValue));
+ GetPythonEngine.PyUnicode_Check(ExtractPythonObjectFrom(AValue));
end;
function VarIsPythonInteger(const AValue: Variant): Boolean;
begin
Result := VarIsPython(AValue) and
- GetPythonEngine.PyInt_Check(ExtractPythonObjectFrom(AValue));
+ GetPythonEngine.PyLong_Check(ExtractPythonObjectFrom(AValue));
end;
function VarIsPythonFloat(const AValue: Variant): Boolean;
@@ -460,12 +464,6 @@ function VarIsPythonClass(const AValue: Variant): Boolean;
or (GetPythonEngine.PyObject_HasAttrString(ExtractPythonObjectFrom(AValue), '__bases__') <> 0));
end;
-function VarIsPythonInstance(const AValue: Variant): Boolean;
-begin
- Result := VarIsPython(AValue) and
- GetPythonEngine.PyInstance_Check(ExtractPythonObjectFrom(AValue));
-end;
-
function VarIsPythonMethod(const AValue: Variant): Boolean;
begin
Result := VarIsPython(AValue) and
@@ -650,6 +648,16 @@ function VarPythonAsString(AValue : Variant) : string;
Result := AValue;
end;
+{$IFDEF FPC}
+function VarPythonToVariant(AValue : Variant): Variant;
+begin
+ if VarIsPython(AValue) then
+ Result :=
+ GetPythonEngine.PyObjectAsVariant(TPythonVarData(AValue).VPython.PyObject)
+ else
+ Result := AValue;
+end;
+{$ENDIF}
function None : Variant;
begin
@@ -674,7 +682,7 @@ function MainModule : Variant;
function BuiltinModule : Variant;
begin
- Result := Import(AnsiString(GetPythonEngine.BuiltInModuleName));
+ Result := Import(GetPythonEngine.BuiltInModuleName);
end;
function SysModule : Variant;
@@ -687,14 +695,14 @@ function DatetimeModule : Variant; // return the builtin module 'datetime'
Result := Import('datetime');
end;
-function Import( const AModule : AnsiString ) : Variant;
+function Import(const AModule: string): Variant;
var
_module : PPyObject;
_module_name : PPyObject;
begin
with GetPythonEngine do
begin
- _module_name := PyString_FromString(PAnsiChar(AModule));
+ _module_name := PyUnicodeFromString(AModule);
try
_module := PyImport_Import(_module_name);
CheckError;
@@ -710,6 +718,22 @@ function Import( const AModule : AnsiString ) : Variant;
end; // of with
end;
+function Reload(const AModule: Variant): Variant;
+var
+ LModule: PPyObject;
+begin
+ with GetPythonEngine() do begin
+ LModule := PyImport_ReloadModule(ExtractPythonObjectFrom(AModule));
+ CheckError();
+ Assert(Assigned(LModule));
+ try
+ Result := VarPythonCreate(LModule);
+ finally
+ Py_XDecRef(LModule);
+ end; // of try
+ end; // of with
+end;
+
function GetObjectLength(AObject: PPyObject): NativeInt;
begin
with GetPythonEngine do
@@ -765,7 +789,7 @@ procedure TPythonVariantType.BinaryOp(var Left: TVarData;
begin
if Right.VType = VarType then
case Left.VType of
- varString {$IFDEF UNICODE}, varUString {$ENDIF}:
+ varString, varUString:
case AOperator of
opAdd:
Variant(Left) := Variant(Left) + TPythonVarData(Right).VPython.AsString;
@@ -827,14 +851,20 @@ procedure TPythonVariantType.CastTo(var Dest: TVarData;
begin
if Source.VType = VarType then
case AVarType of
- varOleStr {$IFDEF UNICODE}, varUString {$ENDIF} :
+ varOleStr:
+ VarDataFromOleStr(Dest, TPythonVarData(Source).VPython.AsWideString);
+ varUString:
+ {$IFDEF FPC}
VarDataFromOleStr(Dest, TPythonVarData(Source).VPython.AsWideString);
+ {$ELSE}
+ VarDataFromStr(Dest, TPythonVarData(Source).VPython.AsWideString);
+ {$ENDIF}
varString:
- {$IFDEF UNICODE}
// Preserve AnsiStrings
- VarDataFromLStr(Dest, TPythonVarData(Source).VPython.AsAnsiString);
+ {$IFDEF FPC}
+ Variant(Dest) := TPythonVarData(Source).VPython.AsWideString;
{$ELSE}
- VarDataFromStr(Dest, TPythonVarData(Source).VPython.AsString);
+ VarDataFromLStr(Dest, TPythonVarData(Source).VPython.AsAnsiString);
{$ENDIF}
else
if AVarType and varTypeMask = varBoolean then
@@ -868,7 +898,6 @@ procedure TPythonVariantType.VarDataCastTo(var Dest: TVarData; const Source: TVa
begin
VarCast(Variant(Dest), Variant(Source), AVarType);
end;
-
{$ENDIF}
procedure TPythonVariantType.Clear(var V: TVarData);
@@ -908,11 +937,7 @@ procedure TPythonVariantType.Copy(var Dest: TVarData;
if Indirect and VarDataIsByRef(Source) then
VarDataCopyNoInd(Dest, Source)
else
- begin
PyhonVarDataCreate( Dest, TPythonVarData(Source).VPython.PyObject );
- // propagate compatibility mode
- TPythonVarData(Dest).VPython.fPythonAtomCompatible := TPythonVarData(Source).VPython.PythonAtomCompatible;
- end; // of if
end;
procedure SetClearVarToEmptyParam(var V: TVarData);
@@ -931,20 +956,231 @@ procedure SetClearVarToEmptyParam(var V: TVarData);
CPropertyGet = $02;
CPropertySet = $04;
-{$IFDEF USESYSTEMDISPINVOKE}
+{$IF defined(PATCHEDSYSTEMDISPINVOKE) and (defined(OSX64) or defined(LINUX))}
+{
+ Fixes https://quality.embarcadero.com/browse/RSP-28097
+}
+var
+ _EmptyBSTR: PWideChar = nil;
+
+Const
+ SDispatchError = 'Variant method calls not supported';
+
+procedure _DispInvokeError;
+begin
+ raise EVariantDispatchError.Create(SDispatchError);
+end;
+
+function GetDispatchInvokeArgs(CallDesc: PCallDesc; Params: Pointer; var Strings: TStringRefList; OrderLTR : Boolean): TVarDataArray;
+const
+ { Parameter type masks - keep in sync with decl.h/ap* enumerations}
+ atString = $48;
+ atUString = $4A;
+ atVarMask = $3F;
+ atTypeMask = $7F;
+ atByRef = $80;
+var
+ I: Integer;
+ ArgType: Byte;
+ PVarParm: PVarData;
+ StringCount: Integer;
+ VAList: TVarArgList;
+ Temp: Pointer;
+begin
+ VAList := TVarArgList(Params^);
+ StringCount := 0;
+ SetLength(Result, CallDesc^.ArgCount);
+ for I := 0 to CallDesc^.ArgCount-1 do
+ begin
+ ArgType := CallDesc^.ArgTypes[I];
+
+ if OrderLTR then
+ PVarParm := @Result[I]
+ else
+ PVarParm := @Result[CallDesc^.ArgCount-I-1];
+
+ if (ArgType and atByRef) = atByRef then
+ begin
+ Temp := VarArgGetValue(VAList, Pointer);
+ if (ArgType and atTypeMask) = atString then
+ begin
+ PVarData(PVarParm)^.VType := varByRef or varOleStr;
+ PVarData(PVarParm)^.VPointer := Strings[StringCount].FromAnsi( PAnsiString(Temp));
+ Inc(StringCount);
+ end
+ else
+ if (ArgType and atTypeMask) = atUString then
+ begin
+ PVarData(PVarParm)^.VType := varByRef or varOleStr;
+ PVarData(PVarParm)^.VPointer := Strings[StringCount].FromUnicode(PUnicodeString(Temp));
+ Inc(StringCount);
+ end
+ else
+ begin
+ if ((ArgType and atTypeMask) = varVariant) and
+ ((PVarData(Temp)^.VType = varString) or (PVarData(Temp)^.VType = varUString)) then
+ VarCast(PVariant(Temp)^, PVariant(Temp)^, varOleStr);
+ //PVarData(PVarParm)^.VType := varByRef or (ArgType and atTypeMask);
+
+ ArgType := ArgType and atTypeMask;
+ if DispatchUnsignedAsSigned then
+ case ArgType of
+ varUInt64: ArgType := varInt64;
+ varUInt32: ArgType := varInteger;
+ varWord: ArgType := varSmallint;
+ varByte: ArgType := varShortInt;
+ end;
+ PVarData(PVarParm)^.VType := varByRef or ArgType;
+
+ PVarData(PVarParm)^.VPointer := Temp;
+ end;
+ end
+ else // ByVal
+ begin
+ PVarParm^.VType := ArgType;
+ case ArgType of
+ varEmpty, varNull: ; // Only need to set VType
+ varInteger: PVarParm^.VInteger := VarArgGetValue(VAList, Integer);
+ varSingle: PVarParm^.VSingle := VarArgGetValue(VAList, Single);
+ varDouble: PVarParm^.VDouble := VarArgGetValue(VAList, Double);
+ varCurrency: PVarParm^.VCurrency := VarArgGetValue(VAList, Currency);
+ varDate: PVarParm^.VDate := VarArgGetValue(VAList, TDateTime);
+ varOleStr: PVarParm^.VPointer := VarArgGetValue(VAList, Pointer);
+ varDispatch: PVarParm^.VDispatch := VarArgGetValue(VAList, Pointer);
+ varError: PVarParm^.VError := HRESULT($80020004); //DISP_E_PARAMNOTFOUND;
+ varBoolean: PVarParm^.VBoolean := VarArgGetValue(VAList, Boolean);
+ varVariant:
+ begin
+ PVarParm^.VType := varEmpty;
+{$IFDEF CPUX64}
+
+// PVariant(PVarParm)^ := PVariant(Params^)^;
+ PVariant(PVarParm)^ := VarArgGetValue(VAList, PVariant)^;
+{$ELSE}
+// PVariant(PVarParm)^ := PVariant(Params)^;
+ PVariant(PVarParm)^ := VarArgGetValue(VAList, Variant);
+{$ENDIF}
+ end;
+ varUnknown: PVarParm^.VUnknown := VarArgGetValue(VAList, Pointer);
+ varSmallint: PVarParm^.VSmallInt := VarArgGetValue(VAList, SmallInt);
+ varShortInt: PVarParm^.VShortInt := VarArgGetValue(VAList, ShortInt);
+ varByte: PVarParm^.VByte := VarArgGetValue(VAList, Byte);
+ varWord:
+ begin
+ if DispatchUnsignedAsSigned then
+ begin
+ PVarParm^.VType := varInteger;
+ PVarParm^.VInteger := Integer(VarArgGetValue(VAList, Word));
+ end else
+ PVarParm^.VWord := VarArgGetValue(VAList, Word);
+ end;
+ varUInt32:
+ begin
+ if DispatchUnsignedAsSigned then
+ begin
+ PVarParm^.VType := varInteger;
+ PVarParm^.VInteger := Integer(VarArgGetValue(VAList, Cardinal));
+ end else
+ PVarParm^.VUInt32 := VarArgGetValue(VAList, Cardinal);
+ end;
+ varInt64: PVarParm^.VInt64 := VarArgGetValue(VAList, Int64);
+ varUInt64:
+ begin
+ if DispatchUnsignedAsSigned then
+ begin
+ PVarParm^.VType := varInt64;
+ PVarParm^.VInt64 := VarArgGetValue(VAList, Int64); //Int64(PInt64(Params)^);
+ end else
+ PVarParm^.VUInt64 := VarArgGetValue(VAList, UInt64); //PUInt64(Params)^;
+ end;
+ atString:
+ begin
+ PVarParm^.VType := varOleStr;
+ Temp := VarArgGetValue(VAList, Pointer);
+ if AnsiString(Temp) <> '' then
+ begin
+ {
+ This line causes a crash and is replaced with the one below in line with unicode strings
+ PVarParm^.VPointer := PWideChar(Strings[StringCount].FromAnsi(PAnsiString(Temp))^);
+ }
+ PVarParm^.VPointer := PWideChar(Strings[StringCount].FromAnsi(@AnsiString(Temp))^);
+ Strings[StringCount].Ansi := nil;
+ Inc(StringCount);
+ end
+ else
+ PVarParm^.VPointer := _EmptyBSTR;
+ end;
+ atUString:
+ begin
+ PVarParm^.VType := varOleStr;
+ Temp := VarArgGetValue(VAList, Pointer);
+ if UnicodeString(Temp) <> '' then
+ begin
+ PVarParm^.VPointer := PWideChar(Strings[StringCount].FromUnicode(@UnicodeString(Temp))^);
+ Strings[StringCount].Unicode := nil;
+ Inc(StringCount);
+ end
+ else
+ PVarParm^.VPointer := _EmptyBSTR;
+ end;
+ else
+ // Unsupported Var Types
+ //varDecimal = $000E; { vt_decimal 14 } {UNSUPPORTED as of v6.x code base}
+ //varUndef0F = $000F; { undefined 15 } {UNSUPPORTED per Microsoft}
+ //varRecord = $0024; { VT_RECORD 36 }
+ //varString = $0100; { Pascal string 256 } {not OLE compatible }
+ //varAny = $0101; { Corba any 257 } {not OLE compatible }
+ //varUString = $0102; { Unicode string 258 } {not OLE compatible }
+ _DispInvokeError;
+ end;
+ end;
+ end;
+end;
+{$IFEND}
+
+{$IFDEF DELPHIXE7_OR_HIGHER}
+procedure TPythonVariantType.DispInvoke(Dest: PVarData;
+ [Ref] const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
+{$ELSE}
procedure TPythonVariantType.DispInvoke(Dest: PVarData;
- const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
-{$IFDEF DELPHIXE2}
- // Modified to correct memory leak QC102387
+ var Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
+{$ENDIF}
+{$IFDEF PATCHEDSYSTEMDISPINVOKE}
+ // Modified to correct memory leak QC102387 / RSP-23093
+ procedure PatchedFinalizeDispatchInvokeArgs(CallDesc: PCallDesc; const Args: TVarDataArray; OrderLTR : Boolean);
+ const
+ atByRef = $80;
+ var
+ I: Integer;
+ ArgType: Byte;
+ PVarParm: PVarData;
+ VType: TVarType;
+ begin
+ for I := 0 to CallDesc^.ArgCount-1 do
+ begin
+ ArgType := CallDesc^.ArgTypes[I];
+
+ if OrderLTR then
+ PVarParm := @Args[I]
+ else
+ PVarParm := @Args[CallDesc^.ArgCount-I-1];
+
+ VType := PVarParm.VType;
+
+ // Only ByVal Variant or Array parameters have been copied and need to be released
+ // Strings have been released via the use of the TStringRefList parameter to GetDispatchInvokeArgs
+ // !!Modified to prevent memory leaks!! RSP-23093
+ if ((ArgType and atByRef) <> atByRef) and ((ArgType = varVariant) or ((VType and varArray) = varArray)) then
+ VarClear(PVariant(PVarParm)^);
+ end;
+ end;
+
procedure PatchedDispInvoke(Dest: PVarData;
const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
+ {$IFNDEF DELPHI10_4_OR_HIGHER}
type
- PParamRec = ^TParamRec;
- TParamRec = array[0..3] of LongInt;
- TStringDesc = record
- BStr: WideString;
- PStr: PAnsiString;
- end;
+ PStringRefList = ^TStringRefList;
+ {$ENDIF}
const
CDoMethod = $01;
CPropertyGet = $02;
@@ -954,67 +1190,82 @@ TStringDesc = record
LIdent: string;
LTemp: TVarData;
VarParams : TVarDataArray;
+ {$IFNDEF DELPHI10_4_OR_HIGHER}
+ Strings: array of TStringRef;
+ {$ELSE}
Strings: TStringRefList;
+ {$ENDIF}
+ PIdent: PByte;
begin
// Grab the identifier
LArgCount := CallDesc^.ArgCount;
- LIdent := FixupIdent(AnsiString(PAnsiChar(@CallDesc^.ArgTypes[LArgCount])));
-
- FillChar(Strings, SizeOf(Strings), 0);
- VarParams := GetDispatchInvokeArgs(CallDesc, Params, Strings, true);
-
- // What type of invoke is this?
- case CallDesc^.CallType of
- CDoMethod:
- // procedure with N arguments
- if Dest = nil then
- begin
- if not DoProcedure(Source, LIdent, VarParams) then
+ PIdent := @CallDesc^.ArgTypes[LArgCount];
+ LIdent := FixupIdent( UTF8ToString(MarshaledAString(PIdent)) );
+ if LArgCount > 0 then begin
+ SetLength(Strings, LArgCount);
+ {$IFNDEF DELPHI10_4_OR_HIGHER}
+ VarParams := GetDispatchInvokeArgs(CallDesc, Params, PStringRefList(Strings)^, true);
+ {$ELSE}
+ VarParams := GetDispatchInvokeArgs(CallDesc, Params, Strings, true);
+ {$ENDIF}
+ end;
+ try
+ // What type of invoke is this?
+ case CallDesc^.CallType of
+ CDoMethod:
+ // procedure with N arguments
+ if Dest = nil then
begin
+ if not DoProcedure(Source, LIdent, VarParams) then
+ begin
+
+ // ok maybe its a function but first we must make room for a result
+ VarDataInit(LTemp);
+ try
+
+ // notate that the destination shouldn't be bothered with
+ // functions can still return stuff, we just do this so they
+ // can tell that they don't need to if they don't want to
+ SetClearVarToEmptyParam(LTemp);
+
+ // ok lets try for that function
+ if not DoFunction(LTemp, Source, LIdent, VarParams) then
+ RaiseDispError;
+ finally
+ VarDataClear(LTemp);
+ end;
+ end
+ end
- // ok maybe its a function but first we must make room for a result
- VarDataInit(LTemp);
- try
+ // property get or function with 0 argument
+ else if LArgCount = 0 then
+ begin
+ if not GetProperty(Dest^, Source, LIdent) and
+ not DoFunction(Dest^, Source, LIdent, VarParams) then
+ RaiseDispError;
+ end
- // notate that the destination shouldn't be bothered with
- // functions can still return stuff, we just do this so they
- // can tell that they don't need to if they don't want to
- SetClearVarToEmptyParam(LTemp);
+ // function with N arguments
+ else if not DoFunction(Dest^, Source, LIdent, VarParams) then
+ RaiseDispError;
- // ok lets try for that function
- if not DoFunction(LTemp, Source, LIdent, VarParams) then
- RaiseDispError;
- finally
- VarDataClear(LTemp);
- end;
- end
- end
+ CPropertyGet:
+ if not ((Dest <> nil) and // there must be a dest
+ (LArgCount = 0) and // only no args
+ GetProperty(Dest^, Source, LIdent)) then // get op be valid
+ RaiseDispError;
- // property get or function with 0 argument
- else if LArgCount = 0 then
- begin
- if not GetProperty(Dest^, Source, LIdent) and
- not DoFunction(Dest^, Source, LIdent, VarParams) then
+ CPropertySet:
+ if not ((Dest = nil) and // there can't be a dest
+ (LArgCount = 1) and // can only be one arg
+ SetProperty(Source, LIdent, VarParams[0])) then // set op be valid
RaiseDispError;
- end
+ else
+ RaiseDispError;
+ end;
- // function with N arguments
- else if not DoFunction(Dest^, Source, LIdent, VarParams) then
- RaiseDispError;
-
- CPropertyGet:
- if not ((Dest <> nil) and // there must be a dest
- (LArgCount = 0) and // only no args
- GetProperty(Dest^, Source, LIdent)) then // get op be valid
- RaiseDispError;
-
- CPropertySet:
- if not ((Dest = nil) and // there can't be a dest
- (LArgCount = 1) and // can only be one arg
- SetProperty(Source, LIdent, VarParams[0])) then // set op be valid
- RaiseDispError;
- else
- RaiseDispError;
+ finally
+ PatchedFinalizeDispatchInvokeArgs(CallDesc, VarParams, true);
end;
for I := 0 to Length(Strings) - 1 do
@@ -1023,13 +1274,12 @@ TStringDesc = record
Break;
if Strings[I].Ansi <> nil then
Strings[I].Ansi^ := AnsiString(Strings[I].Wide)
- else if Strings[I].Unicode <> nil then
- Strings[I].Unicode^ := UnicodeString(Strings[I].Wide)
+ else
+ if Strings[I].Unicode <> nil then
+ Strings[I].Unicode^ := UnicodeString(Strings[I].Wide)
end;
- for I := Low(VarParams) to High(VarParams) do
- VarDataClear(VarParams[I]);
end;
-{$ENDIF DELPHIXE2}
+{$ENDIF PATCHEDSYSTEMDISPINVOKE}
procedure GetNamedParams;
var
@@ -1042,7 +1292,7 @@ TStringDesc = record
SetLength(fNamedParams, CallDesc^.NamedArgCount);
// Skip function Name
for I := 0 to CallDesc^.NamedArgCount - 1 do begin
- LNamePtr := LNamePtr + Succ(StrLen(LNamePtr));
+ LNamePtr := LNamePtr + Succ(Length(LNamePtr));
fNamedParams[I].Index := I+LNamedArgStart;
fNamedParams[I].Name := AnsiString(LNamePtr);
end;
@@ -1056,305 +1306,22 @@ TStringDesc = record
if (CallDesc^.CallType = CPropertyGet) and (CallDesc^.ArgCount = 1) then begin
NewCallDesc := CallDesc^;
NewCallDesc.CallType := CDoMethod;
- {$IFDEF DELPHIXE2}
+ {$IFDEF PATCHEDSYSTEMDISPINVOKE}
PatchedDispInvoke(Dest, Source, @NewCallDesc, Params);
- {$ELSE DELPHIXE2}
+ {$ELSE PATCHEDSYSTEMDISPINVOKE}
inherited DispInvoke(Dest, Source, @NewCallDesc, Params);
- {$ENDIF DELPHIXE2}
+ {$ENDIF PATCHEDSYSTEMDISPINVOKE}
end else
- {$IFDEF DELPHIXE2}
+ {$IFDEF PATCHEDSYSTEMDISPINVOKE}
PatchedDispInvoke(Dest, Source, CallDesc, Params);
- {$ELSE DELPHIXE2}
+ {$ELSE PATCHEDSYSTEMDISPINVOKE}
inherited;
- {$ENDIF DELPHIXE2}
+ {$ENDIF PATCHEDSYSTEMDISPINVOKE}
finally
if CallDesc^.NamedArgCount > 0 then SetLength(fNamedParams, 0);
end;
end;
-{$ELSE USESYSTEMDISPINVOKE}
-procedure TPythonVariantType.DispInvoke(Dest: PVarData;
- const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
-begin
- DoDispInvoke(Dest, Source, CallDesc, Params);
-end;
-
-procedure TPythonVariantType.DoDispInvoke(Dest: PVarData;
- const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
-type
- PParamRec = ^TParamRec;
- TParamRec = array[0..3] of LongInt;
- TStringDesc = record
- BStr: WideString;
- PStr: PAnsiString;
- end;
-var
- LArguments: TVarDataArray;
- LStrings: array of TStringDesc;
- LStrCount: Integer;
- LParamPtr: Pointer;
- LNamedArgStart : Integer; //arg position of 1st named argument (if any)
- LNamePtr: PAnsiChar;
-
- procedure ParseParam(I: Integer);
- const
- CArgTypeMask = $7F;
- CArgByRef = $80;
- var
- LArgType: Integer;
- LArgByRef: Boolean;
- begin
- LArgType := CallDesc^.ArgTypes[I] and CArgTypeMask;
- LArgByRef := (CallDesc^.ArgTypes[I] and CArgByRef) <> 0;
-
- if I >= LNamedArgStart then
- begin
- LNamePtr := LNamePtr + Succ(StrLen(LNamePtr));
- fNamedParams[I-LNamedArgStart].Index := I;
- fNamedParams[I-LNamedArgStart].Name := AnsiString(LNamePtr);
- end;
-
- // error is an easy expansion
- if LArgType = varError then
- SetClearVarToEmptyParam(LArguments[I])
-
- // literal string
- else if LArgType = varStrArg then
- begin
- with LStrings[LStrCount] do
- if LArgByRef then
- begin
- //BStr := StringToOleStr(PAnsiString(ParamPtr^)^);
- BStr := WideString(System.Copy(PAnsiString(LParamPtr^)^, 1, MaxInt));
- PStr := PAnsiString(LParamPtr^);
- LArguments[I].VType := varOleStr or varByRef;
- LArguments[I].VOleStr := @BStr;
- end
- else
- begin
- //BStr := StringToOleStr(PAnsiString(LParamPtr)^);
- BStr := WideString(System.Copy(PAnsiString(LParamPtr)^, 1, MaxInt));
- PStr := nil;
- LArguments[I].VType := varOleStr;
- if BStr = '' then
- LArguments[I].VOleStr := nil
- else
- LArguments[I].VOleStr := PWideChar(BStr);
- end;
- Inc(LStrCount);
- end
-
- // value is by ref
- else if LArgByRef then
- begin
- if (LArgType = varVariant) and
- (PVarData(LParamPtr^)^.VType = varString)
- {$IFDEF UNICODE}
- or (PVarData(LParamPtr)^.VType = varUString)
- {$ENDIF}
- then
- //VarCast(PVariant(ParamPtr^)^, PVariant(ParamPtr^)^, varOleStr);
- VarDataCastTo(PVarData(LParamPtr^)^, PVarData(LParamPtr^)^, varOleStr);
- LArguments[I].VType := LArgType or varByRef;
- LArguments[I].VPointer := Pointer(LParamPtr^);
- end
-
- // value is a variant
- else if LArgType = varVariant then
- if (PVarData(LParamPtr)^.VType = varString)
- {$IFDEF UNICODE}
- or (PVarData(LParamPtr)^.VType = varUString)
- {$ENDIF}
- then
- begin
- with LStrings[LStrCount] do
- begin
- //BStr := StringToOleStr(AnsiString(PVarData(LParamPtr)^.VString));
- {$IFDEF UNICODE}
- if (PVarData(LParamPtr)^.VType = varString) then
- BStr := WideString(System.Copy(AnsiString(PVarData(LParamPtr)^.VString), 1, MaxInt))
- else
- BStr := System.Copy(UnicodeString(PVarData(LParamPtr)^.VUString), 1, MaxInt);
- {$ELSE}
- BStr := System.Copy(AnsiString(PVarData(LParamPtr)^.VString), 1, MaxInt);
- {$ENDIF}
- PStr := nil;
- LArguments[I].VType := varOleStr;
- LArguments[I].VOleStr := PWideChar(BStr);
- end;
- Inc(LStrCount);
- Inc(NativeInt(LParamPtr), SizeOf(TVarData) - SizeOf(Pointer));
- end
- else
- begin
- LArguments[I] := PVarData(LParamPtr)^;
- Inc(NativeInt(LParamPtr), SizeOf(TVarData) - SizeOf(Pointer));
- end
- else
- begin
- LArguments[I].VType := LArgType;
- case CVarTypeToElementInfo[LArgType].Size of
- 1, 2, 4:
- begin
- LArguments[I].VLongs[1] := PParamRec(LParamPtr)^[0];
- end;
- 8:
- begin
- LArguments[I].VLongs[1] := PParamRec(LParamPtr)^[0];
- LArguments[I].VLongs[2] := PParamRec(LParamPtr)^[1];
- Inc(NativeInt(LParamPtr), 8 - SizeOf(Pointer));
- end;
- else
- RaiseDispError;
- end;
- end;
- Inc(NativeInt(LParamPtr), SizeOf(Pointer));
- end;
-
-var
- I, LArgCount: Integer;
- LIdent: AnsiString;
- LTemp: TVarData;
-begin
- //------------------------------------------------------------------------------------
- // Note that this method is mostly a copy&paste from TInvokeableVariantType.DispInvoke
- // because Borland assumes that the names are not case sensitive, whereas Python has
- // case sensitive symbols.
- // We modified the property get to allow the use of indexed properties.
- //------------------------------------------------------------------------------------
-
- // Grab the identifier
- LArgCount := CallDesc^.ArgCount;
- //After arg types, method name and named arg names are stored
- //Position pointer on method name
- LNamePtr := PAnsiChar(@CallDesc^.ArgTypes[LArgCount]);
- LIdent := AnsiString(LNamePtr);
- //Named params must be after positional params
- LNamedArgStart := CallDesc^.ArgCount - CallDesc^.NamedArgCount;
- SetLength(fNamedParams, CallDesc^.NamedArgCount);
-
- // Parse the arguments
- LParamPtr := Params;
- SetLength(LArguments, LArgCount);
- LStrCount := 0;
- SetLength(LStrings, LArgCount);
- for I := 0 to LArgCount - 1 do
- ParseParam(I);
-
- // What type of invoke is this?
- case CallDesc^.CallType of
- CDoMethod:
- // procedure with N arguments
- if Dest = nil then
- begin
- if not DoProcedure(Source, string(LIdent), LArguments) then
- begin
-
- // ok maybe its a function but first we must make room for a result
- VarDataInit(LTemp);
- try
-
- // notate that the destination shouldn't be bothered with
- // functions can still return stuff, we just do this so they
- // can tell that they don't need to if they don't want to
- SetClearVarToEmptyParam(LTemp);
-
- // ok lets try for that function
- if not DoFunction(LTemp, Source, string(LIdent), LArguments) then
- RaiseDispError;
- finally
- VarDataClear(LTemp);
- end;
- end
- end
-
- // property get or function with 0 argument
- else if LArgCount = 0 then
- begin
- if not GetProperty(Dest^, Source, string(LIdent)) and
- not DoFunction(Dest^, Source, string(LIdent), LArguments) then
- RaiseDispError;
- end
-
- // function with N arguments
- else if not DoFunction(Dest^, Source, string(LIdent), LArguments) then
- RaiseDispError;
-
- CPropertyGet:
- begin
- // here that code has been changed to allow the indexed properties.
-
- if Dest = nil then // there must be a dest
- RaiseDispError;
- if LArgCount = 0 then // no args
- begin
- if not GetProperty(Dest^, Source, string(LIdent)) then // get op be valid
- RaiseDispError;
- end
- else if LArgCount = 1 then // only one arg
- begin
- if not GetPropertyWithArg(Dest^, Source, LIdent, LArguments[0]) then // get op be valid
- RaiseDispError;
- end
- else
- raise Exception.Create( SMultiDimensionalPropsNotSupported );
- end;
-
- CPropertySet:
- if not ((Dest = nil) and // there can't be a dest
- (LArgCount = 1) and // can only be one arg
- SetProperty(Source, string(LIdent), LArguments[0])) then // set op be valid
- RaiseDispError;
- else
- RaiseDispError;
- end;
-
- // copy back the string info
- I := LStrCount;
- while I <> 0 do
- begin
- Dec(I);
- with LStrings[I] do
- if Assigned(PStr) then
- PStr^ := AnsiString(System.Copy(BStr, 1, MaxInt));
- end;
-end;
-
-function TPythonVariantType.GetPropertyWithArg(var Dest: TVarData;
- const V: TVarData; const AName: AnsiString; AArg: TVarData): Boolean;
-var
- _prop, _result : PPyObject;
-begin
- with GetPythonEngine do
- begin
- _result := nil;
- _prop := PyObject_GetAttrString(TPythonVarData(V).VPython.PyObject, PAnsiChar(AName));
- CheckError;
- if Assigned(_prop) then
- begin
- // here we check only sequences, as Delphi does not allow a type different from Integer
- // to be used within brackets.
- // But you can still access a dictionary with parenthesis, like: myObj.MyDict('MyKey')
- // Note that we can't use the brackets on a Python variant that contains a list,
- // because Delphi thinks it's a variant array, whereas it is not, of course!
- // So: myList[0] won't work, but myObj.MyList[0] will!!!
- if PySequence_Check(_prop) <> 0 then
- begin
- _result := PySequence_GetItem(_prop, Variant(AArg));
- CheckError;
- end; // of if
- end; // of if
- Result := Assigned(_result);
- if Result then
- try
- PythonObjectToVarData(Dest, _result, TPythonVarData(V).VPython.PythonAtomCompatible);
- finally
- Py_XDecRef(_prop);
- end; // of try
- end; // of with
-end;
-{$ENDIF USESYSTEMDISPINVOKE}
-
function TPythonVariantType.DoFunction(var Dest: TVarData;
const V: TVarData; const AName: string;
const Arguments: TVarDataArray): Boolean;
@@ -1368,7 +1335,7 @@ function TPythonVariantType.DoFunction(var Dest: TVarData;
// if the evaluation returned a result
if Result then
// convert it into a variant
- PythonObjectToVarData( Dest, _PyResult, TPythonVarData(V).VPython.PythonAtomCompatible );
+ PyhonVarDataCreate( Dest, _PyResult );
finally
GetPythonEngine.Py_XDecRef( _PyResult );
end; // of try
@@ -1419,7 +1386,6 @@ function TPythonVariantType.EvalPython(const V: TVarData;
_key, _value : PPyObject;
_result : Integer;
begin
- Result := nil;
with GetPythonEngine do
begin
PyErr_Clear;
@@ -1430,21 +1396,24 @@ function TPythonVariantType.EvalPython(const V: TVarData;
_value := VarDataToPythonObject(AValue);
if not Assigned(_value) then
raise Exception.Create(SCantConvertValueToPythonObject);
- if PyList_Check(AObject) then
- _result := PyList_SetItem( AObject, Variant(AKey), _value )
- else if PyTuple_Check(AObject) then
- _result := PyTuple_SetItem( AObject, Variant(AKey), _value )
- else
- try
- if PySequence_Check(AObject) <> 0 then
- _result := PySequence_SetItem(AObject, Variant(AKey), _value)
- else
- _result := PyObject_SetItem( AObject, _key, _value );
- finally
- Py_XDecRef(_value);
- end; // of try
- CheckError;
- Result := PyInt_FromLong(_result);
+ if PyList_Check(AObject) then
+ _result := PyList_SetItem( AObject,
+ {$IFDEF FPC}PtrInt(Variant(AKey)){$ELSE}Variant(AKey){$ENDIF}, _value )
+ else if PyTuple_Check(AObject) then
+ _result := PyTuple_SetItem( AObject,
+ {$IFDEF FPC}PtrInt(Variant(AKey)){$ELSE}Variant(AKey){$ENDIF}, _value )
+ else
+ try
+ if PySequence_Check(AObject) <> 0 then
+ _result := PySequence_SetItem(AObject,
+ {$IFDEF FPC}PtrInt(Variant(AKey)){$ELSE}Variant(AKey){$ENDIF}, _value)
+ else
+ _result := PyObject_SetItem( AObject, _key, _value );
+ finally
+ Py_XDecRef(_value);
+ end; // of try
+ CheckError;
+ Result := PyLong_FromLong(_result);
finally
Py_XDecRef(_key);
end; // of try
@@ -1471,7 +1440,7 @@ function TPythonVariantType.EvalPython(const V: TVarData;
end; // of with
end; // of function
- procedure ExtractSliceIndexes(AObject : PPyObject; const AStart, AEnd: TVarData; var ASliceStart, ASliceEnd : Integer );
+ procedure ExtractSliceIndexes(AObject : PPyObject; const AStart, AEnd: TVarData; out ASliceStart, ASliceEnd : Integer );
begin
with GetPythonEngine do
begin
@@ -1516,7 +1485,7 @@ function TPythonVariantType.EvalPython(const V: TVarData;
try
_result := PySequence_SetSlice( AObject, _start, _end, _value);
CheckError;
- Result := PyInt_FromLong(_result);
+ Result := PyLong_FromLong(_result);
finally
Py_XDecRef(_value);
end; // of try
@@ -1533,7 +1502,7 @@ function TPythonVariantType.EvalPython(const V: TVarData;
ExtractSliceIndexes(AObject, AStart, AEnd, _start, _end);
_result := PySequence_DelSlice( AObject, _start, _end);
CheckError;
- Result := PyInt_FromLong(_result);
+ Result := PyLong_FromLong(_result);
end; // of with
end; // of function
@@ -1551,7 +1520,7 @@ function TPythonVariantType.EvalPython(const V: TVarData;
try
_result := PySequence_Contains( AObject, _value );
CheckError;
- Result := PyInt_FromLong(_result);
+ Result := PyLong_FromLong(_result);
finally
Py_XDecRef(_value);
end; // of try
@@ -1608,7 +1577,7 @@ function TPythonVariantType.EvalPython(const V: TVarData;
else if (Length(Arguments) = 1) and SameText(string(AName), 'Contains') then
Result := SequenceContains(_container, Arguments[0])
else if SameText(string(AName), 'Length') then
- Result := PyInt_FromLong( GetObjectLength(_container) );
+ Result := PyLong_FromLong( GetObjectLength(_container) );
end; // of if
finally
// if the key did not exist, Python generated an exception that we must propagate through CheckError
@@ -1702,8 +1671,6 @@ function TPythonVariantType.GetProperty(var Dest: TVarData;
var
_prop : PPyObject;
_len : Integer;
- _args : PPyObject;
- _result : PPyObject;
begin
with GetPythonEngine do
begin
@@ -1724,48 +1691,15 @@ function TPythonVariantType.GetProperty(var Dest: TVarData;
_len := PyObject_Length(TPythonVarData(V).VPython.PyObject);
CheckError;
// convert the length into a Python integer
- _prop := PyInt_FromLong( _len );
+ _prop := PyLong_FromLong( _len );
end; // of if
- end
- else if SameText(AName, '__asPPyObject__') then // compatibility with PythonAtom.
- begin // you should use ExtractPythonObjectFrom instead.
- // clear the error state of Python
- PyErr_Clear;
- // return the Python object pointer as an Integer;
- {$IFDEF CPUX64}
- _prop := PyInt_FromLong( NativeInt(TPythonVarData(V).VPython.PyObject) );
- {$ELSE}
- _prop := PyLong_FromLongLong( NativeInt(TPythonVarData(V).VPython.PyObject) );
- {$ENDIF}
end;
- end // of if
- // if we found a property that's a callable object and if we're in
- // compatibility mode with PythonAtom, then return the result of the
- // execution of the callable object.
- else if TPythonVarData(V).VPython.PythonAtomCompatible and
- Assigned(_prop) and (PyErr_Occurred = nil) then
- begin
- if PyFunction_Check(_prop) or PyMethod_Check(_prop) then
- begin
- _args := PyTuple_New(0);
- try
- // call the func or method
- _result := PyObject_CallObject(_prop, _args);
- if Assigned(_result) and (PyErr_Occurred = nil) then
- begin
- Py_XDecRef(_prop);
- _prop := _result;
- end; // of if
- finally
- Py_XDecRef(_args);
- end; // of try
- end; // of if
end; // of if
CheckError;
Result := Assigned(_prop);
if Result then
try
- PythonObjectToVarData(Dest, _prop, TPythonVarData(V).VPython.PythonAtomCompatible);
+ PyhonVarDataCreate(Dest, _prop);
finally
Py_XDecRef(_prop);
end; // of try
@@ -1783,11 +1717,7 @@ function TPythonVariantType.LeftPromotion(const V: TVarData;
begin
{ TypeX Op Python }
if (AOperator = opAdd) and VarDataIsStr(V) then
- {$IFDEF UNICODE}
RequiredVarType := varUString
- {$ELSE}
- RequiredVarType := varString
- {$ENDIF}
else
RequiredVarType := VarType;
@@ -1803,40 +1733,7 @@ procedure TPythonVariantType.PyhonVarDataCreate(var Dest: TVarData;
begin
TPythonVarData(Dest).VType := VarPython;
TPythonVarData(Dest).VPython := TPythonData.Create(AObject);
- end; // of if
-end;
-
-// this method increases the refcount of AObject
-procedure TPythonVariantType.PythonObjectToVarData(var Dest: TVarData;
- AObject: PPyObject; APythonAtomCompatible : Boolean);
-
- function IsBasicType( AObject : PPyObject ) : Boolean;
- begin
- with GetPythonEngine do
- Result := PyInt_Check(AObject) or
- PyFloat_Check(AObject) or
- PyString_Check(AObject) or
- PyList_Check(AObject) or
- PyTuple_Check(AObject);
end;
-
-begin
- if APythonAtomCompatible and (AObject = GetPythonEngine.Py_None) then
- VarDataClear(Dest)
- // if the result is a basic type (integer, float, string or list)
- else if APythonAtomCompatible and IsBasicType( AObject ) then
- begin
- VarDataClear(Dest);
- // convert it into its associated variant type
- Variant(Dest) := GetPythonEngine.PyObjectAsVariant(AObject);
- end
- else
- begin
- // otherwise wrap the result into a new Python variant
- PyhonVarDataCreate(Dest, AObject);
- // propagate compatibility mode
- TPythonVarData(Dest).VPython.fPythonAtomCompatible := APythonAtomCompatible;
- end; // of else
end;
function TPythonVariantType.RightPromotion(const V: TVarData;
@@ -1855,7 +1752,7 @@ function TPythonVariantType.RightPromotion(const V: TVarData;
Result := False;
end;
-function TPythonVariantType.SetProperty(const V: TVarData;
+function TPythonVariantType.SetProperty({$IFDEF FPC}var{$ELSE}const{$ENDIF} V: TVarData;
const AName: string; const Value: TVarData): Boolean;
var
_newValue : PPyObject;
@@ -1922,36 +1819,9 @@ function TPythonVariantType.VarDataToPythonObject(AVarData: TVarData): PPyObject
//------------------------------------------------------------------------------
{ TPythonData }
-function TPythonData.Compare(const Right: TPythonData): Integer;
-begin
- with GetPythonEngine do
- begin
- if IsPython3000 then begin
- // not used but anyway
- if Self.LessThan(Right) then
- Result := -1
- else if Self.Equal(Right) then
- Result := 0
- else
- Result := 1;
- PyErr_Clear;
- end else begin
- Result := PyObject_Compare(PyObject, Right.PyObject);
- CheckError;
- end;
- end; // of with
-end;
-
constructor TPythonData.Create(AObject: PPyObject);
begin
PyObject := AObject;
- fPythonAtomCompatible := False;
-end;
-
-constructor TPythonData.Create(AObject : PPyObject; APythonAtomCompatible : Boolean);
-begin
- Create(AObject);
- fPythonAtomCompatible := APythonAtomCompatible;
end;
destructor TPythonData.Destroy;
@@ -2176,23 +2046,17 @@ function TPythonData.Equal(const Right: TPythonData): Boolean;
begin
with GetPythonEngine do
begin
- if IsPython3000 then
- Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_EQ) = 1
- else
- Result := PyObject_Compare(PyObject, Right.PyObject) = 0;
+ Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_EQ) = 1;
CheckError;
end; // of with
end;
function TPythonData.GetAsAnsiString: AnsiString;
begin
- if Assigned(PyObject) and GetPythonEngine.PyString_CheckExact(PyObject) then
- Result := GetPythonEngine.PyString_AsString(PyObject)
- else
- result := GetAsString;
+ Result := AnsiString(GetAsString);
end;
-function TPythonData.GetAsString: String;
+function TPythonData.GetAsString: string;
begin
if Assigned(PyObject) then
Result := GetPythonEngine.PyObjectAsString(PyObject)
@@ -2211,31 +2075,21 @@ function TPythonData.GetAsVariant: Variant;
function TPythonData.GetAsWideString: UnicodeString;
begin
if Assigned(PyObject) and GetPythonEngine.PyUnicode_Check(PyObject) then
- Result := GetPythonEngine.PyUnicode_AsWideString(PyObject)
+ Result := GetPythonEngine.PyUnicodeAsString(PyObject)
else
- Result := GetAsString;
+ Result := UnicodeString(GetAsString);
end;
function TPythonData.GreaterOrEqualThan(const Right: TPythonData): Boolean;
begin
with GetPythonEngine do
- begin
- if IsPython3000 then
- Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_GE) = 1
- else
- Result := Self.Compare(Right) >= 0;
- end;
+ Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_GE) = 1
end;
function TPythonData.GreaterThan(const Right: TPythonData): Boolean;
begin
with GetPythonEngine do
- begin
- if IsPython3000 then
- Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_GT) = 1
- else
- Result := Self.Compare(Right) > 0;
- end;
+ Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_GT) = 1
end;
function TPythonData.IsNone: Boolean;
@@ -2246,23 +2100,13 @@ function TPythonData.IsNone: Boolean;
function TPythonData.LessOrEqualThan(const Right: TPythonData): Boolean;
begin
with GetPythonEngine do
- begin
- if IsPython3000 then
- Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_LE) = 1
- else
- Result := Self.Compare(Right) <= 0;
- end;
+ Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_LE) = 1
end;
function TPythonData.LessThan(const Right: TPythonData): Boolean;
begin
with GetPythonEngine do
- begin
- if IsPython3000 then
- Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_LT) = 1
- else
- Result := Self.Compare(Right) < 0;
- end;
+ Result := PyObject_RichCompareBool(PyObject, Right.PyObject, Py_LT) = 1
end;
procedure TPythonData.SetPyObject(const Value: PPyObject);
@@ -2275,8 +2119,62 @@ procedure TPythonData.SetPyObject(const Value: PPyObject);
end;
end;
+{ TVarPyEnumerator }
+
+constructor TVarPyEnumerator.Create(const AValue: Variant);
+begin
+ FIterator := iter(AValue);
+end;
+
+function TVarPyEnumerator.GetCurrent: Variant;
+begin
+ Result := FCurrent;
+end;
+
+function TVarPyEnumerator.MoveNext: Boolean;
+begin
+ Result := True;
+ try
+ FCurrent := BuiltinModule.next(FIterator);
+ except
+ on E: EPyStopIteration do
+ begin
+ Result := False;
+ end
+ else
+ raise;
+ end;
+end;
+
+function VarPyIterate(const AValue: Variant): TVarPyEnumerateHelper;
+begin
+ Result := TVarPyEnumerateHelper.Create(AValue);
+end;
+
+{ TVarPyEnumerateHelper }
+
+constructor TVarPyEnumerateHelper.Create(const AValue: Variant);
+begin
+ FIterable := AValue;
+end;
+
+function TVarPyEnumerateHelper.GetEnumerator: TVarPyEnumerator;
+begin
+ Result := TVarPyEnumerator.Create(FIterable);
+end;
+
+procedure VarPyToStrings(const AValue : Variant; const AStrings: TStrings);
+var
+ V: Variant;
+begin
+ for V in VarPyIterate(AValue) do
+ AStrings.Add(V)
+end;
+
initialization
PythonVariantType := TPythonVariantType.Create;
+
finalization
FreeAndNil(PythonVariantType);
+
end.
diff --git a/Components/python4lazarus_pkg.lpk b/python4lazarus/python4lazarus_package.lpk
similarity index 66%
rename from Components/python4lazarus_pkg.lpk
rename to python4lazarus/python4lazarus_package.lpk
index 01b3463..8e0dd01 100644
--- a/Components/python4lazarus_pkg.lpk
+++ b/python4lazarus/python4lazarus_package.lpk
@@ -1,15 +1,15 @@
-
+
-
+
+
-
-
+
@@ -23,39 +23,43 @@
-
-
+
+
+
-
-
+
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
-
+
+
+
-
+
+
-
+
+
@@ -63,7 +67,6 @@
-
<_ExternHelp Items="Count"/>
diff --git a/Components/python4lazarus_pkg.pas b/python4lazarus/python4lazarus_package.pas
similarity index 54%
rename from Components/python4lazarus_pkg.pas
rename to python4lazarus/python4lazarus_package.pas
index 61b8baa..c2a7864 100644
--- a/Components/python4lazarus_pkg.pas
+++ b/python4lazarus/python4lazarus_package.pas
@@ -2,13 +2,14 @@
This source is only used to compile and install the package.
}
-unit python4lazarus_pkg;
+unit python4lazarus_package;
+{$warn 5023 off : no warning about unused units}
interface
uses
- PythonEngine, PythonGUIInputOutput, MethodCallBack, TinyWideStrings,
- Python4Lazarus_register, LazarusPackageIntf;
+ Python4Lazarus_register, PythonEngine, PythonGUIInputOutput, MethodCallBack,
+ VarPyth, LazarusPackageIntf;
implementation
@@ -18,5 +19,5 @@ procedure Register;
end;
initialization
- RegisterPackage('python4lazarus_pkg', @Register);
+ RegisterPackage('python4lazarus_package', @Register);
end.
diff --git a/Components/python4lazarus_register.pas b/python4lazarus/python4lazarus_register.pas
similarity index 100%
rename from Components/python4lazarus_register.pas
rename to python4lazarus/python4lazarus_register.pas
diff --git a/readme-lazarus.txt b/readme-lazarus.txt
deleted file mode 100644
index bd500e7..0000000
--- a/readme-lazarus.txt
+++ /dev/null
@@ -1,11 +0,0 @@
-2 issues: Lazarus 1.5 trunk, fpc 2.6.4
-
-- OSX: fpc cannot compile code, it yells about GetThreadID type not ok for Longint.
- Fix it: cast GetThreadID to PtrInt
- (Other OSes: all ok)
-
-- all OS: IDE cannot compile itself with package (unit not found).
- To fix: open package options, in the tab with Unit/Include/Object/etc set field "Unit":
- $(PkgOutDir)
-
-Alex
diff --git a/readme.md b/readme.md
index 3dd2621..5b17fb0 100644
--- a/readme.md
+++ b/readme.md
@@ -1,5 +1,13 @@
-This is P4D fork for Lazarus, supports Win/Linux/MacOSX (both x32/x64).
-See my article about sample app:
+This is fork of Python4Delphi for Lazarus.
+Used in CudaText cross-platform editor.
+Supports OS:
-http://wiki.freepascal.org/Using_Python_in_Lazarus_on_Windows/Linux
+- Windows (x32 x64)
+- Linux (x32 x64 ARM AArch64)
+- macOS (x32 x64)
+- FreeBSD NetBSD OpenBSD DragonFlyBSD (x32 x64)
+- Solaris (x64)
+- Haiku (x32 x64)
+See the article about sample Lazarus application:
+http://wiki.freepascal.org/Using_Python_in_Lazarus_on_Windows/Linux