Changeset 4287

Timestamp:

05/29/08 02:49:16 (4 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).

Location:

trunk

Files:

• RELEASE_NOTES.txt (modified) (1 diff)
• scripts/windows/logtalk.iss (modified) (2 diffs)

trunk/RELEASE_NOTES.txt

@@ -16 +16 @@
     setting the initial stack, heap, and tail data area sizes. These settings
     are no longer necessary for recent YAP versions.
+
+    Updated the Windows installer script to search the registry for the 
+    location of the YAP installation (for YAP 5.1.3 or later versions).
 
     Added missing implementation of the predicate as_dictionary/2 to the 

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;