dir-lib.ss

The library dir-lib.ss provides two-structures and one operation:
  • (define-struct dir (names dirs files))
  • (define-struct fil (name))
  • create-dir, which consumes a directory path (i.e. a string) and produces a directory.
  • The library relies on two data definitions:
  • A directory is (make-dir string[path] (listof directory) (listof file))
  • A file is (make-fil string[file name])
  • Sample: Set library to dir-lib.ss and execute:
    > (create-dir ".")
    (make-dir
      '|.|
      empty
      (cons (make-fil 'ball1.gif 1289 empty)
            (cons (make-fil 'blueball.gif 205 empty)
                  (cons (make-fil 'greenbal.gif 204 empty)
                        (cons (make-fil 'redball.gif 203 empty)
                              (cons (make-fil 'ufo.gif 1044 empty)
                                    (cons (make-fil 'gif-test.ss 5811 empty)
                                          empty)))))))