Lines Matching defs:tree
7 ;; Keywords: pcl-cvs cvs status tree tools
30 ;; - Somehow allow cvs-status-tree to work on-the-fly
62 ;; ["Show Tag Trees" cvs-status-tree t]
218 (defun cvs-tree-print (tags printer column)
219 "Print the tree of TAGS where each tag's string is given by PRINTER.
224 The tree will be printed no closer than column COLUMN."
236 (cvs-tree-print rest printer column))))
249 (cvs-tree-print (cvs-append brrev brfill (cvs-cdr br))
257 (defun cvs-tree-merge (tree1 tree2)
276 (more1 (list* rev2 (cvs-tree-merge tree1 (cdr tree2))))
277 (more2 (list* rev1 (cvs-tree-merge (cdr tree1) tree2)))
280 (cvs-tree-merge (cvs-cdr rev1) (cvs-cdr rev2)))
281 (cvs-tree-merge (cdr tree1) (cdr tree2))))))
283 (cvs-tree-merge
286 (cvs-tree-merge
293 (defun cvs-tags->tree (tags)
294 "Make a tree out of a list of TAGS."
306 (push (cvs-tree-merge (pop tags) (pop tags)) tl))
343 (progn ; new tree style listing
381 (cvs-tree-print (cvs-tags->tree tags) 'cvs-tag->string 3)))
391 (defvar cvs-tree-use-jisx0208 nil) ;Old compat var.
392 (defvar cvs-tree-use-charset
394 (cvs-tree-use-jisx0208 'jisx0208)
400 (defconst cvs-tree-char-space
401 (case cvs-tree-use-charset
405 (defconst cvs-tree-char-hbar
406 (case cvs-tree-use-charset
410 (defconst cvs-tree-char-vbar
411 (case cvs-tree-use-charset
415 (defconst cvs-tree-char-branch
416 (case cvs-tree-use-charset
420 (defconst cvs-tree-char-eob ;end of branch
421 (case cvs-tree-use-charset
425 (defconst cvs-tree-char-bob ;beginning of branch
426 (case cvs-tree-use-charset
434 (defvar cvs-tree-nomerge nil)
437 "Look for a list of tags, and replace it with a tree.
440 (when (and cvs-tree-use-charset
443 ;; since we'll use multibyte chars for the tree.
456 (cvs-tree-nomerge (if arg (not cvs-tree-nomerge) cvs-tree-nomerge)))
466 (cvs-tree-tags-insert tags prev))
471 (defun cvs-tree-tags-insert (tags prev)
477 (nprev (if (and cvs-tree-nomerge next
483 (cvs-tree-tags-insert (cdr tags) nprev)))
501 (if next-eq (cons t cvs-tree-char-vbar)
502 (cons t cvs-tree-char-branch))
503 (cons nil cvs-tree-char-bob))
505 (if next-eq (cons nil cvs-tree-char-space)
506 (cons t cvs-tree-char-eob))
509 cvs-tree-char-space
510 cvs-tree-char-hbar))))))
520 (defun cvs-tree-fuzzy-merge-1 (trees tree prev)
523 (defun cvs-tree-fuzzy-merge (trees tree)
527 (defun cvs-tree ()
528 "Get tags from the status output and merge tham all into a big tree."
532 (trees (make-vector 31 0)) tree)
533 (while (listp (setq tree (cvs-tags->tree (cvs-status-get-tags))))
534 (cvs-tree-fuzzy-merge trees tree))
537 (cvs-tree-print tree 'cvs-tag->string 3)))))