Directory

> File
<object (delegates to 1 object)>
  canonicalize-path: (fn: <object>) := ...

  rename: (from: <object>) to: (to: <object>) := ...

  delete: (fn: <object>) := ...

  new: (fn: <object>) := Port new: fn

  open: (fn: <object>) := Port new: fn

  copy: (from: <object>) to: (to: <object>) := ...

  move: (from: <object>) to: (to: <object>) := File rename: from to: to

  exists?: (fn: <object>) := ...

> Directory
<object (delegates to 1 object)>
  current := ...
  user-documents := ...
  temporary := ...
  home := ...

  current: (path: <object>) := ...

  rename: (from: <object>) to: (to: <object>) := ...

  contents: (path: <object>) := ...

  create-if-missing: (path: <object>) := ...

  create-tree-if-missing: (path: <object>) := ...

  user-data-for: (app: <object>) := ...

  create: (path: <object>) := ...

  move: (from: <object>) to: (to: <object>) := Directory rename: from to: to

  remove: (path: <object>) := ...

  remove-recursive: (path: <object>) := ...

  exists?: (path: <object>) := ...

>