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

xanadu - xml-tree

This commit is contained in:
erana 2012-01-22 14:31:15 +09:00
parent 0def370ecd
commit 25c190d5e0
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scsh/xanadu/b-tree.scm
View File

@ -175,14 +175,19 @@
(vector-set! side-tree i new-node) (vector-set! side-tree i new-node)
(set! i (vector-length side-tree)))) (set! i (vector-length side-tree))))
((let ((data (((vector-ref side-tree i) 'get-data)))) ((let ((data (((vector-ref side-tree i) 'get-data)))
(data2 (((vector-ref side-tree (if (< (- i 1)(vector-length side-tree))
(+ i 1)
i)
) 'get-data))))
(or ;;(and (string=?) (or ;;(and (string=?)
;; (string>? str data)) ;; (string>? str data))
(and (string? data) (and (string? data)
(string=? data "")) (string=? data ""))
(and (string? data) (and (string? data)
(string? data2)
(string<? str data) (string<? str data)
(string>? str data))) (string>? str data2)));;FIXME data2!
(let ((left-and-right (vector-median i side-tree))) (let ((left-and-right (vector-median i side-tree)))
(let ((new-node (make-b-tree-node (car left-and-right) (cadr left-and-right)))) (let ((new-node (make-b-tree-node (car left-and-right) (cadr left-and-right))))
((new-node 'set-data!) str) ((new-node 'set-data!) str)