View/Edit #1247:pack

Name(s): pack

1:  map = args[1]
2:  while (this:row_empty(map[1]))
3:    map = map[2..$]
4:  endwhile
5:  while (this:row_empty(map[$]))
6:    map = map[1..$ - 1]
7:  endwhile
8:  while (this:col_empty(map, 1))
9:    newmap = {}
10:   for x in (map)
11:     newmap = {@newmap, x[2..$]}
12:   endfor
13:   $command_utils:suspend_if_needed(0)
14:   map = newmap
15: endwhile
16: while (this:col_empty(map, length(map[1])))
17:   newmap = {}
18:   for x in (map)
19:     newmap = {@newmap, x[1..$ - 1]}
20:   endfor
21:   $command_utils:suspend_if_needed(0)
22:   map = newmap
23: endwhile
24: return map
25: "Last modified by Avenger (#8219) on Sun Sep  8 19:49:12 2002 MDT."

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

You are not logged in.