diff options
Diffstat (limited to 'src/LexAU3.cxx')
| -rw-r--r-- | src/LexAU3.cxx | 218 |
1 files changed, 218 insertions, 0 deletions
diff --git a/src/LexAU3.cxx b/src/LexAU3.cxx new file mode 100644 index 000000000..0ed51ec47 --- /dev/null +++ b/src/LexAU3.cxx @@ -0,0 +1,218 @@ +// Scintilla source code edit control +// @file LexAU3.cxx +// Lexer for AutoIt3 http://www.hiddensoft.com/autoit3 +// by Jos van der Zande, jvdzande@yahoo.com +// +// Changes: +// +// Copyright for Scintilla: 1998-2001 by Neil Hodgson <neilh@scintilla.org> +// The License.txt file describes the conditions under which this software may be distributed. +// Scintilla source code edit control + +#include <stdlib.h> +#include <string.h> +#include <ctype.h> +#include <stdio.h> +#include <stdarg.h> + +#include "Platform.h" + +#include "PropSet.h" +#include "Accessor.h" +#include "StyleContext.h" +#include "KeyWords.h" +#include "Scintilla.h" +#include "SciLexer.h" + +static inline bool IsTypeCharacter(const int ch) +{ + return ch == '$'; +} +static inline bool IsAWordChar(const int ch) +{ + return (ch < 0x80) && (isalnum(ch) || ch == '.' || ch == '_' || ch == '-'); +} + +static inline bool IsAWordStart(const int ch) +{ + return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '@' || ch == '#' || ch == '{' || ch == '+' || ch == '!' || ch == '#' || ch == '^'); +} + +static void ColouriseAU3Doc(unsigned int startPos, + int length, int initStyle, + WordList *keywordlists[], + Accessor &styler) { + + WordList &keywords = *keywordlists[0]; + WordList &keywords2 = *keywordlists[1]; + WordList &keywords3 = *keywordlists[2]; + WordList &keywords4 = *keywordlists[3]; + styler.StartAt(startPos); + + StyleContext sc(startPos, length, initStyle, styler); + char si,sk; + si=0; + sk=0; + for (; sc.More(); sc.Forward()) { + char s[100]; + sc.GetCurrentLowered(s, sizeof(s)); + switch (sc.state) + { + case SCE_AU3_COMMENTBLOCK: + { + if (sc.ch == '#') {sc.SetState(SCE_AU3_DEFAULT);} + break; + } + case SCE_AU3_COMMENT: + { + if (sc.atLineEnd) {sc.SetState(SCE_AU3_DEFAULT);} + break; + } + case SCE_AU3_OPERATOR: + { + sc.SetState(SCE_AU3_DEFAULT); + break; + } + case SCE_AU3_KEYWORD: + { + if (!IsAWordChar(sc.ch)) + { + if (!IsTypeCharacter(sc.ch)) + { + if (strcmp(s, "#cs")==0 || strcmp(s, "#comments_start")==0) + { + sc.ChangeState(SCE_AU3_COMMENTBLOCK); + sc.SetState(SCE_AU3_COMMENTBLOCK); + } + else if (strcmp(s, "#ce")==0 || strcmp(s, "#comments_end")==0) + { + sc.ChangeState(SCE_AU3_COMMENTBLOCK); + sc.SetState(SCE_AU3_DEFAULT); + } + else if (keywords.InList(s)) { + sc.ChangeState(SCE_AU3_KEYWORD); + sc.SetState(SCE_AU3_DEFAULT); + //sc.SetState(SCE_AU3_KEYWORD); + } + else if (keywords2.InList(s)) { + sc.ChangeState(SCE_AU3_FUNCTION); + sc.SetState(SCE_AU3_DEFAULT); + //sc.SetState(SCE_AU3_FUNCTION); + } + else if (keywords3.InList(s)) { + sc.ChangeState(SCE_AU3_MACRO); + sc.SetState(SCE_AU3_DEFAULT); + } + else if (!IsAWordChar(sc.ch)) { + sc.ChangeState(SCE_AU3_DEFAULT); + sc.SetState(SCE_AU3_DEFAULT); + } + } + } + if (sc.atLineEnd) {sc.SetState(SCE_AU3_DEFAULT);} + break; + } + case SCE_AU3_NUMBER: + { + if (!IsAWordChar(sc.ch)) {sc.SetState(SCE_AU3_DEFAULT);} + break; + } + case SCE_AU3_VARIABLE: + { + if (!IsAWordChar(sc.ch)) {sc.SetState(SCE_AU3_DEFAULT);} + break; + } + case SCE_AU3_STRING: + { + sk = 0; + // check for " in and single qouted string + if (si == 1){ + if (sc.ch == '\"'){sc.ForwardSetState(SCE_AU3_DEFAULT);}} + // check for ' in and double qouted string + if (si == 2){ + if (sc.ch == '\''){sc.ForwardSetState(SCE_AU3_DEFAULT);}} + if (sc.atLineEnd) {sc.SetState(SCE_AU3_DEFAULT);} + // find Sendkeys in an STRING + if (sc.ch == '{') {sc.SetState(SCE_AU3_SENT);} + if (sc.ch == '+' && sc.chNext == '{') {sc.SetState(SCE_AU3_SENT);} + if (sc.ch == '!' && sc.chNext == '{') {sc.SetState(SCE_AU3_SENT);} + if (sc.ch == '^' && sc.chNext == '{') {sc.SetState(SCE_AU3_SENT);} + if (sc.ch == '#' && sc.chNext == '{') {sc.SetState(SCE_AU3_SENT);} + break; + } + + case SCE_AU3_SENT: + { + // Sent key string ended + if (sk == 1) + { + // set color to SENTKEY when valid sentkey .. else set to comment to show its wrong + if (keywords4.InList(s)) + { + sc.ChangeState(SCE_AU3_SENT); + } + else + { + sc.ChangeState(SCE_AU3_STRING); + } + sc.SetState(SCE_AU3_STRING); + sk=0; + } + // check if next portion is again a sentkey + if (sc.atLineEnd) {sc.SetState(SCE_AU3_DEFAULT);} + if (sc.ch == '{') {sc.SetState(SCE_AU3_SENT);} + if (sc.ch == '+' && sc.chNext == '{') {sc.SetState(SCE_AU3_SENT);} + if (sc.ch == '!' && sc.chNext == '{') {sc.SetState(SCE_AU3_SENT);} + if (sc.ch == '^' && sc.chNext == '{') {sc.SetState(SCE_AU3_SENT);} + if (sc.ch == '#' && sc.chNext == '{') {sc.SetState(SCE_AU3_SENT);} + // check to see if the string ended... + // check for " in and single qouted string + if (si == 1){ + if (sc.ch == '\"'){sc.ForwardSetState(SCE_AU3_DEFAULT);}} + // check for ' in and double qouted string + if (si == 2){ + if (sc.ch == '\''){sc.ForwardSetState(SCE_AU3_DEFAULT);}} + break; + } + } //switch (sc.state) + + // Determine if a new state should be entered: + if (sc.state == SCE_AU3_SENT) + { + if (sc.ch == '}' && sc.chNext != '}') + { + sk = 1; + } + } + if (sc.state == SCE_AU3_DEFAULT) + { + if (sc.ch == ';') {sc.SetState(SCE_AU3_COMMENT);} + else if (sc.ch == '#') {sc.SetState(SCE_AU3_KEYWORD);} + else if (IsAWordStart(sc.ch)) {sc.SetState(SCE_AU3_KEYWORD);} + else if (sc.ch == '@') {sc.SetState(SCE_AU3_KEYWORD);} + else if (sc.ch == '\"') { + sc.SetState(SCE_AU3_STRING); + si = 1; } + else if (sc.ch == '\'') { + sc.SetState(SCE_AU3_STRING); + si = 2; } + else if (sc.ch == '$') {sc.SetState(SCE_AU3_VARIABLE);} + else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) {sc.SetState(SCE_AU3_NUMBER);} + //else if (IsAWordStart(sc.ch)) {sc.SetState(SCE_AU3_KEYWORD);} + else if (isoperator(static_cast<char>(sc.ch)) || (sc.ch == '\\')) {sc.SetState(SCE_AU3_OPERATOR);} + else if (sc.atLineEnd) {sc.SetState(SCE_AU3_DEFAULT);} + } + } //for (; sc.More(); sc.Forward()) + sc.Complete(); +} + +// + +static const char * const AU3WordLists[] = { + "#autoit keywords", + "#autoit functions", + "#autoit macros", + "#autoit Sent keys", + 0 +}; +LexerModule lmAU3(SCLEX_AU3, ColouriseAU3Doc, "au3", NULL , AU3WordLists); |