reactos/base/shell/cmd/beep.c

/*
 *  BEEP.C - beep internal command.
 *
 *
 *  History:
 *
 *    16 Jul 1998 (Hans B Pufal)
 *        started.
 *
 *    16 Jul 1998 (John P Price)
 *        Separated commands into individual files.
 *
 *    27-Jul-1998 (John P Price <linux-guru@gcfl.net>)
 *        added config.h include
 *
 *    14-Jan-1999 (Eric Kohl)
 *        Added help text ("beep /?").
 *        Unicode ready!
 *
 *    20-Jan-1999 (Eric Kohl)
 *        Redirection ready!
 *
 *    02-Apr-2005 (Magnus Olsen) <magnus@greatlord.com>)
 *        Remove all hardcode string to En.rc
 */

#include <precomp.h>

#ifdef INCLUDE_CMD_BEEP


INT cmd_beep (LPTSTR param)
{
	if (_tcsncmp (param, _T("/?"), 2) == 0)
	{
		ConOutResPaging(TRUE,STRING_BEEP_HELP);
		return 0;
	}

#if 0
	/* check if run in batch mode */
	if (bc == NULL)
		return 1;
#endif
	MessageBeep (-1);

	return 0;
}
#endif
move explorer and cmd. Add a few .rbuild files svn path=/trunk/; revision=21019 2006-02-16 23:23:37 +00:00			`/*`
			`* BEEP.C - beep internal command.`
			`*`
			`*`
			`* History:`
			`*`
			`* 16 Jul 1998 (Hans B Pufal)`
			`* started.`
			`*`
			`* 16 Jul 1998 (John P Price)`
			`* Separated commands into individual files.`
			`*`
			`* 27-Jul-1998 (John P Price <linux-guru@gcfl.net>)`
			`* added config.h include`
			`*`
Remove outdated email addresses. svn path=/trunk/; revision=26648 2007-05-05 11:32:25 +00:00			`* 14-Jan-1999 (Eric Kohl)`
move explorer and cmd. Add a few .rbuild files svn path=/trunk/; revision=21019 2006-02-16 23:23:37 +00:00			`* Added help text ("beep /?").`
			`* Unicode ready!`
			`*`
Remove outdated email addresses. svn path=/trunk/; revision=26648 2007-05-05 11:32:25 +00:00			`* 20-Jan-1999 (Eric Kohl)`
move explorer and cmd. Add a few .rbuild files svn path=/trunk/; revision=21019 2006-02-16 23:23:37 +00:00			`* Redirection ready!`
			`*`
			`* 02-Apr-2005 (Magnus Olsen) <magnus@greatlord.com>)`
			`* Remove all hardcode string to En.rc`
			`*/`

			`#include <precomp.h>`

			`#ifdef INCLUDE_CMD_BEEP`


Remove the "LPTSTR cmd" argument to internal commands; there's no need for a command to be told its own name. It was only used in two places: - a hack in cmd_mkdir that was already obsolete a decade ago - to distinguish "echo" from "echo.", but that is the wrong way to implement this anyway. There's nothing particularly special about the period, "echo" is just one of those commands that is lenient about where its parameters begin, and when it echos a line, the first character (usually a space, but in the case of "echo." a period) is skipped. svn path=/trunk/; revision=35647 2008-08-25 23:22:03 +00:00			`INT cmd_beep (LPTSTR param)`
move explorer and cmd. Add a few .rbuild files svn path=/trunk/; revision=21019 2006-02-16 23:23:37 +00:00			`{`
			`if (_tcsncmp (param, _T("/?"), 2) == 0)`
			`{`
			`ConOutResPaging(TRUE,STRING_BEEP_HELP);`
			`return 0;`
			`}`

			`#if 0`
			`/* check if run in batch mode */`
			`if (bc == NULL)`
			`return 1;`
			`#endif`
			`MessageBeep (-1);`

			`return 0;`
			`}`
			`#endif`