/*
 *  COLOR.C - color internal command.
 *
 *
 *  History:
 *
 *    13-Dec-1998 (Eric Kohl)
 *        Started.
 *
 *    19-Jan-1999 (Eric Kohl)
 *        Unicode ready!
 *
 *    20-Jan-1999 (Eric Kohl)
 *        Redirection ready!
 *
 *    14-Oct-1999 (Paolo Pantaleo <paolopan@freemail.it>)
 *        4nt's syntax implemented.
 *
 *    03-Apr-2005 (Magnus Olsen <magnus@greatlord.com>)
 *        Move all hardcoded strings in En.rc.
 */

#include "precomp.h"

#ifdef INCLUDE_CMD_COLOR

/*
 * color
 *
 * internal dir command
 */
INT CommandColor(LPTSTR rest)
{
    WORD wColor = 0x00;

    /* The user asked for help */
    if (_tcsncmp(rest, _T("/?"), 2) == 0)
    {
        ConOutResPaging(TRUE, STRING_COLOR_HELP1);
        return 0;
    }

    /* Let's prepare %ERRORLEVEL% */
    nErrorLevel = 0;

    /* No parameter: Set the default colors */
    if (rest[0] == _T('\0'))
    {
        ConSetScreenColor(ConStreamGetOSHandle(StdOut), wDefColor, TRUE);
        return 0;
    }

    /* The parameter is just one character: Set color text */
    if (_tcslen(rest) == 1)
    {
        if ((rest[0] >= _T('0')) && (rest[0] <= _T('9')))
        {
            wColor = (WORD)_ttoi(rest);
        }
        else if ((rest[0] >= _T('a')) && (rest[0] <= _T('f')))
        {
            wColor = (WORD)(rest[0] + 10 - _T('a'));
        }
        else if ((rest[0] >= _T('A')) && (rest[0] <= _T('F')))
        {
            wColor = (WORD)(rest[0] + 10 - _T('A'));
        }
        else /* Invalid character */
        {
            ConOutResPaging(TRUE, STRING_COLOR_HELP1);
            nErrorLevel = 1;
            return 1;
        }
    }
    /* Color string: advanced choice: two-digits, "Color ON Color", "Foreground ON Background" */
    else if (StringToColor(&wColor, &rest) == FALSE)
    {
        /* Invalid color string */
        ConOutResPaging(TRUE, STRING_COLOR_HELP1);
        nErrorLevel = 1;
        return 1;
    }

    TRACE("Color %02x\n", wColor);

    /*
     * Set the chosen color. Use also the following advanced flag:
     * /-F to avoid changing already buffered foreground/background.
     */
    if (ConSetScreenColor(ConStreamGetOSHandle(StdOut), wColor,
                          !_tcsstr(rest, _T("/-F")) && !_tcsstr(rest, _T("/-f"))) == FALSE)
    {
        /* Failed because foreground and background colors were the same */
        ConErrResPuts(STRING_COLOR_ERROR1);
        nErrorLevel = 1;
        return 1;
    }

    /* Return success */
    return 0;
}

#endif /* INCLUDE_CMD_COLOR */

/* EOF */