1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
|
;;;; xslide-process.el --- Process an XSL stylesheet
;; $Id: xslide-process.el,v 1.3 2003/06/05 22:13:01 tonygraham Exp $
;; Copyright (C) 1998, 1999, 2000, 2001 Tony Graham
;; Author: Tony Graham <tkg@menteith.com>
;;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 2
;; of the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;;; Commentary:
;; Originally copied almost wholesale from psgml.el by Lennart Staflin
;; Send bugs to xslide-bug@menteith.com
;; Use `xsl-submit-bug-report' for bug reports
;;;; Variables:
(defcustom xsl-offer-save t
"*If non-nil, ask about saving modified buffers before \\[xsl-process] is run."
:type '(choice (const :tag "Yes" t) (const :tag "No" nil))
:group 'xsl-process)
(defcustom xsl-process-browse-output nil
"*If non-nil, open output in browser after \\[xsl-process] is run."
:type '(choice (const :tag "Yes" t) (const :tag "No" nil))
:group 'xsl-process)
(defcustom xsl-process-find-output nil
"*If non-nil, find output file after \\[xsl-process] is run."
:type '(choice (const :tag "Yes" t) (const :tag "No" nil))
:group 'xsl-process)
(defcustom xsl-process-command
(list
;; XT Windows executable
"xt %i %s %o"
;; XT Java
"java com.jclark.xsl.Driver %i %s %o"
;; Xalan-Java 2
"java org.apache.xalan.xslt.Process -IN %i -XSL %s -OUT %o"
;; Instant Saxon
"saxon -o %o %i %s"
;; Instant Saxon using xml-stylesheet PI
"saxon -o %o %i"
;; Saxon
"java com.icl.saxon.StyleSheet -o %o %i %s"
;; Saxon using xml-stylesheet PI
"java com.icl.saxon.StyleSheet -o %o %i"
;; xsltproc
"xsltproc -o %o %s %i"
;; jd.xslt
"java jd.xml.xslt.Stylesheet -out %o %i %s"
;; Oracle XDK for Java
"java oracle.xml.parser.v2.oraxsl %i %s %o"
)
"*The shell command to process an XSL document.
This is a `format' control string that by default should contain three
`%s' conversion specifications: the first will be replaced by the
value of `xsl-process-input-file' \(or the empty string, if nil\); the
second will be replaced by `xsl-process-stylesheet-file' \(or the empty
string, if nil\); the third will be replaced by
`xsl-process-output-file' \(or the empty string, if nil\).
If `xsl-process-files' is non-nil, the format string should contain
one `%s' conversion specification for each element of its result.
If `xsl-process-command' is a list, then every element should be a
string. The strings will be tried in order and %-sequences in the
string will be replaced according to the list below, if the string contains
%-sequences with no replacement value the next string will be tried.
%b means the visited file of the current buffer
%i means the value of `xsl-process-input-file'
%s means the value of `xsl-process-stylesheet-file'
%o means the value of `xsl-process-output-file'
"
:type '(repeat :tag "Commands" string)
:group 'xsl-process)
(defvar xsl-process-files nil
"If non-nil, a function of no arguments that returns a list of file names.
These file names will serve as the arguments to the `xsl-process-command'
format control string instead of the defaults.")
(defcustom xsl-process-error-regexps
'(
;; Xalan-Java 2
;; file:///path/to/foo.xsl; Line 9; Column 12; ...
("^file:\\([^;]+\\)\\; Line \\([0-9]+\\)\\;\\( Column \\([0-9]+\\)\\;\\)?"
1 2 4)
;; Saxon
;; Error at xsl:output on line 9 of file:/path/to/foo.xsl:
;; Error on line 9 column 5 of file:/path/to/foo.xsl:
("^Error\\( at [^ ]+\\)? on line \\([0-9]+\\)\\( column \\([0-9]+\\)\\)? of file:\\(\\(/[A-Za-z]:\\)?[^:]+\\):$"
5 2 4)
;; Oracle
;; file:/path/to/foo.xsl<Line 9, Column 17>: ...
("^file:\\([^<]+\\)<Line \\([0-9]+\\)\\(, Column \\([0-9]+\\)\\)?>:"
1 2 4)
;; jd.xslt
;; - uri = file:/path/to/foo.xsl
;; - line = 9
;; - column = -1
;; ...or...
;; - uri = file:/path/to/foo.xsl
;; - element = xsl:output (line 9)
("^- uri[ \t]+= file:\\(.+\\)\\([\r\n+]- \\(\\([^(]*?(\\)?line[ \t]+\\(= \\)?\\([0-9]+\\)\\)?\\)?\\([\r\n]+- column[ \t]+= \\([0-9]+\\)\\)?" 1 6 8)
;; Generic
(".*\\<file:\\(\\(/[A-Za-z]:\\)?[^:]+\\):[ \t]*\\(\\([0-9]+\\):[ \t]*\\(\\([0-9]+\\):\\)?\\)?"
1 4 6)
(".*\\([^ ]+\\.x[ms]l\\):[ \t]*\\([0-9]+\\):[ \t]*\\(\\([0-9]+\\):\\)?"
1 2 4)
("^\\([^:]+\\): \\([0-9]+\\): error:"
1 2)
)
"*Alist of regexps to recognize error messages from `xsl-process'.
See `compilation-error-regexp-alist'."
:type '(repeat :tag "Regexps"
(list (regexp :tag "Regexp")
(integer :tag "File index")
(integer :tag "Line index")
(choice :tag "Column index"
(integer)
(const :tag "None" nil))))
:group 'xsl-process)
(defvar xsl-xml-source nil
"*If non-nil, this is the name of the XML source file.")
(put 'xsl-xml-source 'xsl-type 'string)
(defvar xsl-xsl-result nil
"*If non-nil, this is the name of the XSL result file.")
(put 'xsl-xsl-result 'xsl-type 'string)
(defvar xsl-process-command-history nil
"The minibuffer history list for `xsl-process''s COMMAND argument.")
;;(make-variable-buffer-local 'xsl-process-command-history)
(eval-and-compile
(autoload 'compile-internal "compile" ""))
(defun xsl-subst-expand-char (c parts)
(cdr-safe (assq (downcase c) parts)))
(defun xsl-subst-expand (s parts)
(loop for i from 0 to (1- (length s))
as c = (aref s i)
concat (if (eq c ?%)
(or (xsl-subst-expand-char (aref s (incf i)) parts)
(return nil))
(char-to-string (aref s i)))))
(defun xsl-populate-process-command-history ()
(cond
((consp xsl-process-command)
(let ((process-subst
(list
(cons ?b (and (buffer-file-name)
(file-name-nondirectory (buffer-file-name))))
(cons ?i xsl-process-input-file)
(cons ?s xsl-process-stylesheet-file)
(cons ?o xsl-process-output-file))))
(setq xsl-process-command-history
(append
(mapcar (lambda (x)
(xsl-subst-expand x process-subst))
xsl-process-command)
xsl-process-command-history))))
;; (loop for template in xsl-process-command
;; append
;; (xsl-subst-expand template process-subst)
;; into
;; xsl-process-command-history)))
(t
(apply 'format xsl-process-command
(if xsl-process-files
(funcall xsl-process-files)
(list (or xsl-xml-source "")
(let ((name (buffer-file-name)))
(if name
(file-name-nondirectory name)
""))
(or xsl-xsl-result "")))))))
(defvar xsl-process-input-file nil
"Filename of input file for `xsl-process' command")
(defvar xsl-process-input-history nil
"The minibuffer history list for `xsl-get-process-parameters''s INPUT argument.")
(defvar xsl-process-stylesheet-file nil
"Filename of stylesheet file for `xsl-process' command")
(defvar xsl-process-stylesheet-history nil
"The minibuffer history list for `xsl-get-process-parameters''s STYLESHEET argument.")
(defvar xsl-process-output-file nil
"Filename of output file for `xsl-process' command")
(defvar xsl-process-output-history nil
"The minibuffer history list for `xsl-get-process-parameters''s OUTPUT argument.")
(defun xsl-get-process-parameters ()
"Get and set the parameters for the `xsl-process' command"
(interactive)
(setq xsl-process-input-file
(xsl-read-from-minibuffer "Input file: "
(concat (file-name-sans-extension
(file-name-nondirectory
(buffer-file-name)))
".xml")
'xsl-process-input-history))
(setq xsl-process-stylesheet-file
(xsl-read-from-minibuffer "Stylesheet file: "
(file-name-nondirectory
(buffer-file-name))
'xsl-process-stylesheet-history))
(setq xsl-process-output-file
(xsl-read-from-minibuffer "Output file: "
(concat (file-name-sans-extension
(file-name-nondirectory
xsl-process-input-file))
".html")
'xsl-process-output-history)))
(defun xsl-process (command)
"Process an XSL stylesheet.
Runs COMMAND, a shell command, in a separate process asynchronously
with output going to the buffer *XSL process*. You can then use the
command \\[next-error] to find the next error message and move to the
line in the XSL document that caused it.
The first time that the program is run and whenever you provide a
prefix argument, e.g. \\[universal-argument] \\[xsl-process], prompts
for input filename, stylesheet file, and output filename. Those
values are used with the templates in `xsl-process-command' to
populate this command's command history with the command lines to run
several XSLT processors using those values. Use M-p and M-n to step
through the predefined commands, edit a command if necessary, or enter
a new command line. The next time that this command is run, the
previously executed command is used as the default.
If `xsl-process-browse-output' is non-nil, the filename entered in
response to the \"Output file:\" prompt is opened in a browser using
`browse-url'.
If `xsl-process-view-output' is non-nil, the filename entered in
response to the \"Output file:\" prompt is opened in a buffer."
(interactive
(list (progn
(if (or
current-prefix-arg
(null xsl-process-command-history))
(progn
(xsl-get-process-parameters)
(xsl-populate-process-command-history)))
(read-from-minibuffer "Process command: "
(car xsl-process-command-history)
nil nil
'xsl-process-command-history))))
(if xsl-offer-save
(save-some-buffers nil nil))
(compile-internal command "No more errors" "XSL process"
nil
xsl-process-error-regexps)
(if xsl-process-browse-output
(browse-url xsl-process-output-file))
(if xsl-process-find-output
(switch-to-buffer
(find-file-noselect (expand-file-name xsl-process-output-file)))))
(provide 'xslide-process)
|
