Create a branch for header work.

svn path=/branches/header-work/; revision=45691

base/shell/cmd/strtoclr.c

@@ -0,0 +1,284 @@
+/*
+ *  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 <precomp.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[] =
+{
+	{_T("bla")	,0		},
+	{_T("blu")	,_B		},
+	{_T("gre")	,_G		},
+	{_T("cya")	,_B|_G		},
+	{_T("red")	,_R		},
+	{_T("mag")	,_B|_R		},
+	{_T("yel")	,_R|_G		},
+	{_T("whi")	,_R|_G|_B	},
+	{_T("gra")	,_I		},
+
+
+	{_T("0")	,0		},
+	{_T("2")	,_G		},
+	{_T("3")	,_B|_G		},
+	{_T("4")	,_R		},
+	{_T("5")	,_B|_R		},
+	{_T("6")	,_R|_G		},
+	{_T("7")	,_R|_G|_B	},
+
+	{_T("8")	,_I		},
+	{_T("9")	,_I|_B		},
+	{_T("10")	,_I|_G		},
+	{_T("11")	,_I|_B|_G	},
+	{_T("12")	,_I|_R		},
+	{_T("13")	,_I|_B|_R	},
+	{_T("14")	,_I|_R|_G	},
+	{_T("15")	,_I|_R|_G|_B	},
+
+
+	/* note that 1 is at the end of list
+	to avoid to confuse it with 10-15*/
+	{_T("1")	,_B		},
+
+	/*cyan synonimous*/
+	{_T("aqu")	,_B|_G		},
+	/*magenta synonimous*/
+	{_T("pur")	,_B|_R		},
+
+
+	{_T("")   ,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;
+
+	WORD tmp_clr,ret_clr;
+
+	str = *arg_str;
+
+	if (!(*str))
+		return (WORD)-1;
+
+
+	/*foreground*/
+	bBri = FALSE;
+
+	if (_tcsnicmp(str,_T("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*/
+	bBri = FALSE;
+
+	if(_tcsnicmp(str,_T("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 */