scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

xanadu - btree

This commit is contained in:
erana 2012-01-21 16:53:32 +09:00
parent 2c7e196b18
commit f9f07da672
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
scsh/xanadu/xml.scm
View File

@ -39,18 +39,18 @@
(let ((tagged 0)) (let ((tagged 0))
(do ((c (read-char in) (read-char in))) (do ((c (read-char in) (read-char in)))
((eof-object? c) contents) ((eof-object? c) contents)
(cond ((and (= tagged 0)(eq? c #\<)) (cond ((and (= tagged 0)(eq? c #\<))
(set! tagged (+ tagged 1))) (set! tagged (+ tagged 1)))
((and (> tagged 0)(eq? c #\<)) ((and (> tagged 0)(eq? c #\<))
(set! tagged (+ tagged 1))) (set! tagged (+ tagged 1)))
((and (= tagged 0)(eq? c #\>)) ((and (= tagged 0)(eq? c #\>))
(set! tagged (- tagged 1))) (set! tagged (- tagged 1)))
((and (> tagged 0)(eq? c #\>)) ((and (> tagged 0)(eq? c #\>))
(set! tagged (- tagged 1))) (set! tagged (- tagged 1)))
((< tagged 0) ((< tagged 0)
(display "xml : bad xml file - broken tags.")(newline) (display "xml : bad xml file - broken tags.")(newline)
(set! tagged 0)) (set! tagged 0))
) )
(set! contents (string-append contents (tagify! c tagged)))))) (set! contents (string-append contents (tagify! c tagged))))))
(xml-read-in-file contents))) (xml-read-in-file contents)))