// cod: Call_Out Debugger // by: 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. #include <mudlib.h> inherit OBJECT; void create() { set("id", ({"cod", "fish"})); set("short", "a cod fish"); set("bulk", 5); set("long", "This is an electronic fish designed to debug call_outs.\n\ For help type \"help cod\".\n"); set("capacity", 0); } int query_auto_load() { return 1 ; } void init() { add_action("list_calls", "calls"); add_action("help", "help"); } int list_calls() { int i, s; mixed *info; string ob; info = call_out_info(); s = sizeof(info); i = s; printf("%-35s%-20s%-10s%-9s\n", "Object", "Function", "Delay", "Arg's"); write("------------------------------------------------------------------------------"); while(i--) { catch(ob = file_name(info[i][0])); printf("\n%-35s%-20s%5d", ob, info[i][1], info[i][2]); write(" "); if(objectp(info[i][3])) write(file_name(info[i][3])); else catch(write(info[i][3])); } write("\n------------------------------------------------------------------------------\n"); printf("\t\t\t\t%s: %d\n", "Total call_outs", s); return 1; } int help(string arg) { if(!(arg == "cod" || arg == "fish")) return 0; write("\ This device provides information about all pending call_outs.\n\ To view the information, type \"calls\".\n\ \nThe cod, \"Call_Out Debugger\", was written by Archimedes@TMI-2.\n\ Mail him bug reports ;-)\n"); return 1; }