Changeset 82 for trunk

Timestamp:

Aug 3, 2017, 11:32:53 PM (7 years ago)

Author:

chronos

Message:

• Added: New Python target.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (16 diffs)
• Images/Icons/Targets/Python.png (added)
• LazFuck.lpi (modified) (2 diffs)
• Target/UTargetPython.pas (added)
• UCore.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 860
   Caption = 'LazFuck'
-  ClientHeight = 561
+  ClientHeight = 554
   ClientWidth = 860
   Menu = MainMenu1
@@ -18 +18 @@
     Left = 0
     Height = 28
-    Top = 533
+    Top = 526
     Width = 860
     Panels = <    
@@ -131 +131 @@
   object PageControlRight: TPageControl
     Left = 467
-    Height = 507
+    Height = 500
     Top = 26
     Width = 393
@@ -141 +141 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 499
-      ClientWidth = 359
+      ClientHeight = 494
+      ClientWidth = 319
       object PanelInput: TPanel
         Left = 0
         Height = 64
         Top = 0
-        Width = 359
+        Width = 319
         Align = alTop
         BevelOuter = bvNone
@@ -157 +157 @@
         Height = 5
         Top = 64
-        Width = 359
+        Width = 319
         Align = alTop
         ResizeAnchor = akTop
@@ -165 +165 @@
         Height = 259
         Top = 69
-        Width = 359
+        Width = 319
         Align = alTop
         BevelOuter = bvNone
@@ -175 +175 @@
         Height = 5
         Top = 328
-        Width = 359
+        Width = 319
         Align = alTop
         ResizeAnchor = akTop
@@ -183 +183 @@
         Height = 86
         Top = 333
-        Width = 359
+        Width = 319
         Align = alTop
         BevelOuter = bvNone
@@ -193 +193 @@
         Height = 5
         Top = 419
-        Width = 359
+        Width = 319
         Align = alTop
         ResizeAnchor = akTop
@@ -199 +199 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 75
+        Height = 70
         Top = 424
-        Width = 359
+        Width = 319
         Align = alClient
         BevelOuter = bvNone
@@ -210 +210 @@
   object Splitter1: TSplitter
     Left = 462
-    Height = 507
+    Height = 500
     Top = 26
     Width = 5
@@ -218 +218 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 507
+    Height = 500
     Top = 26
     Width = 462
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 507
+    ClientHeight = 500
     ClientWidth = 462
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 384
+      Height = 377
       Top = 0
       Width = 462
@@ -246 +246 @@
       Left = 0
       Height = 118
-      Top = 389
+      Top = 382
       Width = 462
       ActivePage = TabSheetMessages
@@ -261 +261 @@
       Left = 0
       Height = 5
-      Top = 384
+      Top = 377
       Width = 462
       Align = alBottom
@@ -1093 +1093 @@
     top = 72
     Bitmap = {
-      4C691A0000001000000010000000000000000000000000000000000000000000
+      4C691B0000001000000010000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000000000FF000000FF000000FF0000
@@ -1925 +1925 @@
       31FF634A31FF2A351A002A351A002A351A002A351A002A351A002A351A002A35
       1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
-      1A002A351A002A351A002A351A00
+      1A002A351A002A351A002A351A0000000000000000000000000000000000B27A
+      3815B17A38AEAE7837E7AC7737FDAA7637FCA97437E1A573379BA77537040000
+      000000000000000000000000000000000000000000000000000000000000B17A
+      38EFAF793859AD7837B2AA7637FFA87437FFA57437FFA47237FFA27137F29B6F
+      370000000000000000000000000000000000000000000000000000000000AF78
+      37FEAC773776AA7637C5A87437FFA57437FFA47237FFA27137FF9F7037FF9F6F
+      3703000000000000000000000000B17A3800000000000000000000000000AD78
+      37A9AB7637ADA97537ADA67437AFA47237FFA27137FF9F7037FF9D6E37FFA562
+      210395FFFF0000000000000000009B643800B17A388EAF7837FCAC7737FCAB76
+      37FCA87537FCA67437FCA47237FCA27137FF9F7037FF9D6E37FF9B6D36FF4BD7
+      FCBD48D7FFFF46D5FFDD44D3FF08B17A3882AF7837FFAC7737FFAA7637FFA874
+      37FFA67437FFA47237FFA27137FF9F7037FF9D6E37FF9B6D36FF986C36FF49D5
+      FCB146D5FFFF44D3FFFF42D2FFA9AE7837DBAC7737FFAA7637FFA87437FFA674
+      37FFA47237FFA27137FF9F7037FF9D6E37FF9B6D36FF986C36FF966A36ED46D5
+      FFCC44D3FFFF42D2FFFF40D0FFFFAC7737FBAA7637FFA87437FFA67437FFA472
+      37FDA27036E89F6F35E69E6D35E69C6C34E6996B34E6976934C627FCFF0A44D4
+      FFFC42D2FFFF40D0FFFF3ECEFFFFAA7637FBA87437FFA67437FFA47237FF8991
+      73154FDFFFAE4DDDFFF84BDBFFF749D9FFF747D7FFF746D5FFFF44D4FFFF42D2
+      FFFF40D0FFFF3ECEFFFF3CCCFFFFA87437DCA67437FFA47237FFA46E31BF4EE0
+      FFBB4EDDFFFF4CDBFFFF4AD9FFFF48D7FFFF46D6FFFF44D4FFFF42D2FFFF40D0
+      FFFF3ECEFFFF3CCCFFFF3ACBFFFFA573378EA47237FFA27137FFA36B2EB34DDE
+      FFF74CDBFFFF4AD9FFFF48D7FFFF46D6FFFF44D4FFFF42D2FFFF40D0FFFF3ECE
+      FFFF3CCDFFFF3ACBFFFF38C9FF8C00000000A17137D99F7037FFA1692EB64BDC
+      FFF74AD9FFFF48D7FFFF46D6FFFF44D4FFFF42D2FFFF40D0FFFF3ECEFFFF3CCD
+      FFFF3ACBFFFF38C9FFAB00C4FF00A1703700866E37009E6F3704000000004AD9
+      FFF948D8FFFF46D6FFFF44D4FFFD42D2FFC540D0FFC73ECEFFC73CCDFFC93BCC
+      FF0338C9FF01000000003BC9FF000000000000000000000000000000000048D8
+      FFF946D6FFFF44D4FFFF42D2FFFF40D0FFFF3ECFFFE83CCDFF4B3ACBFFFF39CA
+      FF030000000000000000000000000000000000000000000000000000000046D6
+      FFC544D4FFFF42D2FFFF40D0FFFF3ECFFFFF3CCDFFE03ACBFF4138C9FFFF38C9
+      FF0200000000000000000000000000000000000000000000000049D9FF0044D4
+      FF0542D2FF8A40D1FFFF3ECFFFFF3CCDFFFF3ACBFFFF38C9FFB938C9FF140000
+      0000000000000000000000000000
     }
   end

trunk/LazFuck.lpi

@@ -180 +180 @@
       </Item6>
     </RequiredPackages>
-    <Units Count="24">
+    <Units Count="25">
       <Unit0>
         <Filename Value="LazFuck.lpr"/>
@@ -318 +318 @@
         <ResourceBaseClass Value="Form"/>
       </Unit23>
+      <Unit24>
+        <Filename Value="Target\UTargetPython.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit24>
     </Units>
   </ProjectOptions>

trunk/UCore.pas

@@ -46 +46 @@
 
 uses
-  UFormMain, UTargetJava, UTargetDelphi, UTargetPHP, UTargetC,
-  UTargetInterpretter, UTargetFPC, UBFTarget, Forms, LazFileUtils;
+  UFormMain, Forms, LazFileUtils,
+  // Targets
+  UTargetInterpretter, UTargetFPC, UBFTarget, UTargetJava, UTargetDelphi,
+  UTargetPHP, UTargetC, UTargetPython;
 
 const
@@ -59 +61 @@
   ScaleDPI := TScaleDPI.Create(nil);
   Targets := TTargetList.Create;
+  // Init targets list
   Targets.Add(TTargetInterpretter.Create);
   Targets.Add(TTargetDelphi.Create);
@@ -65 +68 @@
   Targets.Add(TTargetC.Create);
   Targets.Add(TTargetJava.Create);
+  Targets.Add(TTargetPython.Create);
 
   {$IFDEF Linux}