/*    /secure/sefun/expand_keys.c
 *    from the Dead Souls Object Library
 *    takes a mapping with array keys and flattens the arrays
 *    created by Descartes of Borg 951013
 */
mapping expand_keys(mapping mp) {
    mapping tmp = ([]);
    mixed key, val;
    foreach(key, val in mp) {
        if( arrayp(key) ) {
            string elem;
            foreach(elem in key) tmp[elem] = val;
        }
        else tmp[key] = val;
    }
    return tmp;
}