mirror of
https://github.com/reactos/reactos.git
synced 2024-09-10 12:54:51 +00:00
![Amine Khaldi](/assets/img/avatar_default.png)
* Create a branch for some evul shell experiments. svn path=/branches/shell-experiments/; revision=61927
66 lines
1.5 KiB
C
66 lines
1.5 KiB
C
/*
|
|
* CLS.C - clear screen internal command.
|
|
*
|
|
*
|
|
* History:
|
|
*
|
|
* 07/27/1998 (John P. Price)
|
|
* started.
|
|
*
|
|
* 27-Jul-1998 (John P Price <linux-guru@gcfl.net>)
|
|
* added config.h include
|
|
*
|
|
* 04-Dec-1998 (Eric Kohl)
|
|
* Changed to Win32 console app.
|
|
*
|
|
* 08-Dec-1998 (Eric Kohl)
|
|
* Added help text ("/?").
|
|
*
|
|
* 14-Jan-1998 (Eric Kohl)
|
|
* Unicode ready!
|
|
*
|
|
* 20-Jan-1998 (Eric Kohl)
|
|
* Redirection ready!
|
|
*
|
|
* 02-Apr-2005 (Magnus Olsen <magnus@greatlord.com>)
|
|
* Remove all hardcoded strings in En.rc
|
|
*/
|
|
|
|
#include "precomp.h"
|
|
|
|
#ifdef INCLUDE_CMD_CLS
|
|
|
|
INT cmd_cls (LPTSTR param)
|
|
{
|
|
HANDLE hOutput = GetStdHandle(STD_OUTPUT_HANDLE);
|
|
CONSOLE_SCREEN_BUFFER_INFO csbi;
|
|
COORD coPos;
|
|
DWORD dwWritten;
|
|
|
|
if (!_tcsncmp (param, _T("/?"), 2))
|
|
{
|
|
ConOutResPaging(TRUE,STRING_CLS_HELP);
|
|
return 0;
|
|
}
|
|
|
|
if (GetConsoleScreenBufferInfo(hOutput, &csbi))
|
|
{
|
|
coPos.X = 0;
|
|
coPos.Y = 0;
|
|
FillConsoleOutputAttribute(hOutput, csbi.wAttributes,
|
|
csbi.dwSize.X * csbi.dwSize.Y,
|
|
coPos, &dwWritten);
|
|
FillConsoleOutputCharacter(hOutput, _T(' '),
|
|
csbi.dwSize.X * csbi.dwSize.Y,
|
|
coPos, &dwWritten);
|
|
SetConsoleCursorPosition(hOutput, coPos);
|
|
}
|
|
else
|
|
{
|
|
ConOutChar(_T('\f'));
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
#endif
|