X-Git-Url: http://git.jankratochvil.net/?p=reactos.git;a=blobdiff_plain;f=subsys%2Fsystem%2Fcmd%2Fgoto.c;fp=subsys%2Fsystem%2Fcmd%2Fgoto.c;h=c80a9e4047a753c440f51172ddc82964bff07112;hp=0000000000000000000000000000000000000000;hb=7c0db166f81fbe8c8b913d7f26048e337d383605;hpb=e3ed2d773259cc445c7ff8181ebd934931365328

diff --git a/subsys/system/cmd/goto.c b/subsys/system/cmd/goto.c
new file mode 100644
index 0000000..c80a9e4
--- /dev/null
+++ b/subsys/system/cmd/goto.c
@@ -0,0 +1,109 @@
+/*
+ *  GOTO.C - goto internal batch command.
+ *
+ *  History:
+ *
+ *    16 Jul 1998 (Hans B Pufal)
+ *        started.
+ *
+ *    16 Jul 1998 (John P Price)
+ *        Seperated commands into individual files.
+ *
+ *    27-Jul-1998 (John P Price <linux-guru@gcfl.net>)
+ *        added config.h include
+ *
+ *    28 Jul 1998 (Hans B Pufal) [HBP_003]
+ *        Terminate label on first space character, use only first 8 chars of
+ *        label string
+ *
+ *    24-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
+ *        Unicode and redirection safe!
+ *
+ *    27-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
+ *        Added help text ("/?").
+ */
+
+#include "config.h"
+
+#include <windows.h>
+#include <tchar.h>
+#include <string.h>
+#include <ctype.h>
+
+#include "cmd.h"
+#include "batch.h"
+
+
+/*
+ * Perform GOTO command.
+ *
+ * Only valid if batch file current.
+ *
+ */
+
+INT cmd_goto (LPTSTR cmd, LPTSTR param)
+{
+	LPTSTR tmp;
+	LONG   lNewPosHigh;
+
+#ifdef _DEBUG
+	DebugPrintf ("cmd_goto (\'%s\', \'%s\'\n", cmd, param);
+#endif
+
+	if (!_tcsncmp (param, _T("/?"), 2))
+	{
+		ConOutPuts (_T("Directs CMD to a labeled line in a batch script.\n"
+					   "\n"
+					   "GOTO label\n"
+					   "\n"
+					   "  label  Specifies a text string used in a batch script as a label.\n"
+					   "\n"
+					   "You type a label on a line by itself, beginning with a colon."));
+		return 0;
+	}
+
+	/* if not in batch -- error!! */
+	if (bc == NULL)
+	{
+		return 1;
+	}
+
+	if (*param == _T('\0'))
+	{
+		ExitBatch (_T("No label specified for GOTO\n"));
+		return 1;
+	}
+
+	/* terminate label at first space char */
+	tmp = param;
+	while (*tmp && !_istspace (*tmp))
+		tmp++;
+	*tmp = _T('\0');
+
+	/* set file pointer to the beginning of the batch file */
+	lNewPosHigh = 0;
+	SetFilePointer (bc->hBatchFile, 0, &lNewPosHigh, FILE_BEGIN);
+
+	while (FileGetString (bc->hBatchFile, textline, sizeof(textline)))
+	{
+		/* Strip out any trailing spaces or control chars */
+		tmp = textline + _tcslen (textline) - 1;
+		while (_istcntrl (*tmp) || _istspace (*tmp))
+			tmp--;
+		*(tmp + 1) = _T('\0');
+
+		/* Then leading spaces... */
+		tmp = textline;
+		while (_istspace (*tmp))
+			tmp++;
+
+		/* use only 1st 8 chars of label */
+		if ((*tmp == _T(':')) && (_tcsncmp (++tmp, param, 8) == 0))
+			return 0;
+	}
+
+	ConErrPrintf (_T("Label '%s' not found\n"), param);
+	ExitBatch (NULL);
+
+	return 1;
+}