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

Logtalk 2.20.1 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1117 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2004-08-19 13:46:40 +00:00
parent 15b122b2c9
commit 0018e82503
142 changed files with 571 additions and 217 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Logtalk/xml/lgt2pdf.js
View File

@@ -1,16 +1,12 @@
// =================================================================
// Logtalk - Object oriented extension to Prolog
// Release 2.19.2
// Release 2.20.1
//
// Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
// =================================================================
var WshShell = new ActiveXObject("WScript.Shell");
var a4_xsl = logtalk_home + "\\xml\\lgtpdfa4.xsl";
var us_xsl = logtalk_home + "\\xml\\lgtpdfus.xsl";
var xsl;
var format = "a4";
// var format = "us";
@@ -43,6 +39,10 @@ else {
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 = "";
@@ -63,9 +63,9 @@ if (f_arg != "" && f_arg != "a4" && f_arg != "us") {
} else if (f_arg != "")
format = f_arg;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var FSObject = new ActiveXObject("Scripting.FileSystemObject");
if (d_arg != "" && !fso.FolderExists(d_arg)) {
if (d_arg != "" && !FSObject.FolderExists(d_arg)) {
WScript.Echo("Error! directory does not exists: " + d_arg);
WScript.Echo("");
usage_help();
@@ -84,20 +84,20 @@ if (format == "a4")
else
xsl = us_xsl;
fso.CopyFile(logtalk_home + "\\xml\\logtalk.dtd", WshShell.CurrentDirectory + "\\logtalk.dtd");
fso.CopyFile(logtalk_home + "\\xml\\logtalk.xsd", WshShell.CurrentDirectory + "\\logtalk.xsd");
fso.CopyFile(logtalk_home + "\\xml\\logtalk.css", directory + "\\logtalk.css");
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 to PDF...");
var files = new Enumerator(fso.GetFolder(WshShell.CurrentDirectory).Files);
var files = new Enumerator(FSObject.GetFolder(WshShell.CurrentDirectory).Files);
for (files.moveFirst(); !files.atEnd(); files.moveNext()) {
var file = files.item().name;
if (fso.GetExtensionName(file) == "xml") {
if (FSObject.GetExtensionName(file) == "xml") {
WScript.Echo(" converting " + file);
var pdf_file = directory + "\\" + fso.GetBaseName(file)+ ".pdf";
var pdf_file = directory + "\\" + FSObject.GetBaseName(file)+ ".pdf";
WshShell.Run(processor + " -q -xml " + file + " -xsl " + xsl + " -pdf " + pdf_file, true);
}
}
@@ -105,8 +105,8 @@ for (files.moveFirst(); !files.atEnd(); files.moveNext()) {
WScript.Echo("conversion done");
WScript.Echo("");
fso.DeleteFile("logtalk.dtd");
fso.DeleteFile("logtalk.xsd");
FSObject.DeleteFile("logtalk.dtd");
FSObject.DeleteFile("logtalk.xsd");
WScript.Quit(0);