80c28e1507
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1357 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
241 lines
7.4 KiB
JavaScript
241 lines
7.4 KiB
JavaScript
// =================================================================
|
|
// Logtalk - Object oriented extension to Prolog
|
|
// Release 2.25.1
|
|
//
|
|
// Copyright (c) 1998-2005 Paulo Moura. All Rights Reserved.
|
|
// =================================================================
|
|
|
|
var WshShell = new ActiveXObject("WScript.Shell");
|
|
|
|
var format = "xhtml";
|
|
// var format = "html";
|
|
|
|
var directory = WshShell.CurrentDirectory;
|
|
|
|
var index_file = "index.html";
|
|
var index_title = "Entity documentation index";
|
|
|
|
var processor = "msxsl";
|
|
// var processor = "xsltproc";
|
|
// var processor = "xalan";
|
|
// var processor = "sabcmd";
|
|
|
|
if (WScript.Arguments.Unnamed.Length > 0) {
|
|
usage_help();
|
|
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");
|
|
else if (WshUserEnv.Item("LOGTALKUSER"))
|
|
logtalk_home = WshUserEnv.Item("LOGTALKUSER")
|
|
else {
|
|
WScript.Echo("Error! The environment variable LOGTALKUSER must be defined first!");
|
|
usage_help();
|
|
WScript.Quit(1);
|
|
}
|
|
|
|
var html_xslt = logtalk_home + "\\xml\\lgthtml.xsl";
|
|
var xhtml_xslt = logtalk_home + "\\xml\\lgtxhtml.xsl";
|
|
|
|
var xslt;
|
|
|
|
var f_arg = "";
|
|
var d_arg = "";
|
|
var i_arg = "";
|
|
var t_arg = "";
|
|
var p_arg = "";
|
|
|
|
if (WScript.Arguments.Named.Exists("f"))
|
|
f_arg = WScript.Arguments.Named.Item("f");
|
|
|
|
if (WScript.Arguments.Named.Exists("d"))
|
|
d_arg = WScript.Arguments.Named.Item("d");
|
|
|
|
if (WScript.Arguments.Named.Exists("i"))
|
|
i_arg = WScript.Arguments.Named.Item("i");
|
|
|
|
if (WScript.Arguments.Named.Exists("t"))
|
|
t_arg = WScript.Arguments.Named.Item("t");
|
|
|
|
if (WScript.Arguments.Named.Exists("p"))
|
|
p_arg = WScript.Arguments.Named.Item("p");
|
|
|
|
if (f_arg != "" && f_arg != "xhtml" && f_arg != "html") {
|
|
WScript.Echo("Error! Unsupported output format: " + f_arg);
|
|
WScript.Echo("");
|
|
usage_help();
|
|
} else if (f_arg != "")
|
|
format = f_arg;
|
|
|
|
var FSObject = new ActiveXObject("Scripting.FileSystemObject");
|
|
|
|
if (d_arg != "" && !FSObject.FolderExists(d_arg)) {
|
|
WScript.Echo("Error! directory does not exists: " + d_arg);
|
|
WScript.Echo("");
|
|
usage_help();
|
|
} else if (d_arg != "")
|
|
directory = d_arg;
|
|
|
|
if (i_arg != "")
|
|
index_file=i_arg;
|
|
|
|
if (t_arg != "")
|
|
index_title=t_arg;
|
|
|
|
if (p_arg != "" && p_arg != "xsltproc" && p_arg != "xalan" && p_arg != "sabcmd") {
|
|
WScript.Echo("Error! Unsupported XSLT processor:" + p_arg);
|
|
WScript.Echo("");
|
|
usage_help();
|
|
} else if (p_arg != "")
|
|
processor = p_arg;
|
|
|
|
if (format == "xhtml")
|
|
xslt = xhtml_xslt;
|
|
else
|
|
xslt = html_xslt;
|
|
|
|
FSObject.CopyFile(logtalk_home + "\\xml\\logtalk.dtd", WshShell.CurrentDirectory + "\\logtalk.dtd");
|
|
FSObject.CopyFile(logtalk_home + "\\xml\\logtalk.xsd", WshShell.CurrentDirectory + "\\logtalk.xsd");
|
|
FSObject.CopyFile(logtalk_home + "\\xml\\logtalk.css", directory + "\\logtalk.css");
|
|
|
|
WScript.Echo("");
|
|
WScript.Echo("converting XML files...");
|
|
|
|
var files = new Enumerator(FSObject.GetFolder(WshShell.CurrentDirectory).Files);
|
|
|
|
for (files.moveFirst(); !files.atEnd(); files.moveNext()) {
|
|
var file = files.item().name;
|
|
if (FSObject.GetExtensionName(file) == "xml") {
|
|
WScript.Echo(" converting " + file);
|
|
var html_file = directory + "\\" + FSObject.GetBaseName(file) + ".html";
|
|
switch (processor) {
|
|
case "msxsl" :
|
|
WshShell.Run("msxsl -o \"" + html_file + "\" \"" + file + "\" \"" + xslt + "\"", true);
|
|
break;
|
|
case "xsltproc" :
|
|
WshShell.Run("xsltproc -o \"" + html_file + "\" \"" + xslt + "\" \"" + file + "\"", true);
|
|
break;
|
|
case "xalan" :
|
|
WshShell.Run("xalan -o \"" + html_file + "\" \"" + file + "\" \"" + xslt + "\"", true);
|
|
break;
|
|
case "sabcmd" :
|
|
WshShell.Run("sabcmd \"" + xslt + "\" \"" + file + "\" \"" + html_file + "\"", true);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
WScript.Echo("conversion done");
|
|
WScript.Echo("");
|
|
WScript.Echo("generating index file...");
|
|
|
|
index_file = directory + "\\" + index_file;
|
|
create_index_file();
|
|
|
|
WScript.Echo("index file generated");
|
|
WScript.Echo("");
|
|
|
|
FSObject.DeleteFile("logtalk.dtd");
|
|
FSObject.DeleteFile("logtalk.xsd");
|
|
|
|
WScript.Quit(0);
|
|
|
|
function usage_help() {
|
|
WScript.Echo("");
|
|
WScript.Echo("This script converts all Logtalk XML files documenting files in the");
|
|
WScript.Echo("current directory to XHTML or HTML files");
|
|
WScript.Echo("");
|
|
WScript.Echo("Usage:");
|
|
WScript.Echo(" " + WScript.ScriptName + " [/f:format] [/d:directory] [/i:index] [/t:title] [/p:processor]");
|
|
WScript.Echo(" " + WScript.ScriptName + " help");
|
|
WScript.Echo("");
|
|
WScript.Echo("Optional arguments:");
|
|
WScript.Echo(" f - output file format (either xhtml or html; default is " + format + ")");
|
|
WScript.Echo(" d - output directory for the generated files (default is " + directory + ")");
|
|
WScript.Echo(" i - name of the index file (default is " + index_file + ")");
|
|
WScript.Echo(" t - title to be used on the index file (default is " + index_title + ")");
|
|
WScript.Echo(" p - XSLT processor (xsltproc, xalan, or sabcmd; default is " + processor + ")");
|
|
WScript.Echo("");
|
|
WScript.Quit(1);
|
|
}
|
|
|
|
function create_index_file() {
|
|
|
|
var f = FSObject.CreateTextFile(index_file, true);
|
|
|
|
switch (format) {
|
|
case "xhtml" :
|
|
f.WriteLine("<?xml version=\"1.0\" encoding=\"utf-8\"?>");
|
|
f.WriteLine("<?xml-stylesheet href=\"logtalk.css\" type=\"text/css\"?>");
|
|
f.WriteLine("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">");
|
|
f.WriteLine("<html lang=\"en\" xml:lang=\"en\" xmlns=\"http://www.w3.org/1999/xhtml\">");
|
|
break;
|
|
case "html" :
|
|
f.WriteLine("<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">");
|
|
f.WriteLine("<html>");
|
|
break;
|
|
}
|
|
|
|
f.WriteLine("<head>");
|
|
f.WriteLine(" <meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\"/>");
|
|
f.WriteLine(" <title>" + index_title + "</title>");
|
|
f.WriteLine(" <link rel=\"stylesheet\" href=\"logtalk.css\" type=\"text/css\"/>");
|
|
f.WriteLine("</head>");
|
|
f.WriteLine("<body>");
|
|
f.WriteLine("<h1>" + index_title + "</h1>");
|
|
f.WriteLine("<ul>");
|
|
|
|
var files = new Enumerator(FSObject.GetFolder(WshShell.CurrentDirectory).Files);
|
|
|
|
for (files.moveFirst(); !files.atEnd(); files.moveNext()) {
|
|
var file = files.item().name;
|
|
if (FSObject.GetExtensionName(file) == "xml") {
|
|
var html_file = FSObject.GetBaseName(file) + ".html";
|
|
WScript.Echo(" indexing " + html_file);
|
|
var index = FSObject.GetBaseName(file).lastIndexOf("_");
|
|
var pars = FSObject.GetBaseName(file).slice(index+1);
|
|
var entity = FSObject.GetBaseName(file).slice(0, index);
|
|
if (pars == 0)
|
|
f.WriteLine(" <li><a href=\"" + html_file + "\">" + entity + "</a></li>");
|
|
else
|
|
f.WriteLine(" <li><a href=\"" + html_file + "\">" + entity + "/" + pars + "</a></li>");
|
|
}
|
|
}
|
|
|
|
f.WriteLine("</ul>");
|
|
|
|
var today = new Date();
|
|
var year = today.getFullYear();
|
|
var month = today.getMonth() + 1;
|
|
if (month < 10)
|
|
month = "0" + month;
|
|
day = today.getDate();
|
|
if (day < 10)
|
|
day = "0" + day;
|
|
strToday = year + "/" + month + "/" + day;
|
|
var hours = today.getHours();
|
|
if (hours < 10)
|
|
hours = "0" + hours;
|
|
var mins = today.getMinutes();
|
|
if (mins < 10)
|
|
mins = "0" + mins;
|
|
var secs = today.getSeconds();
|
|
if (secs < 10)
|
|
secs = "0" + secs;
|
|
strTime = hours + ":" + mins + ":" + secs;
|
|
f.WriteLine("<p>Generated on " + strToday + " - " + strTime + "</p>");
|
|
|
|
f.WriteLine("</body>");
|
|
f.WriteLine("</html>");
|
|
|
|
f.Close();
|
|
}
|