SYNOPSIS string top_dir( string path) FILE /kernel/simul_efun/files.h DESCRIPTION Returns the top directory of a path. Example: top_dir("/foo/bar/bla") => "foo"