ext/scintilla/lexers/LexKix.cxx

   1 // Scintilla source code edit control
   2 /** @file LexKix.cxx
   3  ** Lexer for KIX-Scripts.
   4  **/
   5 // Copyright 2004 by Manfred Becker <manfred@becker-trdf.de>
   6 // The License.txt file describes the conditions under which this software may be distributed.
   7 // Edited by Lee Wilmott (24-Jun-2014) added support for block comments
   8
   9 #include <stdlib.h>
  10 #include <string.h>
  11 #include <stdio.h>
  12 #include <stdarg.h>
  13 #include <assert.h>
  14 #include <ctype.h>
  15
  16 #include "ILexer.h"
  17 #include "Scintilla.h"
  18 #include "SciLexer.h"
  19
  20 #include "WordList.h"
  21 #include "LexAccessor.h"
  22 #include "Accessor.h"
  23 #include "StyleContext.h"
  24 #include "CharacterSet.h"
  25 #include "LexerModule.h"
  26
  27 #ifdef SCI_NAMESPACE
  28 using namespace Scintilla;
  29 #endif
  30
  31 // Extended to accept accented characters
  32 static inline bool IsAWordChar(int ch) {
  33         return ch >= 0x80 || isalnum(ch) || ch == '_';
  34 }
  35
  36 static inline bool IsOperator(const int ch) {
  37         return (ch == '+' || ch == '-' || ch == '*' || ch == '/' || ch == '&' || ch == '|' || ch == '<' || ch == '>' || ch == '=');
  38 }
  39
  40 static void ColouriseKixDoc(unsigned int startPos, int length, int initStyle,
  41                            WordList *keywordlists[], Accessor &styler) {
  42
  43         WordList &keywords = *keywordlists[0];
  44         WordList &keywords2 = *keywordlists[1];
  45         WordList &keywords3 = *keywordlists[2];
  46 //      WordList &keywords4 = *keywordlists[3];
  47
  48         styler.StartAt(startPos);
  49
  50         StyleContext sc(startPos, length, initStyle, styler);
  51
  52         for (; sc.More(); sc.Forward()) {
  53
  54                 if (sc.state == SCE_KIX_COMMENT) {
  55                         if (sc.atLineEnd) {
  56                                 sc.SetState(SCE_KIX_DEFAULT);
  57                         }
  58                 } else if (sc.state == SCE_KIX_COMMENTSTREAM) {
  59                         if (sc.ch == '/' && sc.chPrev == '*') {
  60                                 sc.ForwardSetState(SCE_KIX_DEFAULT);
  61                         }
  62                 } else if (sc.state == SCE_KIX_STRING1) {
  63                         // This is a doubles quotes string
  64                         if (sc.ch == '\"') {
  65                                 sc.ForwardSetState(SCE_KIX_DEFAULT);
  66                         }
  67                 } else if (sc.state == SCE_KIX_STRING2) {
  68                         // This is a single quote string
  69                         if (sc.ch == '\'') {
  70                                 sc.ForwardSetState(SCE_KIX_DEFAULT);
  71                         }
  72                 } else if (sc.state == SCE_KIX_NUMBER) {
  73                         if (!IsADigit(sc.ch)) {
  74                                 sc.SetState(SCE_KIX_DEFAULT);
  75                         }
  76                 } else if (sc.state == SCE_KIX_VAR) {
  77                         if (!IsAWordChar(sc.ch)) {
  78                                 sc.SetState(SCE_KIX_DEFAULT);
  79                         }
  80                 } else if (sc.state == SCE_KIX_MACRO) {
  81                         if (!IsAWordChar(sc.ch) && !IsADigit(sc.ch)) {
  82                                 char s[100];
  83                                 sc.GetCurrentLowered(s, sizeof(s));
  84
  85                                 if (!keywords3.InList(&s[1])) {
  86                                         sc.ChangeState(SCE_KIX_DEFAULT);
  87                                 }
  88                                 sc.SetState(SCE_KIX_DEFAULT);
  89                         }
  90                 } else if (sc.state == SCE_KIX_OPERATOR) {
  91                         if (!IsOperator(sc.ch)) {
  92                                 sc.SetState(SCE_KIX_DEFAULT);
  93                         }
  94                 } else if (sc.state == SCE_KIX_IDENTIFIER) {
  95                         if (!IsAWordChar(sc.ch)) {
  96                                 char s[100];
  97                                 sc.GetCurrentLowered(s, sizeof(s));
  98
  99                                 if (keywords.InList(s)) {
 100                                         sc.ChangeState(SCE_KIX_KEYWORD);
 101                                 } else if (keywords2.InList(s)) {
 102                                         sc.ChangeState(SCE_KIX_FUNCTIONS);
 103                                 }
 104                                 sc.SetState(SCE_KIX_DEFAULT);
 105                         }
 106                 }
 107
 108                 // Determine if a new state should be entered.
 109                 if (sc.state == SCE_KIX_DEFAULT) {
 110                         if (sc.ch == ';') {
 111                                 sc.SetState(SCE_KIX_COMMENT);
 112                         } else if (sc.ch == '/' && sc.chNext == '*') {
 113                                 sc.SetState(SCE_KIX_COMMENTSTREAM);
 114                         } else if (sc.ch == '\"') {
 115                                 sc.SetState(SCE_KIX_STRING1);
 116                         } else if (sc.ch == '\'') {
 117                                 sc.SetState(SCE_KIX_STRING2);
 118                         } else if (sc.ch == '$') {
 119                                 sc.SetState(SCE_KIX_VAR);
 120                         } else if (sc.ch == '@') {
 121                                 sc.SetState(SCE_KIX_MACRO);
 122                         } else if (IsADigit(sc.ch) || ((sc.ch == '.' || sc.ch == '&') && IsADigit(sc.chNext))) {
 123                                 sc.SetState(SCE_KIX_NUMBER);
 124                         } else if (IsOperator(sc.ch)) {
 125                                 sc.SetState(SCE_KIX_OPERATOR);
 126                         } else if (IsAWordChar(sc.ch)) {
 127                                 sc.SetState(SCE_KIX_IDENTIFIER);
 128                         }
 129                 }
 130         }
 131         sc.Complete();
 132 }
 133
 134
 135 LexerModule lmKix(SCLEX_KIX, ColouriseKixDoc, "kix");
 136