QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-05 21:40:25 +00:00
Code Issues Releases Wiki Activity

Color support for *nix terminals

Browse source
This commit is contained in:
Fellippe Heitor 2020-01-10 05:23:39 -03:00
parent 204a241d34
commit 04d4ad569d
1 changed files with 28 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
internal/c/libqb.cpp
View file

@ -7401,14 +7401,34 @@ void qbg_sub_color(uint32 col1,uint32 col2,uint32 bordercolor,int32 passed){
return;
}
#ifdef QB64_WINDOWS
if (write_page->console){
HANDLE output = GetStdHandle(STD_OUTPUT_HANDLE);
int color = col2 * 16 + col1;
SetConsoleTextAttribute(output, color);
return;
}
#endif
if (write_page->console){
#ifdef QB64_WINDOWS
HANDLE output = GetStdHandle(STD_OUTPUT_HANDLE);
int color = col2 * 16 + col1;
SetConsoleTextAttribute(output, color);
return;
#else
// accepts colors 0-255 as specified at
// https://en.wikipedia.org/wiki/ANSI_escape_code#8-bit
static qbs* ansi; if (!ansi) ansi=qbs_new(0,0);
static qbs* closure;
if (!closure) {
closure=qbs_new(0,0);
qbs_set(closure,qbs_new_txt_len(")m",2));
}
if (passed&1) {
if (col1>255) goto error;
qbs_set(ansi,qbs_add(qbs_add(qbs_new_txt_len("\033[38;5;\050",8),qbs_ltrim(qbs_str((uint32)(col1)))),closure));
cout<<(char*)ansi->chr;
}
if (passed&2) {
if (col2>255) goto error;
qbs_set(ansi,qbs_add(qbs_add(qbs_new_txt_len("\033[48;5;\050",8),qbs_ltrim(qbs_str((uint32)(col2)))),closure));
cout<<(char*)ansi->chr;
}
return;
#endif
}
if (write_page->compatible_mode==32){
if (passed&4) goto error;