diff options
Diffstat (limited to 'src/LexMagik.cxx')
| -rw-r--r-- | src/LexMagik.cxx | 445 |
1 files changed, 0 insertions, 445 deletions
diff --git a/src/LexMagik.cxx b/src/LexMagik.cxx deleted file mode 100644 index c6f6585b3..000000000 --- a/src/LexMagik.cxx +++ /dev/null @@ -1,445 +0,0 @@ -// Scintilla source code edit control -/** - * @file LexMagik.cxx - * Lexer for GE(r) Smallworld(tm) MagikSF - */ -// Copyright 1998-2005 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" - -#ifdef SCI_NAMESPACE -using namespace Scintilla; -#endif - -/** - * Is it a core character (C isalpha(), exclamation and question mark) - * - * \param ch The character - * \return True if ch is a character, False otherwise - */ -static inline bool IsAlphaCore(int ch) { - return (isalpha(ch) || ch == '!' || ch == '?'); -} - -/** - * Is it a character (IsAlphaCore() and underscore) - * - * \param ch The character - * \return True if ch is a character, False otherwise - */ -static inline bool IsAlpha(int ch) { - return (IsAlphaCore(ch) || ch == '_'); -} - -/** - * Is it a symbolic character (IsAlpha() and colon) - * - * \param ch The character - * \return True if ch is a character, False otherwise - */ -static inline bool IsAlphaSym(int ch) { - return (IsAlpha(ch) || ch == ':'); -} - -/** - * Is it a numerical character (IsAlpha() and 0 - 9) - * - * \param ch The character - * \return True if ch is a character, False otherwise - */ -static inline bool IsAlNum(int ch) { - return ((ch >= '0' && ch <= '9') || IsAlpha(ch)); -} - -/** - * Is it a symbolic numerical character (IsAlNum() and colon) - * - * \param ch The character - * \return True if ch is a character, False otherwise - */ -static inline bool IsAlNumSym(int ch) { - return (IsAlNum(ch) || ch == ':'); -} - -/** - * The lexer function - * - * \param startPos Where to start scanning - * \param length Where to scan to - * \param initStyle The style at the initial point, not used in this folder - * \param keywordslists The keywordslists, currently, number 5 is used - * \param styler The styler - */ -static void ColouriseMagikDoc(unsigned int startPos, int length, int initStyle, - WordList *keywordlists[], Accessor &styler) { - styler.StartAt(startPos); - - WordList &keywords = *keywordlists[0]; - WordList &pragmatics = *keywordlists[1]; - WordList &containers = *keywordlists[2]; - WordList &flow = *keywordlists[3]; - WordList &characters = *keywordlists[4]; - - StyleContext sc(startPos, length, initStyle, styler); - - - for (; sc.More(); sc.Forward()) { - - repeat: - - if(sc.ch == '#') { - if (sc.chNext == '#') sc.SetState(SCE_MAGIK_HYPER_COMMENT); - else sc.SetState(SCE_MAGIK_COMMENT); - for(; sc.More() && !(sc.atLineEnd); sc.Forward()); - sc.SetState(SCE_MAGIK_DEFAULT); - goto repeat; - } - - if(sc.ch == '"') { - sc.SetState(SCE_MAGIK_STRING); - - if(sc.More()) - { - sc.Forward(); - for(; sc.More() && sc.ch != '"'; sc.Forward()); - } - - sc.ForwardSetState(SCE_MAGIK_DEFAULT); - goto repeat; - } - - // The default state - if(sc.state == SCE_MAGIK_DEFAULT) { - - // A certain keyword has been detected - if (sc.ch == '_' && ( - sc.currentPos == 0 || !IsAlNum(sc.chPrev))) { - char keyword[50]; - memset(keyword, '\0', 50); - - for( - int scanPosition = 0; - scanPosition < 50; - scanPosition++) { - char keywordChar = static_cast<char>( - tolower(styler.SafeGetCharAt( - scanPosition + - static_cast<int>(sc.currentPos+1), ' '))); - if(IsAlpha(keywordChar)) { - keyword[scanPosition] = keywordChar; - } else { - break; - } - } - - // It is a pragma - if(pragmatics.InList(keyword)) { - sc.SetState(SCE_MAGIK_PRAGMA); - } - - // it is a normal keyword like _local, _self, etc. - else if(keywords.InList(keyword)) { - sc.SetState(SCE_MAGIK_KEYWORD); - } - - // It is a container keyword, such as _method, _proc, etc. - else if(containers.InList(keyword)) { - sc.SetState(SCE_MAGIK_CONTAINER); - } - - // It is a flow keyword, such as _for, _if, _try, etc. - else if(flow.InList(keyword)) { - sc.SetState(SCE_MAGIK_FLOW); - } - - // Interpret as unknown keyword - else { - sc.SetState(SCE_MAGIK_UNKNOWN_KEYWORD); - } - } - - // Symbolic expression - else if(sc.ch == ':' && !IsAlNum(sc.chPrev)) { - sc.SetState(SCE_MAGIK_SYMBOL); - bool firstTrip = true; - for(sc.Forward(); sc.More(); sc.Forward()) { - if(firstTrip && IsAlphaSym(sc.ch)); - else if(!firstTrip && IsAlNumSym(sc.ch)); - else if(sc.ch == '|') { - for(sc.Forward(); - sc.More() && sc.ch != '|'; - sc.Forward()); - } - else break; - - firstTrip = false; - } - sc.SetState(SCE_MAGIK_DEFAULT); - goto repeat; - } - - // Identifier (label) expression - else if(sc.ch == '@') { - sc.SetState(SCE_MAGIK_IDENTIFIER); - bool firstTrip = true; - for(sc.Forward(); sc.More(); sc.Forward()) { - if(firstTrip && IsAlphaCore(sc.ch)) { - firstTrip = false; - } - else if(!firstTrip && IsAlpha(sc.ch)); - else break; - } - sc.SetState(SCE_MAGIK_DEFAULT); - goto repeat; - } - - // Start of a character - else if(sc.ch == '%') { - sc.SetState(SCE_MAGIK_CHARACTER); - sc.Forward(); - char keyword[50]; - memset(keyword, '\0', 50); - - for( - int scanPosition = 0; - scanPosition < 50; - scanPosition++) { - char keywordChar = static_cast<char>( - tolower(styler.SafeGetCharAt( - scanPosition + - static_cast<int>(sc.currentPos), ' '))); - if(IsAlpha(keywordChar)) { - keyword[scanPosition] = keywordChar; - } else { - break; - } - } - - if(characters.InList(keyword)) { - sc.Forward(strlen(keyword)); - } else { - sc.Forward(); - } - - sc.SetState(SCE_MAGIK_DEFAULT); - goto repeat; - } - - // Operators - else if( - sc.ch == '>' || - sc.ch == '<' || - sc.ch == '.' || - sc.ch == ',' || - sc.ch == '+' || - sc.ch == '-' || - sc.ch == '/' || - sc.ch == '*' || - sc.ch == '~' || - sc.ch == '$' || - sc.ch == '=') { - sc.SetState(SCE_MAGIK_OPERATOR); - } - - // Braces - else if(sc.ch == '(' || sc.ch == ')') { - sc.SetState(SCE_MAGIK_BRACE_BLOCK); - } - - // Brackets - else if(sc.ch == '{' || sc.ch == '}') { - sc.SetState(SCE_MAGIK_BRACKET_BLOCK); - } - - // Square Brackets - else if(sc.ch == '[' || sc.ch == ']') { - sc.SetState(SCE_MAGIK_SQBRACKET_BLOCK); - } - - - } - - // It is an operator - else if( - sc.state == SCE_MAGIK_OPERATOR || - sc.state == SCE_MAGIK_BRACE_BLOCK || - sc.state == SCE_MAGIK_BRACKET_BLOCK || - sc.state == SCE_MAGIK_SQBRACKET_BLOCK) { - sc.SetState(SCE_MAGIK_DEFAULT); - goto repeat; - } - - // It is the pragma state - else if(sc.state == SCE_MAGIK_PRAGMA) { - if(!IsAlpha(sc.ch)) { - sc.SetState(SCE_MAGIK_DEFAULT); - goto repeat; - } - } - - // It is the keyword state - else if( - sc.state == SCE_MAGIK_KEYWORD || - sc.state == SCE_MAGIK_CONTAINER || - sc.state == SCE_MAGIK_FLOW || - sc.state == SCE_MAGIK_UNKNOWN_KEYWORD) { - if(!IsAlpha(sc.ch)) { - sc.SetState(SCE_MAGIK_DEFAULT); - goto repeat; - } - } - } - - sc.Complete(); -} - -/** - * The word list description - */ -static const char * const magikWordListDesc[] = { - "Accessors (local, global, self, super, thisthread)", - "Pragmatic (pragma, private)", - "Containers (method, block, proc)", - "Flow (if, then, elif, else)", - "Characters (space, tab, newline, return)", - "Fold Containers (method, proc, block, if, loop)", - 0}; - -/** - * This function detects keywords which are able to have a body. Note that it - * uses the Fold Containers word description, not the containers description. It - * only works when the style at that particular position is set on Containers - * or Flow (number 3 or 4). - * - * \param keywordslist The list of keywords that are scanned, they should only - * contain the start keywords, not the end keywords - * \param The actual keyword - * \return 1 if it is a folding start-keyword, -1 if it is a folding end-keyword - * 0 otherwise - */ -static inline int IsFoldingContainer(WordList &keywordslist, char * keyword) { - if( - strlen(keyword) > 3 && - keyword[0] == 'e' && keyword[1] == 'n' && keyword[2] == 'd') { - if (keywordslist.InList(keyword + 3)) { - return -1; - } - - } else { - if(keywordslist.InList(keyword)) { - return 1; - } - } - - return 0; -} - -/** - * The folding function - * - * \param startPos Where to start scanning - * \param length Where to scan to - * \param keywordslists The keywordslists, currently, number 5 is used - * \param styler The styler - */ -static void FoldMagikDoc(unsigned int startPos, int length, int, - WordList *keywordslists[], Accessor &styler) { - - bool compact = styler.GetPropertyInt("fold.compact") != 0; - - WordList &foldingElements = *keywordslists[5]; - int endPos = startPos + length; - int line = styler.GetLine(startPos); - int level = styler.LevelAt(line) & SC_FOLDLEVELNUMBERMASK; - int flags = styler.LevelAt(line) & ~SC_FOLDLEVELNUMBERMASK; - - for( - int currentPos = startPos; - currentPos < endPos; - currentPos++) { - char currentState = styler.StyleAt(currentPos); - char c = styler.SafeGetCharAt(currentPos, ' '); - int prevLine = styler.GetLine(currentPos - 1); - line = styler.GetLine(currentPos); - - // Default situation - if(prevLine < line) { - styler.SetLevel(line, (level|flags) & ~SC_FOLDLEVELHEADERFLAG); - flags = styler.LevelAt(line) & ~SC_FOLDLEVELNUMBERMASK; - } - - if( - ( - currentState == SCE_MAGIK_CONTAINER || - currentState == SCE_MAGIK_FLOW - ) && - c == '_') { - - char keyword[50]; - memset(keyword, '\0', 50); - - for( - int scanPosition = 0; - scanPosition < 50; - scanPosition++) { - char keywordChar = static_cast<char>( - tolower(styler.SafeGetCharAt( - scanPosition + - currentPos + 1, ' '))); - if(IsAlpha(keywordChar)) { - keyword[scanPosition] = keywordChar; - } else { - break; - } - } - - if(IsFoldingContainer(foldingElements, keyword) > 0) { - styler.SetLevel( - line, - styler.LevelAt(line) | SC_FOLDLEVELHEADERFLAG); - level++; - } else if(IsFoldingContainer(foldingElements, keyword) < 0) { - styler.SetLevel(line, styler.LevelAt(line)); - level--; - } - } - - if( - compact && ( - currentState == SCE_MAGIK_BRACE_BLOCK || - currentState == SCE_MAGIK_BRACKET_BLOCK || - currentState == SCE_MAGIK_SQBRACKET_BLOCK)) { - if(c == '{' || c == '[' || c == '(') { - styler.SetLevel( - line, - styler.LevelAt(line) | SC_FOLDLEVELHEADERFLAG); - level++; - } else if(c == '}' || c == ']' || c == ')') { - styler.SetLevel(line, styler.LevelAt(line)); - level--; - } - } - } - -} - -/** - * Injecting the module - */ -LexerModule lmMagikSF( - SCLEX_MAGIK, ColouriseMagikDoc, "magiksf", FoldMagikDoc, magikWordListDesc); - |