diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logtalk 2.22.0 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1191 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2004-11-29 20:36:31 +00:00
parent 2feba3d528
commit d6bbeaa734
165 changed files with 1120 additions and 861 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
Logtalk/misc/lgt_install.js
View File

@@ -1,6 +1,6 @@
// =================================================================
// Logtalk - Object oriented extension to Prolog
// Release 2.21.6
// Release 2.22.0
//
// Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
// =================================================================
@@ -11,21 +11,34 @@ if (WScript.Arguments.Unnamed.Length > 0) {
}
WScript.Echo('');
WScript.Echo('Installing Logtalk...');
WScript.Echo('Completing Logtalk installation...');
WScript.Echo('');
var WshShell = new ActiveXObject("WScript.Shell");
var WshSystemEnv = WshShell.Environment("SYSTEM");
var WshUserEnv = WshShell.Environment("USER");
var FSObject = new ActiveXObject("Scripting.FileSystemObject");
WshShell.CurrentDirectory = "..";
WshSystemEnv.Item("LOGTALKHOME") = WshShell.CurrentDirectory;
WScript.Echo("Defined system environment variable LOGTALKHOME pointing to:");
WScript.Echo("");
WScript.Echo(" " + WshShell.CurrentDirectory);
WScript.Echo("");
if (!FSObject.FolderExists(WshShell.CurrentDirectory + "\\bin"))
FSObject.CreateFolder(WshShell.CurrentDirectory + "\\bin");
WshUserEnv.Item("LOGTALKUSER") = WshShell.SpecialFolders("MyDocuments") + "\\logtalk";
WScript.Echo("Defined user environment variable LOGTALKUSER pointing to:");
WScript.Echo("");
WScript.Echo(" " + WshShell.SpecialFolders("MyDocuments") + "\\logtalk");
WScript.Echo("");
FSObject.CopyFile(WshShell.CurrentDirectory + "\\README", WshShell.CurrentDirectory + "\\bin\\README.txt");
FSObject.CopyFile(WshShell.CurrentDirectory + "\\QUICK_START", WshShell.CurrentDirectory + "\\bin\\QUICK_START.txt");
FSObject.CopyFile(WshShell.CurrentDirectory + "\\BIBLIOGRAPHY", WshShell.CurrentDirectory + "\\BIBLIOGRAPHY.txt");
FSObject.CopyFile(WshShell.CurrentDirectory + "\\LICENSE", WshShell.CurrentDirectory + "\\LICENSE.txt");
FSObject.CopyFile(WshShell.CurrentDirectory + "\\QUICK_START", WshShell.CurrentDirectory + "\\QUICK_START.txt");
FSObject.CopyFile(WshShell.CurrentDirectory + "\\README", WshShell.CurrentDirectory + "\\README.txt");
FSObject.CopyFile(WshShell.CurrentDirectory + "\\RELEASE_NOTES", WshShell.CurrentDirectory + "\\RELEASE_NOTES.txt");
FSObject.CopyFile(WshShell.CurrentDirectory + "\\UPGRADING", WshShell.CurrentDirectory + "\\UPGRADING.txt");
var ProgramsPath = WshShell.SpecialFolders("AllUsersPrograms");
@@ -47,16 +60,42 @@ link.Save();
link = WshShell.CreateShortcut(ProgramsPath + "\\Logtalk\\Logtalk ReadMe.lnk");
link.Description = "Open Logtalk ReadMe";
link.TargetPath = "%LOGTALKHOME%\\bin\\README.txt";
link.TargetPath = "%LOGTALKHOME%\\README.txt";
link.Save();
link = WshShell.CreateShortcut(ProgramsPath + "\\Logtalk\\Logtalk Quick Start.lnk");
link.Description = "Open Logtalk Quick Start";
link.TargetPath = "%LOGTALKHOME%\\bin\\QUICK_START.txt";
link.TargetPath = "%LOGTALKHOME%\\QUICK_START.txt";
link.Save();
WScript.Echo('Logtalk installation completed.');
link = WshShell.CreateShortcut(ProgramsPath + "\\Logtalk\\Logtalk Bibliography.lnk");
link.Description = "Open Logtalk Bibliography";
link.TargetPath = "%LOGTALKHOME%\\BIBLIOGRAPHY.txt";
link.Save();
link = WshShell.CreateShortcut(ProgramsPath + "\\Logtalk\\Logtalk License.lnk");
link.Description = "Open Logtalk License";
link.TargetPath = "%LOGTALKHOME%\\LICENSE.txt";
link.Save();
link = WshShell.CreateShortcut(ProgramsPath + "\\Logtalk\\Logtalk Release Notes.lnk");
link.Description = "Open Logtalk Release Notes";
link.TargetPath = "%LOGTALKHOME%\\RELEASE_NOTES.txt";
link.Save();
link = WshShell.CreateShortcut(ProgramsPath + "\\Logtalk\\Logtalk Upgrading.lnk");
link.Description = "Open Logtalk Upgrading";
link.TargetPath = "%LOGTALKHOME%\\UPGRADING.txt";
link.Save();
WScript.Echo('Logtalk installation completed. You will need to restart in order');
WScript.Echo('to activate the new system environment variables and use the items');
WScript.Echo('in the new Logtalk program group.');
WScript.Echo('');
WScript.Quit(0);
@@ -64,8 +103,8 @@ WScript.Quit(0);
function usage_help() {
WScript.Echo('');
WScript.Echo('This script completes the installation of Logtalk by setting the LOGTALKHOME');
WScript.Echo('system environment variable and by creating a new program group named "Logtalk"');
WScript.Echo('in the Windows Start Menu.');
WScript.Echo('and LOGTALKUSER system environment variables and by creating a new program');
WScript.Echo('group named "Logtalk" in the Windows Start Menu.');
WScript.Echo('');
WScript.Echo('The script must be run from this directory, by a user with administration');
WScript.Echo('privileges, after decompressing the Logtalk distribution into its final');