diff options
| -rw-r--r-- | doc/ScintillaHistory.html | 1 | ||||
| -rw-r--r-- | include/SciLexer.h | 29 | ||||
| -rw-r--r-- | include/Scintilla.iface | 31 | ||||
| -rw-r--r-- | lexers/LexECL.cxx | 512 | ||||
| -rw-r--r-- | src/Catalogue.cxx | 1 | ||||
| -rw-r--r-- | win32/scintilla.mak | 3 | ||||
| -rw-r--r-- | win32/scintilla_vc6.mak | 3 | 
7 files changed, 580 insertions, 0 deletions
diff --git a/doc/ScintillaHistory.html b/doc/ScintillaHistory.html index 44515564b..9c0b5b261 100644 --- a/doc/ScintillaHistory.html +++ b/doc/ScintillaHistory.html @@ -392,6 +392,7 @@  	<td>Ross McKay</td>        </tr><tr>  	<td>Bruno Barbieri</td> +	<td>Gordon Smith</td>      </tr>      </table>      <p> diff --git a/include/SciLexer.h b/include/SciLexer.h index 2758b92bf..0f977400f 100644 --- a/include/SciLexer.h +++ b/include/SciLexer.h @@ -117,6 +117,7 @@  #define SCLEX_COFFEESCRIPT 102  #define SCLEX_TCMD 103  #define SCLEX_AVS 104 +#define SCLEX_ECL 105  #define SCLEX_AUTOMATIC 1000  #define SCE_P_DEFAULT 0  #define SCE_P_COMMENTLINE 1 @@ -1533,6 +1534,34 @@  #define SCE_AVS_FUNCTION 12  #define SCE_AVS_CLIPPROP 13  #define SCE_AVS_USERDFN 14 +#define SCE_ECL_DEFAULT 0 +#define SCE_ECL_COMMENT 1 +#define SCE_ECL_COMMENTLINE 2 +#define SCE_ECL_NUMBER 3 +#define SCE_ECL_STRING 4 +#define SCE_ECL_WORD0 5 +#define SCE_ECL_OPERATOR 6 +#define SCE_ECL_CHARACTER 7 +#define SCE_ECL_UUID 8 +#define SCE_ECL_PREPROCESSOR 9 +#define SCE_ECL_UNKNOWN 10 +#define SCE_ECL_IDENTIFIER 11 +#define SCE_ECL_STRINGEOL 12 +#define SCE_ECL_VERBATIM 13 +#define SCE_ECL_REGEX 14 +#define SCE_ECL_COMMENTLINEDOC 15 +#define SCE_ECL_WORD1 16 +#define SCE_ECL_COMMENTDOCKEYWORD 17 +#define SCE_ECL_COMMENTDOCKEYWORDERROR 18 +#define SCE_ECL_WORD2 19 +#define SCE_ECL_WORD3 20 +#define SCE_ECL_WORD4 21 +#define SCE_ECL_WORD5 22 +#define SCE_ECL_COMMENTDOC 23 +#define SCE_ECL_ADDED 24 +#define SCE_ECL_DELETED 25 +#define SCE_ECL_CHANGED 26 +#define SCE_ECL_MOVED 27  /* --Autogenerated -- end of section automatically generated from Scintilla.iface */  #endif diff --git a/include/Scintilla.iface b/include/Scintilla.iface index f70266eae..789a65734 100644 --- a/include/Scintilla.iface +++ b/include/Scintilla.iface @@ -2456,6 +2456,7 @@ val SCLEX_MODULA=101  val SCLEX_COFFEESCRIPT=102  val SCLEX_TCMD=103  val SCLEX_AVS=104 +val SCLEX_ECL=105  # When a lexer specifies its language as SCLEX_AUTOMATIC it receives a  # value assigned in sequence from SCLEX_AUTOMATIC+1. @@ -4063,6 +4064,36 @@ val SCE_AVS_PLUGIN=11  val SCE_AVS_FUNCTION=12  val SCE_AVS_CLIPPROP=13  val SCE_AVS_USERDFN=14 +# Lexical states for SCLEX_ECL +lex ECL=SCLEX_ECL SCE_ECL_ +val SCE_ECL_DEFAULT=0 +val SCE_ECL_COMMENT=1 +val SCE_ECL_COMMENTLINE=2 +val SCE_ECL_NUMBER=3 +val SCE_ECL_STRING=4 +val SCE_ECL_WORD0=5 +val SCE_ECL_OPERATOR=6 +val SCE_ECL_CHARACTER=7 +val SCE_ECL_UUID=8 +val SCE_ECL_PREPROCESSOR=9 +val SCE_ECL_UNKNOWN=10 +val SCE_ECL_IDENTIFIER=11 +val SCE_ECL_STRINGEOL=12 +val SCE_ECL_VERBATIM=13 +val SCE_ECL_REGEX=14 +val SCE_ECL_COMMENTLINEDOC=15 +val SCE_ECL_WORD1=16 +val SCE_ECL_COMMENTDOCKEYWORD=17 +val SCE_ECL_COMMENTDOCKEYWORDERROR=18 +val SCE_ECL_WORD2=19 +val SCE_ECL_WORD3=20 +val SCE_ECL_WORD4=21 +val SCE_ECL_WORD5=22 +val SCE_ECL_COMMENTDOC=23 +val SCE_ECL_ADDED=24 +val SCE_ECL_DELETED=25 +val SCE_ECL_CHANGED=26 +val SCE_ECL_MOVED=27  # Events diff --git a/lexers/LexECL.cxx b/lexers/LexECL.cxx new file mode 100644 index 000000000..cf15a62a5 --- /dev/null +++ b/lexers/LexECL.cxx @@ -0,0 +1,512 @@ +// Scintilla source code edit control +/** @file LexECL.cxx + ** Lexer for ECL. + **/ +// 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 <ctype.h> +#include <stdio.h> +#include <stdarg.h> +#include <assert.h> + +#ifdef _MSC_VER +#pragma warning(disable: 4786) +#endif +#ifdef __BORLANDC__ +// Borland C++ displays warnings in vector header without this +#pragma option -w-ccc -w-rch +#endif + +#include <string> +#include <vector> +#include <map> +#include <algorithm> + +#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" +#include "OptionSet.h" + +#define SET_LOWER "abcdefghijklmnopqrstuvwxyz" +#define SET_UPPER "ABCDEFGHIJKLMNOPQRSTUVWXYZ" +#define SET_DIGITS "0123456789" + +#ifdef SCI_NAMESPACE +using namespace Scintilla; +#endif + +static bool IsSpaceEquiv(int state) { +	return (state <= SCE_ECL_COMMENTDOC) || +		// including SCE_ECL_DEFAULT, SCE_ECL_COMMENT, SCE_ECL_COMMENTLINE +		(state == SCE_ECL_COMMENTLINEDOC) || (state == SCE_ECL_COMMENTDOCKEYWORD) || +		(state == SCE_ECL_COMMENTDOCKEYWORDERROR); +} + +static void ColouriseEclDoc(unsigned int startPos, int length, int initStyle, WordList *keywordlists[], +                            Accessor &styler) { +	WordList &keywords0 = *keywordlists[0]; +	WordList &keywords1 = *keywordlists[1]; +	WordList &keywords2 = *keywordlists[2]; +	WordList &keywords3 = *keywordlists[3]; //Value Types +	WordList &keywords4 = *keywordlists[4]; +	WordList &keywords5 = *keywordlists[5]; +	WordList &keywords6 = *keywordlists[6];	//Javadoc Tags +	WordList cplusplus; +	cplusplus.Set("beginc endc"); + +	bool stylingWithinPreprocessor = false; + +	CharacterSet setOKBeforeRE(CharacterSet::setNone, "(=,"); +	CharacterSet setDoxygen(CharacterSet::setLower, "$@\\&<>#{}[]"); +	CharacterSet setWordStart(CharacterSet::setAlpha, "_", 0x80, true); +	CharacterSet setWord(CharacterSet::setAlphaNum, "._", 0x80, true); +	CharacterSet setQualified(CharacterSet::setNone, "uUxX"); + +	int chPrevNonWhite = ' '; +	int visibleChars = 0; +	bool lastWordWasUUID = false; +	int styleBeforeDCKeyword = SCE_ECL_DEFAULT; +	bool continuationLine = false; + +	if (initStyle == SCE_ECL_PREPROCESSOR) { +		// Set continuationLine if last character of previous line is '\' +		int lineCurrent = styler.GetLine(startPos); +		if (lineCurrent > 0) { +			int chBack = styler.SafeGetCharAt(startPos-1, 0); +			int chBack2 = styler.SafeGetCharAt(startPos-2, 0); +			int lineEndChar = '!'; +			if (chBack2 == '\r' && chBack == '\n') { +				lineEndChar = styler.SafeGetCharAt(startPos-3, 0); +			} else if (chBack == '\n' || chBack == '\r') { +				lineEndChar = chBack2; +			} +			continuationLine = lineEndChar == '\\'; +		} +	} + +	// look back to set chPrevNonWhite properly for better regex colouring +	if (startPos > 0) { +		int back = startPos; +		while (--back && IsSpaceEquiv(styler.StyleAt(back))) +			; +		if (styler.StyleAt(back) == SCE_ECL_OPERATOR) { +			chPrevNonWhite = styler.SafeGetCharAt(back); +		} +	} + +	StyleContext sc(startPos, length, initStyle, styler); + +	for (; sc.More(); sc.Forward()) { +		if (sc.atLineStart) { +			if (sc.state == SCE_ECL_STRING) { +				// Prevent SCE_ECL_STRINGEOL from leaking back to previous line which +				// ends with a line continuation by locking in the state upto this position. +				sc.SetState(SCE_ECL_STRING); +			} +			// Reset states to begining of colourise so no surprises +			// if different sets of lines lexed. +			visibleChars = 0; +			lastWordWasUUID = false; +		} + +		// Handle line continuation generically. +		if (sc.ch == '\\') { +			if (sc.chNext == '\n' || sc.chNext == '\r') { +				sc.Forward(); +				if (sc.ch == '\r' && sc.chNext == '\n') { +					sc.Forward(); +				} +				continuationLine = true; +				continue; +			} +		} + +		// Determine if the current state should terminate. +		switch (sc.state) { +			case SCE_ECL_ADDED: +			case SCE_ECL_DELETED: +			case SCE_ECL_CHANGED: +			case SCE_ECL_MOVED: +			if (sc.atLineStart) +					sc.SetState(SCE_ECL_DEFAULT); +				break; +			case SCE_ECL_OPERATOR: +				sc.SetState(SCE_ECL_DEFAULT); +				break; +			case SCE_ECL_NUMBER: +				// We accept almost anything because of hex. and number suffixes +				if (!setWord.Contains(sc.ch)) { +					sc.SetState(SCE_ECL_DEFAULT); +				} +				break; +			case SCE_ECL_IDENTIFIER: +				if (!setWord.Contains(sc.ch) || (sc.ch == '.')) { +					char s[1000]; +					sc.GetCurrentLowered(s, sizeof(s)); +					if (keywords0.InList(s)) { +						lastWordWasUUID = strcmp(s, "uuid") == 0; +						sc.ChangeState(SCE_ECL_WORD0); +					} else if (keywords1.InList(s)) { +						sc.ChangeState(SCE_ECL_WORD1); +					} else if (keywords2.InList(s)) { +						sc.ChangeState(SCE_ECL_WORD2); +					} else if (keywords4.InList(s)) { +						sc.ChangeState(SCE_ECL_WORD4); +					} else if (keywords5.InList(s)) { +						sc.ChangeState(SCE_ECL_WORD5); +					} +					else	//Data types are of from KEYWORD##  +					{ +						int i = static_cast<int>(strlen(s)) - 1; +						while(i >= 0 && (isdigit(s[i]) || s[i] == '_')) +							--i; + +						char s2[1000]; +						strncpy(s2, s, i + 1); +						s2[i + 1] = 0; +						if (keywords3.InList(s2)) { +							sc.ChangeState(SCE_ECL_WORD3); +						}  +					} +					sc.SetState(SCE_ECL_DEFAULT); +				} +				break; +			case SCE_ECL_PREPROCESSOR: +				if (sc.atLineStart && !continuationLine) { +					sc.SetState(SCE_ECL_DEFAULT); +				} else if (stylingWithinPreprocessor) { +					if (IsASpace(sc.ch)) { +						sc.SetState(SCE_ECL_DEFAULT); +					} +				} else { +					if (sc.Match('/', '*') || sc.Match('/', '/')) { +						sc.SetState(SCE_ECL_DEFAULT); +					} +				} +				break; +			case SCE_ECL_COMMENT: +				if (sc.Match('*', '/')) { +					sc.Forward(); +					sc.ForwardSetState(SCE_ECL_DEFAULT); +				} +				break; +			case SCE_ECL_COMMENTDOC: +				if (sc.Match('*', '/')) { +					sc.Forward(); +					sc.ForwardSetState(SCE_ECL_DEFAULT); +				} else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support +					// Verify that we have the conditions to mark a comment-doc-keyword +					if ((IsASpace(sc.chPrev) || sc.chPrev == '*') && (!IsASpace(sc.chNext))) { +						styleBeforeDCKeyword = SCE_ECL_COMMENTDOC; +						sc.SetState(SCE_ECL_COMMENTDOCKEYWORD); +					} +				} +				break; +			case SCE_ECL_COMMENTLINE: +				if (sc.atLineStart) { +					sc.SetState(SCE_ECL_DEFAULT); +				} +				break; +			case SCE_ECL_COMMENTLINEDOC: +				if (sc.atLineStart) { +					sc.SetState(SCE_ECL_DEFAULT); +				} else if (sc.ch == '@' || sc.ch == '\\') { // JavaDoc and Doxygen support +					// Verify that we have the conditions to mark a comment-doc-keyword +					if ((IsASpace(sc.chPrev) || sc.chPrev == '/' || sc.chPrev == '!') && (!IsASpace(sc.chNext))) { +						styleBeforeDCKeyword = SCE_ECL_COMMENTLINEDOC; +						sc.SetState(SCE_ECL_COMMENTDOCKEYWORD); +					} +				} +				break; +			case SCE_ECL_COMMENTDOCKEYWORD: +				if ((styleBeforeDCKeyword == SCE_ECL_COMMENTDOC) && sc.Match('*', '/')) { +					sc.ChangeState(SCE_ECL_COMMENTDOCKEYWORDERROR); +					sc.Forward(); +					sc.ForwardSetState(SCE_ECL_DEFAULT); +				} else if (!setDoxygen.Contains(sc.ch)) { +					char s[1000]; +					sc.GetCurrentLowered(s, sizeof(s)); +					if (!IsASpace(sc.ch) || !keywords6.InList(s+1)) { +						sc.ChangeState(SCE_ECL_COMMENTDOCKEYWORDERROR); +					} +					sc.SetState(styleBeforeDCKeyword); +				} +				break; +			case SCE_ECL_STRING: +				if (sc.atLineEnd) { +					sc.ChangeState(SCE_ECL_STRINGEOL); +				} else if (sc.ch == '\\') { +					if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { +						sc.Forward(); +					} +				} else if (sc.ch == '\"') { +					sc.ForwardSetState(SCE_ECL_DEFAULT); +				} +				break; +			case SCE_ECL_CHARACTER: +				if (sc.atLineEnd) { +					sc.ChangeState(SCE_ECL_STRINGEOL); +				} else if (sc.ch == '\\') { +					if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') { +						sc.Forward(); +					} +				} else if (sc.ch == '\'') { +					sc.ForwardSetState(SCE_ECL_DEFAULT); +				} +				break; +			case SCE_ECL_REGEX: +				if (sc.atLineStart) { +					sc.SetState(SCE_ECL_DEFAULT); +				} else if (sc.ch == '/') { +					sc.Forward(); +					while ((sc.ch < 0x80) && islower(sc.ch)) +						sc.Forward();    // gobble regex flags +					sc.SetState(SCE_ECL_DEFAULT); +				} else if (sc.ch == '\\') { +					// Gobble up the quoted character +					if (sc.chNext == '\\' || sc.chNext == '/') { +						sc.Forward(); +					} +				} +				break; +			case SCE_ECL_STRINGEOL: +				if (sc.atLineStart) { +					sc.SetState(SCE_ECL_DEFAULT); +				} +				break; +			case SCE_ECL_VERBATIM: +				if (sc.ch == '\"') { +					if (sc.chNext == '\"') { +						sc.Forward(); +					} else { +						sc.ForwardSetState(SCE_ECL_DEFAULT); +					} +				} +				break; +			case SCE_ECL_UUID: +				if (sc.ch == '\r' || sc.ch == '\n' || sc.ch == ')') { +					sc.SetState(SCE_ECL_DEFAULT); +				} +				break; +		} + +		// Determine if a new state should be entered. +		int lineCurrent = styler.GetLine(sc.currentPos); +		int lineState = styler.GetLineState(lineCurrent); +		if (sc.state == SCE_ECL_DEFAULT) { +			if (lineState) { +				sc.SetState(lineState); +			} +			else if (sc.Match('@', '\"')) { +				sc.SetState(SCE_ECL_VERBATIM); +				sc.Forward(); +			} else if (setQualified.Contains(sc.ch) && sc.chNext == '\'') { +				sc.SetState(SCE_ECL_CHARACTER); +				sc.Forward(); +			} else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) { +				if (lastWordWasUUID) { +					sc.SetState(SCE_ECL_UUID); +					lastWordWasUUID = false; +				} else { +					sc.SetState(SCE_ECL_NUMBER); +				} +			} else if (setWordStart.Contains(sc.ch) || (sc.ch == '@')) { +				if (lastWordWasUUID) { +					sc.SetState(SCE_ECL_UUID); +					lastWordWasUUID = false; +				} else { +					sc.SetState(SCE_ECL_IDENTIFIER); +				} +			} else if (sc.Match('/', '*')) { +				if (sc.Match("/**") || sc.Match("/*!")) {	// Support of Qt/Doxygen doc. style +					sc.SetState(SCE_ECL_COMMENTDOC); +				} else { +					sc.SetState(SCE_ECL_COMMENT); +				} +				sc.Forward();	// Eat the * so it isn't used for the end of the comment +			} else if (sc.Match('/', '/')) { +				if ((sc.Match("///") && !sc.Match("////")) || sc.Match("//!")) +					// Support of Qt/Doxygen doc. style +					sc.SetState(SCE_ECL_COMMENTLINEDOC); +				else +					sc.SetState(SCE_ECL_COMMENTLINE); +			} else if (sc.ch == '/' && setOKBeforeRE.Contains(chPrevNonWhite)) { +				sc.SetState(SCE_ECL_REGEX);	// JavaScript's RegEx +//			} else if (sc.ch == '\"') { +//				sc.SetState(SCE_ECL_STRING); +			} else if (sc.ch == '\'') { +				sc.SetState(SCE_ECL_CHARACTER); +			} else if (sc.ch == '#' && visibleChars == 0) { +				// Preprocessor commands are alone on their line +				sc.SetState(SCE_ECL_PREPROCESSOR); +				// Skip whitespace between # and preprocessor word +				do { +					sc.Forward(); +				} while ((sc.ch == ' ' || sc.ch == '\t') && sc.More()); +				if (sc.atLineEnd) { +					sc.SetState(SCE_ECL_DEFAULT); +				} +			} else if (isoperator(static_cast<char>(sc.ch))) { +				sc.SetState(SCE_ECL_OPERATOR); +			} +		} + +		if (!IsASpace(sc.ch) && !IsSpaceEquiv(sc.state)) { +			chPrevNonWhite = sc.ch; +			visibleChars++; +		} +		continuationLine = false; +	} +	sc.Complete(); + +} + +static bool IsStreamCommentStyle(int style) { +	return style == SCE_ECL_COMMENT || +		style == SCE_ECL_COMMENTDOC || +		style == SCE_ECL_COMMENTDOCKEYWORD || +		style == SCE_ECL_COMMENTDOCKEYWORDERROR; +} + +bool MatchNoCase(Accessor & styler, unsigned int & pos, const char *s) { +	int i=0; +	for (; *s; i++) { +		char compare_char = tolower(*s); +		char styler_char = tolower(styler.SafeGetCharAt(pos+i)); +		if (compare_char != styler_char)  +			return false; +		s++; +	} +	pos+=i-1; +	return true; +} + + +// Store both the current line's fold level and the next lines in the +// level store to make it easy to pick up with each increment +// and to make it possible to fiddle the current level for "} else {". +static void FoldEclDoc(unsigned int startPos, int length, int initStyle,  +					   WordList *[], Accessor &styler) { +	bool foldComment = true; +	bool foldPreprocessor = true; +	bool foldCompact = true; +	bool foldAtElse = true; +	unsigned int endPos = startPos + length; +	int visibleChars = 0; +	int lineCurrent = styler.GetLine(startPos); +	int levelCurrent = SC_FOLDLEVELBASE; +	if (lineCurrent > 0) +		levelCurrent = styler.LevelAt(lineCurrent-1) >> 16; +	int levelMinCurrent = levelCurrent; +	int levelNext = levelCurrent; +	char chNext = styler[startPos]; +	int styleNext = styler.StyleAt(startPos); +	int style = initStyle; +	for (unsigned int i = startPos; i < endPos; i++) { +		char ch = chNext; +		chNext = styler.SafeGetCharAt(i + 1); +		int stylePrev = style; +		style = styleNext; +		styleNext = styler.StyleAt(i + 1); +		bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n'); +		if (foldComment && IsStreamCommentStyle(style)) { +			if (!IsStreamCommentStyle(stylePrev) && (stylePrev != SCE_ECL_COMMENTLINEDOC)) { +				levelNext++; +			} else if (!IsStreamCommentStyle(styleNext) && (styleNext != SCE_ECL_COMMENTLINEDOC) && !atEOL) { +				// Comments don't end at end of line and the next character may be unstyled. +				levelNext--; +			} +		} +		if (foldComment && (style == SCE_ECL_COMMENTLINE)) { +			if ((ch == '/') && (chNext == '/')) { +				char chNext2 = styler.SafeGetCharAt(i + 2); +				if (chNext2 == '{') { +					levelNext++; +				} else if (chNext2 == '}') { +					levelNext--; +				} +			} +		} +		if (foldPreprocessor && (style == SCE_ECL_PREPROCESSOR)) { +			if (ch == '#') { +				unsigned int j = i + 1; +				while ((j < endPos) && IsASpaceOrTab(styler.SafeGetCharAt(j))) { +					j++; +				} +				if (MatchNoCase(styler, j, "region") || MatchNoCase(styler, j, "if")) { +					levelNext++; +				} else if (MatchNoCase(styler, j, "endregion") || MatchNoCase(styler, j, "end")) { +					levelNext--; +				} +			} +		} +		if (style == SCE_ECL_OPERATOR) { +			if (ch == '{') { +				// Measure the minimum before a '{' to allow +				// folding on "} else {" +				if (levelMinCurrent > levelNext) { +					levelMinCurrent = levelNext; +				} +				levelNext++; +			} else if (ch == '}') { +				levelNext--; +			} +		} +		if (style == SCE_ECL_WORD2) { +			if (MatchNoCase(styler, i, "record") || MatchNoCase(styler, i, "transform") || MatchNoCase(styler, i, "type") || MatchNoCase(styler, i, "function") ||  +				MatchNoCase(styler, i, "module") || MatchNoCase(styler, i, "service") || MatchNoCase(styler, i, "interface") || MatchNoCase(styler, i, "ifblock") || +				MatchNoCase(styler, i, "macro") || MatchNoCase(styler, i, "beginc++")) { +				levelNext++; +			} else if (MatchNoCase(styler, i, "endmacro") || MatchNoCase(styler, i, "endc++") || MatchNoCase(styler, i, "end")) { +				levelNext--; +			} +		} +		if (atEOL || (i == endPos-1)) { +			int levelUse = levelCurrent; +			if (foldAtElse) { +				levelUse = levelMinCurrent; +			} +			int lev = levelUse | levelNext << 16; +			if (visibleChars == 0 && foldCompact) +				lev |= SC_FOLDLEVELWHITEFLAG; +			if (levelUse < levelNext) +				lev |= SC_FOLDLEVELHEADERFLAG; +			if (lev != styler.LevelAt(lineCurrent)) { +				styler.SetLevel(lineCurrent, lev); +			} +			lineCurrent++; +			levelCurrent = levelNext; +			levelMinCurrent = levelCurrent; +			if (atEOL && (i == static_cast<unsigned int>(styler.Length()-1))) { +				// There is an empty line at end of file so give it same level and empty +				styler.SetLevel(lineCurrent, (levelCurrent | levelCurrent << 16) | SC_FOLDLEVELWHITEFLAG); +			} +			visibleChars = 0; +		} +		if (!IsASpace(ch)) +			visibleChars++; +	} +} + +static const char * const EclWordListDesc[] = { +	"Keywords", +	0 +}; + +LexerModule lmECL( +   SCLEX_ECL, +   ColouriseEclDoc, +   "ecl", +   FoldEclDoc, +   EclWordListDesc); diff --git a/src/Catalogue.cxx b/src/Catalogue.cxx index 4773fffc0..7a3357dab 100644 --- a/src/Catalogue.cxx +++ b/src/Catalogue.cxx @@ -109,6 +109,7 @@ int Scintilla_LinkLexers() {  	LINK_LEXER(lmCss);  	LINK_LEXER(lmD);  	LINK_LEXER(lmDiff); +	LINK_LEXER(lmECL);  	LINK_LEXER(lmEiffel);  	LINK_LEXER(lmEiffelkw);  	LINK_LEXER(lmErlang); diff --git a/win32/scintilla.mak b/win32/scintilla.mak index db0614889..20d79c780 100644 --- a/win32/scintilla.mak +++ b/win32/scintilla.mak @@ -108,6 +108,7 @@ LEXOBJS=\  	$(DIR_O)\LexCsound.obj \  	$(DIR_O)\LexCSS.obj \  	$(DIR_O)\LexD.obj \ +	$(DIR_O)\LexECL.obj \  	$(DIR_O)\LexEiffel.obj \  	$(DIR_O)\LexErlang.obj \  	$(DIR_O)\LexEScript.obj \ @@ -333,6 +334,8 @@ $(DIR_O)\LexCSS.obj: ..\lexers\LexCSS.cxx $(LEX_HEADERS)  $(DIR_O)\LexD.obj: ..\lexers\LexD.cxx $(LEX_HEADERS) +$(DIR_O)\LexECL.obj: ..\lexers\LexECL.cxx $(LEX_HEADERS) +  $(DIR_O)\LexEiffel.obj: ..\lexers\LexEiffel.cxx $(LEX_HEADERS)  $(DIR_O)\LexErlang.obj: ..\lexers\LexErlang.cxx $(LEX_HEADERS) diff --git a/win32/scintilla_vc6.mak b/win32/scintilla_vc6.mak index 387e1fcb0..486465f70 100644 --- a/win32/scintilla_vc6.mak +++ b/win32/scintilla_vc6.mak @@ -109,6 +109,7 @@ LEXOBJS=\  	$(DIR_O)\LexCsound.obj \  	$(DIR_O)\LexCSS.obj \  	$(DIR_O)\LexD.obj \ +	$(DIR_O)\LexECL.obj \  	$(DIR_O)\LexEiffel.obj \  	$(DIR_O)\LexErlang.obj \  	$(DIR_O)\LexEScript.obj \ @@ -331,6 +332,8 @@ $(DIR_O)\LexCSS.obj: ..\lexers\LexCSS.cxx $(LEX_HEADERS)  $(DIR_O)\LexD.obj: ..\lexers\LexD.cxx $(LEX_HEADERS) +$(DIR_O)\LexECL.obj: ..\lexers\LexECL.cxx $(LEX_HEADERS) +  $(DIR_O)\LexEiffel.obj: ..\lexers\LexEiffel.cxx $(LEX_HEADERS)  $(DIR_O)\LexErlang.obj: ..\lexers\LexErlang.cxx $(LEX_HEADERS)  | 
