44 lines
1.5 KiB
Racket
44 lines
1.5 KiB
Racket
#lang scribble/doc
|
|
|
|
@(require scribble/manual "shared.rkt"
|
|
(for-label (except-in racket/base file-size)
|
|
teachpack/htdp/dir
|
|
racket/contract))
|
|
|
|
@teachpack["dir"]{Working with Files and Directories}
|
|
|
|
@;declare-exporting[teachpack/htdp/dir]
|
|
@defmodule[#:require-form beginner-require htdp/dir]
|
|
|
|
The teachpack provides structures and functions for working with files and
|
|
directories:
|
|
|
|
@defstruct[dir ([name symbol?][dirs (listof dir?)][files (listof file?)])]{}
|
|
|
|
@defstruct[file ([name symbol?][size integer?][content (listof char?)])]{}
|
|
|
|
@defproc[(create-dir [path symbol?]) dir?]{
|
|
Turns the directory found at @racket[path] on your computer into an instance of @racket[dir?].}
|
|
|
|
Sample: Set teachpack to @filepath{dir.rkt} and click Run:
|
|
@(begin
|
|
#reader scribble/comment-reader
|
|
(racketblock
|
|
> (create-dir ".")
|
|
(make-dir
|
|
'|.|
|
|
empty
|
|
(cons (make-file 'ball1.gif 1289 empty)
|
|
(cons (make-file 'blueball.gif 205 empty)
|
|
(cons (make-file 'greenbal.gif 204 empty)
|
|
(cons (make-file 'redball.gif 203 empty)
|
|
(cons (make-file 'ufo.gif 1044 empty)
|
|
(cons (make-file 'gif-test.rkt 5811 empty)
|
|
empty)))))))
|
|
))
|
|
Using ``.'' usually means the directory in which your program is
|
|
located. In this case, the directory contains no sub-directories and six
|
|
files.
|
|
|
|
Note: Soft links are always treated as if they were empty files.
|