View/Edit #21:parse_directory

Name(s): parse_directory

1:  dir = $file_utils:relative_dir(@args)
2:  {?type, ?object} = $string_utils:explode(dir, "/")
3:  if (`type ! E_VARNF' == E_VARNF)
4:    return {"", #-1}
5:  elseif (!(type in {"verbs", "props", "files"}))
6:    return 0
7:  elseif (`object ! E_VARNF' == E_VARNF)
8:    return {type, #-1}
9:  elseif ($string_utils:is_numeric(object) && valid(o = toobj(toint(object))))
10:   return {type, o}
11: elseif (`valid(o = #0.(object)) ! ANY')
12:   return {type, o}
13: else
14:   return 0
15: endif
16: "Last modified by manta (#7165) on Mon Jan 17 23:07:07 2000 MST."
17: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
18: "Last modified by Dax (#789) on Tue May  3 14:11:54 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.