// File: /cmds/adm/_dsm.c // - front end to dump_prog() #include <priv.h> #include <mudlib.h> inherit DAEMON ; int cmd_dsm(string str) { object what; string *text; int i, j; if (!str || str == "") { notify_fail("Dsm: What object do you want to dump/disassemble?\n"); return 0; } str = lower_case(str); if (sscanf(str, "-v %s", str) == 1) j = 1; what = get_object(str); if (!what) { notify_fail("Dsm: Could not locate that object.\n"); return 0; } dump_prog(what, 1); i = file_size("/PROG_DUMP"); if (i > 0) { text = explode( read_file("/PROG_DUMP"), "\n"); if (!j && (j = member_array(";;; *** Disassembly ***", text)) != -1) text = text[j .. sizeof(text)]; this_player()->more(text, 1); } return 1; } string help() { write( @ENDHELP Syntax: dsm [-v] object This command provides a disassembly of the specified object. If the -v option is given, a complete dump of the object is provided. ENDHELP ); }