;;
-;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
+;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;;
;; This code is free software; you can redistribute it and/or
;; modify it under the terms of the version 2.1 of
-;; the GNU Lesser General Public License as published by
+;; the GNU Lesser General Public License as published by
;; the Free Software Foundation, as clarified by the AllegroServe
;; prequel found in license-allegroserve.txt.
;;
;; merchantability or fitness for a particular purpose. See the GNU
;; Lesser General Public License for more details.
;;
-;; Version 2.1 of the GNU Lesser General Public License is in the file
+;; Version 2.1 of the GNU Lesser General Public License is in the file
;; license-lgpl.txt that was distributed with this file.
;; If it is not present, you can access it from
;; http://www.gnu.org/copyleft/lesser.txt (until superseded by a newer
-;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
+;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
;; Suite 330, Boston, MA 02111-1307 USA
;;
-;; Change Log
+;; Change Log
;;
;; 10/14/00 add namespace example; xml-error related change
(defun test-one-file (int external-callback)
(let ((filename (concatenate 'string (format nil "~3,'0d" int) ".xml")))
- (equalp (with-open-file (p filename)
- (parse-xml p :external-callback external-callback
- :content-only t))
- (with-open-file (p (concatenate 'string "out/" filename))
- (parse-xml p)))))
+ (equalp (with-open-file (p filename)
+ (parse-xml p :external-callback external-callback
+ :content-only t))
+ (with-open-file (p (concatenate 'string "out/" filename))
+ (parse-xml p)))))
(defun test-some-files (max &key skip-list external-callback)
(dotimes (i max)
(if* (member (+ 1 i) skip-list) then
- (format t "i: ~s skipping...~%" (+ 1 i))
+ (format t "i: ~s skipping...~%" (+ 1 i))
else
- (format t "i: ~s equalp: ~s~%" (+ 1 i) (test-one-file (+ 1 i) external-callback)))))
+ (format t "i: ~s equalp: ~s~%" (+ 1 i) (test-one-file (+ 1 i) external-callback)))))
;; have to be in valid/sa directory when this is run
(defun test-sa-files ()
(defun test-one-bad-file (filename external-callback)
(ignore-errors
- (with-open-file (p filename)
+ (with-open-file (p filename)
(parse-xml p :external-callback external-callback
- :content-only t))))
+ :content-only t))))
(defun test-some-bad-files (max external-callback)
(dotimes (i max)
(let* ((index (+ 1 i))
- (filename (concatenate 'string (format nil "~3,'0d" index) ".xml")))
+ (filename (concatenate 'string (format nil "~3,'0d" index) ".xml")))
(multiple-value-bind (val error)
- (test-one-bad-file filename external-callback)
- (format t "i: ~s error: ~s~%"
- index (if error
- (simple-condition-format-arguments error) val))))))
+ (test-one-bad-file filename external-callback)
+ (format t "i: ~s error: ~s~%"
+ index (if error
+ (simple-condition-format-arguments error) val))))))
;; have to be in not-wf/sa directory when this is run
(defun test-not-wf-sa-files ()
(setf var-name (uri-path var-name))
(if* (equal var-name "null") then nil
else
- (let ((string (eval (intern var-name (find-package :user)))))
- (make-string-input-stream string))))
+ (let ((string (eval (intern var-name (find-package :user)))))
+ (make-string-input-stream string))))
(defvar *xml-example-string*
"<?xml version='1.0' encoding='utf-8'?>