/// ===========================================================

void command_history_add()
{

int i;

for (i = 0; i < CMD_HISTORY_NUM_REAL; i++)
    if ( 0 == strcmp( CMD_HISTORY[i], CMD ) )
       return;

for (i = CMD_HISTORY_NUM_REAL; i > 0 ; i--)
	strcpy(CMD_HISTORY[i], CMD_HISTORY[i-1]);

strcpy(CMD_HISTORY[0], CMD);

if (CMD_HISTORY_NUM_REAL < CMD_HISTORY_NUM-1)
	CMD_HISTORY_NUM_REAL++;

CMD_NUM = 0;

}



/// ===========================================================

void command_get()
{
unsigned key;

unsigned i;
unsigned cmdLen = 0;
unsigned cmdPos = 0;
CMD[0] = '\0';

for (;;)
	{
	key = getch();
	if ( 0 != (key & 0xff) )
		{
		key &= 0xff;
		switch (key)
			{
			case 27: // ESC
                                for (i = cmdPos; i < cmdLen; i++)
                                    printf(" ");
                                for (i = cmdLen; i > 0; i--)
                                    printf("%c %c", 8, 8);
                                cmdLen = 0;
                                cmdPos = 0;
                                CMD[0] = '\0';
				break;


			case 13: // ENTER
				printf("\n\r");
				command_history_add();
				return;


			case 8: // BACKSPACE
				if (cmdPos > 0)
					{
                                        for (i = cmdPos-1; i < cmdLen; i++)
											CMD[i] = CMD[i+1];

                                        for (i = 0; i < cmdLen-cmdPos; i++)
					    printf (" ");

                                        for (i = 0; i < cmdLen; i++)
					    printf ("%c %c", 8, 8);

					printf("%s", CMD);

                                        for (i = 0; i < cmdLen-cmdPos; i++)
                                            printf("%c", 8);

                                        cmdPos--;
                                        cmdLen--;
					}
				break;


			case 9: // TAB
				break;


			default:
				if (cmdLen < 255)
					{
					if ( kol_key_control() & 0x40 ) // ¥á«¨ ¢ª«îçñ­ CapsLock
						if ( (kol_key_control() & 1) || (kol_key_control() & 2)) // ¥á«¨ ­ ¦ âë è¨äâë
							key = tolower(key);
						else
							key = toupper(key);

                                        for (i = cmdLen+1; i > cmdPos; i--)
                                            CMD[i] = CMD[i-1];

					CMD[cmdPos] = key;

                                        for (i = cmdPos; i > 0; i--)
                                            printf("%c %c", 8, 8);

					printf("%s", CMD);

                                        for (i = 0; i < cmdLen-cmdPos; i++)
                                            printf("%c", 8);

					cmdPos++;
                                        cmdLen++;
					}
					break;

                        }
                }
                else
                {
       		key = (key>>8)&0xff;
		switch (key)
			{
                        case 83: // Del
                             if (cmdPos < cmdLen)
                                {
                                for (i = cmdPos; i < cmdLen; i++)
                                    CMD[i] = CMD[i+1];

                                for (i = 0; i < cmdLen-cmdPos; i++)
                                    printf(" ");

                                for (i = 0; i < cmdLen-cmdPos; i++)
                                    printf("%c", 8);

                                for (i = cmdPos; i < cmdLen; i++)
                                    printf("%c", CMD[i]);

                                for (i = 0; i < cmdLen-cmdPos; i++)
                                    printf("%c", 8);

                                cmdLen--;
                                }

                             break;

                        case 75: // Left
                             if (cmdPos > 0)
                                {
                                printf("%c", 8);
                                cmdPos--;
                                }
                             break;


                        case 77: // Right
                             if (cmdPos < cmdLen)
                                {
                                printf("%c", CMD[cmdPos]);
                                cmdPos++;
                                }
                             break;


			case 80: // Down

				if (CMD_HISTORY_NUM_REAL > 0)
					{

					for (i = cmdPos; i < cmdLen; i++)
						printf(" ");

					for (i = cmdLen; i > 0; i--)
						printf("%c %c", 8, 8);

				    if (CMD_NUM < CMD_HISTORY_NUM_REAL-1)
				        CMD_NUM++;
				    else
						CMD_NUM = 0;

					printf(	"%s", CMD_HISTORY[CMD_NUM] );
					strcpy(CMD, CMD_HISTORY[CMD_NUM]);
					cmdLen = strlen(CMD);
					cmdPos = strlen(CMD);

					}
			
				break;


			case 72: // Up
				if (CMD_HISTORY_NUM_REAL > 0)
					{

					for (i = cmdPos; i < cmdLen; i++)
						printf(" ");

					for (i = cmdLen; i > 0; i--)
						printf("%c %c", 8, 8);

				    if (CMD_NUM > 0)
				        CMD_NUM--;
				    else
						CMD_NUM = CMD_HISTORY_NUM_REAL-1;

					printf(	"%s", CMD_HISTORY[CMD_NUM] );
					strcpy(CMD, CMD_HISTORY[CMD_NUM]);
					cmdLen = strlen(CMD);
					cmdPos = strlen(CMD);

					}
				break;


			case 0: // console window closed
				cmd_exit(NULL);

                        }

                }
        }

}

/// ===========================================================

int command_get_cmd(char cmd[])
{
unsigned i, len;
int quote = 0;

if (CMD[0]=='"')
   quote = 1;

if (quote == 0)
   {
   for (i=0;;i++)
       	{
	cmd[i] = CMD[i];
	if (0 == cmd[i])
		{
		i = -2;
		break;
		}
	if ( iswhite(cmd[i]) )
		{
                cmd[i] = '\0';
                break;
		}
	}
   return i+1;
   }
   else
   {
   len = 0;
   for (i=1;;i++)
       	{
	cmd[len] = CMD[i];
	if (0 == cmd[len])
		{
		len = -2;
		break;
		}
	if ( cmd[len] == '"' )
		{
                cmd[len] = '\0';
                break;
		}
        len++;
	}
   trim(cmd);
   return len+2;
   }
}

/// ===========================================================

typedef int (*handler1_t)(char* arg);

/// ===========================================================

void command_execute()
{
char cmd[256];
char args[256];
unsigned arg;
int i;
int result;

trim(CMD);
arg = command_get_cmd(cmd);

if ( !strlen(cmd) )
	return;

strcpy(args, CMD+arg);
trim(args);

for (i = 0; i < NUM_OF_CMD; i++)
	{
	if (!strcmp(cmd, COMMANDS[i].name))
		{
		result = ((handler1_t)COMMANDS[i].handler)(args);
                if (result != TRUE)
                   {
                   #if LANG_ENG
                       printf("  Error!\n\r");
                   #elif LANG_RUS
                       printf("  Žè¨¡ª !\n\r");
                   #endif
                    }
		return;
		}
	}


if ( -1 != alias_search(CMD) )
	{
	strcpy(CMD, ALIASES+64*1024+256*alias_search(CMD));
	command_execute();
	return;
	}

executable_run(cmd, args);

}

/// ===========================================================