/*    /lib/history.c
 *    from the Dead Souls  Object Library
 *    handles command line histories
 *    created by Descartes of Borg 960511
 */

#include <config.h>
#include <message_class.h>
#include "include/history.h"

private int HistorySize = MIN_HISTORY_SIZE;
private static int CommandNumber = 1;
private static array History;

static void create() {
    if( HistorySize < MIN_HISTORY_SIZE ) HistorySize = MIN_HISTORY_SIZE;
    if( HistorySize > MAX_HISTORY_SIZE ) HistorySize = MAX_HISTORY_SIZE;
    History = allocate(HistorySize);
}

static string eventHistory(string str) {
    string cmd, args, old, neu;
    int len, num;

    if( str[0] == '^' ) str = "!!" + str;
    if( (len = strlen(str)) < 2 || str[0] != '!' ) return Push(str);
    if( str[0..1] == "!!" || str[0..2] == "!-1") {
	cmd = GetHistory(CommandNumber-1);
	if( str[1] == '!' ) {
	    if( len == 2 ) args = "";
	    else args = str[2..];
	}
	else {
	    if( len == 3 ) args = "";
	    else args = str[3..];
	}
    }
    else {
	int x;

	if( str[1] == '-' ) {
	    sscanf(str, "!-%d%s", x, args);
	    if( !x ) cmd = "";
	    else cmd = GetHistory(CommandNumber-x);
	}
	else if( sscanf(str, "!%d%s", x, args) == 2 ) {
	    if( !x ) cmd = "";
	    else cmd = GetHistory(x);
	}
	else {
	    str = str[1..];
	    cmd = GetHistory(str);
	    args = "";
	}
    }
    if( !cmd || cmd == "" ) {
	eventPrint("Invalid history command.", MSG_ERROR);
	return "";
    }
    if( !args || args == "" ) return Push(cmd);
    len = strlen(args);
    if( args[0] != '^' && args[0] != 's' ) {
	if( len > 1 && args[0] == '\\' && (args[1] == '^' || args[1] == 's') )
	    args = args[1..];
	return Push(cmd + args);
    }
    if( len < 3 ) {
	if( args[0] == 's' ) {
	    if( len < 2 || args[1] != '/' ) return Push(cmd + args);
	}
	eventPrint("Invalid replacement syntax.", MSG_ERROR);
	return "";
    }
    if( args[0] == '^' ) {
	int i;

	args = args[1..];
	i = strsrch(args, "^");
	if( i == 0 ) i = -1;
	while( i != -1 && args[i-1] == '\\' ) {
	    args = args[0..i-2] + args[i..];
	    if( strlen(args) == i+1 ) i = -1;
	    else i = strsrch(args, "^", i+1);
	}
	if( i == -1 ) {
	    eventPrint("Invalid replacement syntax.", MSG_ERROR);
	    return "";
	}
	old = args[0..(i-1)];
	if( i == strlen(args) - 1 ) neu = "";
	else neu = args[(i+1)..];
	num = 1;
	neu = replace_string(neu, "\\^", "^");
    }
    else {
	int i;

	args = args[2..];
	i = strsrch(args, "/");
	if( i == 0 ) i = -1;
	while( i != -1 && args[i-1] == '\\' ) {
	    args = args[0..i-2] + args[i..];
	    if( strlen(args) == i+1 ) i = -1;
	    else i = strsrch(args, "/", i+1);
	}
	if( i == -1 ) {
	    eventPrint("Invalid replacement syntax.", MSG_ERROR);
	    return "";
	}
	old = args[0..(i-1)];
	if( i == strlen(args) - 1 ) neu = "";
	else neu = args[(i+1)..];
	len = strlen(neu);
	if( len > 1 ) {
	    if( neu[<2..] == "/g" ) {
		if( len > 2 && neu[<3] != '\\' ) {
		    num = 0;
		    neu = neu[0..<3];
		}
		else if( len > 2 ) num = 1;
		else {
		    num = 0;
		    neu = "";
		}
	    }
	}
	else num = 1;
	neu = replace_string(neu, "\\/", "/");
    }
    cmd = replace_string(cmd, old, neu, num);
    return Push(cmd);
}

nomask private static string Push(string cmd) {
    int x;

    x = (CommandNumber-1) % sizeof(History);
    History[x] = cmd;
    CommandNumber++;
    return cmd;
}

int GetCommandNumber() {
    return CommandNumber;
}

private string GetHistory(mixed val) {
    if( CommandNumber == 1 ) return "";
    if( intp(val) ) {
	if( val < 1 ) return "";
	else if( val > CommandNumber -1 ) return "";
	else if( val < (CommandNumber - sizeof(History)) ) return "";
	val = (val-1) % sizeof(History);
	return History[val];
    }
    else if( stringp(val) ) {
	int i, x;

	x = (CommandNumber-2) % sizeof(History);
	for(i = x; i>=0; i--) {
	    if( !History[i] ) continue;
	    if( strsrch(History[i], val) == 0 ) return History[i];
	}
	for(i = sizeof(History)-1; i>x; i--) {
	    if( !History[i] ) continue;
	    if( strsrch(History[i], val) == 0 ) return History[i];
	}
	return "";
    }
    else error("Invalid argument to GetHistory().\n");
}

string *GetHistoryList() {
    if( !((int)master()->valid_apply(({ GetKeyName() }))) ) return ({});
    return copy(History);
}

int SetHistorySize(int x) {
    if( !((int)master()->valid_apply(({ GetKeyName() }))) )
	return HistorySize;    
    if( x == HistorySize ) return HistorySize;
    if( x > MAX_HISTORY_SIZE ) return HistorySize;
    else if( x < MIN_HISTORY_SIZE ) return HistorySize;
    CommandNumber = 1;
    return sizeof(History = allocate(HistorySize = x));
}