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

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

private int HistorySize = MIN_HISTORY_SIZE;
private static int CommandNumber = 1;
private mapping History = ([]);

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

    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);
}

static string Push(string cmd){
    int j, crunch;
    CommandNumber = sizeof(History);
    if(CommandNumber && History[CommandNumber-1] == cmd){
        return cmd;
    }
    if(member_array(cmd, values(History)) != -1){
        foreach(mixed key, mixed val in History){
            if(cmd == val){
                History[key] = 0;
            }
            crunch = 1;
        }
    }
    if(crunch){
        mapping newmap = ([]);
        j = 0;
        for(int i = 0; i < CommandNumber; i++){
            if(History[i]){
                newmap[j] = History[i];
                j++;
            } 
        }
        History = newmap;
        CommandNumber = sizeof(History);
        return cmd;
    }
    if(CommandNumber >= HistorySize){
        mapping newmap = ([]);
        foreach(mixed key, mixed val in History){
            if(key > 0) newmap[key-1] = val;
        } 
        History = newmap;
        CommandNumber = sizeof(History);
    }
    else {
        History[CommandNumber] = cmd;
    }
    CommandNumber = sizeof(History);
    return cmd;
}

int GetCommandNumber(){
    return CommandNumber;
}

    string GetHistory(mixed val){
        if(!this_player() || this_player() != this_object()
                || this_player()->GetForced()) return "";
        if( intp(val) ){
            if( !History[val] ) return "";
            return History[val];
        }
        else if( stringp(val) ){
            foreach(mixed key, mixed what in History){
                if( strsrch(what, val) == 0 ) return what;
            }
            return "";
        }
        else error("Invalid argument to GetHistory().\n");
    }

mapping GetHistoryList(){
    if( !((int)master()->valid_apply(({ GetKeyName() }))) ) return ([]);
    return copy(History);
}

mapping GetCommandHist(){
    return GetHistoryList();
}

    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;
        return (HistorySize = x);
    }

string GetLastCommand(){
    if(!this_object()->GetForced() && 
            (this_player() == this_object() || previous_object() == master())){
        return History[sizeof(History)-1];
    }
    else return "";
}

int GetMaxCommandHistSize(){
    return MAX_HISTORY_SIZE;
}

int SetMaxCommandHistSize(int i){
    SetHistorySize(i);
    return HistorySize;
}