/src/tools/lua_debug/scintilla/lexers/LexOthers.cxx

Large files files are truncated, but you can click here to view the full file

// Scintilla source code edit control

/** @file LexOthers.cxx

 ** Lexers for batch files, diff results, properties files, make files and error lists.

 ** Also lexer for LaTeX documents.

 **/

// Copyright 1998-2001 by Neil Hodgson <neilh@scintilla.org>

// The License.txt file describes the conditions under which this software may be distributed.



#include <stdlib.h>

#include <string.h>

#include <stdio.h>

#include <stdarg.h>

#include <assert.h>

#include <ctype.h>



#include "ILexer.h"

#include "Scintilla.h"

#include "SciLexer.h"



#include "PropSetSimple.h"

#include "WordList.h"

#include "LexAccessor.h"

#include "Accessor.h"

#include "StyleContext.h"

#include "CharacterSet.h"

#include "LexerModule.h"



#ifdef SCI_NAMESPACE

using namespace Scintilla;

#endif



static bool strstart(const char *haystack, const char *needle) {

	return strncmp(haystack, needle, strlen(needle)) == 0;

}



static bool Is0To9(char ch) {

	return (ch >= '0') && (ch <= '9');

}



static bool Is1To9(char ch) {

	return (ch >= '1') && (ch <= '9');

}



static bool IsAlphabetic(int ch) {

	return isascii(ch) && isalpha(ch);

}



static inline bool AtEOL(Accessor &styler, unsigned int i) {

	return (styler[i] == '\n') ||

	       ((styler[i] == '\r') && (styler.SafeGetCharAt(i + 1) != '\n'));

}



// Tests for BATCH Operators

static bool IsBOperator(char ch) {

	return (ch == '=') || (ch == '+') || (ch == '>') || (ch == '<') ||

//!		(ch == '|') || (ch == '?') || (ch == '*');

		(ch == '|') || (ch == '?') || (ch == '*') || (ch == '(') || (ch == ')'); //!-change-[BatchLexerImprovement]

}



// Tests for BATCH Separators

static bool IsBSeparator(char ch) {

	return (ch == '\\') || (ch == '.') || (ch == ';') ||

//!		(ch == '\"') || (ch == '\'') || (ch == '/') || (ch == ')');

		(ch == '\"') || (ch == '\'') || (ch == '/'); //!-change-[BatchLexerImprovement]

}



//!-start-[BatchLexerImprovement]

// Tests for Environment Variable simbol

static inline bool IsEnvironmentVar(char ch) {

	return isalpha(ch) || Is0To9(ch) || (ch == '_');

}



// Tests for BATCH Variable simbol

static inline bool IsBatchVar(char ch) {

	return isalpha(ch) || Is0To9(ch);

}



// Find length of BATCH Variable with modifier (%~...) or return 0

static unsigned int GetBatchVarLen(char *wordBuffer, unsigned int wbl)

{

	if (wbl > 2 && wordBuffer[0] == '%' && wordBuffer[1] == '~') {

		wordBuffer += 2;

		if (wbl > 5 && wordBuffer[0] == '$' && isalpha(wordBuffer[1])) {

			unsigned int l = 2;

			while (IsEnvironmentVar(wordBuffer[l])) l++;

			if (wordBuffer[l] == ':' && IsBatchVar(wordBuffer[l+1]))

				return l + 4;

		} else

		if (wbl > 7 && 0 == CompareNCaseInsensitive(wordBuffer, "dp$", 3) &&

			isalpha(wordBuffer[3])) {

			unsigned int l = 4;

			while (IsEnvironmentVar(wordBuffer[l])) l++;

			if (wordBuffer[l] == ':' && IsBatchVar(wordBuffer[l+1]))

				return l + 4;

		} else

		if (wbl > 6 && 0 == CompareNCaseInsensitive(wordBuffer, "ftza", 4) &&

			IsBatchVar(wordBuffer[4])) {

			return 7;

		} else

		if (wbl > 4 &&

			(0 == CompareNCaseInsensitive(wordBuffer, "dp", 2) ||

			0 == CompareNCaseInsensitive(wordBuffer, "nx", 2) ||

			0 == CompareNCaseInsensitive(wordBuffer, "fs", 2)) &&

			IsBatchVar(wordBuffer[2])) {

			return 5;

		} else

		if (wbl > 3 &&

			(wordBuffer[0] == 'f' || wordBuffer[0] == 'F' ||

			wordBuffer[0] == 'd' || wordBuffer[0] == 'D' ||

			wordBuffer[0] == 'p' || wordBuffer[0] == 'P' ||

			wordBuffer[0] == 'n' || wordBuffer[0] == 'N' ||

			wordBuffer[0] == 'x' || wordBuffer[0] == 'X' ||

			wordBuffer[0] == 's' || wordBuffer[0] == 'S' ||

			wordBuffer[0] == 'a' || wordBuffer[0] == 'A' ||

			wordBuffer[0] == 't' || wordBuffer[0] == 'T' ||

			wordBuffer[0] == 'z' || wordBuffer[0] == 'Z') &&

			IsBatchVar(wordBuffer[1])) {

			return 4;

		} else

		if (IsBatchVar(wordBuffer[0])) {

			return 3;

		}

	}

	return 0;

}



/** similar to InList, but keyword can be a substring of word s.

 * eg. the keyword define is defined as def~ or def~e. This means the word must

 * start with def and finished with e to be a keyword, but also may have any

 * symbols instead of marker.

 * The marker is ~ in this case.

 * Returns in mainLen - the length of starting part and in finLen - final part.

 */

static bool InListPartly(WordList &wl,const char *s, const char marker, int &mainLen, int &finLen) {

	if (0 == wl.words || !*s) {

		mainLen = finLen = 0;

		return false;

	}

	unsigned char firstChar = s[0];

	int j = wl.starts[firstChar];

	if (j >= 0) {

		while ((unsigned char)wl.words[j][0] == firstChar) {

			if (s[1] == wl.words[j][1]) {

				const char *a = wl.words[j] + 1;

				const char *b = s + 1;

				mainLen = finLen = 0;

				while (*a && *a != marker && *a == *b) {

					a++;

					b++;

					mainLen++;

				}

				if (!*a && !*b)

					return true;

				if (*a == marker) {

					while (*a) a++;

					while (*b) b++;

					finLen = -1;

					while (*a != marker && *a == *b) {

						a--;

						b--;

						finLen++;

					}

					if (*a == marker)

						return true;

				}

			}

			j++;

		}

	}

	j = wl.starts['^'];

	if (j >= 0) {

		while (wl.words[j][0] == '^') {

			const char *a = wl.words[j] + 1;

			const char *b = s;

			mainLen = finLen = 0;

			while (*a && *a == *b) {

				a++;

				b++;

				mainLen++;

			}

			if (!*a)

				return true;

			j++;

		}

	}

	mainLen = finLen = 0;

	return false;

}

//!-end-[BatchLexerImprovement]



static void ColouriseBatchLine(

    char *lineBuffer,

    unsigned int lengthLine,

    unsigned int startLine,

    unsigned int endPos,

    WordList *keywordlists[],

    Accessor &styler) {



	unsigned int offset = 0;	// Line Buffer Offset

	unsigned int cmdLoc;		// External Command / Program Location

	char wordBuffer[81];		// Word Buffer - large to catch long paths

	unsigned int wbl;		// Word Buffer Length

	unsigned int wbo;		// Word Buffer Offset - also Special Keyword Buffer Length

	WordList &keywords = *keywordlists[0];      // Internal Commands

	WordList &keywords2 = *keywordlists[1];     // External Commands (optional)

	bool isDelayedExpansion = styler.GetPropertyInt("lexer.batch.enabledelayedexpansion") != 0; //!-add-[BatchLexerImprovement]



	// CHOICE, ECHO, GOTO, PROMPT and SET have Default Text that may contain Regular Keywords

	//   Toggling Regular Keyword Checking off improves readability

	// Other Regular Keywords and External Commands / Programs might also benefit from toggling

	//   Need a more robust algorithm to properly toggle Regular Keyword Checking

	bool continueProcessing = true;	// Used to toggle Regular Keyword Checking

	// Special Keywords are those that allow certain characters without whitespace after the command

	// Examples are: cd. cd\ md. rd. dir| dir> echo: echo. path=

	bool inString = false; // Used for processing while "" //!-add-[BatchLexerImprovement]

	// Special Keyword Buffer used to determine if the first n characters is a Keyword

	char sKeywordBuffer[10];	// Special Keyword Buffer

	bool sKeywordFound;		// Exit Special Keyword for-loop if found



	// Skip initial spaces

	while ((offset < lengthLine) && (isspacechar(lineBuffer[offset]))) {

		offset++;

	}

	// Colorize Default Text

	styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT);

	// Set External Command / Program Location

	cmdLoc = offset;



	// Check for Fake Label (Comment) or Real Label - return if found

	if (lineBuffer[offset] == ':') {

		if (lineBuffer[offset + 1] == ':') {

			// Colorize Fake Label (Comment) - :: is similar to REM, see http://content.techweb.com/winmag/columns/explorer/2000/21.htm

			styler.ColourTo(endPos, SCE_BAT_COMMENT);

		} else {

			// Colorize Real Label

			styler.ColourTo(endPos, SCE_BAT_LABEL);

		}

		return;

//!-start-[BatchLexerImprovement]

	// Check for Comment - return if found

	} else if (CompareNCaseInsensitive(lineBuffer+offset, "rem", 3) == 0 &&

	           isspacechar(lineBuffer[offset + 3])) {

			styler.ColourTo(endPos, SCE_BAT_COMMENT);

			return;

//!-end-[BatchLexerImprovement]

	// Check for Drive Change (Drive Change is internal command) - return if found

	} else if ((IsAlphabetic(lineBuffer[offset])) &&

		(lineBuffer[offset + 1] == ':') &&

		((isspacechar(lineBuffer[offset + 2])) ||

		(((lineBuffer[offset + 2] == '\\')) &&

		(isspacechar(lineBuffer[offset + 3]))))) {

		// Colorize Regular Keyword

		styler.ColourTo(endPos, SCE_BAT_WORD);

		return;

	}



	// Check for Hide Command (@ECHO OFF/ON)

	if (lineBuffer[offset] == '@') {

		styler.ColourTo(startLine + offset, SCE_BAT_HIDE);

		offset++;

	}

	// Skip next spaces

	while ((offset < lengthLine) && (isspacechar(lineBuffer[offset]))) {

		offset++;

	}



	// Read remainder of line word-at-a-time or remainder-of-word-at-a-time

	while (offset < lengthLine) {

		if (offset > startLine) {

			// Colorize Default Text

			styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT);

		}

		// Copy word from Line Buffer into Word Buffer

		wbl = 0;

		for (; offset < lengthLine && wbl < 80 &&

		        !isspacechar(lineBuffer[offset]); wbl++, offset++) {

			wordBuffer[wbl] = static_cast<char>(tolower(lineBuffer[offset]));

		}

		wordBuffer[wbl] = '\0';

		wbo = 0;



/*!-start-remove-[BatchLexerImprovement]

// REM is comment only when it's a first word in line

		// Check for Comment - return if found

		if (CompareCaseInsensitive(wordBuffer, "rem") == 0) {

			styler.ColourTo(endPos, SCE_BAT_COMMENT);

			return;

		}

*/ //!-end-remove-[BatchLexerImprovement]

		// Check for Separator

		if (IsBSeparator(wordBuffer[0])) {

			// Check for External Command / Program

			if ((cmdLoc == offset - wbl) &&

				((wordBuffer[0] == ':') ||

				(wordBuffer[0] == '\\') ||

				(wordBuffer[0] == '.'))) {

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 1);

				// Colorize External Command / Program

				if (!keywords2) {

					styler.ColourTo(startLine + offset - 1, SCE_BAT_COMMAND);

				} else if (keywords2.InList(wordBuffer)) {

					styler.ColourTo(startLine + offset - 1, SCE_BAT_COMMAND);

				} else {

					styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT);

				}

				// Reset External Command / Program Location

				cmdLoc = offset;

			} else {

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 1);

				// Colorize Default Text

				styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT);

//!-start-[BatchLexerImprovement]

				if (wordBuffer[0] == '"')

					inString = !inString;

//!-end-[BatchLexerImprovement]

			}

//!-start-[BatchLexerImprovement]

		// Check for Labels in text (... :label)

		} else if (wordBuffer[0] == ':' && isspacechar(lineBuffer[offset - wbl - 1])) {

			// Colorize Default Text

			styler.ColourTo(startLine + offset - 1 - wbl, SCE_BAT_DEFAULT);

			// Colorize Label

			styler.ColourTo(startLine + offset - 1, SCE_BAT_CLABEL);

			// No need to Reset Offset

		// Check for SetLocal Variable (!x...!)

		} else if (isDelayedExpansion && wordBuffer[0] == '!') {

			// Colorize Default Text

			styler.ColourTo(startLine + offset - 1 - wbl, SCE_BAT_DEFAULT);

			wbo++;

			// Search to end of word for second !

			while ((wbo < wbl) &&

				(wordBuffer[wbo] != '!') &&

				(!IsBOperator(wordBuffer[wbo])) &&

				(!IsBSeparator(wordBuffer[wbo]))) {

				wbo++;

			}

			if (wordBuffer[wbo] == '!') {

				wbo++;

				// Colorize Environment Variable

				styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_EXPANSION);

			} else {

				wbo = 1;

				// Colorize Simbol

				styler.ColourTo(startLine + offset - 1 - (wbl - 1), SCE_BAT_DEFAULT);

			}

			// Check for External Command / Program

			if (cmdLoc == offset - wbl) {

				cmdLoc = offset - (wbl - wbo);

			}

			// Reset Offset to re-process remainder of word

			offset -= (wbl - wbo);

//!-end-[BatchLexerImprovement]

		// Check for Regular Keyword in list

		} else if ((keywords.InList(wordBuffer)) &&

			(!inString) && //!-add-[BatchLexerImprovement]

			(continueProcessing)) {

			// ECHO, GOTO, PROMPT and SET require no further Regular Keyword Checking

			if ((CompareCaseInsensitive(wordBuffer, "echo") == 0) ||

				(CompareCaseInsensitive(wordBuffer, "goto") == 0) ||

				(CompareCaseInsensitive(wordBuffer, "prompt") == 0) ||

				(CompareCaseInsensitive(wordBuffer, "set") == 0)) {

				continueProcessing = false;

			}

			// Identify External Command / Program Location for ERRORLEVEL, and EXIST

			if ((CompareCaseInsensitive(wordBuffer, "errorlevel") == 0) ||

				(CompareCaseInsensitive(wordBuffer, "exist") == 0)) {

				// Reset External Command / Program Location

				cmdLoc = offset;

				// Skip next spaces

				while ((cmdLoc < lengthLine) &&

					(isspacechar(lineBuffer[cmdLoc]))) {

					cmdLoc++;

				}

				// Skip comparison

				while ((cmdLoc < lengthLine) &&

					(!isspacechar(lineBuffer[cmdLoc]))) {

					cmdLoc++;

				}

				// Skip next spaces

				while ((cmdLoc < lengthLine) &&

					(isspacechar(lineBuffer[cmdLoc]))) {

					cmdLoc++;

				}

			// Identify External Command / Program Location for CALL, DO, LOADHIGH and LH

			} else if ((CompareCaseInsensitive(wordBuffer, "call") == 0) ||

				(CompareCaseInsensitive(wordBuffer, "do") == 0) ||

				(CompareCaseInsensitive(wordBuffer, "loadhigh") == 0) ||

				(CompareCaseInsensitive(wordBuffer, "lh") == 0)) {

				// Reset External Command / Program Location

				cmdLoc = offset;

				// Skip next spaces

				while ((cmdLoc < lengthLine) &&

					(isspacechar(lineBuffer[cmdLoc]))) {

					cmdLoc++;

				}

			}

			// Colorize Regular keyword

			styler.ColourTo(startLine + offset - 1, SCE_BAT_WORD);

			// No need to Reset Offset

		// Check for Special Keyword in list, External Command / Program, or Default Text

		} else if ((wordBuffer[0] != '%') &&

				   (wordBuffer[0] != '!') &&

			(!IsBOperator(wordBuffer[0])) &&

			(!inString) && //!-add-[BatchLexerImprovement]

			(continueProcessing)) {

			// Check for Special Keyword

			//     Affected Commands are in Length range 2-6

			//     Good that ERRORLEVEL, EXIST, CALL, DO, LOADHIGH, and LH are unaffected

			sKeywordFound = false;

			for (unsigned int keywordLength = 2; keywordLength < wbl && keywordLength < 7 && !sKeywordFound; keywordLength++) {

				wbo = 0;

				// Copy Keyword Length from Word Buffer into Special Keyword Buffer

				for (; wbo < keywordLength; wbo++) {

					sKeywordBuffer[wbo] = static_cast<char>(wordBuffer[wbo]);

				}

				sKeywordBuffer[wbo] = '\0';

				// Check for Special Keyword in list

				if ((keywords.InList(sKeywordBuffer)) &&

					((IsBOperator(wordBuffer[wbo])) ||

					(IsBSeparator(wordBuffer[wbo])))) {

					sKeywordFound = true;

					// ECHO requires no further Regular Keyword Checking

					if (CompareCaseInsensitive(sKeywordBuffer, "echo") == 0) {

						continueProcessing = false;

					}

					// Colorize Special Keyword as Regular Keyword

					styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_WORD);

					// Reset Offset to re-process remainder of word

					offset -= (wbl - wbo);

				}

			}

			// Check for External Command / Program or Default Text

			if (!sKeywordFound) {

				wbo = 0;

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					// Read up to %, Operator or Separator

					while ((wbo < wbl) &&

						(wordBuffer[wbo] != '%') &&

//!						(wordBuffer[wbo] != '!') &&

						(!isDelayedExpansion || wordBuffer[wbo] != '!') && //!-change-[BatchLexerImprovement]

						(!IsBOperator(wordBuffer[wbo])) &&

						(!IsBSeparator(wordBuffer[wbo]))) {

						wbo++;

					}

					// Reset External Command / Program Location

					cmdLoc = offset - (wbl - wbo);

					// Reset Offset to re-process remainder of word

					offset -= (wbl - wbo);

					// CHOICE requires no further Regular Keyword Checking

					if (CompareCaseInsensitive(wordBuffer, "choice") == 0) {

						continueProcessing = false;

					}

					// Check for START (and its switches) - What follows is External Command \ Program

					if (CompareCaseInsensitive(wordBuffer, "start") == 0) {

						// Reset External Command / Program Location

						cmdLoc = offset;

						// Skip next spaces

						while ((cmdLoc < lengthLine) &&

							(isspacechar(lineBuffer[cmdLoc]))) {

							cmdLoc++;

						}

						// Reset External Command / Program Location if command switch detected

						if (lineBuffer[cmdLoc] == '/') {

							// Skip command switch

							while ((cmdLoc < lengthLine) &&

								(!isspacechar(lineBuffer[cmdLoc]))) {

								cmdLoc++;

							}

							// Skip next spaces

							while ((cmdLoc < lengthLine) &&

								(isspacechar(lineBuffer[cmdLoc]))) {

								cmdLoc++;

							}

						}

					}

					// Colorize External Command / Program

					if (!keywords2) {

						styler.ColourTo(startLine + offset - 1, SCE_BAT_COMMAND);

					} else if (keywords2.InList(wordBuffer)) {

						styler.ColourTo(startLine + offset - 1, SCE_BAT_COMMAND);

					} else {

						styler.ColourTo(startLine + offset - 1, SCE_BAT_DEFAULT);

					}

					// No need to Reset Offset

				// Check for Default Text

				} else {

					// Read up to %, Operator or Separator

					while ((wbo < wbl) &&

						(wordBuffer[wbo] != '%') &&

//!						(wordBuffer[wbo] != '!') &&

						(!isDelayedExpansion || wordBuffer[wbo] != '!') && //!-change-[BatchLexerImprovement]

						(!IsBOperator(wordBuffer[wbo])) &&

						(!IsBSeparator(wordBuffer[wbo]))) {

						wbo++;

					}

					// Colorize Default Text

					styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_DEFAULT);

					// Reset Offset to re-process remainder of word

					offset -= (wbl - wbo);

				}

			}

		// Check for Argument  (%n), Environment Variable (%x...%) or Local Variable (%%a)

		} else if (wordBuffer[0] == '%') {

			unsigned int varlen; //!-add-[BatchLexerImprovement]

			// Colorize Default Text

			styler.ColourTo(startLine + offset - 1 - wbl, SCE_BAT_DEFAULT);

			wbo++;

			// Search to end of word for second % (can be a long path)

			while ((wbo < wbl) &&

				(wordBuffer[wbo] != '%') &&

				(!IsBOperator(wordBuffer[wbo])) &&

				(!IsBSeparator(wordBuffer[wbo]))) {

				wbo++;

			}

			// Check for Argument (%n) or (%*)

			if (((Is0To9(wordBuffer[1])) || (wordBuffer[1] == '*')) &&

				(wordBuffer[wbo] != '%')) {

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - 2);

				}

				// Colorize Argument

				styler.ColourTo(startLine + offset - 1 - (wbl - 2), SCE_BAT_IDENTIFIER);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 2);

			// Check for Expanded Argument (%~...) / Variable (%%~...)

			} else if (((wbl > 1) && (wordBuffer[1] == '~')) ||

				((wbl > 2) && (wordBuffer[1] == '%') && (wordBuffer[2] == '~'))) {

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - wbo);

				}

				// Colorize Expanded Argument / Variable

				styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_IDENTIFIER);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - wbo);

			// Check for Environment Variable (%x...%)

			} else if ((wordBuffer[1] != '%') &&

				(wordBuffer[wbo] == '%')) {

				wbo++;

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - wbo);

				}

				// Colorize Environment Variable

//!				styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_IDENTIFIER);

				styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_ENVIRONMENT); //!-change-[BatchLexerImprovement]

				// Reset Offset to re-process remainder of word

				offset -= (wbl - wbo);

//!-start-[BatchLexerImprovement]

			// Check for Variable with modifiers (%~...)

			} else if ((varlen = GetBatchVarLen(wordBuffer, wbl)) != 0) {

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - varlen);

				}

				// Colorize Variable

				styler.ColourTo(startLine + offset - 1 - (wbl - varlen), SCE_BAT_IDENTIFIER);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - varlen);

			// Check for Local Variable with modifiers (%%~...)

			} else if ((wordBuffer[1] == '%') &&

				((varlen = GetBatchVarLen(wordBuffer+1, wbl-1)) != 0)) {

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - varlen - 1);

				}

				// Colorize Local Variable

				styler.ColourTo(startLine + offset - 1 - (wbl - varlen - 1), SCE_BAT_IDENTIFIER);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - varlen - 1);

//!-end-[BatchLexerImprovement]

			// Check for Local Variable (%%a)

			} else if (

				(wbl > 2) &&

				(wordBuffer[1] == '%') &&

				(wordBuffer[2] != '%') &&

				(!IsBOperator(wordBuffer[2])) &&

				(!IsBSeparator(wordBuffer[2]))) {

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - 3);

				}

				// Colorize Local Variable

				styler.ColourTo(startLine + offset - 1 - (wbl - 3), SCE_BAT_IDENTIFIER);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 3);

//!-start-[BatchLexerImprovement]

			// Check for %%

			} else if (

				(wbl > 1) &&

				(wordBuffer[1] == '%')) {

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - 2);

				}

				// Colorize Simbols

				styler.ColourTo(startLine + offset - 1 - (wbl - 2), SCE_BAT_DEFAULT);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 2);

			} else {

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - 1);

				}

				// Colorize Simbol

				styler.ColourTo(startLine + offset - 1 - (wbl - 1), SCE_BAT_DEFAULT);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 1);

//!-end-[BatchLexerImprovement]

			}

		// Check for Environment Variable (!x...!)

		} else if (wordBuffer[0] == '!') {

			// Colorize Default Text

			styler.ColourTo(startLine + offset - 1 - wbl, SCE_BAT_DEFAULT);

			wbo++;

			// Search to end of word for second ! (can be a long path)

			while ((wbo < wbl) &&

				(wordBuffer[wbo] != '!') &&

				(!IsBOperator(wordBuffer[wbo])) &&

				(!IsBSeparator(wordBuffer[wbo]))) {

				wbo++;

			}

			if (wordBuffer[wbo] == '!') {

				wbo++;

				// Check for External Command / Program

				if (cmdLoc == offset - wbl) {

					cmdLoc = offset - (wbl - wbo);

				}

				// Colorize Environment Variable

				styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_IDENTIFIER);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - wbo);

			}

		// Check for Operator

		} else if (IsBOperator(wordBuffer[0])) {

			// Colorize Default Text

			styler.ColourTo(startLine + offset - 1 - wbl, SCE_BAT_DEFAULT);

			// Check for Comparison Operator

			if ((wordBuffer[0] == '=') && (wordBuffer[1] == '=')) {

				// Identify External Command / Program Location for IF

				cmdLoc = offset;

				// Skip next spaces

				while ((cmdLoc < lengthLine) &&

					(isspacechar(lineBuffer[cmdLoc]))) {

					cmdLoc++;

				}

				// Colorize Comparison Operator

				styler.ColourTo(startLine + offset - 1 - (wbl - 2), SCE_BAT_OPERATOR);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 2);

			// Check for Pipe Operator

			} else if (wordBuffer[0] == '|') {

				// Reset External Command / Program Location

				cmdLoc = offset - wbl + 1;

				// Skip next spaces

				while ((cmdLoc < lengthLine) &&

					(isspacechar(lineBuffer[cmdLoc]))) {

					cmdLoc++;

				}

				// Colorize Pipe Operator

				styler.ColourTo(startLine + offset - 1 - (wbl - 1), SCE_BAT_OPERATOR);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 1);

			// Check for Other Operator

			} else {

				// Check for > Operator

				if (wordBuffer[0] == '>') {

					// Turn Keyword and External Command / Program checking back on

					continueProcessing = true;

				}

				// Colorize Other Operator

				if (!inString || !(wordBuffer[0] == '(' || wordBuffer[0] == ')')) //!-add-[BatchLexerImprovement]

				styler.ColourTo(startLine + offset - 1 - (wbl - 1), SCE_BAT_OPERATOR);

				// Reset Offset to re-process remainder of word

				offset -= (wbl - 1);

			}

		// Check for Default Text

		} else {

			// Read up to %, Operator or Separator

			while ((wbo < wbl) &&

				(wordBuffer[wbo] != '%') &&

//!				(wordBuffer[wbo] != '!') &&

				(!isDelayedExpansion || wordBuffer[wbo] != '!') && //!-add-[BatchLexerImprovement]

				(!IsBOperator(wordBuffer[wbo])) &&

				(!IsBSeparator(wordBuffer[wbo]))) {

				wbo++;

			}

			// Colorize Default Text

			styler.ColourTo(startLine + offset - 1 - (wbl - wbo), SCE_BAT_DEFAULT);

			// Reset Offset to re-process remainder of word

			offset -= (wbl - wbo);

		}

		// Skip next spaces - nothing happens if Offset was Reset

		while ((offset < lengthLine) && (isspacechar(lineBuffer[offset]))) {

			offset++;

		}

	}

	// Colorize Default Text for remainder of line - currently not lexed

	styler.ColourTo(endPos, SCE_BAT_DEFAULT);

}



static void ColouriseBatchDoc(

    unsigned int startPos,

    int length,

    int /*initStyle*/,

    WordList *keywordlists[],

    Accessor &styler) {



	char lineBuffer[1024];



	styler.StartAt(startPos);

	styler.StartSegment(startPos);

	unsigned int linePos = 0;

	unsigned int startLine = startPos;

	for (unsigned int i = startPos; i < startPos + length; i++) {

		lineBuffer[linePos++] = styler[i];

		if (AtEOL(styler, i) || (linePos >= sizeof(lineBuffer) - 1)) {

			// End of line (or of line buffer) met, colourise it

			lineBuffer[linePos] = '\0';

			ColouriseBatchLine(lineBuffer, linePos, startLine, i, keywordlists, styler);

			linePos = 0;

			startLine = i + 1;

		}

	}

	if (linePos > 0) {	// Last line does not have ending characters

		lineBuffer[linePos] = '\0';

		ColouriseBatchLine(lineBuffer, linePos, startLine, startPos + length - 1,

		                   keywordlists, styler);

	}

}



//!-start-[BatchLexerImprovement]

static void FoldBatchDoc(unsigned int startPos, int length, int,

    WordList *[], Accessor &styler)

{

	int line = styler.GetLine(startPos);

	int level = styler.LevelAt(line);

	int levelIndent = 0;

	unsigned int endPos = startPos + length;

	// Scan for ( and )

	for (unsigned int i = startPos; i < endPos; i++) {

		int c = styler.SafeGetCharAt(i, '\n');

		int style = styler.StyleAt(i);

		if (style == SCE_BAT_OPERATOR) {

			// CheckFoldPoint

			if (c == '(') {

				levelIndent += 1;

			} else

			if (c == ')') {

					levelIndent -= 1;

			}

		}

		if (c == '\n') { // line end

				if (levelIndent > 0) {

						level |= SC_FOLDLEVELHEADERFLAG;

				}

				if (level != styler.LevelAt(line))

						styler.SetLevel(line, level);

				level += levelIndent;

				if ((level & SC_FOLDLEVELNUMBERMASK) < SC_FOLDLEVELBASE)

						level = SC_FOLDLEVELBASE;

				line++;

				// reset state

				levelIndent = 0;

				level &= ~SC_FOLDLEVELHEADERFLAG;

				level &= ~SC_FOLDLEVELWHITEFLAG;

		}

	}

}

//!-end-[BatchLexerImprovement]



static void ColouriseDiffLine(char *lineBuffer, int endLine, Accessor &styler) {

	// It is needed to remember the current state to recognize starting

	// comment lines before the first "diff " or "--- ". If a real

	// difference starts then each line starting with ' ' is a whitespace

	// otherwise it is considered a comment (Only in..., Binary file...)

	if (0 == strncmp(lineBuffer, "diff ", 5)) {

		styler.ColourTo(endLine, SCE_DIFF_COMMAND);

	} else if (0 == strncmp(lineBuffer, "Index: ", 7)) {  // For subversion's diff

		styler.ColourTo(endLine, SCE_DIFF_COMMAND);

	} else if (0 == strncmp(lineBuffer, "---", 3)) {

		// In a context diff, --- appears in both the header and the position markers

		if (lineBuffer[3] == ' ' && atoi(lineBuffer + 4) && !strchr(lineBuffer, '/'))

			styler.ColourTo(endLine, SCE_DIFF_POSITION);

		else if (lineBuffer[3] == '\r' || lineBuffer[3] == '\n')

			styler.ColourTo(endLine, SCE_DIFF_POSITION);

		else

			styler.ColourTo(endLine, SCE_DIFF_HEADER);

	} else if (0 == strncmp(lineBuffer, "+++ ", 4)) {

		// I don't know of any diff where "+++ " is a position marker, but for

		// consistency, do the same as with "--- " and "*** ".

		if (atoi(lineBuffer+4) && !strchr(lineBuffer, '/'))

			styler.ColourTo(endLine, SCE_DIFF_POSITION);

		else

			styler.ColourTo(endLine, SCE_DIFF_HEADER);

	} else if (0 == strncmp(lineBuffer, "====", 4)) {  // For p4's diff

		styler.ColourTo(endLine, SCE_DIFF_HEADER);

	} else if (0 == strncmp(lineBuffer, "***", 3)) {

		// In a context diff, *** appears in both the header and the position markers.

		// Also ******** is a chunk header, but here it's treated as part of the

		// position marker since there is no separate style for a chunk header.

		if (lineBuffer[3] == ' ' && atoi(lineBuffer+4) && !strchr(lineBuffer, '/'))

			styler.ColourTo(endLine, SCE_DIFF_POSITION);

		else if (lineBuffer[3] == '*')

			styler.ColourTo(endLine, SCE_DIFF_POSITION);

		else

			styler.ColourTo(endLine, SCE_DIFF_HEADER);

	} else if (0 == strncmp(lineBuffer, "? ", 2)) {    // For difflib

		styler.ColourTo(endLine, SCE_DIFF_HEADER);

	} else if (lineBuffer[0] == '@') {

		styler.ColourTo(endLine, SCE_DIFF_POSITION);

	} else if (lineBuffer[0] >= '0' && lineBuffer[0] <= '9') {

		styler.ColourTo(endLine, SCE_DIFF_POSITION);

	} else if (lineBuffer[0] == '-' || lineBuffer[0] == '<') {

		styler.ColourTo(endLine, SCE_DIFF_DELETED);

	} else if (lineBuffer[0] == '+' || lineBuffer[0] == '>') {

		styler.ColourTo(endLine, SCE_DIFF_ADDED);

	} else if (lineBuffer[0] == '!') {

		styler.ColourTo(endLine, SCE_DIFF_CHANGED);

	} else if (lineBuffer[0] != ' ') {

		styler.ColourTo(endLine, SCE_DIFF_COMMENT);

	} else {

		styler.ColourTo(endLine, SCE_DIFF_DEFAULT);

	}

}



static void ColouriseDiffDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {

	char lineBuffer[1024];

	styler.StartAt(startPos);

	styler.StartSegment(startPos);

	unsigned int linePos = 0;

	for (unsigned int i = startPos; i < startPos + length; i++) {

		lineBuffer[linePos++] = styler[i];

		if (AtEOL(styler, i) || (linePos >= sizeof(lineBuffer) - 1)) {

			// End of line (or of line buffer) met, colourise it

			lineBuffer[linePos] = '\0';

			ColouriseDiffLine(lineBuffer, i, styler);

			linePos = 0;

		}

	}

	if (linePos > 0) {	// Last line does not have ending characters

		ColouriseDiffLine(lineBuffer, startPos + length - 1, styler);

	}

}



static void FoldDiffDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {

	int curLine = styler.GetLine(startPos);

	int curLineStart = styler.LineStart(curLine);

	int prevLevel = curLine > 0 ? styler.LevelAt(curLine - 1) : SC_FOLDLEVELBASE;

	int nextLevel;



	do {

		int lineType = styler.StyleAt(curLineStart);

		if (lineType == SCE_DIFF_COMMAND)

			nextLevel = SC_FOLDLEVELBASE | SC_FOLDLEVELHEADERFLAG;

		else if (lineType == SCE_DIFF_HEADER)

			nextLevel = (SC_FOLDLEVELBASE + 1) | SC_FOLDLEVELHEADERFLAG;

		else if (lineType == SCE_DIFF_POSITION && styler[curLineStart] != '-')

			nextLevel = (SC_FOLDLEVELBASE + 2) | SC_FOLDLEVELHEADERFLAG;

		else if (prevLevel & SC_FOLDLEVELHEADERFLAG)

			nextLevel = (prevLevel & SC_FOLDLEVELNUMBERMASK) + 1;

		else

			nextLevel = prevLevel;



		if ((nextLevel & SC_FOLDLEVELHEADERFLAG) && (nextLevel == prevLevel))

			styler.SetLevel(curLine-1, prevLevel & ~SC_FOLDLEVELHEADERFLAG);



		styler.SetLevel(curLine, nextLevel);

		prevLevel = nextLevel;



		curLineStart = styler.LineStart(++curLine);

	} while (static_cast<int>(startPos) + length > curLineStart);

}



static void ColourisePoLine(

    char *lineBuffer,

    unsigned int lengthLine,

    unsigned int startLine,

    unsigned int endPos,

    Accessor &styler) {



	unsigned int i = 0;

	static unsigned int state = SCE_PO_DEFAULT;

	unsigned int state_start = SCE_PO_DEFAULT;



	while ((i < lengthLine) && isspacechar(lineBuffer[i]))	// Skip initial spaces

		i++;

	if (i < lengthLine) {

		if (lineBuffer[i] == '#') {

			// check if the comment contains any flags ("#, ") and

			// then whether the flags contain "fuzzy"

			if (strstart(lineBuffer, "#, ") && strstr(lineBuffer, "fuzzy"))

				styler.ColourTo(endPos, SCE_PO_FUZZY);

			else

				styler.ColourTo(endPos, SCE_PO_COMMENT);

		} else {

			if (lineBuffer[0] == '"') {

				// line continuation, use previous style

				styler.ColourTo(endPos, state);

				return;

			// this implicitly also matches "msgid_plural"

			} else if (strstart(lineBuffer, "msgid")) {

				state_start = SCE_PO_MSGID;

				state = SCE_PO_MSGID_TEXT;

			} else if (strstart(lineBuffer, "msgstr")) {

				state_start = SCE_PO_MSGSTR;

				state = SCE_PO_MSGSTR_TEXT;

			} else if (strstart(lineBuffer, "msgctxt")) {

				state_start = SCE_PO_MSGCTXT;

				state = SCE_PO_MSGCTXT_TEXT;

			}

			if (state_start != SCE_PO_DEFAULT) {

				// find the next space

				while ((i < lengthLine) && ! isspacechar(lineBuffer[i]))

					i++;

				styler.ColourTo(startLine + i - 1, state_start);

				styler.ColourTo(startLine + i, SCE_PO_DEFAULT);

				styler.ColourTo(endPos, state);

			}

		}

	} else {

		styler.ColourTo(endPos, SCE_PO_DEFAULT);

	}

}



static void ColourisePoDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {

	char lineBuffer[1024];

	styler.StartAt(startPos);

	styler.StartSegment(startPos);

	unsigned int linePos = 0;

	unsigned int startLine = startPos;

	for (unsigned int i = startPos; i < startPos + length; i++) {

		lineBuffer[linePos++] = styler[i];

		if (AtEOL(styler, i) || (linePos >= sizeof(lineBuffer) - 1)) {

			// End of line (or of line buffer) met, colourise it

			lineBuffer[linePos] = '\0';

			ColourisePoLine(lineBuffer, linePos, startLine, i, styler);

			linePos = 0;

			startLine = i + 1;

		}

	}

	if (linePos > 0) {	// Last line does not have ending characters

		ColourisePoLine(lineBuffer, linePos, startLine, startPos + length - 1, styler);

	}

}



static inline bool isassignchar(unsigned char ch) {

	return (ch == '=') || (ch == ':');

}



//!-start-[PropsKeywords]

static bool isprefix(const char *target, const char *prefix) {

	while (*target && *prefix) {

		if (*target != *prefix)

			return false;

		target++;

		prefix++;

	}

	if (*prefix)

		return false;

	else

		return true;

}

//!-end-[PropsKeywords]



//!static void ColourisePropsLine(

static char ColourisePropsLine( // return last style //!-change-[PropsColouriseFix]

    char *lineBuffer,

    unsigned int lengthLine,

    unsigned int startLine,

    unsigned int endPos,

    WordList *keywordlists[], //!-add-[PropsKeysSets]

    Accessor &styler,

    bool allowInitialSpaces) {



	unsigned int i = 0;

	if (allowInitialSpaces) {

		while ((i < lengthLine) && isspacechar(lineBuffer[i]))	// Skip initial spaces

			i++;

	} else {

		if (isspacechar(lineBuffer[i])) // don't allow initial spaces

			i = lengthLine;

	}



	if (i < lengthLine) {

		if (lineBuffer[i] == '#' || lineBuffer[i] == '!' || lineBuffer[i] == ';') {

			styler.ColourTo(endPos, SCE_PROPS_COMMENT);

			return SCE_PROPS_COMMENT; //!-add-[PropsColouriseFix]

		} else if (lineBuffer[i] == '[') {

			styler.ColourTo(endPos, SCE_PROPS_SECTION);

			return SCE_PROPS_SECTION; //!-add-[PropsColouriseFix]

		} else if (lineBuffer[i] == '@') {

			styler.ColourTo(startLine + i, SCE_PROPS_DEFVAL);

			if (isassignchar(lineBuffer[i++]))

				styler.ColourTo(startLine + i, SCE_PROPS_ASSIGNMENT);

			styler.ColourTo(endPos, SCE_PROPS_DEFAULT);

//!-start-[PropsKeywords]

		} else if (isprefix(lineBuffer, "import ")) {

			styler.ColourTo(startLine + 6, SCE_PROPS_KEYWORD);

			styler.ColourTo(endPos, SCE_PROPS_DEFAULT);

		} else if (isprefix(lineBuffer, "if ")) {

			styler.ColourTo(startLine + 2, SCE_PROPS_KEYWORD);

			styler.ColourTo(endPos, SCE_PROPS_DEFAULT);

//!-end-[PropsKeywords]

		} else {

			// Search for the '=' character

			while ((i < lengthLine) && !isassignchar(lineBuffer[i]))

				i++;

			if ((i < lengthLine) && isassignchar(lineBuffer[i])) {

//!				styler.ColourTo(startLine + i - 1, SCE_PROPS_KEY);

//!-start-[PropsKeysSets]

				if (i > 0) {

					int chAttr;

					lineBuffer[i] = '\0';

					// remove trailing spaces

					int indent = 0;

					while (lineBuffer[0] == ' ' || lineBuffer[0] == '\t') {

						lineBuffer++;

						indent++;

					}

					int len=0, fin=0;

					if (InListPartly(*keywordlists[0],lineBuffer, '~', len, fin)) {

						chAttr = SCE_PROPS_KEYSSET0;

					} else if (InListPartly(*keywordlists[1],lineBuffer, '~', len, fin)) {

						chAttr = SCE_PROPS_KEYSSET1;

					} else if (InListPartly(*keywordlists[2],lineBuffer, '~', len, fin)) {

						chAttr = SCE_PROPS_KEYSSET2;

					} else if (InListPartly(*keywordlists[3],lineBuffer, '~', len, fin)) {

						chAttr = SCE_PROPS_KEYSSET3;

					} else {

						chAttr = SCE_PROPS_KEY;

					}

					styler.ColourTo(startLine + indent + len, chAttr);

					styler.ColourTo(startLine + i - 1 - fin, SCE_PROPS_KEY);

					styler.ColourTo(startLine + i - 1, chAttr);

				}

//!-end-[PropsKeysSets]

				styler.ColourTo(startLine + i, SCE_PROPS_ASSIGNMENT);

				styler.ColourTo(endPos, SCE_PROPS_DEFAULT);

			} else {

				styler.ColourTo(endPos, SCE_PROPS_DEFAULT);

			}

		}

	} else {

		styler.ColourTo(endPos, SCE_PROPS_DEFAULT);

	}

	return SCE_PROPS_DEFAULT; //!-add-[PropsColouriseFix]

}



//!static void ColourisePropsDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {

static void ColourisePropsDoc(unsigned int startPos, int length, int, WordList *keywordlists[], Accessor &styler) { //!-change-[PropsKeysSets]

	char lineBuffer[1024];

	styler.StartAt(startPos);

	styler.StartSegment(startPos);

	unsigned int linePos = 0;

	unsigned int startLine = startPos;



	// property lexer.props.allow.initial.spaces

	//	For properties files, set to 0 to style all lines that start with whitespace in the default style.

	//	This is not suitable for SciTE .properties files which use indentation for flow control but

	//	can be used for RFC2822 text where indentation is used for continuation lines.

	bool allowInitialSpaces = styler.GetPropertyInt("lexer.props.allow.initial.spaces", 1) != 0;



//!-start-[PropsColouriseFix]

	char style = 0;

	bool continuation = false;

	if (startPos >= 3)

		continuation = styler.StyleAt(startPos-2) != SCE_PROPS_COMMENT && ((styler[startPos-2] == '\\')

			|| (styler[startPos-3] == '\\' && styler[startPos-2] == '\r'));

//!-end-[PropsColouriseFix]

	for (unsigned int i = startPos; i < startPos + length; i++) {

		lineBuffer[linePos++] = styler[i];

		if (AtEOL(styler, i) || (linePos >= sizeof(lineBuffer) - 1)) {

			// End of line (or of line buffer) met, colourise it

			lineBuffer[linePos] = '\0';

//!			ColourisePropsLine(lineBuffer, linePos, startLine, i, styler, allowInitialSpaces);

//!-start-[PropsColouriseFix][PropsKeysSets]

			if (continuation)

				styler.ColourTo(i, SCE_PROPS_DEFAULT);

			else

			style = ColourisePropsLine(lineBuffer, linePos, startLine, i, keywordlists, styler, allowInitialSpaces);

			// test: is next a continuation of line

			continuation = (linePos >= sizeof(lineBuffer) - 1) ||

				(style != SCE_PROPS_COMMENT &&  ((lineBuffer[linePos-2] == '\\')

				|| (lineBuffer[linePos-3] == '\\' && lineBuffer[linePos-2] == '\r')));

//!-end-[PropsColouriseFix][PropsKeysSets]

			linePos = 0;

			startLine = i + 1;

		}

	}

	if (linePos > 0) {	// Last line does not have ending characters

//!-start-[PropsColouriseFix]

		if (continuation)

			styler.ColourTo(startPos + length - 1, SCE_PROPS_DEFAULT);

		else

//!-end-[PropsColouriseFix]

//!		ColourisePropsLine(lineBuffer, linePos, startLine, startPos + length - 1, styler, allowInitialSpaces);

		ColourisePropsLine(lineBuffer, linePos, startLine, startPos + length - 1, keywordlists, styler, allowInitialSpaces); //!-change-[PropsKeysSets]

	}

}



// adaption by ksc, using the "} else {" trick of 1.53

// 030721

static void FoldPropsDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {

	bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0;



	unsigned int endPos = startPos + length;

	int visibleChars = 0;

	int lineCurrent = styler.GetLine(startPos);



	char chNext = styler[startPos];

	int styleNext = styler.StyleAt(startPos);

	bool headerPoint = false;

	int lev;



	for (unsigned int i = startPos; i < endPos; i++) {

		char ch = chNext;

		chNext = styler[i+1];



		int style = styleNext;

		styleNext = styler.StyleAt(i + 1);

		bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n');



		if (style == SCE_PROPS_SECTION) {

			headerPoint = true;

		}



		if (atEOL) {

			lev = SC_FOLDLEVELBASE;



			if (lineCurrent > 0) {

				int levelPrevious = styler.LevelAt(lineCurrent - 1);



				if (levelPrevious & SC_FOLDLEVELHEADERFLAG) {

					lev = SC_FOLDLEVELBASE + 1;

				} else {

					lev = levelPrevious & SC_FOLDLEVELNUMBERMASK;

				}

			}



			if (headerPoint) {

				lev = SC_FOLDLEVELBASE;

			}

			if (visibleChars == 0 && foldCompact)

				lev |= SC_FOLDLEVELWHITEFLAG;



			if (headerPoint) {

				lev |= SC_FOLDLEVELHEADERFLAG;

			}

			if (lev != styler.LevelAt(lineCurrent)) {

				styler.SetLevel(lineCurrent, lev);

			}



			lineCurrent++;

			visibleChars = 0;

			headerPoint = false;

		}

		if (!isspacechar(ch))

			visibleChars++;

	}



	if (lineCurrent > 0) {

		int levelPrevious = styler.LevelAt(lineCurrent - 1);

		if (levelPrevious & SC_FOLDLEVELHEADERFLAG) {

			lev = SC_FOLDLEVELBASE + 1;

		} else {

			lev = levelPrevious & SC_FOLDLEVELNUMBERMASK;

		}

	} else {

		lev = SC_FOLDLEVELBASE;

	}

	int flagsNext = styler.LevelAt(lineCurrent);

	styler.SetLevel(lineCurrent, lev | (flagsNext & ~SC_FOLDLEVELNUMBERMASK));

}



static void ColouriseMakeLine(

    char *lineBuffer,

    unsigned int lengthLine,

    unsigned int startLine,

    unsigned int endPos,

    Accessor &styler) {



	unsigned int i = 0;

	int lastNonSpace = -1;

	unsigned int state = SCE_MAKE_DEFAULT;

	bool bSpecial = false;



	// check for a tab character in column 0 indicating a command

	bool bCommand = false;

	if ((lengthLine > 0) && (lineBuffer[0] == '\t'))

		bCommand = true;



	// Skip initial spaces

	while ((i < lengthLine) && isspacechar(lineBuffer[i])) {

		i++;

	}

	if (lineBuffer[i] == '#') {	// Comment

		styler.ColourTo(endPos, SCE_MAKE_COMMENT);

		return;

	}

	if (lineBuffer[i] == '!') {	// Special directive

		styler.ColourTo(endPos, SCE_MAKE_PREPROCESSOR);

		return;

	}

	while (i < lengthLine) {

		if (lineBuffer[i] == '$' && lineBuffer[i + 1] == '(') {

			styler.ColourTo(startLine + i - 1, state);

			state = SCE_MAKE_IDENTIFIER;

		} else if (state == SCE_MAKE_IDENTIFIER && lineBuffer[i] == ')') {

			styler.ColourTo(startLine + i, state);

			state = SCE_MAKE_DEFAULT;

		}



		// skip identifier and target styling if this is a command line

		if (!bSpecial && !bCommand) {

			if (lineBuffer[i] == ':') {

				if (((i + 1) < lengthLine) && (lineBuffer[i + 1] == '=')) {

					// it's a ':=', so style as an identifier

					if (lastNonSpace >= 0)

						styler.ColourTo(startLine + lastNonSpace, SCE_MAKE_IDENTIFIER);

					styler.ColourTo(startLine + i - 1, SCE_MAKE_DEFAULT);

					styler.ColourTo(startLine + i + 1, SCE_MAKE_OPERATOR);

				} else {

					// We should check that no colouring was made since the beginning of the line,

					// to avoid colouring stuff like /OUT:file

					if (lastNonSpace >= 0)

						styler.ColourTo(startLine + lastNonSpace, SCE_MAKE_TARGET);

					styler.ColourTo(startLine + i - 1, SCE_MAKE_DEFAULT);

					styler.ColourTo(startLine + i, SCE_MAKE_OPERATOR);

				}

				bSpecial = true;	// Only react to the first ':' of the line

				state = SCE_MAKE_DEFAULT;

			} else if (lineBuffer[i] == '=') {

				if (lastNonSpace >= 0)

					styler.ColourTo(startLine + lastNonSpace, SCE_MAKE_IDENTIFIER);

				styler.ColourTo(startLine + i - 1, SCE_MAKE_DEFAULT);

				styler.ColourTo(startLine + i, SCE_MAKE_OPERATOR);

				bSpecial = true;	// Only react to the first '=' of the line

				state = SCE_MAKE_DEFAULT;

			}

		}

		if (!isspacechar(lineBuffer[i])) {

			lastNonSpace = i;

		}

		i++;

	}

	if (state == SCE_MAKE_IDENTIFIER) {

		styler.ColourTo(endPos, SCE_MAKE_IDEOL);	// Error, variable reference not ended

	} else {

		styler.ColourTo(endPos, SCE_MAKE_DEFAULT);

	}

}



static void ColouriseMakeDoc(unsigned int startPos, int length, int, WordList *[], Accessor &styler) {

	char lineBuffer[1024];

	styler.StartAt(startPos);

	styler.StartSegment(startPos);

	unsigned int linePos = 0;

	unsigned int startLine = startPos;

	for (unsigned int i = startPos; i < startPos + length; i++) {

		lineBuffer[linePos++] = styler[i];

		if (AtEOL(styler, i) || (linePos >= sizeof(lineBuffer) - 1)) {

			// End of line (or of line buffer) met, colourise it

			lineBuffer[linePos] = '\0';

			ColouriseMakeLine(lineBuffer, linePos, startLine, i, styler);

			linePos = 0;

			startLine = i + 1;

		}

	}

	if (linePos > 0) {	// Last line does not have ending characters

		ColouriseMakeLine(lineBuffer, linePos, startLine, startPos + length - 1, styler);

	}

}



static int RecogniseErrorListLine(const char *lineBuffer, unsigned int lengthLine, int &startValue) {

	if (lineBuffer[0] == '>') {

		// Command or return status

		return SCE_ERR_CMD;

	} else if (lineBuffer[0] == '<') {

		// Diff removal, but not interested. Trapped to avoid hitting CTAG cases.

		return SCE_ERR_DEFAULT;

	} else if (lineBuffer[0] == '!') {

		return SCE_ERR_DIFF_CHANGED;

	} else if (lineBuffer[0] == '+') {

		if (strstart(lineBuffer, "+++ ")) {

			return SCE_ERR_DIFF_MESSAGE;

		} else {

			return SCE_ERR_DIFF_ADDITION;

		}

	} else if (lineBuffer[0] == '-') {

		if (strstart(lineBuffer, "--- ")) {

			return SCE_ERR_DIFF_MESSAGE;

		} else {

			return SCE_ERR_DIFF_DELETION;

		}

	} else if (strstart(lineBuffer, "cf90-")) {

		// Absoft Pro Fortran 90/95 v8.2 error and/or warning message

		return SCE_ERR_ABSF;

	} else if (strstart(lineBuffer, "fortcom:")) {

		// Intel Fortran Compiler v8.0 error/warning message

		return SCE_ERR_IFORT;

	} else if (strstr(lineBuffer, "File \"") && strstr(lineBuffer, ", line ")) {

		return SCE_ERR_PYTHON;

	} else if (strstr(lineBuffer, " in ") && strstr(lineBuffer, " on line ")) {

		return SCE_ERR_PHP;

	} else if ((strstart(lineBuffer, "Error ") ||

	            strstart(lineBuffer, "Warning ")) &&

	           strstr(lineBuffer, " at (") &&

	           strstr(lineBuffer, ") : ") &&

	           (strstr(lineBuffer, " at (") < strstr(lineBuffer, ") : "))) {

		// Intel Fortran Compiler error/warning message

		return SCE_ERR_IFC;

	} else if (strstart(lineBuffer, "Error ")) {

		// Borland error message

		return SCE_ERR_BORLAND;

	} else if (strstart(lineBuffer, "Warning ")) {

		// Borland warning message

		return SCE_ERR_BORLAND;

	} else if (strstr(lineBuffer, "at line ") &&

	        (strstr(lineBuffer, "at line ") < (lineBuffer + lengthLine)) &&

	           strstr(lineBuffer, "file ") &&

	           (strstr(lineBuffer, "file ") < (lineBuffer + lengthLine))) {

		// Lua 4 error message

		return SCE_ERR_LUA;

	} else if (strstr(lineBuffer, " at ") &&

	        (strstr(lineBuffer, " at ") < (lineBuffer + lengthLine)) &&

	           strstr(lineBuffer, " line ") &&

	           (strstr(lineBuffer, " line ") < (lineBuffer + lengthLine)) &&

	        (strstr(lineBuffer, " at ") < (strstr(lineBuffer, " line ")))) {

		// perl error message

		return SCE_ERR_PERL;

	} else if ((memcmp(lineBuffer, "   at ", 6) == 0) &&

	           strstr(lineBuffer, ":line ")) {

		// A .NET traceback

		return SCE_ERR_NET;

	} else if (strstart(lineBuffer, "Line ") &&

	           strstr(lineBuffer, ", file ")) {

		// Essential Lahey Fortran error message

		return SCE_ERR_ELF;

	} else if (strstart(lineBuffer, "line ") &&

	           strstr(lineBuffer, " column ")) {

		// HTML tidy style: line 42 column 1

		return SCE_ERR_TIDY;

	} else if (strstart(lineBuffer, "\tat ") &&

	           strstr(lineBuffer, "(") &&

	           strstr(lineBuffer, ".java:")) {

		// Java stack back trace

		return SCE_ERR_JAVA_STACK;

	} else {

		// Look for one of the following formats:

		// GCC: <filename>:<line>:<message>

		// Microsoft: <filename>(<line>) :<message>

		// Common: <filename>(<line>): warning|error|note|remark|catastrophic|fatal

		// Common: <filename>(<line>) warning|error|note|remark|catastrophic|fatal

		// Microsoft: <filename>(<line>,<column>)<message>

		// CTags: \t<message>

		// Lua 5 traceback: \t<filename>:<line>:<message>

		// Lua 5.1: <exe>: <filename>:<line>:<message>

		bool initialTab = (lineBuffer[0] == '\t');

		bool initialColonPart = false;

		enum { stInitial,

			stGccStart, stGccDigit, stGcc,

			stMsStart, stMsDigit, stMsBracket, stMsVc, stMsDigitComma, stMsDotNet,

			stCtagsStart, stCtagsStartString, stCtagsStringDollar, stCtags,

			stUnrecognized

		} state = stInitial;

		for (unsigned int i = 0; i < lengthLine; i++) {

			char ch = lineBuffer[i];

			char chNext = ' ';

			if ((i + 1) < lengthLine)

				chNext = lineBuffer[i + 1];

			if (state == stInitial) {

				if (ch == ':') {

					// May be GCC, or might be Lua 5 (Lua traceback same but with tab prefix)

					if ((chNext != '\\') && (chNext != '/') && (chNext != ' ')) {

						// This check is not completely accurate as may be on

						// GTK+ with a file name that includes ':'.

						state = stGccStart;

					} else if (ch…