Changeset 9 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 12, 2011, 12:33:04 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Instance compilation on Linux.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UMainForm.pas (modified) (5 diffs)

trunk

@@ -4 +4 @@
 Source
 Instance
+FreePascalManager

@@ -4 +4 @@
 Source
 Instance
+FreePascalManager

trunk/Forms/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
   StdCtrls, ActnList, Menus, ExtCtrls, Contnrs, USource, UInstance,
-  UInstanceOptions, DOM, XMLWrite, XMLRead, HTTPSend, UMainOptions,
-  USourceSelection;
+  UInstanceOptions, DOM, XMLWrite, XMLRead,  UMainOptions,
+  USourceSelection, HTTPSend;
 
 const
@@ -81 +81 @@
     Sources: TSourceList;
     function GetBinUtilsDir: string;
+    function GetCompilerPath: string;
     function GetBaseDir: string;
+    procedure InstallDependencies;
   end;
 
@@ -254 +256 @@
     AStart.Enabled := False;
     ARemove.Enabled := False;
+    AUpdate.Enabled := False;
   end;
 end;
@@ -492 +495 @@
 function TMainForm.GetBinUtilsDir: string;
 begin
+  {$IFDEF Windows}
   Result := GetBaseDir + DirectorySeparator +
     BinUtilsDir + DirectorySeparator + Platform;
+  {$ENDIF}
+  {$IFDEF Linux}
+  Result := '/usr/bin';
+  {$ENDIF}
+end;
+
+function TMainForm.GetCompilerPath: string;
+begin
+  {$IFDEF Windows}
+  Result := GetBinUtilsDir + DirectorySeparator + 'fpc';
+  {$ENDIF}
+  {$IFDEF Linux}
+  Result := '/usr/lib/fpc/2.4.0/ppc386';
+  {$ENDIF}
 end;
 
@@ -499 +517 @@
 begin
   Result := ExtractFileDir(Application.ExeName);
+end;
+
+procedure TMainForm.InstallDependencies;
+begin
+  {$IFDEF Windows}
+  {$ENDIF}
+  {$IFDEF Linux}
+  if FileExistsUTF8('yum') then begin
+  end else
+  if FileExistsUTF8('apt-get') then begin
+  (* sudo apt-get install -y subversion
+    sudo apt-get install -y cvs
+    sudo apt-get install -y alien
+    sudo apt-get install -y libncurses5-dev
+    sudo apt-get install -y libgtk2.0-dev
+    sudo apt-get install -y libgdk-pixbuf-dev
+    sudo apt-get install -y libXp-dev
+    sudo apt-get install -y libgtk1.2-dev
+    sudo apt-get install -y libXxf86vm-dev
+    sudo apt-get install -y glutg3-dev
+    sudo apt-get install -y libgli-mesa-dev
+    sudo apt-get install -y mesa-utils
+  *)
+  end else ShowMessage('No package manager found.');
+  {$ENDIF}
 end;
 

@@ -4 +4 @@
 Source
 Instance
+FreePascalManager