reactos/base/shell/cmd/cls.c

46 lines
834 B
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)
{
if (!_tcsncmp(param, _T("/?"), 2))
{
ConOutResPaging(TRUE, STRING_CLS_HELP);
return 0;
}
ConClearScreen(&StdOutScreen);
return 0;
}
#endif