5fe14f70b6
subtree is complete with no need to rehack its root. Simplifies a bunch of code, and makes some utilities redundant. * Using a single struct for all nodes, with subs=#f to mark files * Names of struct is generic, no relation to actual files and dirs * Added more tests svn: r17527
24 lines
588 B
Scheme
24 lines
588 B
Scheme
#lang scheme/base
|
|
|
|
(require "tree.ss" setup/dirs)
|
|
|
|
(define (get-plt-tree)
|
|
(when absolute-installation?
|
|
(error 'get-plt-tree "must be used from a relative installation"))
|
|
(get-tree (build-path (find-collects-dir) 'up)))
|
|
|
|
#| good for benchmarking changes
|
|
(printf "getting tree ")
|
|
(define t (time (get-plt-tree)))
|
|
;;!!! (printf "adding deps ")
|
|
;;!!! (time (add-deps! t))
|
|
(printf "filtering x 1000 ")
|
|
(time
|
|
(for ([i (in-range 1000)]) ; print-tree
|
|
(tree-filter
|
|
(not: (or: "**/.svn/" "**/compiled/"))
|
|
;; (get-tree "/home/scheme/plt/collects/scribble/.svn")
|
|
t
|
|
)))
|
|
|#
|