mirror of
https://github.com/reactos/reactos.git
synced 2025-08-02 00:03:22 +00:00
Implemented 4nt compatible color command.
svn path=/trunk/; revision=752
This commit is contained in:
parent
cfb22d72df
commit
18a01fd10d
6 changed files with 367 additions and 45 deletions
287
rosapps/cmd/strtoclr.c
Normal file
287
rosapps/cmd/strtoclr.c
Normal file
|
@ -0,0 +1,287 @@
|
|||
/*
|
||||
* STRTOCLR.C - read color (for color command and other)
|
||||
*
|
||||
*
|
||||
* History:
|
||||
*
|
||||
* 07-Oct-1999 (Paolo Pantaleo)
|
||||
* Started.
|
||||
*
|
||||
*
|
||||
*/
|
||||
|
||||
/*only
|
||||
BOOL StringToColor(LPWORD lpColor, LPTSTR*str)
|
||||
is to be called
|
||||
other are internal service functions*/
|
||||
|
||||
|
||||
#include "cmd.h"
|
||||
|
||||
#include <ctype.h>
|
||||
#include <tchar.h>
|
||||
|
||||
|
||||
#define _B FOREGROUND_BLUE
|
||||
#define _G FOREGROUND_GREEN
|
||||
#define _R FOREGROUND_RED
|
||||
#define _I FOREGROUND_INTENSITY
|
||||
|
||||
|
||||
/*return values for chop_blank*/
|
||||
#define CP_OK 0
|
||||
#define CP_BLANK_NOT_FOUND 1
|
||||
#define CP_END_OF_STRING 2
|
||||
|
||||
#define SC_HEX 0x0100
|
||||
#define SC_TXT 0x0200
|
||||
|
||||
|
||||
|
||||
typedef struct _CLRTABLE
|
||||
{
|
||||
LPTSTR name;
|
||||
WORD val;
|
||||
} CLRTABLE;
|
||||
|
||||
|
||||
CLRTABLE clrtable[] =
|
||||
{
|
||||
{"bla" ,0 },
|
||||
{"blu" ,_B },
|
||||
{"gre" ,_G },
|
||||
{"cya" ,_B|_G },
|
||||
{"red" ,_R },
|
||||
{"mag" ,_B|_R },
|
||||
{"yel" ,_R|_G },
|
||||
{"whi" ,_R|_G|_B },
|
||||
{"gra" ,_I },
|
||||
|
||||
|
||||
{"0" ,0 },
|
||||
{"2" ,_G },
|
||||
{"3" ,_B|_G },
|
||||
{"4" ,_R },
|
||||
{"5" ,_B|_R },
|
||||
{"6" ,_R|_G },
|
||||
{"7" ,_R|_G|_B },
|
||||
|
||||
{"8" ,_I },
|
||||
{"9" ,_I|_B },
|
||||
{"10" ,_I|_G },
|
||||
{"11" ,_I|_B|_G },
|
||||
{"12" ,_I|_R },
|
||||
{"13" ,_I|_B|_R },
|
||||
{"14" ,_I|_R|_G },
|
||||
{"15" ,_I|_R|_G|_B},
|
||||
|
||||
|
||||
/* note that 1 is at the end of list
|
||||
to avoid to confuse it with 10-15*/
|
||||
{"1" ,_B },
|
||||
|
||||
/*cyan synonimous*/
|
||||
{"aqu" ,_B|_G },
|
||||
/*magenta synonimous*/
|
||||
{"pur" ,_B|_R },
|
||||
|
||||
|
||||
{"" ,0},
|
||||
};
|
||||
|
||||
|
||||
|
||||
/*
|
||||
move string pointer to next word (skip all spaces)
|
||||
on erro retunr nonzero value
|
||||
*/
|
||||
static
|
||||
INT chop_blank(LPTSTR *arg_str)
|
||||
{
|
||||
|
||||
LPTSTR str;
|
||||
str = _tcschr(*arg_str,_T(' '));
|
||||
if(!str)
|
||||
{
|
||||
str = _tcschr (*arg_str, _T('\0'));
|
||||
if(str != NULL)
|
||||
*arg_str=str;
|
||||
return CP_BLANK_NOT_FOUND;
|
||||
}
|
||||
|
||||
|
||||
|
||||
while(_istspace(*str))
|
||||
str++;
|
||||
|
||||
if (*str == _T('\0'))
|
||||
{
|
||||
*arg_str=str;
|
||||
return CP_END_OF_STRING;
|
||||
}
|
||||
|
||||
*arg_str = str;
|
||||
|
||||
return CP_OK;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*
|
||||
read a color value in hex (like win nt's cmd syntax)
|
||||
if an error occurs return -1
|
||||
*/
|
||||
static
|
||||
WORD hex_clr(LPTSTR str)
|
||||
{
|
||||
WORD ret= (WORD)-1;
|
||||
TCHAR ch;
|
||||
|
||||
ch = str[1];
|
||||
|
||||
if(_istdigit(ch))
|
||||
ret = ch-_T('0');
|
||||
else
|
||||
{
|
||||
ch=_totupper(ch);
|
||||
|
||||
if( ch >= _T('A') && ch <= _T('F') )
|
||||
ret = ch-_T('A')+10;
|
||||
else
|
||||
return (WORD)-1;
|
||||
}
|
||||
|
||||
|
||||
ch = str[0];
|
||||
|
||||
if(_istdigit(ch))
|
||||
ret |= (ch-_T('0')) << 4;
|
||||
else
|
||||
{
|
||||
ch=_totupper(ch);
|
||||
|
||||
if( ch >= _T('A') && ch <= _T('F') )
|
||||
ret |= (ch-_T('A')+10) <<4;
|
||||
else
|
||||
return (WORD)-1;
|
||||
}
|
||||
|
||||
return ret;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
read a color value from a string (like 4nt's syntax)
|
||||
if an error occurs return -1
|
||||
*/
|
||||
static
|
||||
WORD txt_clr(LPTSTR str)
|
||||
{
|
||||
INT i;
|
||||
|
||||
for(i=0;*(clrtable[i].name);i++)
|
||||
if( _tcsnicmp(str,clrtable[i].name,_tcslen(clrtable[i].name)) == 0)
|
||||
return clrtable[i].val;
|
||||
|
||||
return (WORD)-1;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*search for x on y*/
|
||||
static
|
||||
WORD str_to_color(LPTSTR* arg_str)
|
||||
{
|
||||
LPTSTR str;
|
||||
BOOL bBri=FALSE;
|
||||
|
||||
WORD tmp_clr,ret_clr;
|
||||
|
||||
str = *arg_str;
|
||||
|
||||
|
||||
|
||||
if(!(*str))
|
||||
return (WORD)-1;
|
||||
|
||||
|
||||
/*foreground*/
|
||||
if(_tcsnicmp(str,"bri",3) == 0 )
|
||||
{
|
||||
bBri = TRUE;
|
||||
|
||||
if(chop_blank(&str))
|
||||
return (WORD)-1;
|
||||
}
|
||||
|
||||
if( (tmp_clr = txt_clr(str)) == (WORD)-1 )
|
||||
{
|
||||
return (WORD)-1;
|
||||
}
|
||||
|
||||
/*skip spaces and "on"*/
|
||||
if ( chop_blank(&str) || chop_blank(&str) )
|
||||
return (WORD)-1;
|
||||
|
||||
ret_clr = tmp_clr | (bBri << 3);
|
||||
|
||||
/*background*/
|
||||
|
||||
if(_tcsnicmp(str,"bri",3) == 0 )
|
||||
{
|
||||
bBri = TRUE;
|
||||
|
||||
if(chop_blank(&str))
|
||||
return (WORD)-1;
|
||||
}
|
||||
|
||||
|
||||
if( (tmp_clr = txt_clr(str)) == (WORD)-1 )
|
||||
return (WORD)-1;
|
||||
|
||||
chop_blank(&str);
|
||||
|
||||
*arg_str = str;
|
||||
|
||||
return SC_HEX | ret_clr | tmp_clr << 4 | bBri << 7;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/****main function****/
|
||||
/*
|
||||
the only parameter is arg_str, a pointer to a string.
|
||||
the string is modified so it will begin to first word after
|
||||
color specification
|
||||
(only the char* is moved, no chars in the string are modfied)
|
||||
|
||||
|
||||
it returns the color in the l.o. byte, plus two flags in the
|
||||
h.o. byte, they are:
|
||||
SC_HEX win nt's cmd syntax (for exampl a0)
|
||||
SC_TXT 4nt's syntax ( "bri gre on bla" or "10 on 0")
|
||||
|
||||
if succedes also move the LPTSTR to end of
|
||||
string that specify color
|
||||
*/
|
||||
|
||||
|
||||
BOOL StringToColor(LPWORD lpColor, LPTSTR*str)
|
||||
{
|
||||
WORD wRet;
|
||||
|
||||
wRet = str_to_color (str);
|
||||
if (wRet == (WORD)-1)
|
||||
{
|
||||
wRet=hex_clr (*str);
|
||||
chop_blank (str);
|
||||
if (wRet == (WORD)-1)
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
*lpColor = wRet;
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
/* EOF */
|
Loading…
Add table
Add a link
Reference in a new issue