Changeset 4287 for trunk/scripts

Timestamp:

05/29/08 02:49:16 (8 months ago)

Author:

pmoura

Message:

Updated the Windows installer script to search the registry for the location of the YAP installation (for YAP 5.1.3 or later versions).

Files:

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

trunk/scripts/windows/logtalk.iss

@@ -131 +131 @@
 Name: "{group}\Logtalk - XSB-MT"; Filename: "C:\XSB\config\i686-pc-cygwin-mt\bin\xsb.exe"; Parameters: "--shared_predicates -l -e ""['%LOGTALKUSER%\\configs\\xsb.config', '%LOGTALKHOME%\\compiler\\logtalk.pl', '%LOGTALKUSER%\\libpaths\\libpaths.pl']."""; Comment: "Runs Logtalk with XSB-MT"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\xsb; Flags: createonlyiffileexists
 
-Name: "{group}\Logtalk - YAP"; Filename: "C:\Yap\bin\yap.exe"; Parameters: "-l ""$LOGTALKHOME/integration/logtalk_yap.pl"""; Comment: "Runs Logtalk with YAP"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\yap; Flags: createonlyiffileexists
+Name: "{group}\Logtalk - YAP"; Filename: "{code:GetYAPExePath}"; Parameters: "-l ""$LOGTALKHOME/integration/logtalk_yap.pl"""; Comment: "Runs Logtalk with YAP"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\yap; Flags: createonlyiffileexists
 
 Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"; Components: base
@@ -330 +330 @@
     Result := 'lgt_exe_does_not_exist'
 end;
+
+function GetYAPExePath(Param: String): String;
+var
+  Home: String;
+begin
+  if RegQueryStringValue(HKLM, 'Software\YAP\Prolog\', 'home', Home) then
+    Result := Home + '\bin\yap.exe'
+  else
+    Result := 'lgt_exe_does_not_exist'
+end;