/*    /adm/simul_efun/copy.c
 *    from Nightmare IV
 *    returns a copy of an array or mapping rather than that array or mapping
 *    created by Descartes of Borg 940204
 *    based upon an older simul_efun of the same name by Buddha@TMI-2
 */

mixed copy(mixed val) {
    mixed *cles;
    mixed ret;
    int i, maxi;

    if(mapp(val)) {
        ret = allocate_mapping(maxi = sizeof(cles = keys(val)));
        for(i= 0; i< maxi; i++) ret[cles[i]] = copy(val[cles[i]]);
        return ret;
    }
    else if(pointerp(val)) {
        ret = allocate(maxi = sizeof(val));
        for(i=0; i<maxi; i++) ret[i] = copy(val[i]);
        return ret;
    }
    return val;
}