View/Edit #1997:write

Switch to edit mode.

Name(s): write
1:  {object, level} = args
2:  kids = children(object)
3:  $command_utils:suspend_if_needed(1)
4:  if (object in this.no_show)
5:    this:fileappend(this.filename + ".new", {$string_utils:space(level - 1) + $string_utils:trim(tostr($html_utils:detag(object.name), " (", object, ")")), tostr($string_utils:space(level), "[", length(kids), " children skipped]")})
6:  else
7:    this:fileappend(this.filename + ".new", $string_utils:space(level - 1) + $string_utils:trim(tostr($html_utils:detag(object.name), " (", object, ")")))
8:    if (kids)
9:      with = without = {}
10:     for kid in (kids)
11:       $command_utils:suspend_if_needed(1)
12:       if (children(kid))
13:         with = {@with, kid}
14:       else
15:         without = {@without, kid}
16:       endif
17:     endfor
18:     with = $list_utils:sort(with)
19:     without = $list_utils:sort(without)
20:     for kid in ({@with, @without})
21:       $command_utils:suspend_if_needed(1)
22:       this:(verb)(kid, level + 1)
23:     endfor
24:   endif
25: endif
26: "Last modified by Dax (#789) on Sat Jan 20 13:38:48 2001 MST."

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

You are not logged in.

[home | help | who | search | setup | code]