Method PerformLoop

Source/script.cpp:6281–6451

ResultType Line::PerformLoop(WIN32_FIND_DATA *apCurrentFile, RegItemStruct *apCurrentRegItem
	, LoopReadFileStruct *apCurrentReadFile, char *aCurrentField, bool &aContinueMainLoop
	, Line *&aJumpToLine, AttributeType aAttr, FileLoopModeType aFileLoopMode
	, bool aRecurseSubfolders, char *aFilePattern, __int64 aIterationLimit, bool aIsInfinite
	, __int64 &aIndex)
// Note: Even if aFilePattern is just a directory (i.e. with not wildcard pattern), it seems best
// not to append "\\*.*" to it because the pattern might be a script variable that the user wants
// to conditionally resolve to various things at runtime.  In other words, it's valid to have
// only a single directory be the target of the loop.
{
	BOOL file_found = FALSE;
	HANDLE file_search = INVALID_HANDLE_VALUE;
	char file_path[MAX_PATH] = "";
	char naked_filename_or_pattern[MAX_PATH] = "";
	// apCurrentFile is the file of the file-loop that encloses this file-loop, if any.
	// The below is our own current_file, which will take precedence over apCurrentFile
	// if this loop is a file-loop:
	WIN32_FIND_DATA new_current_file = {0};
	if (aAttr == ATTR_LOOP_FILE)
	{
		file_search = FindFirstFile(aFilePattern, &new_current_file);
		file_found = (file_search != INVALID_HANDLE_VALUE);
		// Make a local copy of the path given in aFilePattern because as the lines of
		// the loop are executed, the deref buffer (which is what aFilePattern might
		// point to if we were called from ExecUntil()) may be overwritten --
		// and we will need the path string for every loop iteration.  We also need
		// to determine naked_filename_or_pattern:
		strlcpy(file_path, aFilePattern, sizeof(file_path));
		char *last_backslash = strrchr(file_path, '\\');
		if (last_backslash)
		{
			strlcpy(naked_filename_or_pattern, last_backslash + 1, sizeof(naked_filename_or_pattern));
			*(last_backslash + 1) = '\0';  // i.e. retain the final backslash on the string.
		}
		else
		{
			strlcpy(naked_filename_or_pattern, file_path, sizeof(naked_filename_or_pattern));
			*file_path = '\0'; // There is no path, so use current working directory.
		}
		for (; file_found && FileIsFilteredOut(new_current_file, aFileLoopMode, file_path)
			; file_found = FindNextFile(file_search, &new_current_file));
	}

	// Note: It seems best NOT to report warning if the loop iterates zero times
	// (e.g if no files are found by FindFirstFile() above), since that could
	// easily be an expected outcome.

	ResultType result;
	Line *jump_to_line = NULL;
	for (; aIsInfinite || file_found || aIndex < aIterationLimit; ++aIndex)
	{
		// Execute once the body of the loop (either just one statement or a block of statements).
		// Preparser has ensured that every LOOP has a non-NULL next line.
		// apCurrentFile is sent as an arg so that more than one nested/recursive
		// file-loop can be supported:
		result = mNextLine->ExecUntil(ONLY_ONE_LINE, &jump_to_line
			, file_found ? &new_current_file : apCurrentFile // inner loop's file takes precedence over outer's.
			, apCurrentRegItem, apCurrentReadFile, aCurrentField