string flat_map(mapping mp) {
    mapping carte = ([]);
    mixed key, val;
    string retkey, retval, retstring;

    retstring = "";

    carte = expand_keys(mp);

    foreach( key, val in carte){
	if(arrayp(key)){
	    if(!sizeof(key)) retkey = "BLANK ARRAY";
	    else retkey = "ARRAY ("+implode(key,", ")+")";
	}
	else if(objectp(key)) retkey = "OBJECT ("+file_name(key)+")";
	else if(intp(key)) retkey = ""+key;
	else retkey = key;
	if(arrayp(val)){
	    if(!sizeof(val)) retval = "BLANK ARRAY";
	    else retval = "ARRAY ("+implode(val,", ")+")";
	}
	else if(objectp(val)) retval = "OBJECT ("+file_name(val)+")";
	else if(intp(val)) retval = ""+val;
	else retval = val;

	if(!retstring || retstring == "") retstring = retkey+":"+retval;
	else retstring += ", "+retkey+":"+retval;
    }

    return retstring;

}

varargs mapping add_maps(mapping FirstMapping,mapping  SecondMapping, int preference){
    mapping OutMap = ([]);
    mapping FirstMap = copy(FirstMapping);
    mapping SecondMap = copy(SecondMapping);
    mixed *schluessel1 = ({});
    mixed *schluessel2 = ({});

    if(!SecondMap) SecondMap = ([]);

    schluessel1 = keys(FirstMap);
    schluessel2 = keys(SecondMap);

    if(!preference) preference = 0;

    if(sizeof(schluessel1))
	foreach(mixed element in schluessel1){
	OutMap[element] = copy(FirstMap[element]);
    }

    if(sizeof(schluessel2))
	foreach(mixed element in schluessel2){
	if(member_array(element,schluessel1) != -1 && preference == 1)
	    OutMap[element] = copy(FirstMap[element]);
	else OutMap[element] = copy(SecondMap[element]);
    }

    return OutMap;
}

int mgrepp(string primary, string *sub){
    foreach(string element in sub){
	if(strsrch(primary,element) != -1) return 0;
    }
    return 1;
}

mixed mapping_member(mapping Map, string sub){
    foreach(mixed key, mixed val in Map){
	if(stringp(key) && key == sub) return key;
	else if(arrayp(key) && member_array(sub, key) != -1) return key;
    }
    return 0;
}