// $Id$ $module "refal.plus.Dir"; $func OpenDir e.dirname = s.dir; $func CloseDir s.dir = ; $func? ReadDir s.dir = e.filename;