OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

indentation fixes for unicode ports

Browse Source 
(thanks to Nathan Bird)
This commit is contained in:
dlichteblau
2006-01-23 21:48:27 +00:00
parent 668f35f119
commit 08e7c8353c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
xml/unparse.lisp
View File

@ -347,7 +347,7 @@
(defun sink-fresh-line (sink) (defun sink-fresh-line (sink)
(unless (zerop (ystream-column (sink-ystream sink))) (unless (zerop (ystream-column (sink-ystream sink)))
(%write-rune 10 sink) (%write-rune #/U+000A sink) ;newline
(indent sink))) (indent sink)))
(defun maybe-close-tag (sink) (defun maybe-close-tag (sink)
@ -440,7 +440,7 @@
(defun indent (sink) (defun indent (sink)
(dotimes (x (current-indentation sink)) (dotimes (x (current-indentation sink))
(%write-rune 32 sink))) (%write-rune #/U+0020 sink))) ; space
(defun start-indentation-block (sink) (defun start-indentation-block (sink)
(incf (current-indentation sink) (indentation sink))) (incf (current-indentation sink) (indentation sink)))
@ -464,7 +464,7 @@
(when need-whitespace-p (when need-whitespace-p
(if (< (+ (ystream-column (sink-ystream sink)) w (- pos)) (if (< (+ (ystream-column (sink-ystream sink)) w (- pos))
(width sink)) (width sink))
(%write-rune 32 sink) (%write-rune #/U+0020 sink)
(sink-fresh-line sink))) (sink-fresh-line sink)))
(loop (loop
with y = (sink-ystream sink) with y = (sink-ystream sink)
@ -473,7 +473,7 @@
(setf need-whitespace-p (< w n)) (setf need-whitespace-p (< w n))
(setf pos next)))) (setf pos next))))
(t (t
(%write-rune 32 sink)))))) (%write-rune #/U+0020 sink))))))
(defun unparse-string (str sink) (defun unparse-string (str sink)
(let ((y (sink-ystream sink))) (let ((y (sink-ystream sink)))