/
CDC-1.2b/
CDC-1.2b/src/
parent $misc
object $filters

var $root child_index 1
var $root owners [$core]
var $root owned [$filters]
var $root fertile 0
var $root inited 1
var $root manager $filters
var $root writable [$filters]
var $root readable ['parameters, 'methods, 'code]
var $root dbref 'filters

method compress
    arg input;
    var e, output;
    
    // only goes 1 element deep--sorry, anybody sending anything past that will
    // be shot.
    output = [];
    if (type(input) == 'list) {
        for e in (input) {
            if (type(e) == 'list)
                output = [@output, @e];
            else
                output = [@output, e];
        }
    } else {
        output = [input];
    }
    return output;
.