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

Logtalk 2.26.2 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1486 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2005-12-24 18:00:21 +00:00
parent f5002fa37f
commit 9f1b358c04
382 changed files with 8056 additions and 8866 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
Logtalk/xml/lgt2xml.js
View File

@@ -1,17 +1,12 @@
// =================================================================
// Logtalk - Object oriented extension to Prolog
// Release 2.25.1
// Release 2.26.2
//
// Copyright (c) 1998-2005 Paulo Moura. All Rights Reserved.
// =================================================================
var WshShell = new ActiveXObject("WScript.Shell");
var xslt = "lgtxml.xsl"
var spec = "logtalk.dtd"
// var spec = "logtalk.xsd"
var css = "logtalk.css";
var format = "xhtml";
// var format = "html";
@@ -25,17 +20,26 @@ if (WScript.Arguments.Unnamed.Length > 0) {
WScript.Quit(0);
}
var WshProcessEnv = WshShell.Environment("PROCESS");
var WshSystemEnv = WshShell.Environment("SYSTEM");
var WshUserEnv = WshShell.Environment("USER");
var logtalk_home;
if (WshProcessEnv.Item("LOGTALKUSER"))
logtalk_home = WshProcessEnv.Item("LOGTALKUSER");
else if (WshSystemEnv.Item("LOGTALKUSER"))
logtalk_home = WshSystemEnv.Item("LOGTALKUSER");
var logtalk_home;
var logtalk_user;
if (WshSystemEnv.Item("LOGTALKHOME"))
logtalk_home = WshSystemEnv.Item("LOGTALKHOME");
else if (WshUserEnv.Item("LOGTALKHOME"))
logtalk_home = WshUserEnv.Item("LOGTALKHOME")
else {
WScript.Echo("Error! The environment variable LOGTALKHOME must be defined first!");
usage_help();
WScript.Quit(1);
}
if (WshSystemEnv.Item("LOGTALKUSER"))
logtalk_user = WshSystemEnv.Item("LOGTALKUSER");
else if (WshUserEnv.Item("LOGTALKUSER"))
logtalk_home = WshUserEnv.Item("LOGTALKUSER")
logtalk_user = WshUserEnv.Item("LOGTALKUSER")
else {
WScript.Echo("Error! The environment variable LOGTALKUSER must be defined first!");
usage_help();
@@ -70,9 +74,21 @@ if (i_arg != "")
if (t_arg != "")
index_title=t_arg;
FSObject.CopyFile(logtalk_home + "\\xml\\" + spec, directory + "\\" + spec);
FSObject.CopyFile(logtalk_home + "\\xml\\" + xslt, directory + "\\" + xslt);
FSObject.CopyFile(logtalk_home + "\\xml\\" + css, directory + "\\" + css);
if (!FSObject.FileExists(directory + "\\logtalk.dtd")) {
FSObject.CopyFile(logtalk_home + "\\xml\\logtalk.dtd", directory + "\\logtalk.dtd");
}
if (!FSObject.FileExists(directory + "\\logtalk.xsd")) {
FSObject.CopyFile(logtalk_home + "\\xml\\logtalk.xsd", directory + "\\logtalk.xsd");
}
if (!FSObject.FileExists(directory + "\\logtalk.css")) {
FSObject.CopyFile(logtalk_user + "\\xml\\logtalk.css", directory + "\\logtalk.css");
}
if (!FSObject.FileExists(directory + "\\lgtxml.xsl")) {
FSObject.CopyFile(logtalk_user + "\\xml\\lgtxml.xsl", directory + "\\lgtxml.xsl");
}
WScript.Echo("");
WScript.Echo("generating index file...");