diff options
Diffstat (limited to 'src/LexScriptol.cxx')
| -rw-r--r-- | src/LexScriptol.cxx | 459 |
1 files changed, 459 insertions, 0 deletions
diff --git a/src/LexScriptol.cxx b/src/LexScriptol.cxx new file mode 100644 index 000000000..c01cc24fe --- /dev/null +++ b/src/LexScriptol.cxx @@ -0,0 +1,459 @@ +// Scintilla source code edit control +/** @file LexScriptol.cxx + ** Lexer for Scriptol + **/ +// Copyright 1998-2002 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 "Platform.h" + +#include "PropSet.h" +#include "Accessor.h" +#include "StyleContext.h" +#include "KeyWords.h" +#include "Scintilla.h" +#include "SciLexer.h" + +static bool IsOKBeforeRE(const int ch) +{ + return (ch == '(') || (ch == '=') || (ch == ','); +} + +static inline bool IsAWordChar(const int ch) +{ + return (ch < 0x80) && (isalnum(ch) || ch == '.' || ch == '_'); +} + +static inline bool IsAWordStart(const int ch) +{ + return (ch < 0x80) && (isalnum(ch) || ch == '_'); +} + +static inline bool IsADoxygenChar(const int ch) +{ + return (islower(ch) || ch == '$' || ch == '@' || + ch == '\\' || ch == '&' || ch == '<' || + ch == '>' || ch == '#' || ch == '{' || ch == '}' + || ch == '[' || ch == ']'); +} + +static inline bool IsStateComment(const int state) +{ + return ((state == SCE_SCRIPTOL_COMMENT) || + (state == SCE_SCRIPTOL_COMMENTLINE) || + (state == SCE_SCRIPTOL_COMMENTBASIC) || + (state == SCE_SCRIPTOL_COMMENTDOC) || + (state == SCE_SCRIPTOL_COMMENTDOCKEYWORD) || + (state == SCE_SCRIPTOL_COMMENTDOCKEYWORDERROR)); +} + +static inline bool IsStateString(const int state) +{ + return ((state == SCE_SCRIPTOL_STRING) || (state == SCE_SCRIPTOL_VERBATIM)); +} + +static void ColouriseScriptolDoc(unsigned int startPos, int length, int initStyle, WordList *keywordlists[], + Accessor &styler) +{ + + WordList &keywords = *keywordlists[0]; + WordList &keywords2 = *keywordlists[1]; + WordList &keywords3 = *keywordlists[2]; + + bool stylingWithinPreprocessor = styler.GetPropertyInt("styling.within.preprocessor") != 0; + + // Do not leak onto next line + if (initStyle == SCE_SCRIPTOL_STRINGEOL) + initStyle = SCE_SCRIPTOL_DEFAULT; + + int chPrevNonWhite = ' '; + int visibleChars = 0; + bool lastWordWasUUID = false; + + StyleContext sc(startPos, length, initStyle, styler); + + for (; sc.More(); sc.Forward()) + { + + if (sc.atLineStart && (sc.state == SCE_SCRIPTOL_STRING)) + { + // Prevent SCE_SCRIPTOL_STRINGEOL from leaking back to previous line + sc.SetState(SCE_SCRIPTOL_STRING); + } + + // Handle line continuation generically. + if (sc.ch == '\\') + { + if (sc.Match("\\\n")) + { + sc.Forward(); + continue; + } + if (sc.Match("\\\r\n")) + { + sc.Forward(); + sc.Forward(); + continue; + } + } + + // Determine if the current state should terminate. + + if (sc.state == SCE_SCRIPTOL_OPERATOR) + { + sc.SetState(SCE_SCRIPTOL_DEFAULT); + } + else if (sc.state == SCE_SCRIPTOL_NUMBER) + { + if (!IsAWordChar(sc.ch)) + sc.SetState(SCE_SCRIPTOL_DEFAULT); + + } + else + if (sc.state == SCE_SCRIPTOL_IDENTIFIER) + { + if (!IsAWordChar(sc.ch) || (sc.ch == '.')) + { + char s[100]; + sc.GetCurrent(s, sizeof(s)); + if (keywords.InList(s)) + { + lastWordWasUUID = strcmp(s, "uuid") == 0; + sc.ChangeState(SCE_SCRIPTOL_WORD); + } + else if (keywords2.InList(s)) + { + sc.ChangeState(SCE_SCRIPTOL_WORD2); + } + sc.SetState(SCE_SCRIPTOL_DEFAULT); + } + } + else if (sc.state == SCE_SCRIPTOL_PREPROCESSOR) + { + if (stylingWithinPreprocessor) + { + if (IsASpace(sc.ch)) + sc.SetState(SCE_SCRIPTOL_DEFAULT); + } + else + { + if (sc.atLineEnd) + sc.SetState(SCE_SCRIPTOL_DEFAULT); + } + } + else if (sc.state == SCE_SCRIPTOL_COMMENT) + { + if (sc.Match('*', '/')) + { + sc.Forward(); + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + } + } + else if (sc.state == SCE_SCRIPTOL_COMMENTDOC) + { + if (sc.Match('*', '/')) + { + sc.Forward(); + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + } + else if (sc.ch == '@' || sc.ch == '\\') + { + sc.SetState(SCE_SCRIPTOL_COMMENTDOCKEYWORD); + } + } + else if (sc.state == SCE_SCRIPTOL_COMMENTLINE || sc.state == SCE_SCRIPTOL_COMMENTLINEDOC || sc.state == SCE_SCRIPTOL_COMMENTBASIC) + { + if (sc.atLineEnd) + { + sc.SetState(SCE_SCRIPTOL_DEFAULT); + visibleChars = 0; + } + } + else if (sc.state == SCE_SCRIPTOL_COMMENTDOCKEYWORD) + { + if (sc.Match('*', '/')) + { + sc.ChangeState(SCE_SCRIPTOL_COMMENTDOCKEYWORDERROR); + sc.Forward(); + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + } + else if (!IsADoxygenChar(sc.ch)) + { + char s[100]; + sc.GetCurrent(s, sizeof(s)); + if (!isspace(sc.ch) || !keywords3.InList(s+1)) + { + sc.ChangeState(SCE_SCRIPTOL_COMMENTDOCKEYWORDERROR); + } + sc.SetState(SCE_SCRIPTOL_COMMENTDOC); + } + } + else if (sc.state == SCE_SCRIPTOL_STRING) + { + if (sc.ch == '\\') + { + if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') + { + sc.Forward(); + } + } + else if (sc.ch == '\"') + { + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + } + else if (sc.atLineEnd) + { + sc.ChangeState(SCE_SCRIPTOL_STRINGEOL); + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + visibleChars = 0; + } + } + else if (sc.state == SCE_SCRIPTOL_CHARACTER) + { + if (sc.atLineEnd) + { + sc.ChangeState(SCE_SCRIPTOL_STRINGEOL); + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + visibleChars = 0; + } + else if (sc.ch == '\\') + { + if (sc.chNext == '\"' || sc.chNext == '\'' || sc.chNext == '\\') + { + sc.Forward(); + } + } + else if (sc.ch == '\'') + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + + } + else if (sc.state == SCE_SCRIPTOL_REGEX) + { + if (sc.ch == '\r' || sc.ch == '\n' || sc.ch == '/') + { + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + } + else if (sc.ch == '\\') + { + // Gobble up the quoted character + if (sc.chNext == '\\' || sc.chNext == '/') + { + sc.Forward(); + } + } + } + else if (sc.state == SCE_SCRIPTOL_VERBATIM) + { + if (sc.ch == '\"') + { + if (sc.chNext == '\"') + { + sc.Forward(); + } + else + { + sc.ForwardSetState(SCE_SCRIPTOL_DEFAULT); + } + } + } + else if (sc.state == SCE_SCRIPTOL_UUID) + { + if (sc.ch == '\r' || sc.ch == '\n' || sc.ch == ')') + { + sc.SetState(SCE_SCRIPTOL_DEFAULT); + } + } + + // Determine if a new state should be entered. + if (sc.state == SCE_SCRIPTOL_DEFAULT) + { + if (sc.Match('@', '\"')) + { + sc.SetState(SCE_SCRIPTOL_VERBATIM); + sc.Forward(); + } + else if (IsADigit(sc.ch) || (sc.ch == '.' && IsADigit(sc.chNext))) + { + if (lastWordWasUUID) + { + sc.SetState(SCE_SCRIPTOL_UUID); + lastWordWasUUID = false; + } + else + { + sc.SetState(SCE_SCRIPTOL_NUMBER); + } + } + else if (IsAWordStart(sc.ch) || (sc.ch == '@')) + { + if (lastWordWasUUID) + { + sc.SetState(SCE_SCRIPTOL_UUID); + lastWordWasUUID = false; + } + else + { + sc.SetState(SCE_SCRIPTOL_IDENTIFIER); + } + } + else if (sc.Match('/', '*')) + { + if (sc.Match("/**") || sc.Match("/*!")) + { // Support of Qt/Doxygen doc. style + sc.SetState(SCE_SCRIPTOL_COMMENTDOC); + } + else + { + sc.SetState(SCE_SCRIPTOL_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("//!")) // Support of Qt/Doxygen doc. style + sc.SetState(SCE_SCRIPTOL_COMMENTLINEDOC); + else + sc.SetState(SCE_SCRIPTOL_COMMENTLINE); + } + else if (sc.ch == '/' && IsOKBeforeRE(chPrevNonWhite)) + { + sc.SetState(SCE_SCRIPTOL_REGEX); + } + else if (sc.ch == '\"') + { + sc.SetState(SCE_SCRIPTOL_STRING); + } + else if (sc.ch == '\'') + { + sc.SetState(SCE_SCRIPTOL_CHARACTER); + } + else if (sc.ch == '#' && visibleChars == 0) + { + // Preprocessor commands are alone on their line + sc.SetState(SCE_SCRIPTOL_PREPROCESSOR); + // Skip whitespace between # and preprocessor word + do + { + sc.Forward(); + } + while ((sc.ch == ' ') && (sc.ch == '\t') && sc.More()); + if (sc.atLineEnd) + { + sc.SetState(SCE_SCRIPTOL_DEFAULT); + } + } + else if (isoperator(static_cast<char>(sc.ch))) + { + sc.SetState(SCE_SCRIPTOL_OPERATOR); + } + } + + if (sc.atLineEnd) + { + // Reset states to begining of colourise so no surprises + // if different sets of lines lexed. + chPrevNonWhite = ' '; + visibleChars = 0; + lastWordWasUUID = false; + } + if (!IsASpace(sc.ch)) + { + chPrevNonWhite = sc.ch; + visibleChars++; + } + } + sc.Complete(); +} + +static bool IsStreamCommentStyle(int style) +{ + return style == SCE_SCRIPTOL_COMMENT || + style == SCE_SCRIPTOL_COMMENTDOC || + style == SCE_SCRIPTOL_COMMENTDOCKEYWORD || + style == SCE_SCRIPTOL_COMMENTDOCKEYWORDERROR; +} + +static void FoldScriptolDoc(unsigned int startPos, int length, int initStyle, WordList *[], + Accessor &styler) +{ + bool foldComment = styler.GetPropertyInt("fold.comment") != 0; + bool foldCompact = styler.GetPropertyInt("fold.compact", 1) != 0; + unsigned int endPos = startPos + length; + int visibleChars = 0; + int lineCurrent = styler.GetLine(startPos); + int levelPrev = styler.LevelAt(lineCurrent) & SC_FOLDLEVELNUMBERMASK; + int levelCurrent = levelPrev; + 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)) + { + levelCurrent++; + } + else if (!IsStreamCommentStyle(styleNext) && !atEOL) + { + // Comments don't end at end of line and the next character may be unstyled. + levelCurrent--; + } + } + if (style == SCE_SCRIPTOL_OPERATOR) + { + if (ch == '{') + { + levelCurrent++; + } + else if (ch == '}') + { + levelCurrent--; + } + } + if (atEOL) + { + int lev = levelPrev; + if (visibleChars == 0 && foldCompact) + lev |= SC_FOLDLEVELWHITEFLAG; + if ((levelCurrent > levelPrev) && (visibleChars > 0)) + lev |= SC_FOLDLEVELHEADERFLAG; + if (lev != styler.LevelAt(lineCurrent)) + { + styler.SetLevel(lineCurrent, lev); + } + lineCurrent++; + levelPrev = levelCurrent; + visibleChars = 0; + } + if (!isspacechar(ch)) + visibleChars++; + } + // Fill in the real level of the next line, keeping the current flags as they will be filled in later + int flagsNext = styler.LevelAt(lineCurrent) & ~SC_FOLDLEVELNUMBERMASK; + styler.SetLevel(lineCurrent, levelPrev | flagsNext); +} + +static const char * const solWordLists[] = + { + "Primary keywords and identifiers", + "Secondary keywords and identifiers", + "Documentation comment keywords", + 0, + }; + + +LexerModule lmSCRIPTOL(SCLEX_SCRIPTOL, ColouriseScriptolDoc, "sol", FoldScriptolDoc, solWordLists); + |