Logtalk 2.30.1 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1903 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-06-12 10:39:47 +00:00
parent 84f478c301
commit 6b4bde14e1
475 changed files with 6213 additions and 6424 deletions
--- a/Logtalk/scripts/windows/NOTES.txt
+++ b/Logtalk/scripts/windows/NOTES.txt
@@ -1,9 +1,12 @@
-=================================================================
-Logtalk - Object oriented extension to Prolog
-Release 2.29.5
+================================================================
+Logtalk - Open source object-oriented logic programming language
+Release 2.30.1

 Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
-=================================================================
+================================================================


-This directory contains files used when building Windows installers.
+This directory contains files used when building Windows 2000/XP GUI 
+installers using Inno Setup 5.1.11 (or a later version):
+
+	http://www.jrsoftware.org/isinfo.php
--- a/Logtalk/scripts/windows/logtalk.iss
+++ b/Logtalk/scripts/windows/logtalk.iss
@@ -1,7 +1,7 @@
 ; Script generated by the Inno Setup Script Wizard.

 #define MyAppName "Logtalk"
-#define MyAppVerName "Logtalk 2.29.5"
+#define MyAppVerName "Logtalk 2.30.1"
 #define MyAppPublisher "Logtalk.org"
 #define MyAppURL "http://logtalk.org"
 #define MyAppUrlName "Logtalk Web Site.url"
@@ -24,12 +24,12 @@ DefaultGroupName={#MyAppName}
 DisableProgramGroupPage=yes
 LicenseFile=C:\logtalk\LICENSE.txt
 InfoBeforeFile=C:\logtalk\README.txt
-OutputBaseFilename=lgt2295
+OutputBaseFilename=lgt2301
 Compression=lzma
 SolidCompression=yes
 PrivilegesRequired=none

-VersionInfoVersion=2.29.5
+VersionInfoVersion=2.30.1
 VersionInfoCopyright=<3D> Paulo Moura, 1998-2007

 AllowRootDirectory=yes
@@ -49,7 +49,7 @@ Name: "base"; Description: "Base system"; Types: full base custom; Flags: disabl
 Name: "user"; Description: "User data files"; Types: full user custom; Flags: checkablealone disablenouninstallwarning
 Name: "user\backup"; Description: "Backup current user data files"; Types: full user custom; Flags: disablenouninstallwarning
 Name: "prolog"; Description: "Prolog integration"; Types: full prolog custom; Flags: disablenouninstallwarning
-Name: "prolog\bp"; Description: "B-Prolog integration (version 6.9 or later)"; Types: full prolog custom; Flags: disablenouninstallwarning
+Name: "prolog\bp"; Description: "B-Prolog integration (version 7.0 or later)"; Types: full prolog custom; Flags: disablenouninstallwarning
 Name: "prolog\ciao"; Description: "Ciao Prolog integration (version 1.10#5 or later)"; Types: full prolog custom; Flags: disablenouninstallwarning
 Name: "prolog\eclipse"; Description: "ECLiPSe integration (version 5.10#26 or later)"; Types: full prolog custom; Flags: disablenouninstallwarning
 Name: "prolog\gprolog"; Description: "GNU Prolog integration (version 1.2.16 or later)"; Types: full prolog custom; Flags: disablenouninstallwarning
@@ -67,7 +67,7 @@ Name: shortcut; Description: "&Create a desktop shortcut to the Logtalk user fol
 Name: "english"; MessagesFile: "compiler:Default.isl"

 [Messages]
-BeveledLabel=Logtalk 2.29.5 <20> Paulo Moura, 1998-2007
+BeveledLabel=Logtalk 2.30.1 <20> Paulo Moura, 1998-2007

 [Dirs]
 Name: {code:GetLgtUserDir}; Components: user; Flags: uninsneveruninstall
@@ -85,6 +85,7 @@ Source: "C:\logtalk\xml\*"; Excludes: ".*,CVS"; DestDir: "{code:GetLgtUserDir}\x

 Source: "C:\logtalk\configs\amzi.config"; DestDir: "{code:GetLgtUserDir}\configs"; DestName: "amzi.pro"; Components: user; Flags: ignoreversion uninsneveruninstall
 Source: "C:\logtalk\configs\xsb.config"; DestDir: "{code:GetLgtUserDir}\configs"; DestName: "xsb.pl"; Components: user; Flags: ignoreversion uninsneveruninstall
+Source: "C:\logtalk\configs\xsbcvs.config"; DestDir: "{code:GetLgtUserDir}\configs"; DestName: "xsbcvs.pl"; Components: user; Flags: ignoreversion uninsneveruninstall
 Source: "C:\logtalk\libpaths\libpaths.pl"; DestDir: "{code:GetLgtUserDir}\libpaths"; DestName: "libpaths_no_env_var.pl"; Components: user; Flags: ignoreversion uninsneveruninstall

 Source: "C:\logtalk\scripts\*.bat"; DestDir: "{win}"; Components: base; Flags: ignoreversion
@@ -95,14 +96,37 @@ Filename: "{app}\{#MyAppUrlName}"; Section: "InternetShortcut"; Key: "URL"; Stri
 Filename: "{app}\{#MyAppRegUrlName}"; Section: "InternetShortcut"; Key: "URL"; String: "{#MyAppRegURL}"; Components: base

 [Icons]
-Name: "{group}\{#MyAppName} Bibliography"; Filename: "{app}\BIBLIOGRAPHY.bib"; Components: base
-Name: "{group}\{#MyAppName} Documentation"; Filename: "{app}\manuals\index.html"; Components: base
-Name: "{group}\{#MyAppName} License"; Filename: "{app}\LICENSE.txt"; Components: base
-Name: "{group}\{#MyAppName} Release Notes"; Filename: "{app}\RELEASE_NOTES.txt"; Components: base
-Name: "{group}\{#MyAppName} Read Me"; Filename: "{app}\README.txt"; Components: base
-Name: "{group}\{#MyAppName} Customization instructions"; Filename: "{app}\CUSTOMIZE.txt"; Components: base
+Name: "{group}\Bibliography"; Filename: "{app}\BIBLIOGRAPHY.bib"; Components: base
+Name: "{group}\Documentation"; Filename: "{app}\manuals\index.html"; Components: base
+Name: "{group}\License"; Filename: "{app}\LICENSE.txt"; Components: base
+Name: "{group}\Release Notes"; Filename: "{app}\RELEASE_NOTES.txt"; Components: base
+Name: "{group}\Read Me"; Filename: "{app}\README.txt"; Components: base
+Name: "{group}\Customization instructions"; Filename: "{app}\CUSTOMIZE.txt"; Components: base
+
+Name: "{group}\Web Site"; Filename: "{#MyAppUrl}"; Components: base
+
+Name: "{group}\Logtalk - B-Prolog"; Filename: "{code:GetBPExePath}"; Parameters: "-g ""consult('$LOGTALKHOME/integration/logtalk_bp.pl'), $bp_top_level"""; Comment: "Runs Logtalk with B-Prolog"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\bp; Flags: createonlyiffileexists
+
+Name: "{group}\Logtalk - Ciao Prolog"; Filename: "{code:GetCiaoExePath}"; Parameters: "-l ""$LOGTALKHOME/integration/logtalk_ciao.pl"""; Comment: "Runs Logtalk with Ciao Prolog"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\ciao; Flags: createonlyiffileexists
+
+Name: "{group}\Logtalk - ECLiPSe"; Filename: "{code:GetEclipseExePath}"; Parameters: "-b ""%LOGTALKHOME%\integration\logtalk_eclipse.pl"""; Comment: "Runs Logtalk with ECLiPSe"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\eclipse; Flags: createonlyiffileexists
+
+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 2048k -l 1024k -g 2048k -e ""(consult('$LOGTALKHOME/integration/logtalk_plc.pl'), '$root')."""; Comment: "Runs Logtalk with K-Prolog"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\gprolog; Flags: createonlyiffileexists
+
+Name: "{group}\Logtalk - SICStus Prolog 3"; Filename: "{code:GetSP3ExePath}"; Parameters: "-l ""%LOGTALKHOME%\integration\logtalk_sicstus3.pl"""; Comment: "Runs Logtalk with SSICStus Prolog 3"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\sicstus; Flags: createonlyiffileexists
+
+Name: "{group}\Logtalk - SICStus Prolog 4"; Filename: "{code:GetSP4ExePath}"; Parameters: "-l ""%LOGTALKHOME%\integration\logtalk_sicstus4.pl"""; Comment: "Runs Logtalk with SICStus Prolog 4"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\sicstus; Flags: createonlyiffileexists
+
+Name: "{group}\Logtalk - SWI-Prolog"; Filename: "{code:GetSWIExePath}"; Parameters: "-f ""%LOGTALKHOME%\integration\logtalk_swi.pl"""; Comment: "Runs Logtalk with SWI-Prolog"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\swi; Flags: createonlyiffileexists
+
+Name: "{group}\Logtalk - XSB"; Filename: "C:\XSB\config\x86-pc-windows\bin\xsb.exe"; Parameters: "-l -e ""['%LOGTALKUSER%\\configs\\xsb.pl', '%LOGTALKHOME%\\compiler\\logtalk.pl', '%LOGTALKUSER%\\libpaths\\libpaths_no_env_var.pl']."""; Comment: "Runs Logtalk with XSB"; WorkingDir: "{code:GetLgtUserDir}"; Components: prolog\xsb; Flags: createonlyiffileexists
+
+Name: "{group}\Logtalk - XSB CVS"; Filename: "C:\XSB\config\x86-pc-windows\bin\xsb.exe"; Parameters: "-l -e ""['%LOGTALKUSER%\\configs\\xsbcvs.pl', '%LOGTALKHOME%\\compiler\\logtalk.pl', '%LOGTALKUSER%\\libpaths\\libpaths.pl']."""; Comment: "Runs Logtalk with XSB CVS"; 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}\{#MyAppName} Web Site"; Filename: "{#MyAppUrl}"; Components: base
 Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"; Components: base

 Name: "{code:GetLgtUserDir}\manuals"; Filename: "{app}\manuals"; Components: user
@@ -115,16 +139,6 @@ Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environmen
 Root: HKCU; Subkey: "Environment"; ValueType: expandsz; ValueName: "LOGTALKUSER"; ValueData: "{code:GetLgtUserDir}"; Flags: deletevalue uninsdeletevalue

 [Run]
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_bplgt.js"""; Description: "B-Prolog integration"; Components: prolog\bp
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_ciaolgt.js"""; Description: "Ciao Prolog integration"; Components: prolog\ciao
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_eclipselgt.js"""; Description: "ECLiPSe integration"; Components: prolog\eclipse
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_gplgt.js"""; Description: "GNU Prolog integration"; Components: prolog\gprolog
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_plclgt.js"""; Description: "K-Prolog integration"; Components: prolog\plc
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_sicstuslgt.js"""; Description: "SICStus Prolog integration"; Components: prolog\sicstus
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_swilgt.js"""; Description: "SWI-Prolog integration"; Components: prolog\swi
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_xsblgt.js"""; Description: "XSB integration"; Components: prolog\xsb
-Filename: "{cmd}"; Parameters: "/C set LOGTALKHOME={app} & cscript ""{app}\scripts\make_yaplgt.js"""; Description: "YAP integration"; Components: prolog\yap
-
 Filename: "{app}\RELEASE_NOTES.txt"; Description: "View the release notes"; Components: base user; Flags: postinstall shellexec skipifsilent
 Filename: "{app}\CUSTOMIZE.txt"; Description: "Read the customization instructions for completing your setup"; Components: base user; Flags: postinstall shellexec skipifsilent

@@ -138,7 +152,7 @@ Type: filesandordirs; Name: "{group}"; Components: base
 var
  LgtUserDirPage: TInputDirWizardPage;
  WarningPage: TOutputMsgWizardPage;
-  Explanation, Warning, Scripts: String;
+  Explanation, Warning: String;

 procedure InitializeWizard;
 begin
@@ -196,14 +210,82 @@ end;
 procedure CurStepChanged(CurStep: TSetupStep);
 begin
  if (CurStep = ssInstall) and DirExists(LgtUserDirPage.Values[0]) and (pos('backup', WizardSelectedComponents(False)) > 0) then
-    RenameFile(LgtUserDirPage.Values[0], LgtUserDirPage.Values[0] + ' backup ' + GetDateTimeString('dddddd tt', '-', '-'));
-  if (CurStep = ssInstall) and (pos('prolog', WizardSelectedComponents(False)) > 0) then
-  begin
-    Scripts := 'The installer needs to run a set of JScripts scripts within command shells' + Chr(13) +
-               'in order to integrate Logtalk with your installed Prolog compilers.' + Chr(13) + Chr(13) +
-               'These scripts require WSH 5.6 (or later version) to be installed.' + Chr(13) + Chr(13) +
-               'Make sure that any security software you may have installed do not block' + Chr(13) +
-               'the execution of the scripts.';
-    MsgBox(Scripts, mbInformation, MB_OK)
-  end
+    RenameFile(LgtUserDirPage.Values[0], LgtUserDirPage.Values[0] + ' backup ' + GetDateTimeString('dddddd tt', '-', '-'))
+end;
+
+function GetBPExePath(Param: String): String;
+var
+  BPDIR: 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'
+end;
+
+function GetCiaoExePath(Param: String): String;
+var
+  CiaoDir: String;
+begin
+  if RegQueryStringValue(HKLM, 'Software\Ciao Prolog\', 'ciao_dir', CiaoDir) then
+    Result := CiaoDir + '\shell\ciaosh.cpx'
+  else
+	Result := 'lgt_exe_does_not_exist'
+end;
+
+function GetEclipseExePath(Param: String): String;
+var
+  ECLIPSEDIR: String;
+begin
+  if RegQueryStringValue(HKLM, 'Software\IC-Parc\Eclipse\5.11\', 'ECLIPSEDIR', ECLIPSEDIR) then
+    Result := ECLIPSEDIR + '\lib\i386_nt\eclipse.exe'
+  else 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'
+end;
+
+function GetGPExePath(Param: String): String;
+var
+  RootPath: String;
+begin
+  if RegQueryStringValue(HKCU, 'Software\GnuProlog\', 'RootPath', RootPath) then
+    Result := RootPath + '\bin\gprolog.exe'
+  else
+	Result := 'lgt_exe_does_not_exist'
+end;
+
+function GetKPExePath(Param: String): String;
+begin
+    Result := GetEnv('PLC') + '\plc.exe'
+end;
+
+function GetSP3ExePath(Param: String): String;
+var
+  SP_PATH: 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'
+end;
+
+function GetSP4ExePath(Param: String): String;
+var
+  SP_PATH: 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'
+end;
+
+function GetSWIExePath(Param: String): String;
+var
+  Home: String;
+begin
+  if RegQueryStringValue(HKLM, 'Software\SWI\Prolog\', 'home', Home) then
+    Result := Home + '\bin\plwin.exe'
+  else
+	Result := 'lgt_exe_does_not_exist'
 end;