/* Do not remove the headers from this file! see /USAGE for more info. */

#include <commands.h>

inherit M_ACCESS;
inherit M_INPUT;

// Most of these fields can be left blank (i.e. 0) if irrelevant or unwanted.
// key == 0 means "leave a blank line"
// proto == 0 means no prototype
// priv == 0 means no restriction
// status == 0 means no info
// args == 0 means no arguments
class command_info {
    string key;      // A one character string giving the key to be pressed to
    // invoke this command.
    string proto;    // A short [12 char or less] summary of the args, if any
    string desc;     // A short [~40 chars] description of the command
    string priv;     // priv required to use this command
    string status;      // A short [~10 chars] description of task status
    array args;      // An array of prompts to use to ask for arguments not
    // given on the line.  Max == 2.
    function action; // The function to be called.
}

protected class command_info array defaults();

// Overload these
string module_name();
string module_key();
class command_info array module_commands();

mixed module_priv() {
    return 0;
}

// our variables
private mixed prompt;
private class command_info array commands;
private object parent;

private nomask string parent_name() {
    string path = base_name();

    // parents must always reside in /obj/tasktool
    if ( strsrch(path, "/obj/tasktool") != 0 )
	return 0;

    return path;
}

protected void heading() {
    write("%^TASK_HEADING%^Task Tool: " + module_name() + "%^RESET%^\n\n");
}

void write_menu() {
    int maxlen = 0;	/* max length of "proto" field */
    int maxkeylen = 1;  /* max length of the key field */
    int line = 0;       /* line count for colors */

    // Dynamic update of commands..
    commands = module_commands() + defaults();
    
    heading();

    foreach (class command_info comm in commands)
    if ( comm->proto && sizeof(comm->proto) > maxlen ) {
	maxlen = sizeof(comm->proto);
	maxkeylen=sizeof(comm->key);
    }

    foreach (class command_info comm in commands) {
	string desc = comm->desc;

	if (comm->status) {
	    desc += repeat_string(" ", 65 - maxkeylen - maxlen - strlen(desc) - strlen(comm->status));
	    desc += "%^TASK_STATUS%^" + comm->status;
	}
	
	if (comm->key)
	{
	    string color = "";

	    if (line % 2 == 0)
		color = "%^TASK_HI%^";
	    else
		color = "%^TASK_LO%^";

	    printf("  %s%3s %-*s - %s%%^RESET%%^\n", color, comm->key, maxlen, comm->proto || "", desc);

	    line++;
	}
	else if (desc) {
	    desc = "%^TASK_COMMENT%^" + desc + "\n\n";
	    this_body()->do_receive("    " + desc, MSG_INDENT);
	}
	else
	    write("\n");
    }
    write("\n");
}

private nomask void do_main_menu() {
    modal_pop();
    parent->write_menu();
    destruct();
}

nomask void do_quit() {
    modal_pop();
    if (parent) parent->do_quit();
    destruct();
}

protected nomask void do_help() {
    write_menu();
}

protected nomask int write_error(string err) {
    if (err) {
	write("Error: " + err + ".\n");
	return 1;
    }
    return 0;
}

protected class command_info array defaults() {
    return  ({
      new(class command_info), // blank line
      new(class command_info, key : "m", desc : "previous menu", 
	action : (: do_main_menu :)),
      new(class command_info, key : "q", desc : "quit", 
	action : (: do_quit :)),
      new(class command_info, key : "?", desc : "help", 
	action : (: do_help :))
    });
}

// setup
void begin_menu();

string menu_prompt() {
    return "(TaskTool:" + module_name() + ") [" + implode(commands, 
      (: ((class command_info)$2)->key ? 
	$1 + ((class command_info)$2)->key : $1 :), "") + "] > ";
}

void create() {
    set_privilege(1);

    // abstract class 
    if (strsrch(base_name(), "internal") != -1) return;

    // No init of commands.. write_menu() does that for now.
    prompt = (: menu_prompt :);
    
    if (clonep()) {
	if (module_priv() && !check_privilege(module_priv())) {
	    write("Permission denied: need priv " + module_priv() + "\n");
	    return;
	}

	begin_menu();
    }
}

private void handle_input(string str) {
    string array parts = explode(str," ");
    string arg;

    if(sizeof(parts)>1) {
	arg=implode(parts[1..]," ");
	str=parts[0];
    }

    if (str == "") {
	if (parent)
	    str = "m";
	else
	    str = "q";
    }

    foreach (class command_info comm in commands) {
	if (str == comm->key) {
	    if (comm->priv && !check_previous_privilege(comm->priv)) {
		printf("Permission denied; need privilege '%O'.\n",
		  comm->priv);
		return;
	    }
	    switch (sizeof(comm->args)) {
	    case 0:
		if (arg) {
		    write("** No argument required.\n");
		    return;
		}

		evaluate(comm->action);
		return;
	    case 1:
		input_one_arg(comm->args[0], comm->action, arg);
		return;
	    case 2:
		input_two_args(comm->args[0], comm->args[1], comm->action, arg);
		return;
	    default:
		error("No support for >2 args\n");
	    }
	}
    }

    write("** Unknown option (? for help)\n");
}

protected nomask void do_modal_func() {
    modal_func((: handle_input :), prompt);
}

void begin_menu() {
    if (base_name(previous_object()) != CMD_OB_TASKTOOL) {
	parent = previous_object();

	if (base_name(parent) != parent_name())
	    error("Illegal call to begin_menu()\n");
    }

    write_menu();

    modal_push((: handle_input :), prompt);
}