Changeset 4475 for trunk/scripts

Timestamp:

09/26/08 09:12:41 (8 weeks ago)

Author:

pmoura

Message:

Updated the Windows installer to warn the user when it fails to detect the installation of the selected Prolog compilers. Fixed a bug where the creation of the K-Prolog integration shortcut could fail when performing a custom installation.

Files:

• trunk/scripts/windows/logtalk.iss (modified) (11 diffs)

trunk/scripts/windows/logtalk.iss

@@ -121 +121 @@
 Name: "{group}\Logtalk - GNU Prolog"; Filename: "{code:GetGPExePath}"; Parameters: "--init-goal ""['$LOGTALKUSER/configs/gnu.config', '$LOGTALKHOME/integration/logtalk_gp.pl', '$LOGTALKUSER/libpaths/libpaths.pl']"""; Comment: "Runs Logtalk with GNU Prolog"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\gprolog; Flags: createonlyiffileexists
 
-Name: "{group}\Logtalk - K-Prolog"; Filename: "{code:GetKPExePath}"; Parameters: "-h 4096k -l 2048k -g 4096k -e ""(consult('$LOGTALKHOME/integration/logtalk_plc5.pl'), '$root')."""; Comment: "Runs Logtalk with K-Prolog"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\gprolog; Flags: createonlyiffileexists
+Name: "{group}\Logtalk - K-Prolog"; Filename: "{code:GetKPExePath}"; Parameters: "-h 4096k -l 2048k -g 4096k -e ""(consult('$LOGTALKHOME/integration/logtalk_plc5.pl'), '$root')."""; Comment: "Runs Logtalk with K-Prolog"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\plc; Flags: createonlyiffileexists
 
 Name: "{group}\Logtalk - Quintus Prolog"; Filename: "{code:GetQuintusExePath}"; Parameters: "+l ""%LOGTALKHOME%\integration\logtalk_quintus.pl"" +z ""%LOGTALKHOME%"" ""%LOGTALKUSER%"""; Comment: "Runs Logtalk with Quintus Prolog"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\quintus; Flags: createonlyiffileexists
@@ -246 +246 @@
 var
   BPDIR: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKLM, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\', 'BPDIR', BPDIR) then
     Result := BPDIR + '\bp.bat'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect B-Prolog installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -256 +260 @@
 var
   CiaoDir: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKLM, 'Software\Ciao Prolog\', 'ciao_dir', CiaoDir) then
     Result := CiaoDir + '\shell\ciaosh.cpx'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect Ciao Prolog installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -266 +274 @@
 var
   CxDir: String;
-begin
-  if RegQueryStringValue(HKLM, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\', 'CXPROLOG_DIR', CxDir) then
+  Warning: String;
+begin
+  if RegQueryStringValue(HKLM, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\', 'CXPROLOGDIR', CxDir) then
     Result := CxDir + '\cxprolog.exe'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect CxProlog installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -276 +288 @@
 var
   ECLIPSEDIR: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKLM, 'Software\IC-Parc\Eclipse\5.10\', 'ECLIPSEDIR', ECLIPSEDIR) then
     Result := ECLIPSEDIR + '\lib\i386_nt\eclipse.exe'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect ECLiPSe Prolog 5 installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -286 +302 @@
 var
   ECLIPSEDIR: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKLM, 'Software\IC-Parc\Eclipse\6.0\', 'ECLIPSEDIR', ECLIPSEDIR) then
     Result := ECLIPSEDIR + '\lib\i386_nt\eclipse.exe'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect ECLiPSe Prolog 6 installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -296 +316 @@
 var
   RootPath: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKCU, 'Software\GnuProlog\', 'RootPath', RootPath) then
     Result := RootPath + '\bin\gprolog.exe'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect GNU Prolog installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
 function GetKPExePath(Param: String): String;
-begin
-    Result := GetEnv('PLC') + '\plc.exe'
+var
+  Path: String;
+  Warning: String;
+begin
+  Path := GetEnv('PLC') + '\plc.exe';
+  if FileExists(Path) then
+    Result := Path
+  else begin
+    Warning := 'Failed to detect K-Prolog installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
 function GetQuintusExePath(Param: String): String;
-begin
-    Result := GetEnv('Quintus') + '\bin\ix86\qpwin.exe'
+var
+  Path: String;
+  Warning: String;
+begin
+  Path := GetEnv('Quintus') + '\bin\ix86\qpwin.exe';
+  if FileExists(Path) then
+    Result := Path
+  else begin
+    Warning := 'Failed to detect Quintus Prolog installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -316 +360 @@
 var
   SP_PATH: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKLM, 'Software\SICS\SICStus3.12_win32\', 'SP_PATH', SP_PATH) then
     Result := SP_PATH + '\bin\spwin.exe'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect SICStus Prolog 3 installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -326 +374 @@
 var
   SP_PATH: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKLM, 'Software\SICS\SICStus4.0_win32\', 'SP_PATH', SP_PATH) then
     Result := SP_PATH + '\bin\spwin.exe'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect SICStus Prolog 4 installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -336 +388 @@
 var
   Home: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKLM, 'Software\SWI\Prolog\', 'home', Home) then
     Result := Home + '\bin\plwin.exe'
-  else
-    Result := 'lgt_exe_does_not_exist'
+  else begin
+    Warning := 'Failed to detect SWI-Prolog installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
 end;
 
@@ -346 +402 @@
 var
   Home: String;
+  Warning: String;
 begin
   if RegQueryStringValue(HKLM, 'Software\YAP\Prolog\', 'home', Home) then
     Result := Home + '\bin\yap.exe'
-  else
-    Result := 'lgt_exe_does_not_exist'
-end;
+  else begin
+    Warning := 'Failed to detect YAP installation.' + Chr(13) + 'Logtalk integration shortcut not created.';
+    MsgBox(Warning, mbError, MB_OK);
+    Result := 'lgt_exe_does_not_exist'
+  end
+end;