idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-11-24 06:52:19 +03:00
Code Issues Projects Releases Wiki Activity

[ fix ] fix scheme002 test on windows

Browse Source
This commit is contained in:
Steve Dunham 2023-08-02 08:13:40 -07:00 committed by G. Allais
parent b7bda5e96d
commit dc43ce2056
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
support/c/idris_term.c
View File

@ -16,14 +16,18 @@ void idris2_setupTerm() {
int idris2_getTermCols() {
CONSOLE_SCREEN_BUFFER_INFO csbi;
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), &csbi);
return (int)csbi.srWindow.Right - csbi.srWindow.Left + 1;
if (GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), &csbi)) {
return (int)csbi.srWindow.Right - csbi.srWindow.Left + 1;
}
return 0;
}
int idris2_getTermLines() {
CONSOLE_SCREEN_BUFFER_INFO csbi;
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), &csbi);
return (int)csbi.srWindow.Bottom - csbi.srWindow.Top + 1;
if (GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), &csbi)) {
return (int)csbi.srWindow.Bottom - csbi.srWindow.Top + 1;
}
return 0;
}
#else