5f5589e8de
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1175 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
128 lines
3.8 KiB
JavaScript
128 lines
3.8 KiB
JavaScript
// =================================================================
|
|
// Logtalk - Object oriented extension to Prolog
|
|
// Release 2.21.6
|
|
//
|
|
// Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
|
|
// =================================================================
|
|
|
|
var WshShell = new ActiveXObject("WScript.Shell");
|
|
|
|
var format = "a4";
|
|
// var format = "us";
|
|
|
|
var directory = WshShell.CurrentDirectory;
|
|
|
|
var processor = "fop";
|
|
// var processor = "xep";
|
|
|
|
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("LOGTALKHOME"))
|
|
logtalk_home = WshProcessEnv.Item("LOGTALKHOME");
|
|
else 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);
|
|
}
|
|
|
|
logtalk_home = logtalk_home.replace(/\\/g, "\\\\");
|
|
|
|
var a4_xsl = logtalk_home + "\\xml\\lgtpdfa4.xsl";
|
|
var us_xsl = logtalk_home + "\\xml\\lgtpdfus.xsl";
|
|
var xsl;
|
|
|
|
var f_arg = "";
|
|
var d_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("p"))
|
|
p_arg = WScript.Arguments.Named.Item("p");
|
|
|
|
if (f_arg != "" && f_arg != "a4" && f_arg != "us") {
|
|
WScript.Echo("Error! Unsupported paper 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 (p_arg != "" && p_arg != "fop" && p_arg != "xep") {
|
|
WScript.Echo("Error! Unsupported XSL-FO processor:" + p_arg);
|
|
WScript.Echo("");
|
|
usage_help();
|
|
} else if (p_arg != "")
|
|
processor = p_arg;
|
|
|
|
if (format == "a4")
|
|
xsl = a4_xsl;
|
|
else
|
|
xsl = us_xsl;
|
|
|
|
FSObject.CopyFile(logtalk_home + "\\xml\\logtalk.dtd", WshShell.CurrentDirectory + "\\logtalk.dtd");
|
|
FSObject.CopyFile(logtalk_home + "\\xml\\logtalk.xsd", WshShell.CurrentDirectory + "\\logtalk.xsd");
|
|
|
|
WScript.Echo("");
|
|
WScript.Echo("converting XML files to PDF...");
|
|
|
|
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 pdf_file = directory + "\\" + FSObject.GetBaseName(file)+ ".pdf";
|
|
WshShell.Run(processor + " -q -xml " + file + " -xsl " + xsl + " -pdf " + pdf_file, true);
|
|
}
|
|
}
|
|
|
|
WScript.Echo("conversion done");
|
|
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 documenting files in the");
|
|
WScript.Echo("current directory to PDF files");
|
|
WScript.Echo("");
|
|
WScript.Echo("Usage:");
|
|
WScript.Echo(" " + WScript.ScriptName + " [/f:format] [/d:directory] [/p:processor]");
|
|
WScript.Echo(" " + WScript.ScriptName + " help");
|
|
WScript.Echo("");
|
|
WScript.Echo("Optional arguments:");
|
|
WScript.Echo(" f - paper format (either a4 or us; default is " + format + ")");
|
|
WScript.Echo(" d - output directory for the PDF files (default is " + directory + ")");
|
|
WScript.Echo(" p - XSL-FO processor (either fop or xep; default is " + processor + ")");
|
|
WScript.Echo("");
|
|
WScript.Quit(1);
|
|
}
|