/*
 * /cmd/wiz/apprentice/manual.c
 *
 * This is a sub-part of /cmd/wiz/apprentice.c
 *
 * This file contains the commands that gives you access to the manuals.
 *
 * Commands currently included:
 * - lman
 * - man
 * - sman
 */

#define MANHEAD  "/doc/man/"
#define SMANHEAD "/doc/sman"

/* Support functions for man, sman, lman
*/
static int g_mannum;

nomask string man_num() { return sprintf("\n#%d:", g_mannum++); }

nomask int
find_source(string docfile, string argv)
{
    string          docs,
                    str,
                    src;
    int             line;

    if (file_size(docfile) < 0)
	return 0;

    docs = read_file(docfile);
    if (sscanf(docs, "%d:%s %s", line, src, str) == 3)
    {
	write("File: " + src + " Line: " + line + "\n\n");
	if (argv == "-s")
	{
	    this_player()->more(src, line);
	    return 1;
	}

	if (SECURITY->query_wiz_rank(this_interactive()->
	    query_real_name()) < WIZ_NORMAL)
	{
	    write("Only true wizards can use the -e option.\n");
	}
	else
	{
	    ed(src);
	}

	return 1;
    }

    return 0;
}

/* **************************************************************************
 * lman - Give information on 'local' source code
 */
nomask varargs int
lman(string entry, string docdir)
{
    mixed *argv, *man_arr;
    int argc, i, num, flag;
    string *sdirarr, path, *p_parts, man_chapt, str;

    CHECK_SO_WIZ;

    if (!entry)
    {
        notify_fail("Syntax error, for instructions on usage, " +
	    "do 'help lman'.\n");
	return 0;
    }

    if (!strlen(docdir))
	docdir = this_player()->query_path();

    if (!SRCMAN->valid_docdir(docdir))
    {
        notify_fail("The directory: " + docdir +
		    " is not a valid documentation directory\n");
	return 0;
    }

    argv = explode(entry, " ");
    argc = sizeof(argv);

    switch(argv[0])
    {

        case "-k":

            if (argc == 2)
	    {
	        sdirarr = (string *)SRCMAN->get_subdirs(docdir);
		if (member_array(argv[1], sdirarr) < 0)
		{
		    for (i = 0 ; i < sizeof(sdirarr) ; i++)
		    {
			man_arr = SRCMAN->get_keywords(docdir, sdirarr[i],
							 argv[1])[1];
			if (sizeof(man_arr))
			{
			    write("--- " + sdirarr[i] + ":\n" +
				  sprintf("%-*#s\n", 76,
					  implode(man_arr, "\n")) + "\n");
			    flag = 1;
			}
		    }
		    if (!flag)
			write("No match.\n");
		}
		else
		{
		    man_chapt = argv[1];
		    man_arr = SRCMAN->get_index(docdir, man_chapt)[1];
		    this_interactive()->add_prop(WIZARD_S_SMAN_SEL_DIR,
						 man_chapt);
		    this_interactive()->add_prop(WIZARD_AM_SMAN_SEL_ARR,
						 man_arr);
		    g_mannum = 2;
		    str = process_string("#1:" +
					 implode(man_arr, "@@man_num@@"));
		    write("Available functions:\n" +
			  sprintf("%-*#s\n", 76, str));
		}
	    }

	    if (argc == 3)
	    {
	        if (member_array(argv[1], SRCMAN->get_subdirs(docdir)) < 0)
		{
		    write("No such subdir '" + argv[1] + "' available.\n");
		    break;
		}
		man_chapt = argv[1];
		man_arr = SRCMAN->get_keywords(docdir, man_chapt, argv[2])[1];
		this_interactive()->add_prop(WIZARD_S_SMAN_SEL_DIR,
					     man_chapt);
		this_interactive()->add_prop(WIZARD_AM_SMAN_SEL_ARR,
					     man_arr);
		g_mannum = 2;
		str = process_string("#1:" +
				     implode(man_arr, "@@man_num@@"));
		write("Available subjects:\n" +
		      sprintf("%-*#s\n", 76, str));
	    }
	    break;

	case "-?":
	    man_chapt = this_interactive()->
		query_prop(WIZARD_S_SMAN_SEL_DIR);
	    if (!man_chapt)
	    {
	        write("You haven't made any selection yet.\n" +
		    "Do 'lman -k <dir>' to select a directory.\n");
		break;
	    }
	    man_arr = this_interactive()->query_prop(WIZARD_AM_SMAN_SEL_ARR);

	    g_mannum = 2;
	    str = process_string("#1:" +
				 implode(man_arr, "@@man_num@@"));
	    write("Selected functions (" + man_chapt + "):\n" +
		  sprintf("%-*#s\n", 76, str));
	    break;

	case "-c":
	    write("Available subdirs:\n" +
		  sprintf("%-*#s\n", 76, implode(SRCMAN->get_subdirs(docdir),
						 "\n")));
	    break;

	case "-u":
	    SRCMAN->update_index(docdir);
	    write("Ok.\n");
	    break;

	case "-s":
	case "-e":
	    if (argc > 1)
	    {
		sscanf(argv[1], "#%d", num);
		if (num)
		{
		    man_chapt = this_interactive()->
			query_prop(WIZARD_S_SMAN_SEL_DIR);
		    man_arr = this_interactive()->
			query_prop(WIZARD_AM_SMAN_SEL_ARR);

		    if (!man_chapt)
		    {
			write("You haven't made any selection yet.\n");
			break;
		    }
		    if (num < 1 || num > sizeof(man_arr))
		    {
			write("The possible interval is 1-" +
			      sizeof(man_arr) + ".\n");
			break;
		    }
		    path = docdir + man_chapt + "/" + man_arr[num - 1];

		    if (!find_source(path, argv[0]))
		    {
			write("No such source code found.\n");
			break;
		    }
		    break;
		} else if (file_size(docdir +  argv[1]) < 0) {
		    sdirarr = SRCMAN->get_subdirs(docdir);
		    if (argc == 3)
		    {
			if (member_array(argv[1], sdirarr) < 0)
			{
			    write("No such subdir '" + argv[1] + 
				"' available.\n");
			    break;
			}
			man_chapt = argv[1];
			man_arr = SRCMAN->get_keywords(docdir, man_chapt,
							argv[2])[1];
		    } else {
			for (i = 0; i < sizeof(sdirarr); i++)
			{
			    man_chapt = sdirarr[i];
			    man_arr = SRCMAN->get_keywords(docdir, man_chapt,
							argv[1])[1];
			    if (sizeof(man_arr) > 0)
				break;
			}
		    }

		    if (sizeof(man_arr) == 0)
			write("No command: " + argv[1] + "\n");
		    else
		    {
			path = docdir + man_chapt + "/" + man_arr[0];

			if (file_size(path) < 0)
			    write("Function not found.\n");
			else
			    find_source(path, argv[0]);
		    }
		    break;
		} else {
		    find_source(docdir + argv[1], argv[0]);
		}
		break;
	    }

	default:
	    sscanf(argv[0], "#%d", num);
	    if (num)
	    {
	        man_chapt = this_interactive()->
		    query_prop(WIZARD_S_SMAN_SEL_DIR);
	        man_arr = this_interactive()->
		    query_prop(WIZARD_AM_SMAN_SEL_ARR);

	        if (!man_chapt)
		{
		    write("You haven't made any selection yet.\n");
		    break;
		}
	        if (num < 1 || num > sizeof(man_arr))
		{
		    write("The possible interval is 1-" +
			  sizeof(man_arr) + ".\n");
		    break;
		}
		path = docdir + man_chapt + "/" + man_arr[num - 1];

		write("File: " + path + "\n");
	        this_player()->more(path, 1);
		break;
	    }

	    if (file_size(docdir + argv[0]) < 0)
	    {
	        sdirarr = (string *)SRCMAN->get_subdirs(docdir);
		if (argc == 2)
		{
		    if (member_array(argv[0], sdirarr) < 0)
		    {
			write("No such subdir '" + argv[0] +
			      "' available.\n");
			break;
		    }
		    man_chapt = argv[0];
		    man_arr = (mixed *)SRCMAN->get_keywords(docdir, man_chapt,
							     argv[1])[1];
		    this_interactive()->add_prop(WIZARD_S_SMAN_SEL_DIR,
						 man_chapt);
		    this_interactive()->add_prop(WIZARD_AM_SMAN_SEL_ARR,
						 man_arr);
		}
		else
		{
		    for (i = 0 ; i < sizeof(sdirarr) ; i++)
		    {
			man_chapt = sdirarr[i];
			man_arr = (mixed *)SRCMAN->get_keywords(docdir,
								man_chapt,
								argv[0])[1];
			if (sizeof(man_arr) > 0)
			    break;
		    }
		}
		if (sizeof(man_arr) == 0)
		    write("No command: " + argv[0] + "\n");
		else
		{
		    path = docdir + man_chapt + "/" + man_arr[0];

		    if (file_size(path) < 0)
			write("No command: " + argv[0] + "\n");
		    else
		    {
			write("File: " + path + "\n");
			this_player()->more(path, 1);
		    }
		}
		break;
	    }
	    else
	    {
		write("File: " + docdir + argv[0] + "\n");
		this_player()->more((docdir + argv[0]), 1);
	    }
	    break;
    }

    return 1;
}

/* **************************************************************************
 * man - display a manual page
 */
nomask int
man(string entry)
{
    mixed *argv, *man_arr;
    int argc, i, num, wr_flag;
    string *chaparr, path, *p_parts, man_chapt, str;

    CHECK_SO_WIZ;

    if (!entry)
    {
        notify_fail("Blad skladniowy. Wpisz '?man', zeby uzyskac informacje "+
            "o sposobie uzywania tej komendy.\n");
;
	return 0;
    }

    argv = explode(entry, " ");
    argc = sizeof(argv);

    switch(argv[0])
    {

        case "-k":

            if (argc == 2)
	    {
	        chaparr = (string *)MANCTRL->get_chapters();
		if (member_array(argv[1], chaparr) < 0)
		{
		    for (i = 0 ; i < sizeof(chaparr) ; i++)
		    {
			man_arr = MANCTRL->get_keywords(chaparr[i],
							 argv[1])[1];
			if (sizeof(man_arr))
			{
			    write("--- " + chaparr[i] + ":\n" +
				  sprintf("%-*#s\n", 76,
					  implode(man_arr, "\n")) + "\n");
			    wr_flag = 1;
			}
		    }
		    if (!wr_flag)
			write("No such chapter.\n");
		}
		else
		{
		    man_chapt = argv[1];
		    man_arr = MANCTRL->get_index(man_chapt)[1];
		    this_interactive()->add_prop(WIZARD_S_MAN_SEL_CHAPT,
						 man_chapt);
		    this_interactive()->add_prop(WIZARD_AM_MAN_SEL_ARR,
						 man_arr);
		    g_mannum = 2;
		    str = process_string("#1:" +
					 implode(man_arr, "@@man_num@@"));
		    write("Available subjects:\n" +
			  sprintf("%-*#s\n", 76, str));
		}
	    }
	    else if (argc == 3)
	    {
	        if (member_array(argv[1], MANCTRL->get_chapters()) < 0)
		{
		    write("No such chapter '" + argv[1] + "' available.\n");
		    break;
		}
		man_chapt = argv[1];
		man_arr = MANCTRL->get_keywords(man_chapt, argv[2])[1];
		this_interactive()->add_prop(WIZARD_S_MAN_SEL_CHAPT,
					     man_chapt);
		this_interactive()->add_prop(WIZARD_AM_MAN_SEL_ARR,
					     man_arr);
		g_mannum = 2;
		str = process_string("#1:" +
				     implode(man_arr, "@@man_num@@"));
		write("Available subjects:\n" +
		      sprintf("%-*#s\n", 76, str));

	    } else {
		write("Try 'man -c' to see possible chapters.\n");
	    }
	    break;

	case "-?":
	    man_chapt = this_interactive()->query_prop(WIZARD_S_MAN_SEL_CHAPT);
	    if (!man_chapt)
	    {
	        write("You haven't made any selection yet.\n");
		break;
	    }
	    man_arr = this_interactive()->query_prop(WIZARD_AM_MAN_SEL_ARR);

	    g_mannum = 1;
	    str = process_string("#1:" +
				 implode(man_arr, "@@man_num@@"));
	    write("Selected subjects (" + man_chapt + "):\n" +
		  sprintf("%-*#s\n", 76, str));
	    break;

	case "-c":
	    write("Available chapters:\n" +
		  sprintf("%-*#s\n", 76,
			  implode(MANCTRL->get_chapters(), "\n")));
	    break;

	case "-u":
	    find_object(MANCTRL)->remove_object();
	    write("Ok.\n");
	    break;

	default:
	    sscanf(argv[0], "#%d", num);
	    if (num)
	    {
	        man_chapt = this_interactive()->
		    query_prop(WIZARD_S_MAN_SEL_CHAPT);
	        man_arr = this_interactive()->
		    query_prop(WIZARD_AM_MAN_SEL_ARR);

	        if (!man_chapt)
		{
		    write("You haven't made any selection yet.\n");
		    break;
		}
	        if (num < 1 || num > sizeof(man_arr))
		{
		    write("The possible interval is 1-" +
			  sizeof(man_arr) + ".\n");
		    break;
		}
		path = MANHEAD + man_chapt + "/" + man_arr[num - 1];

		write("File: " + path + "\n");
		this_player()->more(path, 1);
		break;
	    }

	    if (file_size(MANHEAD + argv[0]) < 0)
	    {
	        chaparr = (string *)MANCTRL->get_chapters();
		if (argc == 2)
		{
		    if (member_array(argv[0], chaparr) < 0)
		    {
			write("No such chapter '" + argv[0] +
			      "' available.\n");
			break;
		    }
		    man_chapt = argv[0];
		    man_arr = (mixed *)MANCTRL->get_keywords(man_chapt,
							     argv[1])[1];
		    this_interactive()->add_prop(WIZARD_S_MAN_SEL_CHAPT,
						 man_chapt);
		    this_interactive()->add_prop(WIZARD_AM_MAN_SEL_ARR,
						 man_arr);
		}
		else
		{
		    for (i = 0 ; i < sizeof(chaparr) ; i++)
		    {
			man_chapt = chaparr[i];
			man_arr = (mixed *)MANCTRL->get_keywords(man_chapt,
								 argv[0])[1];
			if (sizeof(man_arr) > 0)
			    break;
		    }
		    if (!sizeof(man_arr) && member_array(argv[0], chaparr) >= 0)
		    {
			man_arr = MANCTRL->get_index(argv[0])[1];
			g_mannum = 2;
			str = process_string("#1:" +
				implode(man_arr, "@@man_num@@"));
			write("Available subjects:\n" +
				sprintf("%-*#s\n", 76, str));
			return 1;
		    }
		}
		if (sizeof(man_arr) == 0)
		    write("No command: " + argv[0] + "\n");
		else
		{
		    path = MANHEAD + man_chapt + "/" + man_arr[0];

		    if (file_size(path) < 0)
			write("No command: " + argv[0] + "\n");
		    else
		    {
			write("File: " + path + "\n");
			this_player()->more(path, 1);
		    }
		}
		break;
	    }
	    else
	    {
		write("File: " + MANHEAD + argv[0] + "\n");
		this_player()->more((MANHEAD + argv[0]), 1);
	    }
	    break;
    }

    return 1;
}

/* **************************************************************************
 * sman - source manual, give information on functions in the standard mudlib
 */
nomask int
sman(string entry)
{
    CHECK_SO_WIZ;

    if (!entry)
    {
        notify_fail("Blad skladniowy. Wpisz '?sman', zeby uzyskac wiecej "+
            "informacji o sposobie stosowania tej komendy.\n");
	return 0;
    }

    return lman(entry, "/doc/sman");
}