1 12687dd9 2023-08-04 jrmu ;; The first three lines of this file were inserted by DrScheme. They record metadata
2 12687dd9 2023-08-04 jrmu ;; about the language level of this file in a form that our tools can easily process.
3 12687dd9 2023-08-04 jrmu #reader(lib "htdp-intermediate-reader.ss" "lang")((modname 16.3.4) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "dir.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "dir.ss" "teachpack" "htdp")))))
4 12687dd9 2023-08-04 jrmu ;(define-struct file (name size content))
6 12687dd9 2023-08-04 jrmu ;A file is a structure
7 12687dd9 2023-08-04 jrmu ;(make-file name size content) where name is a symbol, size is a number, and content is a Scheme datum.
9 12687dd9 2023-08-04 jrmu ;A list-of-files (lof) is either
10 12687dd9 2023-08-04 jrmu ;1. empty or
11 12687dd9 2023-08-04 jrmu ;2. (cons f lof) where f is a file and lof is a list-of-files.
13 12687dd9 2023-08-04 jrmu ;(define-struct dir (name dirs files))
15 12687dd9 2023-08-04 jrmu ;A directory (dir) is a structure (make-dir n d f) where n is a symbol, d is a list-of-dirs, and f is a list-of-files.
17 12687dd9 2023-08-04 jrmu ;A list-of-dirs (lod) is either
18 12687dd9 2023-08-04 jrmu ;1. empty or
19 12687dd9 2023-08-04 jrmu ;2. (cons d lod) where d is a dir and lod is a list-of-dirs.
22 12687dd9 2023-08-04 jrmu ;fun-for-file : file -> ???
23 12687dd9 2023-08-04 jrmu ;(define (fun-for-file a-file)
24 12687dd9 2023-08-04 jrmu ; (... (file-name a-file) ...
25 12687dd9 2023-08-04 jrmu ; ... (file-size a-file) ...
26 12687dd9 2023-08-04 jrmu ; ... (file-content a-file) ...))
28 12687dd9 2023-08-04 jrmu ;fun-for-dir : dir -> ???
29 12687dd9 2023-08-04 jrmu ;(define (fun-for-dir a-dir)
30 12687dd9 2023-08-04 jrmu ; (... (dir-name a-dir) ...
31 12687dd9 2023-08-04 jrmu ; ... (fun-for-lod (dir-dirs a-dir)) ...
32 12687dd9 2023-08-04 jrmu ; ... (fun-for-lof (dir-files a-dir)) ...))
34 12687dd9 2023-08-04 jrmu ;fun-for-lof : lof -> ???
35 12687dd9 2023-08-04 jrmu ;(define (fun-for-lof a-lof)
37 12687dd9 2023-08-04 jrmu ; [(empty? a-lof) ...]
38 12687dd9 2023-08-04 jrmu ; [(cons? a-lof) ... (first a-lof) ...
39 12687dd9 2023-08-04 jrmu ; ... (fun-for-lof (rest a-lof)) ...]))
41 12687dd9 2023-08-04 jrmu ;fun-for-lod : lod -> ???
42 12687dd9 2023-08-04 jrmu ;(define (fun-for-lod a-lod)
44 12687dd9 2023-08-04 jrmu ; [(empty? a-lod) ...]
45 12687dd9 2023-08-04 jrmu ; [(cons? a-lod) ... (fun-for-dir (first a-lod)) ...
46 12687dd9 2023-08-04 jrmu ; ... (fun-for-lod (rest a-lod)) ...]))
48 12687dd9 2023-08-04 jrmu (define hang (make-file 'hang 8 empty))
49 12687dd9 2023-08-04 jrmu (define draw-1 (make-file 'draw 2 empty))
50 12687dd9 2023-08-04 jrmu (define read!-1 (make-file 'read! 19 empty))
51 12687dd9 2023-08-04 jrmu (define part1 (make-file 'part1 99 empty))
52 12687dd9 2023-08-04 jrmu (define part2 (make-file 'part2 52 empty))
53 12687dd9 2023-08-04 jrmu (define part3 (make-file 'part3 17 empty))
54 12687dd9 2023-08-04 jrmu (define read!-2 (make-file 'read! 10 empty))
55 12687dd9 2023-08-04 jrmu (define Code (make-dir 'Code empty (list hang draw-1)))
56 12687dd9 2023-08-04 jrmu (define Docs (make-dir 'Docs empty (list read!-1)))
57 12687dd9 2023-08-04 jrmu (define Libs (make-dir 'Libs (list Code Docs) empty))
58 12687dd9 2023-08-04 jrmu (define Text (make-dir 'Text empty (list part1 part2 part3)))
59 12687dd9 2023-08-04 jrmu (define TS (make-dir 'TS (list Text Libs) (list read!-2)))
61 12687dd9 2023-08-04 jrmu ;how-many : dir -> number
62 12687dd9 2023-08-04 jrmu ;Given a-dir, determine the number of files in the dir tree.
63 12687dd9 2023-08-04 jrmu (define (how-many a-dir)
64 12687dd9 2023-08-04 jrmu (+ (length (dir-files a-dir))
65 12687dd9 2023-08-04 jrmu (how-many-lod (dir-dirs a-dir))))
67 12687dd9 2023-08-04 jrmu ;how-many-lod : lod -> number
68 12687dd9 2023-08-04 jrmu ;Given a-lod, determine the number of files in the list of directories, counting files contained in all subdirectories.
69 12687dd9 2023-08-04 jrmu (define (how-many-lod a-lod)
71 12687dd9 2023-08-04 jrmu [(empty? a-lod) 0]
72 12687dd9 2023-08-04 jrmu [(cons? a-lod) (+ (how-many (first a-lod))
73 12687dd9 2023-08-04 jrmu (how-many-lod (rest a-lod)))]))
75 12687dd9 2023-08-04 jrmu ;du-dir : dir -> number
76 12687dd9 2023-08-04 jrmu ;Given a-dir, computes the total size (disk usage, du) of all files in the directory tree. Assumes that for a given directory, storing a file or a directory costs 1 unit of storage space.
78 12687dd9 2023-08-04 jrmu (define (du-dir a-dir)
79 12687dd9 2023-08-04 jrmu (+ (length (dir-dirs a-dir))
80 12687dd9 2023-08-04 jrmu (length (dir-files a-dir))
81 12687dd9 2023-08-04 jrmu (du-lod (dir-dirs a-dir))
82 12687dd9 2023-08-04 jrmu (du-lof (dir-files a-dir))))
84 12687dd9 2023-08-04 jrmu ;du-lof : lof -> number
85 12687dd9 2023-08-04 jrmu ;Given a-lof, compute the disk usage of the list-of-files.
86 12687dd9 2023-08-04 jrmu (define (du-lof a-lof)
88 12687dd9 2023-08-04 jrmu [(empty? a-lof) 0]
89 12687dd9 2023-08-04 jrmu [(cons? a-lof) (+ (file-size (first a-lof))
90 12687dd9 2023-08-04 jrmu (du-lof (rest a-lof)))]))
92 12687dd9 2023-08-04 jrmu ;du-lod : lod -> number
93 12687dd9 2023-08-04 jrmu (define (du-lod a-lod)
95 12687dd9 2023-08-04 jrmu [(empty? a-lod) 0]
96 12687dd9 2023-08-04 jrmu [(cons? a-lod) (+ (du-dir (first a-lod))
97 12687dd9 2023-08-04 jrmu (du-lod (rest a-lod)))]))
99 12687dd9 2023-08-04 jrmu ;find? : dir symbol -> boolean
100 12687dd9 2023-08-04 jrmu ;Given a-dir and a-filename, determine if the file is located within the dir tree.
101 12687dd9 2023-08-04 jrmu (define (find? a-dir a-filename)
102 12687dd9 2023-08-04 jrmu (or (find?-for-lod (dir-dirs a-dir) a-filename)
103 12687dd9 2023-08-04 jrmu (find?-for-lof (dir-files a-dir) a-filename)))
105 12687dd9 2023-08-04 jrmu ;find?-for-lof : lof symbol -> boolean
106 12687dd9 2023-08-04 jrmu (define (find?-for-lof a-lof a-filename)
108 12687dd9 2023-08-04 jrmu [(empty? a-lof) false]
109 12687dd9 2023-08-04 jrmu [(cons? a-lof) (or
110 12687dd9 2023-08-04 jrmu (symbol=? a-filename (file-name (first a-lof)))
111 12687dd9 2023-08-04 jrmu (find?-for-lof (rest a-lof) a-filename))]))
113 12687dd9 2023-08-04 jrmu ;find?-for-lod : lod symbol -> boolean
114 12687dd9 2023-08-04 jrmu (define (find?-for-lod a-lod a-filename)
116 12687dd9 2023-08-04 jrmu [(empty? a-lod) false]
117 12687dd9 2023-08-04 jrmu [(cons? a-lod) (or (find? (first a-lod) a-filename)
118 12687dd9 2023-08-04 jrmu (find?-for-lod (rest a-lod) a-filename))]))
119 12687dd9 2023-08-04 jrmu ;Data Definition:
120 12687dd9 2023-08-04 jrmu ;A path is a list of directory names (list-of-symbols). In this instance, a path is a list which contains the name of the directory being searched as well as the sub-directory (or subdirectories) containing the file.
122 12687dd9 2023-08-04 jrmu ;A list-of-symbols is either
123 12687dd9 2023-08-04 jrmu ;1. empty or
124 12687dd9 2023-08-04 jrmu ;2. (cons s los) where s is a symbol and los is a list-of-symbols.
126 12687dd9 2023-08-04 jrmu ;find : dir symbol -> path/false
127 12687dd9 2023-08-04 jrmu ;Given a-dir and a-filename, find the subdirectory of a-dir which contains the file with the corresponding name. Return a path containing a-dir as well as the subdirectory (or subdirectories) containing a-filename. If the file is not present in the dir tree, return false.
129 12687dd9 2023-08-04 jrmu (define (find a-dir a-filename)
131 12687dd9 2023-08-04 jrmu [(find?-for-lof (dir-files a-dir) a-filename)
132 12687dd9 2023-08-04 jrmu (find-path-for-dir a-dir a-filename)]
133 12687dd9 2023-08-04 jrmu [(find? a-dir a-filename) (append (list (dir-name a-dir))
134 12687dd9 2023-08-04 jrmu (find-path-for-dir a-dir a-filename))]
135 12687dd9 2023-08-04 jrmu [else false]))
137 12687dd9 2023-08-04 jrmu ;find-path-for-dir : dir symbol -> path (list-of-symbols)
138 12687dd9 2023-08-04 jrmu ;Given a-dir and a-filename, return the name of the subdirectory (or subdirectories) that contains a-filename as a list-of-symbols. If the file is not present in the dir tree, return empty.
140 12687dd9 2023-08-04 jrmu (define (find-path-for-dir a-dir a-filename)
142 12687dd9 2023-08-04 jrmu [(find?-for-lof (dir-files a-dir) a-filename)
143 12687dd9 2023-08-04 jrmu (append (list (dir-name a-dir))
144 12687dd9 2023-08-04 jrmu (find-path-for-lod (dir-dirs a-dir) a-filename))]
145 12687dd9 2023-08-04 jrmu [else (find-path-for-lod (dir-dirs a-dir) a-filename)]))
147 12687dd9 2023-08-04 jrmu ;find-path-for-lod : lod symbol -> path (list-of-symbols)
148 12687dd9 2023-08-04 jrmu ;Given a-lod and a-filename, return the name of the subdirectory (or subdirectories) that contains a-filename as a list-of-symbols. If the file is not present in the dir trees of the list-of-directories, return empty.
150 12687dd9 2023-08-04 jrmu (define (find-path-for-lod a-lod a-filename)
152 12687dd9 2023-08-04 jrmu [(empty? a-lod) empty]
153 12687dd9 2023-08-04 jrmu [(cons? a-lod) (append (find-path-for-dir (first a-lod) a-filename)
154 12687dd9 2023-08-04 jrmu (find-path-for-lod (rest a-lod) a-filename))]))
155 12687dd9 2023-08-04 jrmu (find (create-dir "C:\\Documents and Settings\\Aaron Lin\\Desktop\\Scheme Test") '|file A.txt|)
