// File: callouts.c
//   Dumps info on the status of callouts in the mud; aka Call_Out Debugger
//
// Creator: Archimedes@TMI-2
//   Mobydick got sick of seeing them lying around so made it into an
//   autoloading object :)  7-1-93, aka Arawn 1 185.
//
// Revision:
//   07-03-93 - adapted /obj/tools/cod.c into a wiz command

#include <config.h>
#include <mudlib.h>

inherit DAEMON;

int cmd_callouts(string arg) {
    int i, s;
    string *stuff, ob;
    mixed *info;

    info = call_out_info();
    s = sizeof(info);
    i = s;
    stuff = ({ });

    if (arg == "-v") {
        stuff += ({ sprintf("%-35s%-20s%-10s%-15s",
              "Object", "Function", "Delay", "Arguments") });
        stuff += ({ "------------------------------------------------------------------------------" });

        while (i--) {
            catch(ob = file_name(info[i][0]));
            stuff += ({ sprintf("%-35s%-20s%5d     ", ob, info[i][1], info[i][2])
                  + dump_variable(info[i][3]) });
        }
    } else {
        stuff += ({ sprintf("%-35s%-20s%-10s",
              "Object", "Function", "Delay") });
        stuff += ({ "------------------------------------------------------------------------------" });

        while (i--) {
            catch(ob = file_name(info[i][0]));
            stuff += ({ sprintf("%-35s%-20s%5d", ob, info[i][1], info[i][2]) });
        }
    }

    stuff += ({ "------------------------------------------------------------------------------" });
    stuff += ({ sprintf("\t\t\tTotal call_outs: %d\n", s) });

    this_player()->more(stuff, 1);

    return 1;
}

int help() {
    write( @ENDHELP
Syntax: callouts [-v]

This command prints out the number of pending call_out()'s in the system,
listing the object, the function names, and the remaining delay.
If the '-v' option is specified, an even more verbose listing of each call
out is produced, dumping the arguments to be passed to the function.
ENDHELP
    );
    return 1;
}