Moved lexers into lexers directory.

1 files changed, 0 insertions, 408 deletions

diff --git a/src/LexScriptol.cxx b/src/LexScriptol.cxx
deleted file mode 100644
index 76c38e6b6..000000000
--- a/src/LexScriptol.cxx
+++ /dev/null
@@ -1,408 +0,0 @@
-// Scintilla source code edit control
-/** @file LexScriptol.cxx
- ** Lexer for Scriptol.
- **/
-
-#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 "KeyWords.h"
-#include "Scintilla.h"
-#include "SciLexer.h"
-
-#ifdef SCI_NAMESPACE
-using namespace Scintilla;
-#endif
-
-static void ClassifyWordSol(unsigned int start, unsigned int end, WordList &keywords, Accessor &styler, char *prevWord)
-{
-    char s[100];
-    bool wordIsNumber = isdigit(styler[start]) != 0;
-    for (unsigned int i = 0; i < end - start + 1 && i < 30; i++)
-     {
-           s[i] = styler[start + i];
-           s[i + 1] = '\0';
-     }
-    char chAttr = SCE_SCRIPTOL_IDENTIFIER;
-    if (0 == strcmp(prevWord, "class"))       chAttr = SCE_SCRIPTOL_CLASSNAME;
-    else if (wordIsNumber)                    chAttr = SCE_SCRIPTOL_NUMBER;
-    else if (keywords.InList(s))              chAttr = SCE_SCRIPTOL_KEYWORD;
-    else for (unsigned int i = 0; i < end - start + 1; i++)  // test dotted idents
-    {
-        if (styler[start + i] == '.')
-        {
-            styler.ColourTo(start + i - 1, chAttr);
-            styler.ColourTo(start + i, SCE_SCRIPTOL_OPERATOR);
-        }
-    }
-    styler.ColourTo(end, chAttr);
-    strcpy(prevWord, s);
-}
-
-static bool IsSolComment(Accessor &styler, int pos, int len)
-{
-   char c;
-   if(len > 0)
-   {
-     c = styler[pos];
-     if(c == '`') return true;
-     if(len > 1)
-     {
-        if(c == '/')
-        {
-          c = styler[pos + 1];
-          if(c == '/') return true;
-          if(c == '*') return true;
-        }
-     }
-   }
-   return false;
-}
-
-static bool IsSolStringStart(char ch)
-{
-    if (ch == '\'' || ch == '"')  return true;
-    return false;
-}
-
-static bool IsSolWordStart(char ch)
-{
-    return (iswordchar(ch) && !IsSolStringStart(ch));
-}
-
-
-static int GetSolStringState(Accessor &styler, int i, int *nextIndex)
-{
-	char ch = styler.SafeGetCharAt(i);
-	char chNext = styler.SafeGetCharAt(i + 1);
-
-        if (ch != '\"' && ch != '\'')
-        {
-            *nextIndex = i + 1;
-            return SCE_SCRIPTOL_DEFAULT;
-	}
-        // ch is either single or double quotes in string
-        // code below seem non-sense but is here for future extensions
-	if (ch == chNext && ch == styler.SafeGetCharAt(i + 2))
-        {
-          *nextIndex = i + 3;
-          if(ch == '\"') return SCE_SCRIPTOL_TRIPLE;
-          if(ch == '\'') return SCE_SCRIPTOL_TRIPLE;
-          return SCE_SCRIPTOL_STRING;
-	}
-        else
-        {
-          *nextIndex = i + 1;
-          if (ch == '"') return SCE_SCRIPTOL_STRING;
-          else           return SCE_SCRIPTOL_STRING;
-	}
-}
-
-
-static void ColouriseSolDoc(unsigned int startPos, int length, int initStyle,
-                            WordList *keywordlists[], Accessor &styler)
- {
-
-	int lengthDoc = startPos + length;
-        char stringType = '\"';
-
-	if (startPos > 0)
-        {
-            int lineCurrent = styler.GetLine(startPos);
-            if (lineCurrent > 0)
-            {
-              startPos = styler.LineStart(lineCurrent-1);
-              if (startPos == 0) initStyle = SCE_SCRIPTOL_DEFAULT;
-              else               initStyle = styler.StyleAt(startPos-1);
-            }
-	}
-
-	styler.StartAt(startPos, 127);
-
-	WordList &keywords = *keywordlists[0];
-
-	int whingeLevel = styler.GetPropertyInt("tab.timmy.whinge.level");
-	char prevWord[200];
-	prevWord[0] = '\0';
-        if (length == 0)  return;
-
-	int state = initStyle & 31;
-
-	int nextIndex = 0;
-        char chPrev  = ' ';
-        char chPrev2 = ' ';
-        char chNext  = styler[startPos];
-	styler.StartSegment(startPos);
-	bool atStartLine = true;
-	int spaceFlags = 0;
-	for (int i = startPos; i < lengthDoc; i++)
-        {
-
-         if (atStartLine)
-         {
-         char chBad = static_cast<char>(64);
-         char chGood = static_cast<char>(0);
-         char chFlags = chGood;
-
-         if (whingeLevel == 1)
-         {
-             chFlags = (spaceFlags & wsInconsistent) ? chBad : chGood;
-         }
-         else if (whingeLevel == 2)
-         {
-             chFlags = (spaceFlags & wsSpaceTab) ? chBad : chGood;
-         }
-         else if (whingeLevel == 3)
-         {
-             chFlags = (spaceFlags & wsSpace) ? chBad : chGood;
-         }
-         else if (whingeLevel == 4)
-         {
-              chFlags = (spaceFlags & wsTab) ? chBad : chGood;
-         }
-         styler.SetFlags(chFlags, static_cast<char>(state));
-         atStartLine = false;
-       }
-
-       char ch = chNext;
-       chNext = styler.SafeGetCharAt(i + 1);
-
-       if ((ch == '\r' && chNext != '\n') || (ch == '\n') || (i == lengthDoc))
-       {
-          if ((state == SCE_SCRIPTOL_DEFAULT) ||
-              (state == SCE_SCRIPTOL_TRIPLE) ||
-              (state == SCE_SCRIPTOL_COMMENTBLOCK))
-          {
-              styler.ColourTo(i, state);
-          }
-          atStartLine = true;
-        }
-
-        if (styler.IsLeadByte(ch))
-         {
-             chNext = styler.SafeGetCharAt(i + 2);
-             chPrev  = ' ';
-             chPrev2 = ' ';
-             i += 1;
-             continue;
-         }
-
-        if (state == SCE_SCRIPTOL_STRINGEOL)
-         {
-             if (ch != '\r' && ch != '\n')
-             {
-                    styler.ColourTo(i - 1, state);
-                    state = SCE_SCRIPTOL_DEFAULT;
-             }
-         }
-
-        if (state == SCE_SCRIPTOL_DEFAULT)
-         {
-            if (IsSolWordStart(ch))
-            {
-                 styler.ColourTo(i - 1, state);
-                 state = SCE_SCRIPTOL_KEYWORD;
-            }
-            else if (ch == '`')
-            {
-                styler.ColourTo(i - 1, state);
-                state = SCE_SCRIPTOL_COMMENTLINE;
-            }
-            else if (ch == '/')
-            {
-                styler.ColourTo(i - 1, state);
-                if(chNext == '/') state = SCE_SCRIPTOL_CSTYLE;
-                if(chNext == '*') state = SCE_SCRIPTOL_COMMENTBLOCK;
-            }
-
-            else if (IsSolStringStart(ch))
-            {
-               styler.ColourTo(i - 1, state);
-               state = GetSolStringState(styler, i, &nextIndex);
-               if(state == SCE_SCRIPTOL_STRING)
-               {
-                 stringType = ch;
-               }
-               if (nextIndex != i + 1)
-               {
-                   i = nextIndex - 1;
-                   ch = ' ';
-                   chPrev = ' ';
-                   chNext = styler.SafeGetCharAt(i + 1);
-               }
-           }
-            else if (isoperator(ch))
-            {
-                 styler.ColourTo(i - 1, state);
-                 styler.ColourTo(i, SCE_SCRIPTOL_OPERATOR);
-            }
-          }
-          else if (state == SCE_SCRIPTOL_KEYWORD)
-          {
-              if (!iswordchar(ch))
-              {
-                 ClassifyWordSol(styler.GetStartSegment(), i - 1, keywords, styler, prevWord);
-                 state = SCE_SCRIPTOL_DEFAULT;
-                 if (ch == '`')
-                 {
-                     state = chNext == '`' ? SCE_SCRIPTOL_PERSISTENT : SCE_SCRIPTOL_COMMENTLINE;
-                 }
-                 else if (IsSolStringStart(ch))
-                 {
-                    styler.ColourTo(i - 1, state);
-                    state = GetSolStringState(styler, i, &nextIndex);
-                    if (nextIndex != i + 1)
-                    {
-                       i = nextIndex - 1;
-                       ch = ' ';
-                       chPrev = ' ';
-                       chNext = styler.SafeGetCharAt(i + 1);
-                     }
-                 }
-                 else if (isoperator(ch))
-                 {
-                     styler.ColourTo(i, SCE_SCRIPTOL_OPERATOR);
-                 }
-             }
-          }
-          else
-          {
-            if (state == SCE_SCRIPTOL_COMMENTLINE ||
-                state == SCE_SCRIPTOL_PERSISTENT ||
-                state == SCE_SCRIPTOL_CSTYLE)
-            {
-                 if (ch == '\r' || ch == '\n')
-                 {
-                     styler.ColourTo(i - 1, state);
-                     state = SCE_SCRIPTOL_DEFAULT;
-                 }
-            }
-            else if(state == SCE_SCRIPTOL_COMMENTBLOCK)
-            {
-              if(chPrev == '*' && ch == '/')
-              {
-                styler.ColourTo(i, state);
-                state = SCE_SCRIPTOL_DEFAULT;
-              }
-            }
-            else if ((state == SCE_SCRIPTOL_STRING) ||
-                     (state == SCE_SCRIPTOL_CHARACTER))
-            {
-               if ((ch == '\r' || ch == '\n') && (chPrev != '\\'))
-                {
-                    styler.ColourTo(i - 1, state);
-                    state = SCE_SCRIPTOL_STRINGEOL;
-                }
-                else if (ch == '\\')
-                {
-                   if (chNext == '\"' || chNext == '\'' || chNext == '\\')
-                   {
-                        i++;
-                        ch = chNext;
-                        chNext = styler.SafeGetCharAt(i + 1);
-                   }
-                 }
-                else if ((ch == '\"') || (ch == '\''))
-                {
-                    // must match the entered quote type
-                    if(ch == stringType)
-                    {
-                      styler.ColourTo(i, state);
-                      state = SCE_SCRIPTOL_DEFAULT;
-                    }
-                 }
-             }
-             else if (state == SCE_SCRIPTOL_TRIPLE)
-             {
-                if ((ch == '\'' && chPrev == '\'' && chPrev2 == '\'') ||
-                    (ch == '\"' && chPrev == '\"' && chPrev2 == '\"'))
-                 {
-                    styler.ColourTo(i, state);
-                    state = SCE_SCRIPTOL_DEFAULT;
-                 }
-             }
-            
-           }
-          chPrev2 = chPrev;
-          chPrev = ch;
-	}
-        if (state == SCE_SCRIPTOL_KEYWORD)
-        {
-            ClassifyWordSol(styler.GetStartSegment(),
-                 lengthDoc-1, keywords, styler, prevWord);
-	}
-        else
-        {
-            styler.ColourTo(lengthDoc-1, state);
-	}
-}
-
-static void FoldSolDoc(unsigned int startPos, int length, int initStyle,
-						   WordList *[], Accessor &styler)
- {
-	int lengthDoc = startPos + length;
-
-	int lineCurrent = styler.GetLine(startPos);
-	if (startPos > 0)
-        {
-          if (lineCurrent > 0)
-          {
-               lineCurrent--;
-               startPos = styler.LineStart(lineCurrent);
-               if (startPos == 0)
-                    initStyle = SCE_SCRIPTOL_DEFAULT;
-               else
-                    initStyle = styler.StyleAt(startPos-1);
-           }
-	}
-	int state = initStyle & 31;
-	int spaceFlags = 0;
-        int indentCurrent = styler.IndentAmount(lineCurrent, &spaceFlags, IsSolComment);
-        if ((state == SCE_SCRIPTOL_TRIPLE))
-             indentCurrent |= SC_FOLDLEVELWHITEFLAG;
-	char chNext = styler[startPos];
-	for (int i = startPos; i < lengthDoc; i++)
-         {
-		char ch = chNext;
-		chNext = styler.SafeGetCharAt(i + 1);
-		int style = styler.StyleAt(i) & 31;
-
-		if ((ch == '\r' && chNext != '\n') || (ch == '\n') || (i == lengthDoc))
-                {
-                   int lev = indentCurrent;
-                   int indentNext = styler.IndentAmount(lineCurrent + 1, &spaceFlags, IsSolComment);
-                   if (style == SCE_SCRIPTOL_TRIPLE)
-                        indentNext |= SC_FOLDLEVELWHITEFLAG;
-                   if (!(indentCurrent & SC_FOLDLEVELWHITEFLAG))
-                    {
-                        // Only non whitespace lines can be headers
-                        if ((indentCurrent & SC_FOLDLEVELNUMBERMASK) < (indentNext & SC_FOLDLEVELNUMBERMASK))
-                        {
-                              lev |= SC_FOLDLEVELHEADERFLAG;
-                        }
-                        else if (indentNext & SC_FOLDLEVELWHITEFLAG)
-                        {
-                             // Line after is blank so check the next - maybe should continue further?
-                             int spaceFlags2 = 0;
-                             int indentNext2 = styler.IndentAmount(lineCurrent + 2, &spaceFlags2, IsSolComment);
-                             if ((indentCurrent & SC_FOLDLEVELNUMBERMASK) < (indentNext2 & SC_FOLDLEVELNUMBERMASK))
-                             {
-                                   lev |= SC_FOLDLEVELHEADERFLAG;
-                              }
-                        }
-                    }
-                   indentCurrent = indentNext;
-                   styler.SetLevel(lineCurrent, lev);
-                   lineCurrent++;
-		}
-	}
-}
-
-LexerModule lmScriptol(SCLEX_SCRIPTOL, ColouriseSolDoc, "scriptol", FoldSolDoc);