Dropped as the Scriptol package not completely correct.

1 files changed, 0 insertions, 459 deletions

diff --git a/src/LexScriptol.cxx b/src/LexScriptol.cxx
deleted file mode 100644
index c01cc24fe..000000000
--- a/src/LexScriptol.cxx
+++ /dev/null
@@ -1,459 +0,0 @@
-// 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);
-