/*
 * This is a mudlib file. Copy it to /obj/simul_efun.c, or
 * wherever the get_simul_efun() in master.c says.
 * The functions defined in this file should only be replacements of efuns
 * no longer supported. Don't use these functions any longer, use the
 * replacement instead.
 */

#pragma strict_types
#pragma save_types

/*
 * The ls() function is no longer needed, as get_dir() can do the same
 * work.
 */
void ls(string path) {
    int max, i, len, tmp;
    status trunc_flag;
    string *dir;
#ifndef COMPAT_FLAG
    seteuid(geteuid(previous_object()));
#endif
/*    dir = efun::get_dir(path);  crashes the gd -- demos 911115 */
    dir = get_dir (path);
#ifdef COMPAT_FLAG
    if (path[0] == '/')
        path = extract(path, 1);
    if (path != "")
        path += "/";
#else
    if (path != "/")
        path += "/";
#endif
    if (!dir) {
        write("No such directory.\n");
        return;
    }
    if (sizeof(dir) > 330)
    {
        dir = dir[0..329];
        trunc_flag = 1;
    }
    for (i=0; i < sizeof(dir); i++) {
        if (file_size(path + "/" + dir[i]) == -2)
            dir[i]+="/";
        len = strlen(dir[i]);
        if (len >= max)
            max = len+1;
    }
    if (max > 79)
        max = 79;
    for (i=0; i < sizeof(dir); i++) {
        string name;
            name = dir[i];
        tmp = strlen(name);
        if (len + tmp > 79) {
            len = 0;
            write("\n");
        }
        write(name);
        if (len + max > 80) {
            write("\n");
            len = 0;
        } else {
            write(extract(
"                                                                                ",
                80-max+tmp));
            len += max;
        }
    }
    write("\n");
    if (trunc_flag) write("***TRUNCATED***\n");
}

/*
 * The old 'slice_array' is no longer needed. Use range argument inside
 * a pair of brackets instead.
 */
mixed *slice_array(mixed *arr, int from, int to) {
    return arr[from..to];
}

/*
 * Don't care log_file() for CD distribution
 */

mixed log_file(string file, string text) {
  mixed rc;
  catch(rc = efun::log_file(file, text));
  return rc;
}

#if 0
/*
 * filter_objects() has been renamed to filter_array().
 */
mixed *filter_objects(mixed *list, string str, object ob, mixed extra) {
    return filter_array(list, str, ob, extra);
}

#endif