cls.c

来自「PocketCMD是与pocketconsole配合实用的命令行解释器（Shel」· C语言 代码 · 共 64 行

/*
 *  CLS.C - clear screen internal command.
 *
 *
 *  History:
 *
 *    07/27/1998 (John P. Price)
 *        started.
 *
 *    27-Jul-1998 (John P Price <[e-mail]>)
 *        added config.h include
 *
 *    04-Dec-1998 (Eric Kohl <[e-mail]>)
 *        Changed to Win32 console app.
 *
 *    08-Dec-1998 (Eric Kohl <[e-mail]>)
 *        Added help text ("/?").
 *
 *    14-Jan-1998 (Eric Kohl <[e-mail]>)
 *        Unicode ready!
 *
 *    20-Jan-1998 (Eric Kohl <[e-mail]>)
 *        Redirection ready!
 */

#include "config.h"

#ifdef INCLUDE_CMD_CLS

#include "cmd.h"


INT cmd_cls (LPTSTR cmd, LPTSTR param)
{
	DWORD dwWritten;
	CONSOLE_SCREEN_BUFFER_INFO csbi;
	COORD coPos;
	HANDLE hOut;

	if (!_tcsncmp (param, _T("/?"), 2))
	{
		ConOutPuts (_T("Clears the screen.\n\nCLS"));
		return 0;
	}

	hOut = GetStdHandle(STD_OUTPUT_HANDLE);
	GetConsoleScreenBufferInfo (hOut, &csbi);

	coPos.X = 0;
	coPos.Y = 0;
	FillConsoleOutputAttribute (hOut, wColor,
								(csbi.dwSize.X)*(csbi.dwSize.Y),
								coPos, &dwWritten);
	FillConsoleOutputCharacter (hOut, _T(' '),
								(csbi.dwSize.X)*(csbi.dwSize.Y),
								coPos, &dwWritten);
	SetConsoleCursorPosition (hOut, coPos);

	bIgnoreEcho = TRUE;

	return 0;
}
#endif