aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/LexScriptol.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'src/LexScriptol.cxx')
-rw-r--r--src/LexScriptol.cxx408
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);
generated by cgit v1.2.3 (git 2.25.1) at 2025-10-31 16:43:15 +0000