/*
 * $Id: coolmenu.c,v 1.1 2005/06/13 20:50:49 murrayma Exp $
 *
 * Author: Markus Stenberg <fingon@iki.fi>
 *
 *  Copyright (c) 1996 Markus Stenberg
 *       All rights reserved
 *
 * Created: Mon Sep 16 20:38:36 1996 fingon
 * Last modified: Wed Jun 24 22:41:40 1998 fingon
 *
 */

#include <stdio.h>
#include <string.h>
#include "db.h"

void KillText(char **mapt);
void ShowText(char **mapt, dbref player);

/* 
   Simple menu system for cool menus ;-)
   */
#include "db.h"
#include "coolmenu.h"
#include "create.h"

#ifndef MIN
#define MIN(a,b) ((a)<(b)?(a):(b))
#endif
#ifndef MAX
#define MAX(a,b) ((a)>(b)?(a):(b))
#endif

int BOUNDED(int, int, int);

int number_of_entries(coolmenu * c)
{
    if (c->flags & CM_ONE)
	return 1;
    if (c->flags & CM_TWO)
	return 2;

    if (c->flags & CM_THREE)
	return 3;
    if (c->flags & CM_FOUR)
	return 4;
    return 1;
}

int count_following_with(coolmenu * c, int num)
{
    int count = 0;

    for (; c && number_of_entries(c) >= num && count < num; c = c->next)
	count++;
    return count;
}

void display_line(char **c, int *len, coolmenu * m)
{
    char *ch = *c;
    int i;

    sprintf(ch, "%%cm");
    ch += strlen(ch);
    for (i = 0; i < *len; i++)
	*(ch++) = '-';
    sprintf(ch, "%%c");
    ch += strlen(ch);
    *len = 0;
    *c = ch;
}

static int compute_length(char *s)
{
    int l = strlen(s);
    char *c;

    for (c = s; *c; c++) {
	if (*c == '%')
	    if (*(c + 1) == 'c') {
		if (isalpha(*(c + 2))) {
		    c += 2;
		    l -= 3;
		} else {
		    c += 1;
		    l -= 2;
		}
	    }
    }
    return l;
}

void display_string(char **c, int *len, coolmenu * m)
{
    int l = strlen(m->text), lo;
    int p, e;
    int i;

    if (m->flags & CM_NOCUT) {
	*len = 1;
	strcpy(*c, m->text);
	*c += strlen(*c);
	return;
    }
    if (m->flags & CM_CENTER) {
	p = MAX(*len / 2 - l / 2, 0);
	e = MIN(*len - 1, p + l);
	for (i = 0; i < p; i++)
	    (*c)[i] = ' ';
	*c += p;
	sprintf(*c, "%%ch%%cm");
	*c += strlen(*c);
	strncpy(*c, m->text, (e - p) + 1);
	*c += (e - p);
	sprintf(*c, "%%c");
	*c += strlen(*c);
	**c = 0;
	*len -= e;
    } else {
	lo = l - compute_length(m->text);
	l = MIN(*len - 1 + lo, l);
	strncpy(*c, m->text, l);
	(*c)[l] = 0;
	*len -= l - lo;
	*c = &((*c)[l]);
    }
}

void display_toggle_end(char **c, coolmenu * m)
{
    if (m->value)
	sprintf(*c, " %s<%%cbX%%c%%ch>%%c",
	    !(m->flags & CM_NO_HILITE) ? "%ch" : "");
    else
	sprintf(*c, " < >");
    *c += strlen(*c);
}

/* Turn value into equivalent with kilo, mega, giga, tera, peta, exa, zetta
   or yotta postfix. */
char *stringified_value(int v)
{
    char foo[] = "KMGTPEZY";
    int i = -1;
    static char buf[5];

    if (v > 999) {
	do {
	    i++;
	    v /= 1000;
	} while (v > 999 && foo[i]);

	if (!foo[i])
	    i--;
	sprintf(buf, "%d%c", BOUNDED(0, v, 999), foo[i]);
    } else
	sprintf(buf, "%d", BOUNDED(0, v, 999));
    return buf;
}

void display_number_end(char **c, coolmenu * m)
{
    if (m->value >= 0) {
	sprintf(*c, " %%cg%s%4s%%c", (m->value > 0 &&
		!(m->flags & CM_NO_HILITE)) ? "%ch" : "",
	    stringified_value(m->value));
    } else
	sprintf(*c, " ____");
    *c += strlen(*c);
}


char *display_entry(char *ch, int maxlen, coolmenu * c)
{
    int i, j = 0, t = 0;

    /* returns: number of characters to forward the main pointer with.
       basically: strlen(ouradditions) */
    if ((c->flags & (LETTERFIRST)) && !(c->flags & CM_NOTOG)) {
	if (c->flags & CM_NUMBER)
	    maxlen -= 5;
	else
	    maxlen -= 4;
	t = ((c->flags & (CM_TOGGLE | CM_NUMBER)) && c->value);
	sprintf(ch, "%s[%c]%s ", (t &&
		!(c->flags & CM_NO_HILITE)) ? "%ch%cr" : "%cr",
	    t ? (c->letter + 'A' - 'a') : c->letter, "%c");
	ch += strlen(ch);
    }
    if (c->flags & (RIGHTEDGES) && !(c->flags & CM_NORIGHT)) {
	if (c->flags & CM_NUMBER)
	    maxlen -= 6;
	else
	    maxlen -= 5;
	j = 1;
    }
    if (t && !(c->flags & (CM_NO_HILITE))) {
	sprintf(ch, "%%ch");
	ch += strlen(ch);
    }
    if (c->flags & CM_LINE)
	display_line(&ch, &maxlen, c);
    else
	display_string(&ch, &maxlen, c);
    if (t && !(c->flags & (CM_NO_HILITE))) {
	sprintf(ch, "%%c");
	ch += strlen(ch);
    }
    if (maxlen > 0 && !(c->flags & CM_NOCUT)) {
	for (i = 0; i < maxlen; i++)
	    *(ch++) = ' ';
    }
    if (j) {
	if (c->flags & CM_TOGGLE)
	    display_toggle_end(&ch, c);
	else if (c->flags & CM_NUMBER)
	    display_number_end(&ch, c);
	*(ch++) = ' ';
    }
    *ch = 0;
    return ch;
}

void display_entries(coolmenu * c, int wnum, int num, char *text)
{
    int i;
    char *ch = text;
    int single_length = (MENU_CHAR_WIDTH / wnum);

    for (i = 0; i < num; i++) {
	ch = display_entry(ch, single_length, c);
	c = c->next;
    }
}

char **MakeCoolMenuText(coolmenu * c)
{
    char **m;
    int pos = 0;
    int n, rn;

    Create(m, char *, MAX_MENU_LENGTH + 1);

    /* Whole whopping menu is ready to be written at.. */
    while (c)
	if ((n = number_of_entries(c)))
	    if ((rn = count_following_with(c, n))) {
		Create(m[pos], char, MAX_MENU_WIDTH);

/* 	  display_entries(c,rn,m[pos++]); */
		display_entries(c, n, rn, m[pos++]);
		while (rn > 0 && c) {
		    rn--;
		    c = c->next;
		}
	    }
    return m;
}

void CreateMenuEntry_Killer(coolmenu ** c, char *text, int flag, int id,
    int value, int maxvalue)
{
    coolmenu *d, *e;
    char first = 'a';

    if (!*c) {
	Create(*c, coolmenu, 1);
	d = *c;
    } else {
	for (d = *c; d->next; d = d->next);
	Create(d->next, coolmenu, 1);
	d = d->next;
    }
    if (text)
	d->text = strdup(text);
    d->flags = flag;
    if ((flag & LETTERFIRST) && !(flag & CM_NOTOG)) {
	/* gasp, s'pose we need a letter for this thingy */
	for (e = *c; e; e = e->next)
	    if (e->letter)
		if (e->letter >= first)
		    first = e->letter + 1;
	d->letter = first;
    }
    d->id = id;
    d->value = value;
    d->maxvalue = maxvalue;
}


void KillCoolMenu(coolmenu * c)
{
    coolmenu *d;

    for (; c; c = d) {
	d = c->next;
	if (c->text)
	    free((void *) c->text);
	free((void *) c);
    }
}

void ShowCoolMenu(dbref player, coolmenu * c)
{
    char **ch;

    ch = MakeCoolMenuText(c);
    ShowText(ch, player);
    KillText(ch);
}

int CoolMenu_FPWBit(int number, int maxlen)
{
    if (number <= maxlen)
	return CM_ONE;
    if (number <= (maxlen * 2))
	return CM_TWO;
    if (number <= (maxlen * 3))
	return CM_THREE;
    return CM_FOUR;
}

coolmenu *SelCol_Menu(int columns, char *heading, char **strings, int type,
    int max)
{
    coolmenu *c = NULL;
    int i, co = 0;
    char buf[LBUF_SIZE];

    strcpy(buf, heading);
    buf[0] = toupper(buf[0]);
    CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
    CreateMenuEntry_Simple(&c, buf, CM_ONE | CM_CENTER);
    CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
    for (co = 0; strings[co]; co++);
    if (columns < 0)
	columns = CoolMenu_FPWBit(co, 18);
    for (i = 0; i < co; i++)
	CreateMenuEntry_Normal(&c, strings[i], columns | type, i + 1, max);
    CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
    return c;
}

coolmenu *SelCol_FunStringMenuK(int columns, char *heading,
    char *(*fun) (), int last)
{
    coolmenu *c = NULL;
    int i;
    char buf[LBUF_SIZE];
    int sick = 0;

    strcpy(buf, heading);
    buf[0] = toupper(buf[0]);
    CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
    CreateMenuEntry_Simple(&c, buf, CM_ONE | CM_CENTER);
    if (fun(0)[0] == '%') {
	CreateMenuEntry_Normal(&c, fun(0), columns, 1, 0);
	sick = 1;
    }
    CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
    if (columns < 0)
	columns = CoolMenu_FPWBit(last, 18);
    for (i = sick; i < last; i++)
	CreateMenuEntry_Normal(&c, fun(i), columns, i + 1 - sick, 0);
    CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
    return c;
}

coolmenu *SelCol_FunStringMenu(int columns, char *heading, char *(*fun) ())
{
    int co;

    for (co = 0; fun(co); co++);
    return SelCol_FunStringMenuK(columns, heading, fun, co);
}